Hi all, This TDL is helpful to get a look back to the previous transactions pertaining to a particular ledger while making a Receipt Voucher or Payment Voucher. While passing a Receipt Voucher or Payment Voucher, if you want to analyze the previous transactions of that particular ledger Press CONTROL + P on the field "ACLS Led", then you will be prompted to a POCKET DIARY which portraits the last transactions related to that particular ledger. Wishing you all a very happy and prosperous NEW YEAR 2016
Dear Sir,, Nice but, If line select and Back to voucher (Receipt , Payment) current voucher is not show, Exist TALLY
Thanks for your observation, now code rectified; drill down disabled and narration brought into the pocket diary.
Dear Sir.. I have one question , when import excel to tally . how can import this example please suggest me sir Dr. 500 Cr. 300 Cr. 200 Double entry import in one voucher , I am create single Entry Import in one voucher The Code are given below , [Variable : Payment SVExcelPath] Type : String Default : "" Persist : Yes [System : Variable] Payment SVExcelPath : "" [System : Formula] PaymentExcelFilePath : "D:\ImportVouchers.xls" [Collection : Excel Payment] ODBC : "Driver={Microsoft Excel Driver (*.xls)};DBQ= " + @@PaymentExcelFilePath SQL : "Select * from [PAYMENTVCH$]" [Collection : Payment Import] Source Collection : Excel Payment Fetch : *.* Compute : PYDate : $_1 Compute : PYNarration : $_2 Compute : PYDebitName : $_3 Compute : PYDebitAmt : $_4 Compute : PYCreditName : $_5 Compute : PYCreditAmt : $_6 Compute : PYVCHNO : $_7 [System : Formula] PYDate : $$Date($$StringPart:$PYDate:8:2) + "-" + + ($$StringPart:$PYDate:5:2) + "-" + + ($$StringPart:$PYDate:0:4)) [Function : Payment Import] Variable : ProgressCount : Number Variable : Counter : Number Variable : VoucherTypeName : String Variable : PYDate : Date Variable : PYDebitName : String Variable : PYDebitAmt : Amount Variable : PYCreditName : String Variable : PYCreditAmt : String Variable : PYNarration : String Variable : PYVCHNO : String 00 : Set : Counter : 0 10 : Query Box : "Import Payment Voucher ?":Yes:No 20 : SET : ProgressCount : 1 30 : IF : NOT ($$NumItemsaymentImport> 0) 40 : RETURN 50 : END IF 60 : START PROGRESS : ($$NumItemsaymentImport) : "Importing" : " Journal Vouchers" 70 : SET : SVViewName : $$SysName:AccVchView 90 : If : $$LastResult 80 : Walk Collection : PaymentImport 101 : Set : PYDate : $$String:$PYDate 102 : Set : PYDebitName : $$String:$PYDebitName 103 : Set : PYDebitAmt : $$String:$PYDebitAmt 107 : Set : PYCreditName : $$String:$PYCreditName 108 : Set : PYCreditAmt : $$String:$PYCreditAmt 113 : Set : PYNarration : $$String:$PYNarration 114 : Set : PYVCHNO : $$String:$PYVCHNO 120 : NEW OBJECT : Voucher 130 : SET VALUE : Date : @@PYDate 140 : SET VALUE : VoucherTypeName : $$VchTypePayment 150 : Set Value : PARTYLEDGERNAME : ##PYDebitName 155 : Set Value : NARRATION : ##PYNarration 160 : SET VALUE : ISINVOICE : No 170 : Insert Collection Object: Ledger Entries 180 : SET TARGET : LedgerEntries 190 : SET VALUE : LEDGERNAME : ##PYDebitName 200 : SET VALUE : Amount : ##PYDebitAmt 210 : SET VALUE : ISDEEMEDPOSITIVE : "Yes" 211 : Set Value : VoucherNumber : ##PYVCHNO 220 : Set Target : .. 230 : Insert Collection Object: Ledger Entries 240 : SET TARGET : LedgerEntries 250 : SET VALUE : LEDGERNAME : ##PYCreditName 260 : SET VALUE : Amount : ##PYCreditAmt 265 : SET VALUE : ISDEEMEDPOSITIVE : "No" 330 : SET VALUE : PersistedView : ##SVViewName 340 : CREATE TARGET 350 : SHOW PROGRESS : ##ProgressCount 360 : SET : ProgressCount : ##ProgressCount + 1 380 : END WALK 385 : Increment : Counter 390 : Msg Box : "Status" : "Payment Vouchers Imported \n successfully!!! " 370 : End If 400 : Return
Dear Sir,, Nice but, If line select and Back to voucher (Receipt , Payment) current voucher is not show,when press CTR=P Exist TALLY
Check the screen captures, it works fine, download the tdl again and try, if problem persists give me details, I cannot guarantee performance in older versions
Check the screen captures, it works fine, download the tdl again and try, if problem persists give me details, I cannot guarantee performance in older versions
Please Check Sir, I am trying list of Companies line no wise but not success please help [#Collection: List of Companies On Disk] Title : $$LocaleString:"List of Companies" Type : Company on Disk Child of : $Dest Format : $Name, 25 Format : @@DskCompanyNumberStr, 5 Format : $CompanyPeriodStr, 20 Align : Centre FullHeight : Yes Format : @@Myline [System : formula] MyLine : $$Number:"10"
Dear Preeti This code is working fine this code is working only single entry Voucher Mode pls change payment voucher in single entry mode by pressing f12. I think you are trying to view in double entry mode that's why you have faced problem.