1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Bank Passbok

Discussion in 'Free Source Codes' started by Rohit Khedar, Dec 15, 2019.

    
  1. Rohit Khedar

    Rohit Khedar Member


    Dear Expert,

    Where i did mistake pls solvd

    "Withdrawn Amt." and "Deposited Amt." not show plz hlp.

    [#Menu : Gateway of Tally]
    Add : Item : Bank Passbook : Display : Bank Passbook

    [Report:Bank Passbook]
    Use : DSP Template
    Set : SVfromDate :##SVfromDate
    Set : GroupName : ##GroupName
    Variable : IsMultiPage, InNewPages
    Set : IsMultiPage : yes
    Set : InNewPages : yes
    Set : SVToDate : ##SVCurrentdate
    Set : SVfromDate : $BooksFrom:Company :##SVCurrentCompany
    Variable : BankFilterName : string
    Set : BankFilterName : ""


    Form : Bank Passbook
    Title : "Online Bank Payment Upload Details"


    [Form: Bank Passbook]

    Button : PrintButton, ExportButton, F2 ChangePeriod, Bank Filter
    Parts :MB Company, Bank Payment Part

    Height : 100% screen
    Width : 100% screen
    Background : Light Yellow


    [Button : Bank Filter]

    Title : "Bank Name"
    Key : Alt + B
    Action : alter:BankFilterName

    [Report : BankFilterName]

    Form :BankFilterName
    ;Title : "BankFilterName"


    [Form : BankFilterName]

    Parts : BankFilterName
    Option : Small Size Form
    Full Width : No
    Space Left : 0.5
    Space Right : 0.5




    [Part : BankFilterName]
    Lines : Form SubTitle, BankFilterName
    Local : Field : Form SubTitle : Info : "Bank Name Filter"


    [Line : BankFilterName]
    Fields : Long Prompt, BankFilterName
    Local : Field : Long Prompt : Set as : $$String:"Salect Bank Name:"
    Local : Field : Default : width: 15


    [Field : BankFilterName]

    Use : Name field
    Table : BanknameColl, End of List
    Show Table : Always
    Sort : Yes
    Modifies : BankFilterName ;;Yes
    Variable :BankFilterName



    [Collection : BanknameColl]

    Type : Ledgers

    Include : Group:$$GroupBank, Group:$$GroupBankOD


    ;Child of : $$GroupBank


    Format : $Name, 15
    Fetch : Name
    Title : "List of Bank"
    FullHeight : No
    Filter: Filterbank


    [System: Formulae]


    Filterbank:$Ledgername = ##BankFilterName or $$IsSysName:##BankFilterName




    [Part:MB Company]
    Line: MB Company Name, MB statmnt Tit, MB GropTit

    [Line:MB Company Name]
    Field: Form Sub Title
    Local : Field : Form Sub Title : Set as : @@CmpMailName
    Local : Field : Form Sub Title : Align : Center
    Local : Field : Form Sub Title : Fullwidth : yes
    Local : Field : Form Sub Title : Color : Blue
    Local : Field : Form Sub Title : Border: Thin Bottom
    Local : Field : Form Sub Title : Style: Large Bold Italic
    Space Bottom:0.2



    [Line : MB statmnt Tit]

    Field:MB statmnt Tit

    Space Bottom:0.2
    [Field:MB statmnt Tit]

    Use :Name field
    Set as : $$LocaleString:"Bank Statement for the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    Align : Center
    Full Width : Yes
    ;Local :Style :Defualt :Height :20
    Color :Black
    Style :Small bold Italic
    Background : Light Surf Green;Light Sea Green;CalcBGClr




    [Line : MB GropTit]

    Field: Simple Field, MB GropTit_B

    Local : Field : Simple Field: SetAs:"Bank Name:"
    Local : Field : Simple Field: Style : Normal Bold Italic

    Space Bottom :2 mms



    [Field:MB GropTit_B]
    Use:Name Field
    SetAs:##BankFilterName
    Width:200 mms
    Style:Tiny



    [Part: Bank Payment Part]

    Lines : Bank Payment Title, Bank Payment Line,
    Repeat : Bank Payment Line : paymentColl
    CommonBorder: Yes
    Scroll : Vertical
    Border : Thin Bottom

    [Line : Bank Payment Title]

    Use : Bank Payment Line
    Local : Field : Default : Color : Black
    Local : Field : Default : Background : Light Grey
    Local : Field : Default : Type : String
    Local : Field : Default : Align : Centre
    Local : Field : Default : Style : Normal Bold Italic
    Local : Field : Default : Line : 0



    Local : Field : Payment Vch Date : Set as : "Vch Date"
    Local : Field : Payment Led Name : Set as : "Particulars"
    Local : Field : Payment Nara : Set as : "Naration"
    Local : Field : Payment Chqeno : Set as : "Cheque No."
    Local : Field : Payment Dr Amount : Set as : "Withdrawn Amt."
    Local : Field : Payment Cr Amount : Set as : "Deposited Amt."
    Local : Field : Payment Balamt : Set as : "Balance"


    Border : column Titles


    [Line: Bank Payment Line]

    Fields : Payment Vch Date, Payment Led Name, Payment Nara,
    Right Fields : Payment Chqeno ,Payment Dr Amount, Payment Cr Amount, Payment Balamt
    Option : AlterOnEnter

    [Field:payment Vch Date]

    Use : Short Date Field
    Set as : $Date
    Format : Short Date, Separator:"/"
    Border : Thin Left
    Width : 10
    Align : left
    Style : Small Bold Italic
    Alter : Voucher : $$IsVoucher

    [Field:payment Led Name]

    Use : Name Field
    Set As : $AllLedgerEntries[2].LedgerName
    Border : Thin Left
    Width :30
    Align : left
    Style : Small Bold Italic


    [Field :payment Nara]
    Use : Name Field
    Set as : $Narration ;;$VoucherChequename
    Border : Thin Left
    Width : 15
    Align : left
    Style : Small Bold Italic



    [Field:payment Chqeno]

    Use : Name Field
    Set As : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
    Border : Thin Left
    Width :15
    Align : left
    Style : Small Bold Italic


    [Field:payment Dr Amount]

    Use : Amount Forex Field
    Set as : $DrAmt
    Format : "Cr/Dr"
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic

    [Field:payment Cr Amount]

    Use : Amount Forex Field
    Set as : $CrAmt
    Format : "Cr/Dr"
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic

    [Field:payment Balamt]

    Use : Number Field
    Set as : $ClosingBalance
    Format : "No Comma"
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic

    ;**********************************************************;
    [Collection:paymentColl]

    Type : Ledgers: vouchers

    Child of : $$GroupBank
    belongs to : Yes
    Fetch : Date, Vouchernumber, VoucherTypeName, Amount, MasterID, LedgerName, Parent,ParentFullLis,CrAmt,DrAmt

    Aggr Compute : DrAmt : Sum : If $$IsDr:$Amount then $Amount else ""
    Aggr Compute : CrAmt : Sum : If NOT $$IsDr:$Amount then $Amount else ""

    Filter : FilterDrAmt,FilterCrAmt


    [System : Formula]


    FilterDrAmt: NOT $$IsEmpty:$TotLedDrAmt AND (NOT @@ShowForex OR NOT $$IsBaseCurrency:$TotLedDrAmt)
    FilterCrAmt: NOT $$IsEmpty:$TotLedCrAmt AND (NOT @@ShowForex OR NOT $$IsBaseCurrency:$TotLedCrAmt)
     
    Last edited: Dec 15, 2019
    Rohit Khedar, Dec 15, 2019
    #1


  2. SANTOSH SHRESTHA

    SANTOSH SHRESTHA Member


    U are doing mistake in filter, and collection focus on that area
     
    SANTOSH SHRESTHA, Dec 16, 2019
    #2


  3. Rohit Khedar

    Rohit Khedar Member


    any expert solvd plz this mistake
     
    Last edited: Dec 18, 2019
    Rohit Khedar, Dec 17, 2019
    #3


  4. Rohit Khedar

    Rohit Khedar Member


    any expert solvd plz
     
    Rohit Khedar, Dec 18, 2019
    #4


  5. Rohit Khedar

    Rohit Khedar Member


    hear i change and now filter work but withdrawn amt not clear hlp plz

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

    [Report:Bank Payment Details]
    Use : DSP Template
    Set : SVfromDate :##SVfromDate
    Set : GroupName : ##GroupName
    Variable : IsMultiPage, InNewPages
    Set : IsMultiPage : yes
    Set : InNewPages : yes
    Set : SVToDate : ##SVCurrentdate
    Set : SVfromDate : $BooksFrom:Company-:##SVCurrentCompany
    Variable : BankName : string
    Set : BankName : ""

    Set : ShowRunBalance : yes
    Form : Bank Payment Details
    Title : "Online Bank Payment Upload Details"


    [Form: Bank Payment Details]

    Button : PrintButton, ExportButton, F2 ChangePeriod, Bank Filter
    Parts :MB Company, Bank Payment Part

    Height : 100% screen
    Width : 100% screen
    Background : Light Yellow


    [Button : Bank Filter]

    Title : "Bank Name"
    Key : Alt + B
    Action : Alter : BankFilterName

    [Report : BankFilterName]

    Form :BankFilterName
    ;Title : "BankFilterName"


    [Form : BankFilterName]

    Parts : BankFilterName
    Option : Small Size Form
    Full Width : No
    Space Left : 0.5
    Space Right : 0.5




    [Part : BankFilterName]
    Lines : Form SubTitle, BankFilterName
    Local : Field : Form SubTitle : Info : "Bank Name Filter"


    [Line : BankFilterName]
    Fields : Long Prompt, BankFilterName
    Local : Field : Long Prompt : Set as : $$String:"Salect Bank Name:"
    Local : Field : Default : width: 15


    [Field : BankFilterName]

    Use : Name field
    Table : BankAccounts ;;BanknameColl, End of List
    Show Table : Always
    Sort : Yes
    Modifies : BankName :Yes
    Variable :BankName

    [Variable:BankName]

    Type : String
    Persistent : Yes

    [System:Variables]
    BankName:""

    [Collection : BanknameColl]

    Type : Ledger

    Include : Group:$$GroupBank, Group:$$GroupBankOD

    Belongsto : yes



    ;Format : $BankName, 15
    ;Fetch : Name
    Title : "List of Bank"
    FullHeight : No
    ;Filter: Filterbank


    [System: Formulae]


    Filterbank:$Ledgername = ##BankName or $$IsSysName:##BankName

    ;Filterbank:$IsBelongsTo:$$GroupBank OR $$IsBelongsTo:$$GroupBankOD


    [Part:MB Company]
    Line: MB Company Name, MB statmnt Tit, MB GropTit

    [Line:MB Company Name]
    Field: Form Sub Title
    Local : Field : Form Sub Title : Set as : @@CmpMailName
    Local : Field : Form Sub Title : Align : Center
    Local : Field : Form Sub Title : Fullwidth : yes
    Local : Field : Form Sub Title : Color : Blue
    Local : Field : Form Sub Title : Border: Thin Bottom
    Local : Field : Form Sub Title : Style: Large Bold Italic
    Space Bottom:0.2



    [Line : MB statmnt Tit]

    Field:MB statmnt Tit

    Space Bottom:0.2
    [Field:MB statmnt Tit]

    Use :Name field
    Set as : $$LocaleString:"Bank Statement for the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    Align : Center
    Full Width : Yes
    ;Local :Style :Defualt :Height :20
    Color :Black
    Style :Small bold Italic
    Background : Light Surf Green;Light Sea Green;CalcBGClr




    [Line : MB GropTit]

    Left Field: Simple Field, MB GropTit_B
    Right Field: Simple Prompt, MB OpBal
    Local : Field : Simple Field: SetAs:"Bank Name:"
    Local : Field : Simple Field: Style : Normal Bold Italic
    Local : Field : Simple Prompt: SetAs:"Opening Balance:"
    Local : Field : Simple Prompt: Style : Normal Bold Italic
    Space Bottom :2 mms



    [Field:MB GropTit_B]
    Use:Name Field
    SetAs:##BankFilterName
    Width:200 mms
    Style:Tiny

    [Field:MB OpBal]
    Use:Amount Field
    Set as:$OpeningBalance:Ledger:##BankFilterName
    Style:Tiny
    Format:"Dr/Cr"

    [Part: Bank Payment Part]

    Lines : Bank Payment Title, Bank Payment Line,
    Repeat : Bank Payment Line : paymentColl
    CommonBorder: Yes
    Scroll : Vertical
    Border : Thin Bottom

    [Line : Bank Payment Title]

    Use : Bank Payment Line
    Local : Field : Default : Color : Black
    Local : Field : Default : Background : Light Grey
    Local : Field : Default : Type : String
    Local : Field : Default : Align : Centre
    Local : Field : Default : Style : Normal Bold Italic
    Local : Field : Default : Line : 0



    Local : Field : Payment Vch Date : Set as : "Vch Date"
    Local : Field : Payment Led Name : Set as : "Particulars"
    Local : Field : Payment Nara : Set as : "Naration"
    Local : Field : Payment Chqeno : Set as : "Cheque No."
    Local : Field : Payment Dr Amount : Set as : "Withdrawn Amt."
    Local : Field : Payment Cr Amount : Set as : "Deposited Amt."
    Local : Field : Payment Balamt : Set as : "Balance"


    Border : column Titles


    [Line: Bank Payment Line]

    Fields : Payment Vch Date, Payment Led Name, Payment Nara,
    Right Fields : Payment Chqeno ,Payment Dr Amount, Payment Cr Amount, Payment Balamt
    Option : AlterOnEnter

    [Field:payment Vch Date]

    Use : Short Date Field
    Set as : $Date
    Format : Short Date, Separator:"-"
    Border : Thin Left
    Width : 8
    Align : Right
    Style : Small Bold Italic
    Alter : Voucher : $$IsVoucher

    [Field:payment Led Name]

    Use : Name Field
    Set As : $AllLedgerEntries[1].LedgerName
    Border : Thin Left
    full width:Yes
    ;Width :30
    Align : left
    Style : Small Bold Italic


    [Field :payment Nara]
    Use : Name Field
    Set as : $Narration ;;$VoucherChequename
    Border : Thin Left
    Width : 20
    Align : left
    Style : Small Bold Italic



    [Field:payment Chqeno]

    Use : Name Field
    Set As : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic


    [Field:payment Dr Amount]

    Use : Amount Field
    Set as : If $$IsDr:$Amount then $Amount else ""
    Format : "Cr/Dr"
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic

    [Field:payment Cr Amount]

    Use : Amount Field
    Set as : If not $$IsDr:$Amount then $Amount else ""
    Format : "Cr/Dr"
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic

    [Field:payment Balamt]

    Use : Amount Forex Field
    ;Set as:If ($$Line = 0) Then $ClosingBalance Else $$NettAmount:mad:PrevTot:$DrAmt-$CRamt
    PrevTot:$$PrevLineField
    Format : "cr/dr"
    Border : Thin Left
    Width :15
    Align : Right
    Style : Small Bold Italic

    ;**********************************************************;
    [Collection:paymentColl]
    Type : Vouchers : Ledger
    Child Of:##BankName
    belongs to : Yes
    Fetch : Date, Vouchernumber, VoucherTypeName, Amount, MasterID, LedgerName, Parent,ParentFullLis, Narration, payment Dr Amount, payment Cr Amount
    ;Compute:DrAmt:If $$IsDr:$Amount then $Amount else ""
    ;Compute:CrAmt:If not $$IsDr:$Amount then $Amount else ""
    Filter:MYVCH
    ;Sort : Default : $Date, $LedgerName
    [System : Formula]

    MYVCH:$$IsPayment:$VoucherTypeName or $$IsReceipt:$VoucherTypeName or $$IsContra:$VoucherTypeName
     
    Rohit Khedar, Dec 20, 2019
    #5


  6. Rohit Khedar

    Rohit Khedar Member


    help plz any expert Collection in above code
     
    Rohit Khedar, Dec 29, 2019
    #6


  7. Rohit Khedar

    Rohit Khedar Member


    help plz any expert my problm in above code
     
    Rohit Khedar, Jan 1, 2020
    #7


Share This Page