[#Menu : Gateway of Tally] Item : Payment Register : Display : Payment Register [Report : Payment Register] ; Use : Dsp Template Variables : SV CurrentCompany, SV FromDate, SV ToDate Set : SVfromDate : ##SVCurrentDate Set : SVToDate : ##SVDate Set : Is Day Book : No Form : PayReg [Form : PayReg] Use : Dsp Template Height : 100 % Page Width : 100 % Page Part : DSP AccTitles, PayBody Button : Print Button [Part : PayBody] Lines : Rchqlineh, Rchqline Repeat : RChqline : Rctvchs Bottom Line : RecBodyBLn Totals : CASAmt, RFldAmt Scroll : Vertical Common border : Yes [Line : RChqLineh] Fields : RFldDate,RFldsl,fRac, RFldPart Right Fields :Bnkdt, RFldChno,CASAmt, RFldAmt, RFldhead Local : Field : Default : Align : Center Local : Field : Default : Type : String Local : Field : RFldDate : Set as : "Date" Local : Field : RFldsl : Set as : "Voucher No." Local : Field : fRac : Set as : "From Account Head" Local : Field : RFldPart : Set as : "Particulars" Local : Field : Bnkdt : Set as : "Bank Date" Local : Field : RFldChno : Set as : "Chqeque No." Local : Field : CASAmt : Set as : "Cash Amount" Local : Field : RFldAmt : Set as : "Bank Amount" Local : Field : RFldhead : Set as : "To Account Head" Border : thin Top Bottom [Line : RecBodyBLn] Use : RChqLine Local : Field : RFldsl : Set as : "" Local : Field : RFldDate : Set as : "" Local : Field : RFldDate : Type : String Local : Field : fRac : Set as : "" Local : Field : RFldPart : Set as : "Totals" Local : Field : Bnkdt : Set as : "" Local : Field : RFldChno : Set as : "" Local : Field : CASAmt : Set as : $$Total:CASAmt Local : Field : RFldAmt : Set as : $$Total:RFldAmt Local : Field : RFldhead : Set as : "" Border : Totals [Line : RChqLine] Fields : RFldDate,RFldsl,fRac, RFldPart Right Fields :Bnkdt, RFldChno,CASAmt, RFldAmt, RFldhead Option : AlterOnEnter : $$IsVoucher AND NOT $IsDeleted Explode : RHeadDetail : $$KeyExplode OR ##ExplodeFlag [Field : RFldsl] Use : Short Name Field Set as : $VoucherNumber Width : 10 Alter : Voucher : $$IsVoucher AND NOT $IsDeleted Border : Thin Right Align : Right [Field : RFldDate] Use : Uni Date Field Set as : $Date Border : thin Left Right width : 9 [Field : fRac] Use : NAme Field Set As :$BankName Width : 30 Border : Thin Right [Field : RFldPart] Use : Name Field Set as : $Narration ;;$VoucherChequename Border : thin Right Width : 38 Line : 0 [Field : RFldChno] Use : Name Field Set as : $DueDateOfPymt Width : 10 Align : Center Border : Thin left [Field : CASAmt] Use : Amount Field Set as : $$FilterAmtTotal:AllLedgerEntries:ChBkEntries:$Amount ;;$Amount space Right : 1 Border : Thin left Inactive : @@IsBankLedPresent [Field : RFldAmt] Use : Amount Field Set as : $$FilterAmtTotal:AllLedgerEntries:ChBkEntries:$Amount ;;$Amount space Right : 1 Border : Thin left Inactive : Not @@IsBankLedPresent [Field : RFldhead] Use : Name field Set as : $Ledgername Width : 30 Border : Thin left Right [Field :Bnkdt] Use : Short Date Field Set As : $BasicBankersDate Border : Thin Right Width : 10 [Collection : Rctvchs] Collection : Rctvchsgb Collection : Rctvchsgbod [Collection : Rctvchsgb] Type : Vouchers : group Childof : $$groupbank Filter : Rctvchs Fetch : Narration, Ledger, Date, DueDateOfPymt, Amount,BankName [Collection : Rctvchsgbod] Type : Vouchers : group Childof : $$GroupCash ;;$$GroupBankOD and Filter : Rctvchs Fetch : Narration, Ledger, Date, DueDateOfPymt, Amount,BankName [System : formula] Rctvchs : $$IsPayment:$VoucherTypeName ;;and ChBkEntries : Not $LedgerName AND NOT $$IsDr:$Amount [Part : RHeadDetail] Line : RChqexpln Repeat : RChqexpln : AllLedgerEntries Option : small size Part [Line : RChqexpln] Fields : RFldsle, RFldDatee, RFldParte Right Fields : RFldChnoe, RFldAmte, RFldheade Empty : $LedgerName AND ($$FilterCount:AllLedgerEntriesPRNonCashBankEntries > 0) [Field : RFldsle] Use : Short Name Field Set as : "" Width : 8 Align : Right Alter : Voucher : $$IsVoucher AND NOT $IsDeleted space Right : 2 Border : thin Right [Field : RFldDatee] Use : Uni Date Field Set as : "" Border : thin Right width : 10 [Field : RFldParte] Use : Name Field Set as : $Narration Width : 8 Line : 0 [Field : RFldChnoe] Use : Short Name Field Set as : "" Width : 4 Align : Center Border : Thin left [Field : RFldAmte] Use : Amount Field Set as : $Amount space Right : 1 Border : Thin left [Field : RFldheade] Use : Name field Set as : $Ledgername Width : 4 Border : Thin left
Hi, this is a good code;. As I find this reflects only the cash payment; but not the bank payment. This is done only as a test, so that you can be aware of it and modify it. I do not know, may be I have gone wrong somewhere. It is also possible. Please check it. Thank you for the enthusiasm in developing the code. Bye and happy HOLI