Bank Payment Register

Discussion in 'Free Source Codes' started by mukeshb, Jun 20, 2019.

         
  1. mukeshb

    mukeshb Member


    Dear Expert's & Devlopor's,
    Thanks to all for support every time,

    In the attached TDL "Bank Payment Register " i am unable to get all the filed Result,
    Kindly Suggest, how can we get this compleat TDL
     

    Attached Files:



  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Last I helped you on this to get all the blank fields..........now what is the issue? Attach screenshot of your problems with notes.
     


  3. mukeshb

    mukeshb Member



  4. mukeshb

    mukeshb Member


    Dear Amit Sir & Experts,

    Can u plz help to get this .

    Thanks,
    Mukesh. B
     


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Kindly wait till next week, will look into it...... for your solution I need access to Tally and TDE and i have neither of them with me now.
     


  6. mukeshb

    mukeshb Member


    Dear Amit Sir,

    Plz Have a Look.

    Thanks,
     


  7. mukeshb

    mukeshb Member


    Dear Amit Sir,

    Kindly help to complete this TDL.

    Thanks,
    Mukesh. B
     


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Hi, kindly email me the TDL as well as the screenshots with explanations. Will look into it.
     


  9. naijaind

    naijaind Member


    Hi, I have done few modification according to my usage, and I get all the required fields. I think there is error in ";Filter : PayFilter" that I have removed. Please note I am not TDL developer, just doing TDL's with the help of all experts in this forum, and specially Amit Kamdar Sir. Somehow I am unable to upload file, may be our company restrictions.
    =====
    [Collection:paymentColl]
    Type : Voucher
    Child Of:$$VchTypePayment
    Belongs To: Yes
    Fetch : *.*
    Fetch :AllledgerEntries.BankAllocations.INSTRUMENTNUMBER
    ;Fetch:AllLedgerEntries.BankAllocations.BankersDate
    Fetch:AllLedgerEntries.BankAllocations.BankDetails
    ;Filter : PayFilter
    ==============
     


  10. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Please explain in details.... what you trying to get ? and what error/problem you are facing?

    Try to work around the company restrictions. Sometimes we need screenshots to better understand and solve the problems. A picture tells a thousand words.
     


  11. naijaind

    naijaind Member


    Please try this below modified code, it may help you develop further :

    ;**********************************************************;
    [#Menu : Gateway of Tally]
    Add : Item : Bank Payment : Display : Bank Payment Details

    [Report:Bank Payment Details]

    Form : Bank Payment Details
    Title : "Payment Details"

    [Form: Bank Payment Details]

    Use : DSP Template ;;;Its a pre defined report containing all the necessary keys, buttons, etc required for reporting purposes
    Parts :MB Company,Bank Account Details Tit, Bank Payment Part
    Delete : Page Break
    Add : Page Break : SatCl Page Break, SatOp Page Break
    Height : 100% screen ;;;defining height of form as 100% sccreen
    Width : 100% screen ;;;defining width of form as 100% sccreen
    Background : Light Yellow ;Very Light Blue ;;;Setting the background color of report to grey


    [Part:MB Company]
    Line: MB Company Name,MB Company Address
    Border: Thin Box

    [Line:MB Company Name]
    Field: Name Field
    Local: Field: Name Field: Set as: @@CmpMailName
    Local: Field: Name Field: Style:Large Bold
    Local: Field: Name Field: Align : Center
    Local: Field: Name Field: Full Width:Yes
    Space Top: 0.05
    Local: Field: Name Field:color:geranium


    [Line:MB Company Address]
    Field: Name Field
    Local: Field: Name Field: Set as: $$FullList:CompanyAddress:$Address
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style:O9
    Local: Field: Name Field: Align : Center
    Local: Field: Name Field: Line:0
    Local: Field: Name Field:color:Blue

    [Part : Bank Account Details Tit]
    Line :Bank Account DetailsDate

    [Line : Bank Account DetailsDate]

    Border:THIN BOTTOM LEFT RIGHT
    Space Top: 1% page
    Space Bottom: 1% page
    Field : Bank Account DetailFromdt,ToooField,Bank Account DetailTodt

    [Field : Bank Account DetailFromdt]
    Use : n Field
    Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate
    Width : 58% Screen
    Align : RIGHT
    Style : LARGE BOLD
    Color:geranium

    [Field : ToooField]
    Use : Name Field
    Set as : "To"
    Width : 2% Screen
    Align : Center
    Style : Normal
    Color:geranium

    [Field : Bank Account DetailTodt]
    Use : Date Field
    Set as : ##SVToDate
    Width : 45% Screen
    Align : Left
    Style : LARGE BOLD
    Color:geranium


    [Part: Bank Payment Part]

    Lines : Bank Payment Title, Bank Payment Line,
    Repeat : Bank Payment Line : paymentColl ;;;line will repeat on the collection of the ledger
    CommonBorder: Yes
    Scroll : Vertical

    [Line : Bank Payment Title]

    Use : Bank Payment Line
    Local : Field : Default :Color : White
    Local : Field : Default :Background : Dark Green
    Local : Field : Default : Type : String
    Local : Field : Default : Align : Centre
    Local : Field : Default : Style : Arial Bold
    Local : Field : Default :Border : BlueBorderXThin


    Local : Field : Payment SL No. : Set as : "SL. No"
    Local : Field : Payment Vch Date : Set as : "Date"
    Local : Field : Payment Led Name : Set as : "Party Ledger Name"
    Local : Field : Payment Vch Number : Set as : "Vch No."
    Local : Field : Payment Vch Type : Set as : "Vch Type"
    Local : Field : Debit PayFavour : Set as : "Favour Name / Rcvd From"
    Local : Field : Credit Bank Account No. : Set as : "Credit Bank Acc No."
    Local : Field : Credit Bank Name : Set as : "Credit Bank Name"
    Local : Field : Credit Bank Branch : Set as : "Credit Bank Branch"
    Local : Field : Credit Bank IFSC Code : Set as : "Credit Bank IFSC Code"
    Local : Field : Debit Bank Account Number : Set as : "Debit Bank Account Number"
    Local : Field : Debit Bank Name : Set as : "Debit Bank Name"
    Local : Field : Debit Bank Branch : Set as : "Debit Branch"
    Local : Field : Debit Bank IFSC No. : Set as : "Debit Bank IFSC No."
    Local : Field : Payments VchTransaction Type : Set as : "Transaction Type"
    Local : Field : Payment Dr Amount : Set as : "Debit Amount"
    Local : Field : Payment Cr Amount : Set as : "Credit Amount"
    Local : Field : Payment Bank Reference : Set as : "Instrument / Bank Ref No."
    Local : Field : Payment InstrumentDate : Set as : "Instrument Date"
    Local : Field : Payment BankersDate : Set as : "Bankers Date"
    Local : Field : Payment Narration : Set as : "Narration"
    Border : Thin Top Bottom


    [Line: Bank Payment Line]

    Fields : Payment SL No.,Payment Vch Date,Payment Vch Number,Payment Vch Type,Payment Led Name,Debit PayFavour,Credit Bank Account No.,Credit Bank Name,Credit Bank Branch,Credit Bank IFSC Code,Debit Bank Account Number,Debit Bank Name,Debit Bank Branch,Debit Bank IFSC No.,Payments VchTransaction Type,Payment Bank Reference,Payment InstrumentDate,Payment BankersDate,Payment Dr Amount,Payment Cr Amount,Payment Narration

    Repeat : Payment Led Name ;;;line will repeat on the collection of the ledger

    [Field:payment SL No.]

    Set as : $$Line ;;;setting the line number to the field
    Width : 4
    Align : RIGHT
    Border : Thin Right
    Alter : Ledger
    Style : Normal
    SPACE RIGHT : 1
    SPACE LEFT : 1

    [Field:payment Vch Date]

    ; Use : Name Field
    Set as : $Date
    Format : “Short Date”
    Border : Thin Right
    Style : TINY
    Width :7% screen
    SPACE RIGHT : 1
    SPACE LEFT : 1
    Align : left

    [Field:payment Vch Number]

    Use : Name Field
    Set as : $VoucherNumber
    Border : Thin Right
    Style : TINY
    Width :10% screen
    SPACE RIGHT : 1
    SPACE LEFT : 1
    Align : left
    Alter : Voucher
    [Field:payment Led Name]

    Use : Name Field
    Set as : $$FilterValue:$LedgerName:AllLedgerEntries:1:IsDefBankAllocLedgerHasValue ;;;set ledger name to field
    Border : Thin Right
    Style : TINY Bold
    Width :35
    SPACE RIGHT : 1
    SPACE LEFT : 1
    Align : left

    [Field:Credit Bank Account No.]
    Use : Short Name Field
    ;Set as : $$FilterValue:$LedgerName:AllLedgerEntries:2:IsDefBankAllocLedgerHasCrValue
    Set As : $BankDetails:Ledger:($LedgerEntries[Last].LedgerName)
    Style : Small Bold
    Case : Normal
    Skip Forward : NOT $$IsEmpty:$$Value
    ;; To validate Ac number starting with Zero in case of Citi bank
    Control : AcNoStartingZero : ($$StringPart:$BankDetails:0:1 EQUALS "0") AND $BankingConfigBank EQUALS "Citi Bank"

    [Field:Credit Bank Name]

    Use : Name Field
    ; Set as : $BankName
    Set As : $MailingName:Ledger:($LedgerEntries[Last].LedgerName)
    Border : Thin Right
    Width :18
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left

    [Field:Credit Bank Branch]

    Use : Name Field
    Set as :$AccountHolder1st
    Border : Thin Right
    Width :18
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left

    [Field:Credit Bank IFSC Code]

    Use : Short Name Field
    Set as:$ifscode
    Use : Upper Case Field
    Style : Small Bold
    Max : 11
    Invisible : NOT @@IsIndia
    Skip Forward : NOT $$IsEmpty:$$Value
    Notify : eBankingWarningsMessage : NOT $$IsEmpty:$$Value AND @@IsIndia AND $$BankCodeValidation:($$Value):"IFS":11:""


    [Field: Debit Bank Account Number]

    Use : Name Field
    Set as : $(ledger,#PaymentLedName).PaymentDetails[1].AccountNumber
    Border : Thin Right
    Width :18
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : Right

    [Field:Debit Bank Name]

    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.BankName
    Border : Thin Right
    Width :13
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left


    [Field:Debit Bank Branch]

    Use : Name Field
    Set as :
    Border : Thin Right
    Width :15
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align :Right

    [Field:Debit Bank IFSC No.]

    Use : Name Field
    ; Set as : $IFSCode:CrLedger:$CrLedgerName;$AllLedgerEntries[-1].BankAllocations.IFSCode
    Set As : $AllLedgerEntries[Last].BankAllocations[1].IFSCode
    Width :10
    Border : Thin Right
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align :Right


    [Field:payments VchTransaction Type]

    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.TransactionType
    Width :13
    Border : Thin Right
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align :Right

    [Field:Debit PayFavour]

    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.PaymentFavouring
    Border : Thin Right
    Style : TINY
    Width :18% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left


    [Field:payment Vch Type]

    Use : Name Field
    Set as : $VoucherTypeName
    Border : Thin Right
    Style : TINY
    Width :6% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left

    [Field:payment Dr Amount]

    Use : Name Field
    Set as : if not $$IsDr:$Amount then 0 else $Amount
    Border : Thin Right
    Style : TINY
    Width :10% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : Right

    [Field:payment Cr Amount]

    Use : Name Field
    Set as : if $$IsDr:$Amount then 0 else $Amount
    Border : Thin Right
    Style : TINY
    Width :10% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left

    [Field:payment Bank Reference]

    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER
    Width :15
    Border : Thin Right
    Style : TINY
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align :Right

    [Field: Payment InstrumentDate]

    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTDate
    Border : Thin Right
    Style : TINY
    Width :13
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align :Right


    [Field:payment BankersDate]

    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.BankersDate
    Border : Thin Right
    Style : TINY
    Width :13
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align :Right

    [Field :payment Narration]
    Use : Name Field
    Set as : $Narration ;;$VoucherChequename
    Border : thin Right
    Width : 38
    Line : 0
    Style : TINY SMALL
    ;**********************************************************;
    [Collection:paymentColl]
    Type : Voucher
    Child Of:$$VchTypePayment
    Belongs To: Yes
    Fetch : *.*
    Fetch :AllledgerEntries.BankAllocations.INSTRUMENTNUMBER
    Fetch:AllLedgerEntries.BankAllocations.BankersDate
    Fetch:AllLedgerEntries.BankAllocations.BankDetails
    Filter : PayFilter

    [System:Formulas]
    PayFilter:$$IsPayment:$VoucherTypeName
    ;PayFilter:$$VchTypePayment="Payment"


    ;[Collection :pymtvchsgb]
    ;Type : Vouchers : group
    ;Childof : $$groupbank
    ;Filter :pymtvchs;Rctvchs
    ;Fetch :Ledger,Amount,BankName
    ;[System : formula]

    ;Pymtvchs:$$IsPayment:$VoucherTypeName ;;and
    ;ChBkEntries :Not $LedgerName AND NOT $$IsDr:$Amount

    ;[System:Formulas]
    ;AbcFilter :$$IsBelongsTo:$$GroupBank OR $$IsBelongsTo:$$GroupBankOD
    ;IsBankLedger : ($$IsLedofGrp:$LedgerName:$$GroupBank Or $$IsLedofGrp:$LedgerName:$$GroupBankOD)
    ;IsBankLedPresent: $$FilterCount:AllLedgerEntries:IsBankLedger > 0

    ;**********************************************************;
    [Border : BlueBorderXThin]
    Top : Thin
    Bottom : Thin
    Right : Thin
    Left : Thin
    Color : "Blue"
    Print Fg: "Blue"
     


Share This Page