1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Payment Register

Discussion in 'Free Source Codes' started by sattam, Mar 9, 2016.

    
  1. sattam

    sattam Active Member


    [#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:AllLedgerEntries:pPRNonCashBankEntries > 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
     
    Last edited: Mar 9, 2016
    sattam, Mar 9, 2016
    #1
    raman09 likes this.


  2. priya

    priya Member


    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
     
    priya, Mar 20, 2016
    #2


  3. sohel

    sohel New Member


    R TR u
     
    sohel, Apr 18, 2016
    #3


  4. shekh2101

    shekh2101 New Member


    how to aDD POS REGISTER IN SECURITY CONTROL LIST OF REPORT
     
    shekh2101, Jan 29, 2020
    #4


Share This Page