Hi All, some of our experts please help me on this; why vouchers not getting created I am looking for payments and receipts with reference number field on both Code: [#Menu: Gateway of Tally] Add : Item : "Bulk Payment Entry" : Alter : CphSales EntryRpt [Report : CphSales EntryRpt] Form : CphSales EntryFrm Title : $$LocaleString:"Bulk Payment Entry" Object : Company [Form : CphSales EntryFrm] Part : Form SubTitle, CphSales CrLedPrt, CphSales DrLedPrt Width : 100% Page Height : 100% Page Space Left : 0.25 Space Right : 0.25 Horizontal Align: Left Local : Field : Form SubTitle : Info : "Bulk Payment Entry" On : Form Accept : Yes : Form Accept On : Form Accept : Yes : Call : CphSale BulkAutoEntry [Part : CphSales CrLedPrt] Line : CphSales CrLedLne [Line : CphSales CrLedLne] Field : Medium Prompt, CphSales CrLedFld Local : Field : Medium Prompt : Info : $$LocaleString:"Credit Ledger" Local : Field : Medium Prompt : Width : 17 Space Bottom : 0.50 [Field : CphSales CrLedFld] Type : String Use : Name Field Table : CashBank LedgersExtract Storage : RBCBLedgerName Show Table : Always Case : Title Case Width : 50 Align : Left [Part : CphSales DrLedPrt] Line : CphSales DrLedTtleLne, CphSales DrLedDetlsLne Repeat : CphSales DrLedDetlsLne : CphSalesCollection Scroll : Vertical Common Border: Yes Border : Thin Box Break On : $$IsEndOfList:#CphSalesDebitLedgerFld [Line : CphSales DrLedTtleLne] Use : CphSales DrLedDetlsLne Local : Field : Default : Inactive : No Local : Field : Default : Delete : Storage Local : Field : Default : Type : String Local : Field : Default : Style : Normal Local : Field : CphSales SerialNoFld : Info : $$LocaleString:"Sno." Local : Field : CphSales DateFld : Info : $$LocaleString:"Date" Local : Field : CphSales DebitLedgerFld : Info : $$LocaleString:"Debit Ledger" Local : Field : CphSales DrAmountFld : Info : $$LocaleString:"Amount" Local : Field : CphVchNarration : Info : $$LocaleString:"Narration" Local : Field : CphRefNo : Info : $$LocaleString:"Ref No" Local : Field : CphChequeNo : Info : $$LocaleString:"Cheque No" Border : Thin TopBottom Delete : Space Top [Line : CphSales DrLedDetlsLne] Field : CphSales SerialNoFld, CphSales DateFld, CphSales DebitLedgerFld, CphSales DrAmountFld, CphChequeNo, CphRefNo, CphVchNarration Border : Thin Left Space Top : 0.25 [Field : CphSales SerialNoFld] Use : Short Name Field Width : @@SymWidth Set As : $$Line Skip : Yes Border : Thin Right [Field : CphSales DateFld] Type : Date Use : Short Date Field Storage : $Date Set As : $$PrevObj:$Date ; Line added Set Always : Yes ; Line added Width : @@ShortWidth Case : Title Case Border : Thin Right [Field : CphSales DebitLedgerFld] Type : String Use : Name Field Table : All Ledger, EndOfList Keys : Create Ledger, Alter Ledger Storage : $PartyLedgerName Show Table : Always Case : Title Case Width : 50 ;@@NameWidth Align : Left ; Inactive : $$IsEndOfList:$PartyLedgerName ;;$$IsEndOfList:$Name ;;$$IsEmpty:$Name Border : Thin Right [Field : CphSales DrAmountFld] Type : Amount Use : Amount Field Storage : $Amount Width : @@AmountWidth Inactive : $$IsEndOfList:#CphSalesDebitLedgerFld Border : Thin Right [Field:CphVchNarration] Use : Voucher Narration Field Storage : $Narration Key : PrevVchNarration, PrevLedNarration Case : Title Case Full Width : Yes Inactive : $$IsEndOfList:#CphSalesDebitLedgerFld Border : Thin Right [Field:CphChequeNo] Use : Name Field Width : @@shortwidth Storage : CheNumUDf Inactive : $$IsEndOfList:#CphSalesDebitLedgerFld ;$$IsEndOfList:$Name;;$$IsEmpty:$Name Border : Thin Right [Field:CphRefNo] Use : Name Field Width : @@shortwidth Storage : $VchRefNo Inactive : $$IsEndOfList:#CphSalesDebitLedgerFld Border : Thin Right [Collection: CphSalesCollection] Title : "Bulk Payment Entry" Type : CphSales BulkEntry : Company Child Of : ##SVCurrentCompany [System: UDF] CphSales BulkEntry : Aggregate : 41071 Date : Date : 41072 PartyLedgerName : String : 41073 Amount : Amount : 41074 RBCBLedgerName : String : 41075 CheNumUDf : String : 41076 VchRefNo : String : 41077 Narration : String : 41078 ;; Bulk Auto Entry ;; ;;----------------------------------------------------------------------------------------------------------------------- [Function: CphSale BulkAutoEntry] ;; Procedural Block Parameter: MASVTypeName : String : ##SVVoucherType Variable : SVVoucherType : String Variable : CphDate : Date Variable : CphDrLedgerName : String Variable : CphCrLedgerName : String Variable : CphAmount : Amount Variable : CphChqNo : String Variable : VchRefNo : String Variable : Narration : String Variable : CphMASVchType : String Variable : Counter : Number: 1 001 : Start Batch Post : 10 005 : START PROGRESS : ($$NumItems:CphSalesCollection) : "Creating Vouchers" : @@CmpMailName : "Creating Payment Vouchers ..." 007 : WALK COLLECTION : CphSalesCollection 010 : SET : CphDate : $$Date:$Date 020 : SET : CphDrLedgerName : $PartyLedgerName 030 : SET : CphCrLedgerName : #CphSalesCrLedFld 040 : SET : CphAmount : $$AsAmount:$Amount 041 : SET : CphChqNo : #CphChequeNo ; 042 : SET : ChpRefNo : #VchRefNo 043 : SET : Narration : $Narration 050 : SET : SVViewName : $$SysName:AcctgVchView 060 : NEW OBJECT : Voucher 070 : SET VALUE : VoucherTypeName : $$VchTypePayment 080 : SET VALUE : Date : ##CphDate ; 081 : SET VALUE : ChqNo : #CphChequeNo ; 082 : SET VALUE : VchRefNo : #CphRefNo 090 : SET VALUE : Narration : $Narration ; 100 : SET VALUE : Narration : "Cheque No :" + $CheNumUDf + ", Against Bill No:"+$Narration ;;---------------------------------------------------------------------------- ;;Debit Entry 160 : INSERT COLLECTION OBJECT : AllLedgerEntries 160a: SET TARGET : LedgerEntries 170 : SET VALUE : Ledger Name : ##CphCrLedgerName 180 : SET VALUE : Amount : ##CphAmount ;* (-) 1 ;##CphAmount 190 : SET VALUE : IsDeemedPositive : "No" 200 : SET TARGET : .. */ ;---------------------------------------------------------------------------- ;;Credit Entry 160 : INSERT COLLECTION OBJECT : AllLedgerEntries 170 : SET VALUE : Ledger Name : ##CphCrLedgerName 180 : SET VALUE : Amount : ##CphAmount 190 : SET VALUE : IsDeemedPositive : "No" 200 : SET TARGET : .. ;Bank Allocations 201 : IF : ($$IsLedOfGrp:$RBCBLedgerName:$$GroupBank OR $$IsLedOfGrp:$RBCBLedgerName:$$GroupBankOD) 202 : SET TARGET : LedgerEntries[$$LoopIndex] 203 : SET : BankLedgerAmount : $Amount 209 : INSERT COLLECTION OBJECT : BankAllocations 210 : WALK : BankAllocations 211 : SET TARGET : BankAllocations[$$LoopIndex] 220 : SET VALUE : Date : $$Owner:$$Owner:$Date 230 : SET VALUE : TransactionType : $$LocaleString:"Cheque" 235 : SET VALUE : BankName : $RBCBLedgerName ; ? 240 : SET VALUE : InstrumentNumber : $$Owner:$$Owner:$ChqNumUDF 250 : SET VALUE : InstrumentDate : $$String:##CphDate 260 : SET VALUE : PAYMENTFAVOURING : $$String:##CphDrLedgerName 270 : SET VALUE : Amount : (##CphAmount) *-1 280 : SET TARGET : ... 281 : END WALK 290 : SET TARGET : .. 300 : END IF ;----------------------------------------------------------------------------------- 310 : SET VALUE : PersistedView : ##SVViewName 320 : CREATE TARGET 340 : INCREMENT : Counter 350a: SHOW PROGRESS : ##Counter 360 : END WALK 370 : MSGBOX : " Message Box " : "Successful created All the Payment Vouchers" 380 : END PROGRESS 390 : DISPLAY : CphPayment Daybook ;390: LOG : ">>>Voucher Created on "+$$String:$$Machinedate + " @ " + $$String:$$MachineTime + ">>>>>" 400 : RETURN 410 : End Batch Post [Report: CphPayment Daybook] Use : Daybook Set : VoucherTypeName : "Payment" Set : SVFromDate : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany Set : SVToDate : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany Thanks
See the below link thread & update as required. http://tdlexpert.com/index.php?thre...receipt-contra-journal.7629/page-4#post-44326