can anyone help me making rokkad type or T style cash book .... ledger

Discussion in 'Free Source Codes' started by bikash agarwal, Mar 14, 2019.

    
  1. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Still not yet removed the blank spaces....in between the dates...........
     


  2. Jenny

    Jenny Active Member


    Untitled.jpg Final Code .........
    Code:
    [#Menu:Gateway Of Tally]
    Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll1
    
    
    
    [Collection: CMPLedCOLL1]
    Title : "List of Ledger"
    Type : Ledger;: Company
    ;Childof: ##SVCurrentCompany
    Belongs To : Yes
    Variable : GroupName
    Report : Leder Statement Report
    Trigger : Ledger Statement Trigger Rep
    
    
    [Report : Ledger Statement Trigger Rep]
    
    Use : Collection Variable
    Local : Line : Collection Variable : Add : Field : LedgerStatementGroup
    Local : Field: MV Title : Info : "Name of Ledger"
    
    [Field: LedgerStatementGroup]
    Use : Name Field
    Variable : GroupName
    Modifies : GroupName
    Table : cmpledcoll1
    Show Table : Always
    
    
    [Report : Leder Statement Report]
    Variable : SVFromDate, SVToDate
    Set : SVfromDate:$$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
    Set : GroupName : ##GroupName
    Variable : IsMultiPage, InNewPages
    Set : IsMultiPage : yes
    Set : InNewPages : yes
    Set : SVToDate : ##SVCurrentdate
    Form : LStatement Form
    Variables : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
    Variable : GroupName, ShowForex, LedShowForex, ShowCreatedBy
    Variable : ShowRunBalance
    Variable : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon
    Variables : ExplodeNarrFlag
    Variables : IsDayBook, DSPWithOpening
    Variable : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers
    Variable : OnlyAccVouchers, OnlyInvVouchers
    Variable : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract
    Variable : Show ContactDetails, IsItemBatchReport, IsNegativeCash
    Variable : DBFilterVar
    ;;Start Fresh page for each balaning method
    Variable : BMInNewPage
    Set : BMInNewPage : No
    ;;Show Ledger's Parent
    Variable : ShowLedParent
    Variable : PrintSortingOnGrp
    Variable : VoucherTypeName
    Variables : LedStarting, LedNameStartingFrom, LedNameStartingTo ;;For alphabetical print range
    ; Set : DBFilterVar : No
    Set : IsLedBkup : No
    Set : IsGrpBkup : No
    
    Set : SV SortMethod : @@Default
    Set : Is Ledger Report : Yes
    Set : DSPWithOpening : Yes
    Set : DSPShowMonthly : No
    Set : DSPHasMultiLevel : No
    Set : DSPNotScaleable : Yes
    Set : DSPHasColumnTotal : No
    Set : BankRecMode : No
    Set : IsMultiPage : No
    Set : ColumnarDayBook : No
    Set : ExtractMode : No
    Set : ShowCreatedBy : No
    Set : IsItemBatchReport : No
    [Form : LStatement Form]
    Height : 100% Screen
    Width : 100% Screen
    ;BackGround : Black
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : Change Period,ChangeLedger, Report Config,Print Button,Export Button,BottomToolBarBtn1, BottomToolBarBtn2,BottomToolBarBtn3,BottomToolBarBtn4,BottomToolBarBtn5,BottomToolBarBtn6,BottomToolBarBtn7,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11
    BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
    Buttons : PrintButton, ExportButton, UploadButton, MailButton
    Parts : JKT1 Invoice Company Details,LStatement Tit,LStatementinfoPart
    ;Add : Bottom Part : DBCBDetailsvmv1
    Add : Button :ExplodeFlag
    
    [Part:JKT1 Invoice Company Details]
    Line: JKT1 Company Name, JKT1 Company Address
    Border: Thin Box
    
    
    [Line: JKT1 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
    
    [Line:JKT1 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
    
    [Part : LStatement Tit]
    Space Bottom : 0.2 inch
    Line : LStatementParty; Tit Line2
    ;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementParty; Tit Line2
    
    Add:Lines:At End:partyaddL03,partyaddL04,LStatementPeriod
    
    [Line : LStatement Tit Line]
    Field : LStatement Tit Field
    
    [Field : LStatement Tit Field]
    Use : Name Field
    Set as : @@CmpMailName;$Name:Company:##SVCurrentCompany
    Align : Center
    Full Width : Yes
    Style : Large Bold
    Color:red
    [Line:LStatementAdd]
    Field:LStatementAddField
    [Field:LStatementAddField]
    Use : Name Field
    Set as : $$FullList:CompanyAddress:$Address
    Align : Center
    Full Width : Yes
    ;Border : Thin Box
    Style:TINY
    [Line:LStatementGSTNo]
    Field:LStatementGSTNoField
    [Field:LStatementGSTNoField]
    Use : Name Field
    Set as : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:@CMPExcisePrimaryGodown+$$LocaleString:" PAN NO.:"+ $IncomeTaxNumber:Company:##SVCurrentCompany
    Align : Center
    Full Width : Yes
    Style:TINY
    [Line:LStatementPeriod]
    Field:LStatementPeriodField
    Space Top:0.5
    Border:thin bottom
    
    [Field:LStatementPeriodField]
    Use:name field
    Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    Align : Center
    Full Width : Yes
    Local:Style:defualt:Height:20
    Color:Black
    Style:large bold
    [Line:LStatementParty]
    Field:LStatementPartyInfo,LStatementPartyField
    
    [Field:LStatementPartyInfo]
    Use :Name Field
    SetAs:"Party Name :"
    Width:14
    Style:small
    Background:DEEP COBALT BLUE
    Color:WHITE
    [Field:LStatementPartyField]
    Use :Name Field
    SetAs:##GroupName
    Width:201 mms
    ;Style:tiny
    ;Border: Thin Box
    Color : dark red
    Local:STYLE:DEFAULT:Height:14
    Full Width:Yes
    [Line:partyaddL03]
    Fields:partyaddL21,partyaddL22,partyaddL23
    border : thin top
    
    [Field:partyaddL21]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Address:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt : width : 14
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##GroupName
    Local : Field :name Field : width : 93.5
    Local : Field :name Field :Skip:yes
    Local : Field :name Field : line : 0
    Local : Field :name Field : style :SMALL
    Color : dark red
    Background:LIGHT BLUE
    
    [Field:partyaddL22]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"State:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field : Set as : $LedStateName:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 14
    [Field:partyaddL23]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Pin Code:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $pincode:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 30
    
    
    
    
    [Line:partyaddL04]
    Fields:partyaddL35,partyaddL38,partyaddL39
    border : thin top
    
    [Field:partyaddL35]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 14
    Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##GroupName
    Local : Field : name Field :Skip:Yes
    Local : Field :name Field : width : 93.5
    Local : Field :name Field : style : normal bold
    Color : blue
    border : thin bottom
    
    
    [Field:partyaddL38]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Mobile:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $LedgerMobile:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Local : Field :name Field : style : normal
    Color:BLUE
    border : thin bottom
    
    [Field:partyaddL39]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"E-Mail:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $Email:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color :BLUE
    border : thin bottom
    Local : Field :name Field : style : normal
    Local : Field :name Field : Width:21.2
    
    [Part:LStatementinfoPart]
    Left Part:LStatementinfoPartLeft
    Right Part:LStatementinfoPartRight
    
    [Part:LStatementinfoPartLeft]
    Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
    Repeat:LedTitleFieldLeft:VLedcollectionLeft
    Bottom Line:LedClbalfieldLefttot, LedClbalfieldLeft
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Total:LVchDebitAmt
    
    [Part:LStatementinfoPartRight]
    Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
    Repeat:LedTitleFieldRight:VLedcollectionRight
    Bottom Line:LedClbalfieldRighttot, LedClbalfieldRight
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Total:LVchCreditAmt
    
    [Line:LedopebalfieldLeft]
    ;Fields:LedopebalLT,LedopebalL
    
    Fields:LedopebalLT
    Right Fields : LedopebalL
    
    Border: Thin BOttom
    
    [Field:LedopebalLT]
    info :$$localestring:"Opening Balance"
    color : Black
    width : 12
    Inactive: If $$IsEmpty:#LedopebalL then Yes Else No
    Border : Thin Top
    Background: Yellow
    Align:Left
    
    [Field:LedopebalL]
    Use : Amount Field
    Set as : If $$IsDr:$Openingbalance:Ledger:##GroupName then $Openingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : Tiny Bold
    Color : Black
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedClbalfieldLefttot]
    Fields:LedclbalLTtot
    Right Fields: LedClbalLtot
    Border: Totals
    
    [Field:LedClbalLTtot]
    info :$$localestring:"Total"
    color : WHITE
    width : 12
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalLtot]
    Use : Amount Field
    Set as : $$Total:LVchDebitAmt
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    
    [Line:LedClbalfieldLeft]
    Fields:LedclbalLT
    Right Fields: LedClbalL
    Border: Totals
    
    
    [Field:LedClbalLT]
    info :$$localestring:"Clsoing Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    
    [Field:LedClbalL]
    Use : Amount Field
    Set as : If $$IsDr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedTitleInfoLeft]
    Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt
    Local:Field:LVchDDate:Info:"Date"
    Local:Field:LVchDParticulars:Info:"Particulars"
    Local:Field:LVchDNum:Info:"Vch.Type"
    Local:Field:LVchDebitAmt:Info:"Debit Amount"
    Border:THIN TOP BOTTOM
    Local:Field:default:Background:DEEP COBALT BLUE
    Local:Field:default:color:white
    Local:Style:Default:Height:10
    
    [Line:LedopebalfieldRight]
    Right Fields:LedopebalRT, LedopebalR
    Border: Thin BOttom
    
    [Field:LedopebalRT ]
    info : $$localestring:"Opening Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedopebalR then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedopebalR]
    Use : Amount Field
    Set as : If $$IsCr:$Openingbalance:Ledger:##GroupName then $Openingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Center
    
    [Line:LedClbalfieldRighttot]
    Fields:LedclbalRTtot
    Right Fields: LedClbalRtot
    Border: Totals
    
    [Field:LedClbalRTtot]
    info :$$localestring:"Total"
    color : WHITE
    width : 12
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalRtot]
    Use : Amount Field
    Set as : $$Total:LVchCreditAmt
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedClbalfieldRight]
    Right Fields:LedclbalRT, LedClbalR
    Border: Totals
    
    [Field:LedClbalRT]
    info :$$localestring:"Clsoing Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalR]
    Use : Amount Field
    Set as : If $$IsCr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    
    
    [Line:LedTitleFieldLeft]
    Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO
    Option : AlterVchOnEnter : Yes
    ;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode
    
    [field:LVchDDate]
    Use:uni date field
    Set as : $Date
    Format : “full Date”
    Width :12
    Style : tiny
    Border : Thin Left Right bottom
    Align : Left
    
    [field:LVchDParticulars]
    Use : Name Field
    Set as:$$LocaleString:"To " + $Vouchertypename + "/" + $VoucherNumber
    Width : 44
    Style : tiny
    Border : Thin bottom right
    color:geranium
    [field:LVchDNum]
    Use : Name Field
    Set as : $VoucherTypeName
    Width : 12
    Style : tiny
    Border : Thin bottom right
    
    [field:LVchDebitAmt]
    Use : Amount Field
    Set as : if not $$IsDr:$Amount then 0 else $Amount
    ;Width : 32
    Full Width : Yes
    color : blue
    Border : Thin bottom right
    Space Right:1
    Style:tiny
    
    [Line:LedTitleInfoRight]
    Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
    Local:Field:LVchcDate:Info:"Date"
    Local:Field:LVchcParticulars:Info:"Particulars"
    Local:Field:LVchcNum:Info:"Ch.No."
    Local:Field:LVchCreditAmt:Info:"Credit Amount"
    Border:THIN TOP BOTTOM
    Local:Field:default:Background:DEEP COBALT BLUE
    Local:Field:default:color:white
    Local:Style:Default:Height:10
    
    [Line:LedTitleFieldRight]
    Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO
    Option : AlterVchOnEnter : Yes
    
    [field:LVchCDate]
    Use:uni date field
    Set as : $Date
    Format : "DD/MMM/YYYY";“Short Date”
    Width : 12
    Style : tiny
    Border : Thin Left Right bottom
    Align : Left
    
    [field:LVchCParticulars]
    Use : Name Field
    Set as:$$localestring:"By " + $AlllEDGERENTRIES[2].LedgerName
    Width : 44
    Style : tiny
    Border : Thin bottom right
    color:geranium
    
    [field:LVchCNum]
    Use : Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
    Width : 12
    Style : tiny
    Border : Thin bottom right
    
    [field:LVchCreditAmt]
    Use : Amount Field
    ;Set as:$amount
    Set as : if $$IsDr:$Amount then 0 else $Amount
    ;Width : 32
    Full Width : Yes
    Style : tiny
    color : Red
    Border : Thin bottom right
    Space Right:1
    
    [Collection : VLedcollectionLeft]
    Type : Vouchers: Ledger
    Child of :$$BaseOwner:#GroupName
    Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
    Sort : @@InCreasing: -$Date
    Filter:FilterDspVchDrAmt
    
    [Collection : VLedcollectionRight]
    Type : Vouchers: Ledger
    Child of :$$BaseOwner:#GroupName
    Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
    Sort : @@InCreasing: -$Date
    Filter:FilterDspVchCrAmt
    
    [System:formula]
    FilterDspVchDrAmt:$$IsDr:$Amount
    FilterDspVchCrAmt:not $$IsDr:$Amount
     


  3. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    Stillnot yet removedthe blank spaces....in between the dates...........

    Any Suggetion Amit Sir
     


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Remove this line...........

    Sync : $$MonthStart:$Date
     


  5. KRISBALA

    KRISBALA New Member


    Thanks for all your support sir

    Almost Finished with help of all experts
    but 2 problem bending

    please give me suggestion, i try to add (sum) 2 field totals
    Journal entry problem

    Journal Entry

    Ch. Return charges A/c Dr Rs 400
    Creditor A/c Cr Rs. 400


    So i want to move the journal entry to debit side


    demo.png
     


  6. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Check Again For Sundry creditors opening/closing/particulars And cash/bank ledger calculator test. and updated balance with ALT+R
     
    Last edited: Mar 19, 2019


  7. KRISBALA

    KRISBALA New Member


    Give me suggestion after see this code
    Thank you


    Code:
    [#Menu:Gateway Of Tally]
        Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll
    
    
    
    [Collection: CMPLedCOLL]
        Title        : "List of Ledger"
        Type        : Ledger;: Company
        ;Childof: ##SVCurrentCompany
        Belongs To     : Yes
        Variable     : GroupName
        Report         : Leder Statement Report
        Trigger     : Ledger Statement Trigger Rep
      
    
    [Report : Ledger Statement Trigger Rep]
       
        Use         : Collection Variable
        Local       : Line : Collection Variable : Add     : Field : LedgerStatementGroup
        Local       : Field: MV Title  : Info      : "Name of Ledger"
      
    [Field: LedgerStatementGroup]
        Use         : Name Field
        Variable    : GroupName
        Modifies    : GroupName
        Table    : CMPLedCOLL
        Show Table  : Always
    
    
    [Report : Leder Statement Report]
        Variable : SVFromDate, SVToDate
        Set      : SVfromDate:$$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
        Set      : GroupName : ##GroupName
        Variable : IsMultiPage, InNewPages
        Set      : IsMultiPage : yes
        Set      : InNewPages : yes
        Set      : SVToDate : ##SVCurrentdate
        Form     : LStatement Form
        Variables   : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
        Variable    : GroupName, ShowForex, LedShowForex, ShowCreatedBy
         Variable   : ShowRunBalance
        Variable    : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon
        Variables   : ExplodeNarrFlag
        Variables   : IsDayBook, DSPWithOpening
        Variable    : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers
        Variable    : OnlyAccVouchers, OnlyInvVouchers
        Variable    : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract
        Variable    : Show ContactDetails, IsItemBatchReport, IsNegativeCash
        Variable    : DBFilterVar
        ;;Start Fresh page for each balaning method
        Variable    : BMInNewPage
        Set    : BMInNewPage : No
        ;;Show Ledger's Parent
        Variable    : ShowLedParent
        Variable    : PrintSortingOnGrp
        Variable    : VoucherTypeName
        Variables    : LedStarting, LedNameStartingFrom, LedNameStartingTo                ;;For alphabetical print range
    ;Set    : DBFilterVar : No
        Set         : IsLedBkup         : No
        Set         : IsGrpBkup         : No
    
        Set         : SV SortMethod     : @@Default -$TBSort,$IsForexLine, $Date
        Set         : Is Ledger Report  : Yes
        Set         : DSPWithOpening    : Yes
        Set         : DSPShowMonthly    : No
        Set         : DSPHasMultiLevel  : No
        Set         : DSPNotScaleable   : Yes
        Set         : DSPHasColumnTotal : No
        Set         : BankRecMode       : No
        Set         : IsMultiPage       : No
        Set         : ColumnarDayBook   : No
        Set         : ExtractMode       : No
        Set    : ShowCreatedBy    : No
        Set    : IsItemBatchReport    : No
    [Form : LStatement Form]
        Height         : 100% Screen
           Width        : 100% Screen
        BackGround  : Light yellow
        Space Top   : If $$InPrintMode Then 0.5 Else 0 inches
        Button : Change Period,Report Config,Print Button,Export Button,BottomToolBarBtn1,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11,refresh tdl
        BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
        Buttons    : PrintButton, ExportButton, UploadButton, MailButton  
        Parts       : JKT1 Invoice Company Details,LStatement Tit,LStatementinfoPart
        ;Add : Bottom Part : DBCBDetailsvmv1
        Add : Button      : Refresh TDL, ExplodeFlag
    
    [Part:JKT1 Invoice Company Details]
    Line: JKT1 Company Name, JKT1 Company Address
    Border: Thin Box
    
    
    [Line: JKT1 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
    Local: Field: Name Field: Color : Blue
    Space Top: 0.05
    
    
    [Line:JKT1 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: Color : Blue
    Local: Field: Name Field: Line:0
    
    
    [Part : LStatement Tit]
        Space Bottom : 0.2 inch
        Line : LStatementParty; Tit Line2
        ;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementParty;Tit Line2
      
        Add:Lines:At End:partyaddL03,partyaddL04,LStatementPeriod
      
    [Line : LStatement Tit Line]
        Field : LStatement Tit Field
      
    [Field : LStatement Tit Field]
        Use        : Name Field
        Set as     : @@CmpMailName;$Name:Company:##SVCurrentCompany  
            Align      : Center
        Full Width : Yes
        Style      : Large Bold
        Color:red
    [Line:LStatementAdd]
        Field:LStatementAddField
    [Field:LStatementAddField]
        Use        : Name Field
        Set as     : $$FullList:CompanyAddress:$Address
        Align      : Center
        Full Width : Yes
        ;Border    : Thin Box
        Style:TINY
    [Line:LStatementGSTNo]
        Field:LStatementGSTNoField
    [Field:LStatementGSTNoField]
        Use        : Name Field
        Set as     : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:@@CMPExcisePrimaryGodown+$$LocaleString:"   PAN NO.:"+    $IncomeTaxNumber:Company:##SVCurrentCompany
        Align      : Center
        Full Width : Yes
        Style:TINY
    [Line:LStatementPeriod]
        Field:LStatementPeriodField
        Space Top:0.5
        Border:thin bottom
      
    [Field:LStatementPeriodField]
        Use:name field
        Set as:$$LocaleString:"Ledger Statement For the Period : " + $$String:##SVFromDate + " to" + $$String:##SVToDate
        Align      : Center
        Full Width : Yes
        Local:Style:defualt:Height:20
        Color: Black
        Style:large
    [Line:LStatementParty]
        Field:LStatementPartyInfo,LStatementPartyField
      
    [Field:LStatementPartyInfo]
        Use  :Name Field
        SetAs:"Party Name     :"
        Width:14
        Style:small
        Background:DEEP COBALT BLUE
        Color:WHITE
    [Field:LStatementPartyField]
        Use  :Name Field
        SetAs:##GroupName
        Width:201 mms
        ;Style:tiny
        ;Border: Thin Box
        Color : dark red
        Local:STYLE:DEFAULT:Height:14
        Full Width:Yes
    [Line:partyaddL03]
    Fields:partyaddL21,partyaddL22,partyaddL23
    border : thin top
    [Field:partyaddL21]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Address:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt : width : 14
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##GroupName
    Local : Field :name Field : width : 93.5
    Local : Field :name Field :Skip:yes
    Local : Field :name Field : line : 0
    Local : Field :name Field : style :SMALL
    Color : dark red
    Background:LIGHT BLUE
    [Field:partyaddL22]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"State:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field : Set as : $LedStateName:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 14
    [Field:partyaddL23]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Pin Code:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $pincode:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 30
    
    
    [Line:partyaddL04]
    Fields:partyaddL35,partyaddL38,partyaddL39
    border : thin top
    
    [Field:partyaddL35]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 14
    Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##GroupName
    Local : Field : name Field :Skip:Yes
    Local : Field :name Field : width : 93.5
    Local : Field :name Field : style : normal bold
    Color:blue
    border : thin bottom
    
    
    [Field:partyaddL38]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Mobile:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $LedgerMobile:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Local : Field :name Field : style : normal
    Color:BLUE
    border : thin bottom
    [Field:partyaddL39]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"E-Mail:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $Email:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:BLUE
    border : thin bottom
    Local : Field :name Field : style : normal
    Local : Field :name Field : Width:21.2
    
      
    [Part:LStatementinfoPart]
        Left Part:LStatementinfoPartLeft
        Right Part:LStatementinfoPartRight
    
    [Part:LStatementinfoPartLeft]
    Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
    Repeat:LedTitleFieldLeft:VLedcollectionLeft
    Scroll:Vertical
    Float: No
    Common Border:Yes
    Bottom Line:LedClbalfieldLefttot,LedClbalfieldLeft,LedTotalFieldL
    Border: Totals
    Total:LVchDebitAmt,LedOpeBalL
    
    [Part:LStatementinfoPartRight]
    Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
    Repeat:LedTitleFieldRight:VLedcollectionRight
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Bottom Line:LedClbalfieldRighttot, LedClbalfieldRight,LedTotalFieldR
    Border: Totals
    Total:LVchCreditAmt,LedOpeBalR
    
    [Line:LedOpeBalfieldLeft]
        Fields:LedOpeBalLDate,LedOpeBalLT, LedOpeBalL
      
    [Field:LedOpeBalLDate]
            Use : Uni date field
            Set as : $OpeningDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
    
    [Field:LedOpeBalLT]
            info     :$$localestring:"Opening Balance:"
            color     : WHITE
            Widespaced: Yes
            width     : 34
            Inactive: If $$IsEmpty:#LedOpeBalL then Yes Else No
            Background:  Dark Green
            Align: Right
          
    [Field:LedOpeBalL]  
            Use    : Amount Field
            Set as     : If  $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 38
            Format : "Symbol,DrCr"
    
    [Line:LedTitleInfoLeft]
        Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt
        Local:Field:LVchDDate:Info:"Date"
        Local:Field:LVchDParticulars:Info:"Particulars"
        Local:Field:LVchChqNum:Info:"Ch.No"
        Local:Field:LVchDNum:Info:"Vch.Type"
        Local:Field:LVchDebitAmt:Info:"Debit Amount"
        Border:THIN TOP BOTTOM
        Local:Field:default:Background:DEEP COBALT BLUE
                Local:Field:default:color:white
        Local:Style:Default:Height:10
    
    [Line:LedTitleFieldLeft]  
        Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO
        Option : AlterVchOnEnter : Yes
        ;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode
    
    
    [field:LVchDDate]
        Use:uni date field
        Set as : $Date
            Format : “full Date”
            Width  :12
            Style  : tiny
                    Border : Thin Right
          
    [field:LVchDParticulars]
        Use    : Name Field
        Set as:$$LocaleString:$AlllEDGERENTRIES[2].LedgerName
        Width  : 34
        Style  : tiny
        Border : Thin Right
        color:geranium
    
    [field:LVChChqNum]
    Use    : Name Field
            Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
            Width  : 10
            Style  : tiny
            Border : Thin Right
    [field:LVchDNum]
    Use    : Name Field
            Set as : $VoucherTypeName
            Width  : 12
            Style  : tiny
                    Border : Thin Right
    
    [field:LVchDebitAmt]
        Use         : Amount Field
        Set as : if not $$IsDr:$Amount then 0 else $Amount
                Width  : 15
            Format : "Symbol,DrCr"
            color  : blue
            Border : Thin Right
            Space Right:1
            Style:tiny
    
    [Line:LedClbalfieldLefttot]
    Fields:LedclbalLTtot
    Left Fields: LedClbalLtot
    Border: Thin Top
    
    
    [Field:LedClbalLTtot]
    info :$$localestring:"Debit Total :"
    color : blue
    width : 47
    Background:
    Align: Right
    Widespaced: Yes
    
    
    [Field:LedClbalLtot]
    Use : Amount Field
    Set as : $$Total:LVchDebitAmt+#LedOpeBalL
    Skip : Yes
    style : normal
    Color : Blue
    Format : "Symbol,DrCr"
    Width : 38
    Space Right: 2
    Background:
    
    
    [Line:LedClbalfieldLeft]
        Fields:LedClbalLT, LedClbalL
        Border: Thin Bottom
      
          
    [Field:LedClbalLT]
            info     :$$localestring:"Closing Balance:"
            color     : Blue
            width     : 47
            Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
            Background:
            Widespaced: Yes
            Align: Right      
    
    [Field:LedClbalL]  
            Use    : Amount Field
            Set as     : If $$IsDr:$ClosingBalance:Ledger:##GroupName then 0 else $ClosingBalance:Ledger:##GroupName
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 38
            Format : "Symbol,DrCr"
            Space Right: 1
    
    [Line:LedTotalFieldL]
        Field:LedTotalLT,LedTotalL
    [Field:LedTotalLT]
            info     :$$localestring:"Total:"
            color     : Blue
            width     : 47
            Background:
            Widespaced: Yes
            Align: Right
    
    [Field:LedTotalL]  
            Use    : Amount Field
            Set as     : #LedClbalLtotField+#LedClbalL
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 38
            Space Right: 1
    
    
    [Line:LedOpeBalfieldRight]
        Fields:LedOpeBalRDate,LedOpeBalRT, LedOpeBalR
          
    [Field:LedOpeBalRDate]
            Use : Uni date field
            Set as : $OpeningDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
          
    [Field:LedOpeBalRT]
            info     :$$localestring:"Opening Balance: "
            color     : WHITE
            Widespaced: Yes
            width     : 44
            Inactive: If $$IsEmpty:#LedOpeBalR then Yes Else No
            Background: Dark Green
            Align: Right
          
    [Field:LedOpeBalR]  
            Use    : Amount Field
            Set as     : If not $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 27
            Format : "Symbol,DrCr"
    
    [Line:LedTitleInfoRight]
        Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
        Local:Field:LVchcDate:Info:"Date"
        Local:Field:LVchcParticulars:Info:"Particulars"
        Local:Field:LVchcNum:Info:"Vch.Type"
        Local:Field:LVchCreditAmt:Info:"Credit Amount"
        Border:THIN TOP BOTTOM
        Local:Field:default:Background:DEEP COBALT BLUE
            Local:Field:default:color:white
        Local:Style:Default:Height:10
    [Line:LedTitleFieldRight]  
        Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO
        Option : AlterVchOnEnter : Yes
    
    [field:LVchCDate]
        Use:uni date field
        Set as : $Date
            Format : "DD/MMM/YYYY";“Short Date”
            Width  : 12
            Style  : tiny
            Border : Thin Right
    
    [field:LVchCParticulars]
        Use    : Name Field
        Set as:$$localestring:"Bill No." + $REFERENCE
            Width  : 44
            Style  : tiny
            Border : Thin Right
    color:geranium
    [field:LVchCNum]
        Use    : Name Field
      
            Set as :  $VoucherTypeName
            Width  : 12
            Style  : tiny
            Border : Thin Right
    [field:LVchCreditAmt]
        Use         : Amount Field
        ;Set as:$amount
        Set as : if  $$IsDr:$Amount then 0 else $Amount
            Format : "Symbol,DrCr"
            Width  : 15
            Style  : tiny
            color  : Blue
            Border : Thin Right
            Space Right:1
    
    [Line:LedClbalfieldRighttot]
    Fields:LedclbalRTtot
    Right Fields: LedClbalRtot
    Border : Thin Top
    
    [Field:LedClbalRTtot]
    info :$$localestring:"Credit Total :"
    color : Blue
    width : 57
    Background:
    Align: Right
    Widespaced: Yes
    
    [Field:LedClbalRtot]
    Use : Amount Field
    Set as : $$Total:LVchCreditAmt+#LedOpeBalR
    Skip : Yes
    style : normal
    Color : Blue
    Format : "Symbol,DrCr"
    Width : 28
    Background:
    Space Right:1
    
    [Line:LedClbalfieldRight]
        Fields:LedClBalRDate,LedclbalRT, LedClbalR
        Border : Thin Bottom
    
    [Field:LedClBalRDate]
            Use : Uni date field
            Set as : $ClosingDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
          
    [Field:LedClbalRT]
            info     :$$localestring:"Clsoing Balance:"
            color     : WHITE
            width     : 45
            Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
            Background:
          
    [Field:LedClbalR]  
            Use        : Amount Field
            Set as     : $ClosingBalance:Ledger:##GroupName
            Set as :   If not $$IsDr:$ClosingBalance:Ledger:##GroupName then 0 else $ClosingBalance:Ledger:##GroupName
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Format  : "Symbol,DrCr"
            Width    : 16
    
    [Line:LedTotalFieldR]
        Field:LedTotalRT,LedTotalR
    
    [Field:LedTotalRT]
            info     :$$localestring:"Total:"
            color     : Blue
            width     : 57
            Background:
            Widespaced: Yes
            Align: Right
    
    [Field:LedTotalR]  
            Use    : Amount Field
            Set as     : #LedClbalRtot+LedClbalR
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 16
          
    
    [Collection : VLedcollectionLeft]
        Type : Vouchers: Ledger
        Child of :$$BaseOwner:#GroupName
        Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
        Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
        Filter:FilterDspVchDrAmt
    [Collection : VLedcollectionRight]
        Type : Vouchers: Ledger
        Child of :$$BaseOwner:#GroupName
        Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
        Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
        Filter:FilterDspVchCrAmt
    
    [System:formula]
        FilterDspVchDrAmt:$$IsDr:$Amount
        FilterDspVchCrAmt:not  $$IsDr:$Amount
    
    [#Menu    :Gate way of Tally]
        Add    :Button    :Refresh TDL
    [Button    :Refresh TDL]
        Title    :"Refresh TDL"
        Key        :Alt+X
        Action    :Refresh TDL
    [System    :Form keys]
        Key    :Refresh TDL
    [System    :Menu Keys]
        Key    :Refresh TDL
     
    [#Form    :Default]
        Key    :Refresh TDL
    [#Menu    :Default]
        Key    :Refresh TDL 
    
     


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    #LedClbalLtot + #LedClbalL
     


  9. Jenny

    Jenny Active Member


    Code:
    [#Menu:Gateway Of Tally]
        Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll
    
    
    
    [Collection: CMPLedCOLL]
        Title        : "List of Ledger"
        Type        : Ledger;: Company
        ;Childof: ##SVCurrentCompany
        Belongs To     : Yes
        Variable     : GroupName
        Report         : Leder Statement Report
        Trigger     : Ledger Statement Trigger Rep
     
    
    [Report : Ledger Statement Trigger Rep]
      
        Use         : Collection Variable
        Local       : Line : Collection Variable : Add     : Field : LedgerStatementGroup
        Local       : Field: MV Title  : Info      : "Name of Ledger"
     
    [Field: LedgerStatementGroup]
        Use         : Name Field
        Variable    : GroupName
        Modifies    : GroupName
        Table    : CMPLedCOLL
        Show Table  : Always
    
    
    [Report : Leder Statement Report]
        Variable : SVFromDate, SVToDate
        Set      : SVfromDate:$$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
        Set      : GroupName : ##GroupName
        Variable : IsMultiPage, InNewPages
        Set      : IsMultiPage : yes
        Set      : InNewPages : yes
        Set      : SVToDate : ##SVCurrentdate
        Form     : LStatement Form
        Variables   : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
        Variable    : GroupName, ShowForex, LedShowForex, ShowCreatedBy
         Variable   : ShowRunBalance
        Variable    : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon
        Variables   : ExplodeNarrFlag
        Variables   : IsDayBook, DSPWithOpening
        Variable    : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers
        Variable    : OnlyAccVouchers, OnlyInvVouchers
        Variable    : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract
        Variable    : Show ContactDetails, IsItemBatchReport, IsNegativeCash
        Variable    : DBFilterVar
        ;;Start Fresh page for each balaning method
        Variable    : BMInNewPage
        Set    : BMInNewPage : No
        ;;Show Ledger's Parent
        Variable    : ShowLedParent
        Variable    : PrintSortingOnGrp
        Variable    : VoucherTypeName
        Variables    : LedStarting, LedNameStartingFrom, LedNameStartingTo                ;;For alphabetical print range
    ;Set    : DBFilterVar : No
        Set         : IsLedBkup         : No
        Set         : IsGrpBkup         : No
    
        Set         : SV SortMethod     : @@Default -$TBSort,$IsForexLine, $Date
        Set         : Is Ledger Report  : Yes
        Set         : DSPWithOpening    : Yes
        Set         : DSPShowMonthly    : No
        Set         : DSPHasMultiLevel  : No
        Set         : DSPNotScaleable   : Yes
        Set         : DSPHasColumnTotal : No
        Set         : BankRecMode       : No
        Set         : IsMultiPage       : No
        Set         : ColumnarDayBook   : No
        Set         : ExtractMode       : No
        Set    : ShowCreatedBy    : No
        Set    : IsItemBatchReport    : No
    [Form : LStatement Form]
        Height         : 100% Screen
           Width        : 100% Screen
        BackGround  : Light yellow
        Space Top   : If $$InPrintMode Then 0.5 Else 0 inches
        Button : Change Period,Report Config,Print Button,Export Button,BottomToolBarBtn1,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11,refresh tdl
        BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
        Buttons    : PrintButton, ExportButton, UploadButton, MailButton 
        Parts       : JKT1 Invoice Company Details,LStatement Tit,LStatementinfoPart
        ;Add : Bottom Part : DBCBDetailsvmv1
        Add : Button      : Refresh TDL, ExplodeFlag
    
    [Part:JKT1 Invoice Company Details]
    Line: JKT1 Company Name, JKT1 Company Address
    Border: Thin Box
    
    
    [Line: JKT1 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
    Local: Field: Name Field: Color : Blue
    Space Top: 0.05
    
    
    [Line:JKT1 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: Color : Blue
    Local: Field: Name Field: Line:0
    
    
    [Part : LStatement Tit]
        Space Bottom : 0.2 inch
        Line : LStatementParty; Tit Line2
        ;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementParty;Tit Line2
     
        Add:Lines:At End:partyaddL03,partyaddL04,LStatementPeriod
     
    [Line : LStatement Tit Line]
        Field : LStatement Tit Field
     
    [Field : LStatement Tit Field]
        Use        : Name Field
        Set as     : @@CmpMailName;$Name:Company:##SVCurrentCompany 
            Align      : Center
        Full Width : Yes
        Style      : Large Bold
        Color:red
    [Line:LStatementAdd]
        Field:LStatementAddField
    [Field:LStatementAddField]
        Use        : Name Field
        Set as     : $$FullList:CompanyAddress:$Address
        Align      : Center
        Full Width : Yes
        ;Border    : Thin Box
        Style:TINY
    [Line:LStatementGSTNo]
        Field:LStatementGSTNoField
    [Field:LStatementGSTNoField]
        Use        : Name Field
        Set as     : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:@@CMPExcisePrimaryGodown+$$LocaleString:"   PAN NO.:"+    $IncomeTaxNumber:Company:##SVCurrentCompany
        Align      : Center
        Full Width : Yes
        Style:TINY
    [Line:LStatementPeriod]
        Field:LStatementPeriodField
        Space Top:0.5
        Border:thin bottom
     
    [Field:LStatementPeriodField]
        Use:name field
        Set as:$$LocaleString:"Ledger Statement For the Period : " + $$String:##SVFromDate + " to" + $$String:##SVToDate
        Align      : Center
        Full Width : Yes
        Local:Style:defualt:Height:20
        Color: Black
        Style:large
    [Line:LStatementParty]
        Field:LStatementPartyInfo,LStatementPartyField
     
    [Field:LStatementPartyInfo]
        Use  :Name Field
        SetAs:"Party Name     :"
        Width:14
        Style:small
        Background:DEEP COBALT BLUE
        Color:WHITE
    [Field:LStatementPartyField]
        Use  :Name Field
        SetAs:##GroupName
        Width:201 mms
        ;Style:tiny
        ;Border: Thin Box
        Color : dark red
        Local:STYLE:DEFAULT:Height:14
        Full Width:Yes
    [Line:partyaddL03]
    Fields:partyaddL21,partyaddL22,partyaddL23
    border : thin top
    [Field:partyaddL21]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Address:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt : width : 14
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##GroupName
    Local : Field :name Field : width : 93.5
    Local : Field :name Field :Skip:yes
    Local : Field :name Field : line : 0
    Local : Field :name Field : style :SMALL
    Color : dark red
    Background:LIGHT BLUE
    [Field:partyaddL22]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"State:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field : Set as : $LedStateName:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 14
    [Field:partyaddL23]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Pin Code:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $pincode:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 30
    
    
    [Line:partyaddL04]
    Fields:partyaddL35,partyaddL38,partyaddL39
    border : thin top
    
    [Field:partyaddL35]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 14
    Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##GroupName
    Local : Field : name Field :Skip:Yes
    Local : Field :name Field : width : 93.5
    Local : Field :name Field : style : normal bold
    Color:blue
    border : thin bottom
    
    
    [Field:partyaddL38]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Mobile:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $LedgerMobile:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Local : Field :name Field : style : normal
    Color:BLUE
    border : thin bottom
    [Field:partyaddL39]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"E-Mail:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $Email:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:BLUE
    border : thin bottom
    Local : Field :name Field : style : normal
    Local : Field :name Field : Width:21.2
    
     
    [Part:LStatementinfoPart]
        Left Part:LStatementinfoPartLeft
        Right Part:LStatementinfoPartRight
    
    [Part:LStatementinfoPartLeft]
    Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
    Repeat:LedTitleFieldLeft:VLedcollectionLeft
    Scroll:Vertical
    Float: No
    Common Border:Yes
    Bottom Line:LedClbalfieldLefttot,LedClbalfieldLeft,LedTotalFieldL
    Border: Totals
    Total:LVchDebitAmt,LedOpeBalL
    
    [Part:LStatementinfoPartRight]
    Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
    Repeat:LedTitleFieldRight:VLedcollectionRight
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Bottom Line:LedClbalfieldRighttot, LedClbalfieldRight,LedTotalFieldR
    Border: Totals
    Total:LVchCreditAmt,LedOpeBalR
    
    [Line:LedOpeBalfieldLeft]
        Fields:LedOpeBalLDate,LedOpeBalLT,LedOpeBalLT1,LedOpeBalLT2
      Right Fields:LedOpeBalL
    [Field:LedOpeBalLDate]
            Use : Uni date field
            Set as : $OpeningDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
    
    [Field:LedOpeBalLT]
            info     :$$localestring:"Opening Balance:"
            color     : WHITE
            Widespaced: Yes
            width     : 34
            Inactive: If $$IsEmpty:#LedOpeBalL then Yes Else No
            Background:  Dark Green
            Align: Left
    
    [Field:LedOpeBalLT1]
            Use : Name field
            Set as : ""
            width     : 10
    [Field:LedOpeBalLT2]
            Use : Name field
            Set as : ""
            width     : 12
    
         
    [Field:LedOpeBalL] 
            Use    : Amount Field
            Set as     : If  $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
            Skip    : Yes
            style     : normal
            Color    : BLUE
        Full Width : Yes
            ;Width    : 38
            Format : "Symbol,DrCr"
        Align : Right
        Space Right:1
    
    [Line:LedTitleInfoLeft]
        Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt
        Local:Field:LVchDDate:Info:"Date"
        Local:Field:LVchDParticulars:Info:"Particulars"
        Local:Field:LVchChqNum:Info:"Ch.No"
        Local:Field:LVchDNum:Info:"Vch.Type"
        Local:Field:LVchDebitAmt:Info:"Debit Amount"
        Border:THIN TOP BOTTOM
        Local:Field:default:Background:DEEP COBALT BLUE
                Local:Field:default:color:white
        Local:Style:Default:Height:10
    
    [Line:LedTitleFieldLeft] 
        Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO
        Option : AlterVchOnEnter : Yes
        ;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode
    
    
    [field:LVchDDate]
        Use:uni date field
        Set as : $Date
            Format : “full Date”
            Width  :12
            Style  : tiny
            Border : Thin Left Right
        Align : Left
         
    [field:LVchDParticulars]
        Use    : Name Field
        Set as :$$LocaleString:$VoucherNumber
        Width  : 34
        Style  : tiny
        Border : Thin Right
        color:geranium
    
    [field:LVChChqNum]
    Use    : Name Field
            Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
            Width  : 10
            Style  : tiny
            Border : Thin Right
    [field:LVchDNum]
    Use    : Name Field
            Set as : $VoucherTypeName
            Width  : 12
            Style  : tiny
                    Border : Thin Right
    
    [field:LVchDebitAmt]
            Use         : Amount Field
            Set as : if not $$IsDr:$Amount then 0 else $Amount
            ;Width  : 15
        Full Width : Yes
            Format : "Symbol,DrCr"
            color  : blue
            Border : Thin Right
            Space Right:1
            Style:tiny
    
    [Line:LedClbalfieldLefttot]
    Fields:LedclbalLTtot0,LedclbalLTtot,LedclbalLTtot1,LedclbalLTtot2
    Right Fields: LedClbalLtot
    Border: Thin Top
    
    
    [Field:LedClbalLTtot]
    info :$$localestring:"Debit Total :"
    color : blue
    width     : 34
    Inactive: If $$IsEmpty:#LedOpeBalL then Yes Else No
    Align: Right
    Widespaced: Yes
    
    [Field:LedclbalLTtot0]
    Use : Name Field
    Set as : ""
    Width  :12
    
    [Field:LedclbalLTtot1]
    Use : Name Field
    Set as : ""
    Width  : 10
    
    [Field:LedclbalLTtot2]
    Use : Name Field
    Set as : ""
    Width  : 12
    
    [Field:LedClbalLtot]
    Use : Amount Field
    Set as : $$Total:LVchDebitAmt+#LedOpeBalL
    Skip : Yes
    style : normal
    Color : Blue
    Format : "Symbol,DrCr"
    ;Width : 15
    Full Width : Yes
    Space Right:1
    Align : Right
    
    
    [Line:LedClbalfieldLeft]
        Fields:LedClbalLT, LedClbalL
        Border: Thin Bottom
     
         
    [Field:LedClbalLT]
            info     :$$localestring:"Closing Balance:"
            color     : Blue
            width     : 47
            Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
            Background:
            Widespaced: Yes
            Align: Right     
    
    [Field:LedClbalL] 
            Use    : Amount Field
            Set as     : If $$IsDr:$ClosingBalance:Ledger:##GroupName then 0 else $ClosingBalance:Ledger:##GroupName
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 38
            Format : "Symbol,DrCr"
            Space Right: 1
    
    [Line:LedTotalFieldL]
    Fields:LedTotalLT0,LedTotalLT,LedTotalLT1,LedTotalLT2
    Right Fields: LedTotalL
    
    [Field:LedTotalLT0] 
            Use    : Name Field
            Set as     : ""
            Skip    : Yes
            Width    : 12
    
    [Field:LedTotalLT]
            info     :$$localestring:"Total:"
            color     : Blue
            width     : 34
            Widespaced: Yes
            Align: Right
    
    [Field:LedTotalLT1] 
            Use    : Name Field
            Set as     : ""
            Skip    : Yes
            Width    : 10
    
    [Field:LedTotalLT2] 
            Use    : Name Field
            Set as     : ""
            Skip    : Yes
            Width    : 12
    
    
    [Field:LedTotalL] 
            Use    : Amount Field
            ;Set as     : #LedClbalLtotField+#LedClbalL
        Set as     :$$Total:LVchDebitAmt+#LedOpeBalL
            Skip    : Yes
            style     : normal
            Color    : BLUE
            ;Width    : 38
        Full Width : Yes
            Space Right: 1
        Format : "Symbol,DrCr"
    
    [Line:LedOpeBalfieldRight]
        Fields:LedOpeBalRDate,LedOpeBalRT, LedOpeBalR
         
    [Field:LedOpeBalRDate]
            Use : Uni date field
            Set as : $OpeningDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
         
    [Field:LedOpeBalRT]
            info     :$$localestring:"Opening Balance: "
            color     : WHITE
            Widespaced: Yes
            width     : 44
            Inactive: If $$IsEmpty:#LedOpeBalR then Yes Else No
            Background: Dark Green
            Align: Right
         
    [Field:LedOpeBalR] 
            Use    : Amount Field
            Set as     : If not $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
            Skip    : Yes
            style     : normal
            Color    : BLUE
            ;Width    : 27
        Full Width : Yes
            Format : "Symbol,DrCr"
    
    [Line:LedTitleInfoRight]
        Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
        Local:Field:LVchcDate:Info:"Date"
        Local:Field:LVchcParticulars:Info:"Particulars"
        Local:Field:LVchcNum:Info:"Vch.Type"
        Local:Field:LVchCreditAmt:Info:"Credit Amount"
        Border:THIN TOP BOTTOM
        Local:Field:default:Background:DEEP COBALT BLUE
            Local:Field:default:color:white
        Local:Style:Default:Height:10
    [Line:LedTitleFieldRight] 
        Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO
        Option : AlterVchOnEnter : Yes
    
    [field:LVchCDate]
        Use:uni date field
        Set as : $Date
            Format : "DD/MMM/YYYY";“Short Date”
            Width  : 12
            Style  : tiny
            Border : Thin Left Right
        Align : Left
    
    [field:LVchCParticulars]
        Use    : Name Field
        Set as:$$localestring:$AlllEDGERENTRIES[2].LedgerName
            Width  : 44
            Style  : tiny
            Border : Thin Right
    color:geranium
    [field:LVchCNum]
        Use    : Name Field
     
            Set as :  $VoucherTypeName
            Width  : 12
            Style  : tiny
            Border : Thin Right
    
    [field:LVchCreditAmt]
        Use         : Amount Field
        ;Set as:$amount
        Set as : if  $$IsDr:$Amount then 0 else $Amount
            Format : "Symbol,DrCr"
            Full Width : Yes
            Style  : tiny
            color  : Blue
            Border : Thin Right
            Space Right:1
    
    [Line:LedClbalfieldRighttot]
    Fields:LedclbalRTtot0,LedclbalRTtot,LedclbalRTtot1
    Right Fields: LedClbalRtot
    Border : Thin Top
    
    [Field:LedclbalRTtot0]
    Use : Name Field
    Set as : ""
    Width  : 12
    
    
    [Field:LedClbalRTtot]
    info :$$localestring:"Credit Total :"
    color : Blue
    width : 44
    Align: Right
    Widespaced: Yes
    
    [Field:LedclbalRTtot1]
    Use : Name Field
    Set as : ""
    Width  : 12
    
    [Field:LedClbalRtot]
    Use : Amount Field
    Set as : $$Total:LVchCreditAmt+#LedOpeBalR
    Skip : Yes
    style : normal
    Color : Blue
    Format : "Symbol,DrCr"
    ;Width : 28
    Full Width : Yes
    Background:
    Space Right:1
    Align : Right
    
    [Line:LedClbalfieldRight]
        Fields:LedClBalRDate,LedclbalRT,LedclbalRT0
        Right Fields:LedClbalR
        Border : Thin Bottom
    
    [Field:LedClBalRDate]
            Use : Uni date field
            Set as : ""
            ;Format : "DD/MMM/YYYY";“Short Date”
            ;color     : WHITE
            width     : 12
         
    [Field:LedClbalRT]
            info     :$$localestring:"Clsoing Balance:"
            color     : Blue
            Width  : 44
            Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
            Align: Right
        Widespaced: Yes
    
    [Field:LedclbalRT0]
            Use : Name field
            Set as : ""
            width     : 12
    
         
    [Field:LedClbalR] 
            Use        : Amount Field
            Set as     : $ClosingBalance:Ledger:##GroupName
            Set as :   If not $$IsDr:$ClosingBalance:Ledger:##GroupName then 0 else $ClosingBalance:Ledger:##GroupName
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Format  : "Symbol,DrCr"
            Full Width : Yes
        Align : Right
        Space Right:1
    
    [Line:LedTotalFieldR]
        Fields:LedTotalRT0,LedTotalRT,LedTotalRT1
    Right Fields : LedTotalR
    
    [Field:LedTotalRT0] 
            Use    : Name Field
            Set as     : ""
            Skip    : Yes
            Width    : 12
    
    
    [Field:LedTotalRT]
            info     :$$localestring:"Total:"
            color     : Blue
            width     : 44
            Background:
            Widespaced: Yes
            Align: Right
    
    [Field:LedTotalRT1] 
            Use    : Name Field
            Set as     : ""
            Skip    : Yes
            Width    : 12
    
    
    [Field:LedTotalR] 
            Use    : Amount Field
            ;Set as     : #LedClbalRtot+LedClbalR
        Set as     :$$Total:LVchDebitAmt+#LedOpeBalL
            Skip    : Yes
            style     : normal
            Color    : BLUE
            ;Width    : 16
        Full Width : Yes
              Format : "Symbol,DrCr"
        Space Right:1
    
    [Collection : VLedcollectionLeft]
        Type : Vouchers: Ledger
        Child of :$$BaseOwner:#GroupName
        Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
        Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
        Filter:FilterDspVchDrAmt
    [Collection : VLedcollectionRight]
        Type : Vouchers: Ledger
        Child of :$$BaseOwner:#GroupName
        Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
        Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
        Filter:FilterDspVchCrAmt
    
    [System:formula]
        FilterDspVchDrAmt:$$IsDr:$Amount
        FilterDspVchCrAmt:not  $$IsDr:$Amount
    
    [#Menu    :Gate way of Tally]
        Add    :Button    :Refresh TDL
    [Button    :Refresh TDL]
        Title    :"Refresh TDL"
        Key        :Alt+X
        Action    :Refresh TDL
    [System    :Form keys]
        Key    :Refresh TDL
    [System    :Menu Keys]
        Key    :Refresh TDL
    [#Form    :Default]
        Key    :Refresh TDL
    [#Menu    :Default]
        Key    :Refresh TDL 
     


  10. Amit Kamdar

    Amit Kamdar Administrator Staff Member



    Ran your code and as per your code.....CREDIT is on left side and DEBIT is on right side..... is this a new Accounting concept?
    The data is in decreasing date order........
     


  11. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Sir
    I said previously for this.
    It helps manual bookkeepers and accountant's.
    And i adjusted it for that purpose.
    For Traditional indian accounting standard please See manual "Rokad, Khata-Bahi"
     
    Amit Kamdar likes this.


  12. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Okay.......thanks for the info....did not know that.

    Also observed one more thing........
    If a journal is passed.......e.g.
    DR ---- Party A/c 180000
    CR ---- CGST A/c 9000
    CR ---- SGST A/c 9000

    it picks up only 9000/-
     


  13. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Not sure now....here there are 5 sets of T-style ledger formats........... yours, Pankaj, Jenny, Krisbala and Bikash.... so my head is spinning....

    I can't check each and every iteration of this program. :)

    I will have a look when i have some free time.................
     
    KRISBALA likes this.


  14. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    Thanks, Amit Sir,
    perfect working
     


  15. KRISBALA

    KRISBALA New Member


    I got all solution except 1 journal entry

    pls tell me how to solve the problems thanks to all

    demo 1.png demo.png
     


  16. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Submit ur updated code again........ coz am confused ........which code is whose??
     


  17. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    yes sir i Checked
    Same thing with payment single entry mode
    CR BANK 17000
    DR IGST 16000
    DR CGST 500
    DR SGST 500

    Picks only 16000
     


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    put ur last code... will look into it
     


  19. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Rectified and working.............

    Code:
    [#Menu:Gateway Of Tally]
    Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll1
    
    
    
    [Collection: CMPLedCOLL1]
    Title : "List of Ledger"
    Type : Ledger;: Company
    ;Childof: ##SVCurrentCompany
    Belongs To : Yes
    Variable : LedgerName
    Report : Leder Statement Report
    Trigger : Ledger Statement Trigger Rep
    
    
    [Report : Ledger Statement Trigger Rep]
    
    Use : Collection Variable
    Local : Line : Collection Variable : Add : Field : LedgerStatementGroup
    Local : Field: MV Title : Info : "Name of Ledger"
    
    [Field: LedgerStatementGroup]
    Use : Name Field
    Variable : LedgerName
    Modifies : LedgerName
    Table : cmpledcoll1
    Show Table : Always
    
    
    [Report : Leder Statement Report]
    Variable : SVFromDate, SVToDate
    Set : SVfromDate:$$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
    Set : LedgerName : ##LedgerName
    Variable : IsMultiPage, InNewPages
    Set : IsMultiPage : yes
    Set : InNewPages : yes
    Set : SVToDate : ##SVCurrentdate
    Form : LStatement Form
    Variables : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
    Variable : LedgerName, ShowForex, LedShowForex, ShowCreatedBy
    Variable : ShowRunBalance
    Variable : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon
    Variables : ExplodeNarrFlag
    Variables : IsDayBook, DSPWithOpening
    Variable : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers
    Variable : OnlyAccVouchers, OnlyInvVouchers
    Variable : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract
    Variable : Show ContactDetails, IsItemBatchReport, IsNegativeCash
    Variable : DBFilterVar
    ;;Start Fresh page for each balaning method
    Variable : BMInNewPage
    Set : BMInNewPage : No
    ;;Show Ledger's Parent
    Variable : ShowLedParent
    Variable : PrintSortingOnGrp
    Variable : VoucherTypeName
    Variables : LedStarting, LedNameStartingFrom, LedNameStartingTo ;;For alphabetical print range
    ; Set : DBFilterVar : No
    Set : IsLedBkup : No
    Set : IsGrpBkup : No
    
    Set : SV SortMethod : @@Default
    Set : Is Ledger Report : Yes
    Set : DSPWithOpening : Yes
    Set : DSPShowMonthly : No
    Set : DSPHasMultiLevel : No
    Set : DSPNotScaleable : NO
    Set : DSPHasColumnTotal : No
    Set : BankRecMode : No
    Set : IsMultiPage : No
    Set : ColumnarDayBook : No
    Set : ExtractMode : No
    Set : ShowCreatedBy : No
    Set : IsItemBatchReport : No
    [Form : LStatement Form]
    Height : 100% Screen
    Width : 100% Screen
    ;BackGround : Light yellow
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : Change Period,ChangeLedger, Report Config,Print Button,Export Button,BottomToolBarBtn1, BottomToolBarBtn2,BottomToolBarBtn3,BottomToolBarBtn4,BottomToolBarBtn5,BottomToolBarBtn6,BottomToolBarBtn7,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11
    BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
    Buttons : PrintButton, ExportButton, UploadButton, MailButton
    Parts : JKT1 Invoice Company Details,LStatement Tit,LStatementinfoPart
    ;Add : Bottom Part : DBCBDetailsvmv1
    Add : Button :ExplodeFlag
    
    [Part:JKT1 Invoice Company Details]
    Line: JKT1 Company Name, JKT1 Company Address
    Border: Thin Box
    
    
    [Line: JKT1 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
    
    [Line:JKT1 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
    
    [Part : LStatement Tit]
    Space Bottom : 0.2 inch
    Line : LStatementParty; Tit Line2
    ;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementParty; Tit Line2
    
    Add:Lines:At End:partyaddL03,partyaddL04,LStatementPeriod
    
    [Line : LStatement Tit Line]
    Field : LStatement Tit Field
    
    [Field : LStatement Tit Field]
    Use : Name Field
    Set as : @@CmpMailName;$Name:Company:##SVCurrentCompany
    Align : Center
    Full Width : Yes
    Style : Large Bold
    Color:red
    [Line:LStatementAdd]
    Field:LStatementAddField
    [Field:LStatementAddField]
    Use : Name Field
    Set as : $$FullList:CompanyAddress:$Address
    Align : Center
    Full Width : Yes
    ;Border : Thin Box
    Style:TINY
    [Line:LStatementGSTNo]
    Field:LStatementGSTNoField
    [Field:LStatementGSTNoField]
    Use : Name Field
    Set as : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:mad:CMPExcisePrimaryGodown+$$LocaleString:" PAN NO.:"+ $IncomeTaxNumber:Company:##SVCurrentCompany
    Align : Center
    Full Width : Yes
    Style:TINY
    [Line:LStatementPeriod]
    Field:LStatementPeriodField
    Space Top:0.5
    Border:thin bottom
    
    [Field:LStatementPeriodField]
    Use:name field
    Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    Align : Center
    Full Width : Yes
    Local:Style:defualt:Height:20
    Color:Black
    Style:large bold
    [Line:LStatementParty]
    Field:LStatementPartyInfo,LStatementPartyField
    
    [Field:LStatementPartyInfo]
    Use :Name Field
    SetAs:"Party Name :"
    Width:14
    Style:small
    Background:DEEP COBALT BLUE
    Color:WHITE
    [Field:LStatementPartyField]
    Use :Name Field
    SetAs:##LedgerName
    Width:201 mms
    ;Style:tiny
    ;Border: Thin Box
    Color : dark red
    Local:STYLE:DEFAULT:Height:14
    Full Width:Yes
    [Line:partyaddL03]
    Fields:partyaddL21,partyaddL22,partyaddL23
    border : thin top
    
    [Field:partyaddL21]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Address:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt : width : 14
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##LedgerName
    Local : Field :name Field : width : 93.5
    Local : Field :name Field :Skip:yes
    Local : Field :name Field : line : 0
    Local : Field :name Field : style :SMALL
    Color : dark red
    Background:LIGHT BLUE
    
    [Field:partyaddL22]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"State:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field : Set as : $LedStateName:Ledger:##LedgerName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 14
    [Field:partyaddL23]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Pin Code:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $pincode:Ledger:##LedgerName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 30
    
    
    
    
    [Line:partyaddL04]
    Fields:partyaddL35,partyaddL38,partyaddL39
    border : thin top
    
    [Field:partyaddL35]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 14
    Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##LedgerName
    Local : Field : name Field :Skip:Yes
    Local : Field :name Field : width : 93.5
    Local : Field :name Field : style : normal bold
    Color : blue
    border : thin bottom
    
    
    [Field:partyaddL38]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Mobile:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $LedgerMobile:Ledger:##LedgerName
    Local : Field :name Field :Skip:Yes
    Local : Field :name Field : style : normal
    Color:BLUE
    border : thin bottom
    
    [Field:partyaddL39]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"E-Mail:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $Email:Ledger:##LedgerName
    Local : Field :name Field :Skip:Yes
    Color :BLUE
    border : thin bottom
    Local : Field :name Field : style : normal
    Local : Field :name Field : Width:21.2
    
    [Part:LStatementinfoPart]
    Left Part:LStatementinfoPartRight
    Right Part:LStatementinfoPartLeft
    
    [Part:LStatementinfoPartLeft]
    Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
    Repeat:LedTitleFieldLeft:VLedcollectionLeft
    Bottom Line:LedClbalfieldLefttot, LedClbalfieldLeft
    Bottom Line:LedClbalfieldLefttot1, ;LedClbalfieldLeft1
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Total:LVchDebitAmt
    
    [Part:LStatementinfoPartRight]
    Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
    Repeat:LedTitleFieldRight:VLedcollectionRight
    Bottom Line:LedClbalfieldRighttot, LedClbalfieldRight
    Bottom Line:LedClbalfieldRighttot1, ;LedClbalfieldRight1
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Total:LVchCreditAmt
    
    [Line:LedopebalfieldLeft]
    ;Fields:LedopebalLT,LedopebalL
    
    Fields:LedopebalLT
    Right Fields : LedopebalL
    
    Border: Thin BOttom
    
    [Field:LedopebalLT]
    info :$$localestring:"Opening Balance"
    color : White
    width : 12
    Inactive: If $$IsEmpty:#LedopebalL then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    Align:Left
    
    [Field:LedopebalL]
    Use : Amount Field
    Set as : If $$IsDr:$Openingbalance:Ledger:##LedgerName then $Openingbalance:Ledger:##LedgerName else ""
    Skip : Yes
    style : Tiny Bold
    Color : Black
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedClbalfieldLefttot]
    Fields:LedclbalLTtot
    Right Fields: LedClbalLtot
    Border: Totals
    
    [Field:LedClbalLTtot]
    info :$$localestring:"Total"
    color : WHITE
    width : 12
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalLtot]
    Use : Amount Field
    Set as : $$Total:LVchDebitAmt
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedClbalfieldLefttot1]
    Fields:LedclbalLTtot1
    Right Fields: LedClbalLtot1
    Border: Totals
    
    [Field:LedClbalLTtot1]
    info :$$localestring:"Total"
    color : WHITE
    width : 12
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalLtot1]
    Use : Amount Field
    Set as : #LedClbalLtot + #LedClbalL + #LedopebalL
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    
    [Line:LedClbalfieldLeft]
    Fields:LedclbalLT
    Right Fields: LedClbalL
    Border: Totals
    
    
    [Field:LedClbalLT]
    info :$$localestring:"Closing Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    
    [Field:LedClbalL]
    Use : Amount Field
    Set as : If NOT $$IsDr:$openingbalance:Ledger:##LedgerName then #LedopebalR - #LedClbalLtot + #LedClbalRtot ELSE ""
    
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedTitleInfoLeft]
    Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt
    Local:Field:LVchDDate:Info:"Date"
    Local:Field:LVchDParticulars:Info:"Particulars"
    Local:Field:LVchDNum:Info:"Vch./Inst No."
    Local:Field:LVchDebitAmt:Info:"Debit Amount"
    Border:THIN TOP BOTTOM
    Local:Field:default:Background:DEEP COBALT BLUE
    Local:Field:default:color:white
    Local:Style:Default:Height:10
    
    [Line:LedopebalfieldRight]
    Fields:LedopebalRT
    Right Fields: LedopebalR
    Border: Thin BOttom
    
    [Field:LedopebalRT ]
    info : $$localestring:"Opening Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedopebalR then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedopebalR]
    Use : Amount Field
    Set as : If Not $$IsDr:$Openingbalance:Ledger:##LedgerName then $Openingbalance:Ledger:##LedgerName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Center
    
    [Line:LedClbalfieldRighttot]
    Fields:LedclbalRTtot
    Right Fields: LedClbalRtot
    Border: Totals
    
    [Field:LedClbalRTtot]
    info :$$localestring:"Total"
    color : WHITE
    width : 12
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalRtot]
    Use : Amount Field
    Set as : $$Total:LVchCreditAmt
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedClbalfieldRighttot1]
    Fields:LedclbalRTtot1
    Right Fields: LedClbalRtot1
    Border: Totals
    
    [Field:LedClbalRTtot1]
    info :$$localestring:"Total"
    color : WHITE
    width : 12
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalRtot1]
    Use : Amount Field
    Set as : #LedopebalR + #LedClbalRtot + #LedClbalR
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    Align:Right
    
    [Line:LedClbalfieldRight]
    Fields:LedclbalRT
    Right Fields:LedClbalR
    Border: Totals
    
    [Field:LedClbalRT]
    info :$$localestring:"Closing Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE
    
    [Field:LedClbalR]
    Use : Amount Field
    Set as : If $$IsDr:$Openingbalance:Ledger:##LedgerName then #LedopebalL + #LedClbalLtot - #LedClbalRtot ELSE ""
    
    
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16
    
    
    [Line:LedTitleFieldLeft]
    Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO
    Option : AlterVchOnEnter : Yes
    ;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode
    
    [field:LVchDDate]
    Use:uni date field
    Set as : $Date
    Format : “full Date”
    Width :12
    Style : tiny
    Border : Thin Left Right bottom
    Align : Left
    
    [field:LVchDParticulars]
    Use : Name Field
    Set as:$$LocaleString:"To " + $Vouchertypename + "/" + $VoucherNumber
    Width : 44
    Style : tiny
    Border : Thin bottom right
    color:geranium
    [field:LVchDNum]
    Use : Name Field
    Set as : If $$IsPayment:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER +
    else If $$IsContra:$VoucherTypeName then     $AllLedgerEntries[-2].BankAllocations.INSTRUMENTNUMBER +
    else If $$IsReceipt:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.InstrumentNumber +
    else If $$IsPurchase:$VoucherTypeName then $Vouchernumber +
    else If $$Issales:$VoucherTypeName then $Vouchernumber +
    Else $AllLedgerEntries.BankAllocations.InstrumentNumbers + $VOUCHERNUMBER
    Width : 12
    Style : tiny
    Border : Thin bottom right
    
    [field:LVchDebitAmt]
    Use : Amount Field
    Set as : $$AsDrAmt:$TotLedDrAmt ;if not $$IsDr:$Amount then 0 else $Amount
    ;Width : 32
    Full Width : Yes
    color : blue
    Border : Thin bottom right
    Space Right:1
    Style:tiny
    
    [Line:LedTitleInfoRight]
    Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
    Local:Field:LVchcDate:Info:"Date"
    Local:Field:LVchcParticulars:Info:"Particulars"
    Local:Field:LVchcNum:Info:"Vch./Inst No."
    Local:Field:LVchCreditAmt:Info:"Credit Amount"
    Border:THIN TOP BOTTOM
    Local:Field:default:Background:DEEP COBALT BLUE
    Local:Field:default:color:white
    Local:Style:Default:Height:10
    
    [Line:LedTitleFieldRight]
    Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO
    Option : AlterVchOnEnter : Yes
    
    [field:LVchCDate]
    Use:uni date field
    Set as : $Date
    Format : "DD/MMM/YYYY";“Short Date”
    Width : 12
    Style : tiny
    Border : Thin Left Right bottom
    Align : Left
    
    [field:LVchCParticulars]
    Use : Name Field
    Set as:$$localestring:"By " + $Vouchertypename + "/" + $vouchernumber
    Width : 44
    Style : tiny
    Border : Thin bottom right
    color:geranium
    
    [field:LVchCNum]
    Use : Name Field
    Set as : If $$IsPayment:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER +
    else If $$IsContra:$VoucherTypeName then $AllLedgerEntries[-2].BankAllocations.INSTRUMENTNUMBER +
    else If $$IsReceipt:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.InstrumentNumber +
    else If $$IsPurchase:$VoucherTypeName then $Vouchernumber +
    else If $$Issales:$VoucherTypeName then $Vouchernumber +
    Else $AllLedgerEntries.BankAllocations.InstrumentNumber
    ;;Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
    Width : 12
    Style : tiny
    Border : Thin bottom right
    
    
    [field:LVchCreditAmt]
    Use : Amount Field
    ;Set as:$amount
    Set as : $$AsCrAmt:$TotLedCrAmt ;if $$IsDr:$Amount then 0 else $Amount
    ;Width : 32
    Full Width : Yes
    Style : tiny
    color : Red
    Border : Thin bottom right
    Space Right:1
    
    [Collection : VLedcollectionLeft]
        Use                : Total Ledger Vouchers
        Aggr Compute    : VchDrTotal    : Sum    : $$OrigVchLedDrTotal:#LedgerName
        Filter          : FilterDspVchDrAmt
      
    [Collection : VLedcollectionRight]
        Use                : Total Ledger Vouchers
        Aggr Compute    : VchCrTotal    : Sum    : $$OrigVchLedCrTotal:#LedgerName
        Filter          : FilterDspVchCrAmt
      
    [System:formula]
    FilterDspVchDrAmt: NOT $$IsEmpty:$TotLedDrAmt AND (NOT @@ShowForex OR NOT $$IsBaseCurrency:$TotLedDrAmt)
    FilterDspVchCrAmt: NOT $$IsEmpty:$TotLedCrAmt AND (NOT @@ShowForex OR NOT $$IsBaseCurrency:$TotLedCrAmt)
    
    [Collection: Total Ledger Vouchers]
        Type        : Vouchers  : Ledger
        Child of    : ##pvsLedgerName
        ParmVAR        : pvsLedgerName    :  String    : #LedgerName
        Sort        : @@Default   : $$IsVoucher, -$Date
        Fetch        : Date, VoucherTypeName, VoucherNumber, Narration
        Fetch        : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
        Fetch        : AllLedgerEntries.BankAllocations.*
       
        Compute        : TotalLedDrVchAmt            : If NOT ##InNewPages Then $$OrigVchLedDrTotal:#LedgerName else $$OrigVchLedDrTotal:#LedgerName
        Compute        : TotalLedCrVchAmt            : If NOT ##InNewPages Then $$OrigVchLedCrTotal:#LedgerName else $$OrigVchLedCrTotal:#LedgerName
        Compute        : TotLedDrAmt                : $$OrigVchLedDrTotal:#LedgerName
        Compute        : TotLedCrAmt                : $$OrigVchLedCrTotal:#LedgerName
    
    
    
     


  20. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    @KRISBALA ............ refer to the above code for your solutions. the format is different, else all other things are same.
     


  21. KRISBALA

    KRISBALA New Member



    Code:
    [#Menu:Gateway Of Tally]
        Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll
    
    
    
    [Collection: CMPLedCOLL]
        Title        : "List of Ledger"
        Type        : Ledger;: Company
        ;Childof: ##SVCurrentCompany
        Belongs To     : Yes
        Variable     : GroupName
        Report         : Leder Statement Report
        Trigger     : Ledger Statement Trigger Rep
       
    
    [Report : Ledger Statement Trigger Rep]
        
        Use         : Collection Variable
        Local       : Line : Collection Variable : Add     : Field : LedgerStatementGroup
        Local       : Field: MV Title  : Info      : "Name of Ledger"
       
    [Field: LedgerStatementGroup]
        Use         : Name Field
        Variable    : GroupName
        Modifies    : GroupName
        Table    : CMPLedCOLL
        Show Table  : Always
    
    
    [Report : Leder Statement Report]
        Variable : SVFromDate, SVToDate
        Set      : SVfromDate:$$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
        Set      : GroupName : ##GroupName
        Variable : IsMultiPage, InNewPages
        Set      : IsMultiPage : yes
        Set      : InNewPages : yes
        Set      : SVToDate : ##SVCurrentdate
        Form     : LStatement Form
        Variables   : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
        Variable    : GroupName, ShowForex, LedShowForex, ShowCreatedBy 
         Variable   : ShowRunBalance
        Variable    : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon
        Variables   : ExplodeNarrFlag
        Variables   : IsDayBook, DSPWithOpening
        Variable    : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers
        Variable    : OnlyAccVouchers, OnlyInvVouchers
        Variable    : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract
        Variable    : Show ContactDetails, IsItemBatchReport, IsNegativeCash
        Variable    : DBFilterVar
        ;;Start Fresh page for each balaning method
        Variable    : BMInNewPage
        Set    : BMInNewPage : No
        ;;Show Ledger's Parent
        Variable    : ShowLedParent
        Variable    : PrintSortingOnGrp
        Variable    : VoucherTypeName
        Variables    : LedStarting, LedNameStartingFrom, LedNameStartingTo                ;;For alphabetical print range
    ;Set    : DBFilterVar : No
        Set         : IsLedBkup         : No
        Set         : IsGrpBkup         : No
    
        Set         : SV SortMethod     : @@Default -$TBSort,$IsForexLine, $Date
        Set         : Is Ledger Report  : Yes
        Set         : DSPWithOpening    : Yes
        Set         : DSPShowMonthly    : No
        Set         : DSPHasMultiLevel  : No
        Set         : DSPNotScaleable   : Yes
        Set         : DSPHasColumnTotal : No
        Set         : BankRecMode       : No
        Set         : IsMultiPage       : No
        Set         : ColumnarDayBook   : No
        Set         : ExtractMode       : No
        Set    : ShowCreatedBy    : No
        Set    : IsItemBatchReport    : No
    [Form : LStatement Form]
        Height         : 100% Screen
           Width        : 100% Screen
        BackGround  : Light yellow
        Space Top   : If $$InPrintMode Then 0.5 Else 0 inches
        Button : Change Period,Report Config,Print Button,Export Button,BottomToolBarBtn1,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11,refresh tdl
        BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
        Buttons    : PrintButton, ExportButton, UploadButton, MailButton   
        Parts       : JKT1 Invoice Company Details,LStatement Tit,LStatementinfoPart
        ;Add : Bottom Part : DBCBDetailsvmv1
        Add : Button      : Refresh TDL, ExplodeFlag
    
    [Part:JKT1 Invoice Company Details]
    Line: JKT1 Company Name, JKT1 Company Address
    Border: Thin Box
    
    
    [Line: JKT1 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
    Local: Field: Name Field: Color : Blue
    Space Top: 0.05
    
    
    [Line:JKT1 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: Color : Blue
    Local: Field: Name Field: Line:0
    
    
    [Part : LStatement Tit]
        Space Bottom : 0.2 inch
        Line : LStatementParty; Tit Line2
        ;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementParty;Tit Line2
       
        Add:Lines:At End:partyaddL03,partyaddL04,LStatementPeriod
       
    [Line : LStatement Tit Line]
        Field : LStatement Tit Field
       
    [Field : LStatement Tit Field]
        Use        : Name Field
        Set as     : @@CmpMailName;$Name:Company:##SVCurrentCompany   
            Align      : Center
        Full Width : Yes
        Style      : Large Bold
        Color:red
    [Line:LStatementAdd]
        Field:LStatementAddField
    [Field:LStatementAddField]
        Use        : Name Field
        Set as     : $$FullList:CompanyAddress:$Address
        Align      : Center
        Full Width : Yes
        ;Border    : Thin Box
        Style:TINY
    [Line:LStatementGSTNo]
        Field:LStatementGSTNoField
    [Field:LStatementGSTNoField]
        Use        : Name Field
        Set as     : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:@@CMPExcisePrimaryGodown+$$LocaleString:"   PAN NO.:"+    $IncomeTaxNumber:Company:##SVCurrentCompany
        Align      : Center
        Full Width : Yes
        Style:TINY
    [Line:LStatementPeriod]
        Field:LStatementPeriodField
        Space Top:0.5
        Border:thin bottom
       
    [Field:LStatementPeriodField]
        Use:name field
        Set as:$$LocaleString:"Ledger Statement For the Period : " + $$String:##SVFromDate + " to" + $$String:##SVToDate
        Align      : Center
        Full Width : Yes
        Local:Style:defualt:Height:20
        Color: Black
        Style:large
    [Line:LStatementParty]
        Field:LStatementPartyInfo,LStatementPartyField
       
    [Field:LStatementPartyInfo]
        Use  :Name Field
        SetAs:"Party Name     :"
        Width:14
        Style:small
        Background:DEEP COBALT BLUE
        Color:WHITE
    [Field:LStatementPartyField]
        Use  :Name Field
        SetAs:##GroupName
        Width:201 mms
        ;Style:tiny
        ;Border: Thin Box
        Color : dark red
        Local:STYLE:DEFAULT:Height:14
        Full Width:Yes
    [Line:partyaddL03]
    Fields:partyaddL21,partyaddL22,partyaddL23
    border : thin top
    [Field:partyaddL21]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Address:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt : width : 14
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##GroupName
    Local : Field :name Field : width : 93.5
    Local : Field :name Field :Skip:yes
    Local : Field :name Field : line : 0
    Local : Field :name Field : style :SMALL
    Color : dark red
    Background:LIGHT BLUE
    [Field:partyaddL22]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"State:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field : Set as : $LedStateName:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 14
    [Field:partyaddL23]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Pin Code:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $pincode:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 30
    
    
    [Line:partyaddL04]
    Fields:partyaddL35,partyaddL38,partyaddL39
    border : thin top
    
    [Field:partyaddL35]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 14
    Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##GroupName
    Local : Field : name Field :Skip:Yes
    Local : Field :name Field : width : 93.5
    Local : Field :name Field : style : normal bold
    Color:blue
    border : thin bottom
    
    
    [Field:partyaddL38]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Mobile:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $LedgerMobile:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Local : Field :name Field : style : normal
    Color:BLUE
    border : thin bottom
    [Field:partyaddL39]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"E-Mail:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $Email:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:BLUE
    border : thin bottom
    Local : Field :name Field : style : normal
    Local : Field :name Field : Width:21.2
    
       
    [Part:LStatementinfoPart]
        Left Part:LStatementinfoPartLeft
        Right Part:LStatementinfoPartRight
    
    [Part:LStatementinfoPartLeft]
    Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
    Repeat:LedTitleFieldLeft:VLedcollectionLeft
    Scroll:Vertical
    Float: No
    Common Border:Yes
    Bottom Line:LedClbalfieldLefttot,LedClbalfieldLeft,LedTotalFieldL
    Border: Totals
    Total:LVchDebitAmt,LedOpeBalL
    
    [Part:LStatementinfoPartRight]
    Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
    Repeat:LedTitleFieldRight:VLedcollectionRight
    Scroll:Vertical
    Float:no
    Common Border:Yes
    Bottom Line:LedClbalfieldRighttot, LedClbalfieldRight,LedTotalFieldR
    Border: Totals
    Total:LVchCreditAmt,LedOpeBalR
    
    [Line:LedOpeBalfieldLeft]
        Fields:LedOpeBalLDate,LedOpeBalLT, LedOpeBalL
       
    [Field:LedOpeBalLDate]
            Use : Uni date field
            Set as : $OpeningDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
    
    [Field:LedOpeBalLT]
            info     :$$localestring:"Opening Balance:"
            color     : WHITE
            Widespaced: Yes
            width     : 34
            Inactive: If $$IsEmpty:#LedOpeBalL then Yes Else No
            Background:  Dark Green
            Align: Right
           
    [Field:LedOpeBalL]   
            Use    : Amount Field
            Set as     : If  $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 38
            Format : "Symbol,DrCr"
    
    [Line:LedTitleInfoLeft]
        Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt
        Local:Field:LVchDDate:Info:"Date"
        Local:Field:LVchDParticulars:Info:"Particulars"
        Local:Field:LVchChqNum:Info:"Ch.No"
        Local:Field:LVchDNum:Info:"Vch.Type"
        Local:Field:LVchDebitAmt:Info:"Debit Amount"
        Border:THIN TOP BOTTOM
        Local:Field:default:Background:DEEP COBALT BLUE
                Local:Field:default:color:white
        Local:Style:Default:Height:10
    
    [Line:LedTitleFieldLeft]   
        Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO
        Option : AlterVchOnEnter : Yes
        ;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode
    
    
    [field:LVchDDate]
        Use:uni date field
        Set as : $Date
            Format : “full Date”
            Width  :12
            Style  : tiny
                    Border : Thin Right
           
    [field:LVchDParticulars]
        Use    : Name Field
        Set as:$$LocaleString:$AlllEDGERENTRIES[2].LedgerName
        Width  : 34
        Style  : tiny
        Border : Thin Right
        color:geranium
    
    [field:LVChChqNum]
    Use    : Name Field
            Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
            Width  : 10
            Style  : tiny
            Border : Thin Right
    [field:LVchDNum]
    Use    : Name Field
            Set as : $VoucherTypeName
            Width  : 12
            Style  : tiny
                    Border : Thin Right
    
    [field:LVchDebitAmt]
        Use         : Amount Field
        Set as : if not $$IsDr:$Amount then 0 else $Amount
                Width  : 15
            Format : "Symbol,DrCr"
            color  : blue
            Border : Thin Right
            Space Right:1
            Style:tiny
    
    [Line:LedClbalfieldLefttot]
    Fields:LedclbalLTtot
    Left Fields: LedClbalLtot
    Border: Thin Top
    
    
    [Field:LedClbalLTtot]
    info :$$localestring:"Debit Total :"
    color : blue
    width : 47
    Background:
    Align: Right
    Widespaced: Yes
    
    
    [Field:LedClbalLtot]
    Use : Amount Field
    Set as : $$Total:LVchDebitAmt+#LedOpeBalL
    Skip : Yes
    style : normal
    Color : Blue
    Format : "Symbol,DrCr"
    Width : 38
    Space Right: 2
    Background:
    
    
    [Line:LedClbalfieldLeft]
        Fields:LedClbalLT, LedClbalL
        Border: Thin Bottom
       
           
    [Field:LedClbalLT]
            info     :$$localestring:"Closing Balance:"
            color     : Blue
            width     : 47
            Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
            Background:
            Widespaced: Yes
            Align: Right       
    
    [Field:LedClbalL]   
            Use    : Amount Field
            Set as     : If $$IsDr:$ClosingBalance:Ledger:##GroupName then 0 else $ClosingBalance:Ledger:##GroupName
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 38
            Format : "Symbol,DrCr"
            Space Right: 1
    
    [Line:LedTotalFieldL]
        Field:LedTotalLT,LedTotalL
    [Field:LedTotalLT]
            info     :$$localestring:"Total:"
            color     : Blue
            width     : 47
            Background:
            Widespaced: Yes
            Align: Right
    
    [Field:LedTotalL]   
            Use    : Amount Field
            Set as     : #LedClbalLtot + #LedClbalL
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 35
            Space Right: 1
    
    
    [Line:LedOpeBalfieldRight]
        Fields:LedOpeBalRDate,LedOpeBalRT, LedOpeBalR
           
    [Field:LedOpeBalRDate]
            Use : Uni date field
            Set as : $OpeningDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
           
    [Field:LedOpeBalRT]
            info     :$$localestring:"Opening Balance: "
            color     : WHITE
            Widespaced: Yes
            width     : 44
            Inactive: If $$IsEmpty:#LedOpeBalR then Yes Else No
            Background: Dark Green
            Align: Right
           
    [Field:LedOpeBalR]   
            Use    : Amount Field
            Set as     : If not $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 27
            Format : "Symbol,DrCr"
    
    [Line:LedTitleInfoRight]
        Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
        Local:Field:LVchcDate:Info:"Date"
        Local:Field:LVchcParticulars:Info:"Particulars"
        Local:Field:LVchcNum:Info:"Vch.Type"
        Local:Field:LVchCreditAmt:Info:"Credit Amount"
        Border:THIN TOP BOTTOM
        Local:Field:default:Background:DEEP COBALT BLUE
            Local:Field:default:color:white
        Local:Style:Default:Height:10
    [Line:LedTitleFieldRight]   
        Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO
        Option : AlterVchOnEnter : Yes
    
    [field:LVchCDate]
        Use:uni date field
        Set as : $Date
            Format : "DD/MMM/YYYY";“Short Date”
            Width  : 12
            Style  : tiny
            Border : Thin Right
    
    [field:LVchCParticulars]
        Use    : Name Field
        Set as:$$localestring:"Bill No." + $REFERENCE
            Width  : 44
            Style  : tiny
            Border : Thin Right
    color:geranium
    [field:LVchCNum]
        Use    : Name Field
       
            Set as :  $VoucherTypeName
            Width  : 12
            Style  : tiny
            Border : Thin Right
    [field:LVchCreditAmt]
        Use         : Amount Field
        ;Set as:$amount
        Set as : if  $$IsDr:$Amount then 0 else $Amount
            Format : "Symbol,DrCr"
            Width  : 15
            Style  : tiny
            color  : Blue
            Border : Thin Right
            Space Right:1
    
    [Line:LedClbalfieldRighttot]
    Fields:LedclbalRTtot
    Right Fields: LedClbalRtot
    Border : Thin Top
    
    [Field:LedClbalRTtot]
    info :$$localestring:"Credit Total :"
    color : Blue
    width : 57
    Background:
    Align: Right
    Widespaced: Yes
    
    [Field:LedClbalRtot]
    Use : Amount Field
    Set as : $$Total:LVchCreditAmt+#LedOpeBalR
    Skip : Yes
    style : normal
    Color : Blue
    Format : "Symbol,DrCr"
    Width : 28
    Background:
    Space Right:1
    
    [Line:LedClbalfieldRight]
        Fields:LedClBalRDate,LedclbalRT, LedClbalR
        Border : Thin Bottom
    
    [Field:LedClBalRDate]
            Use : Uni date field
            Set as : $ClosingDate
            Format : "DD/MMM/YYYY";“Short Date”
            color     : WHITE
            width     : 12
           
    [Field:LedClbalRT]
            info     :$$localestring:"Clsoing Balance:"
            color     : WHITE
            width     : 45
            Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
            Background:
           
    [Field:LedClbalR]   
            Use        : Amount Field
            Set as     : $ClosingBalance:Ledger:##GroupName
            Set as :   If not $$IsDr:$ClosingBalance:Ledger:##GroupName then 0 else $ClosingBalance:Ledger:##GroupName
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Format  : "Symbol,DrCr"
            Width    : 16
    
    [Line:LedTotalFieldR]
        Field:LedTotalRT,LedTotalR
    
    [Field:LedTotalRT]
            info     :$$localestring:"Total:"
            color     : Blue
            width     : 57
            Background:
            Widespaced: Yes
            Align: Right
    
    [Field:LedTotalR]   
            Use    : Amount Field
            Set as     : #LedClbalRtot + #LedClbalR
            Skip    : Yes
            style     : normal
            Color    : BLUE
            Width    : 26
           
    
    [Collection : VLedcollectionLeft]
        Type : Vouchers: Ledger
        Child of :$$BaseOwner:#GroupName
        Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
        Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
        Filter:FilterDspVchDrAmt
    [Collection : VLedcollectionRight]
        Type : Vouchers: Ledger
        Child of :$$BaseOwner:#GroupName
        Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
        Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
        Filter:FilterDspVchCrAmt
    
    [System:formula]
        FilterDspVchDrAmt:$$IsDr:$Amount
        FilterDspVchCrAmt:not  $$IsDr:$Amount
    
    [#Menu    :Gate way of Tally]
        Add    :Button    :Refresh TDL
    [Button    :Refresh TDL]
        Title    :"Refresh TDL"
        Key        :Alt+X
        Action    :Refresh TDL
    [System    :Form keys]
        Key    :Refresh TDL
    [System    :Menu Keys]
        Key    :Refresh TDL
      
    [#Form    :Default]
        Key    :Refresh TDL
    [#Menu    :Default]
        Key    :Refresh TDL  
     


    Sir My Last code, suggest me sir

    Thank You
     


  22. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Yours and Jaykumar problem was the same.... problem with the collection and its parameters, which I have solved.

    Problem with all of you...is that you copy/paste code without understanding it..... so now try to understand the code and implement the changes. You did not expect your professor in school/college to write answers for you.....did you???

    I do not have time to see, load and test each and every TDL code............. so please understand that code and implement the same.
     
    KRISBALA likes this.


  23. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Sahi Hai............Boss :cool:;):eek:
     


  24. Rais Ahmed

    Rais Ahmed Member


    Dear All,
    Have U seen Such a cooperative, innovative experts who put his efforts, time only to help others like AMIT SIR. I haven't.
    THANKS AND REGARDS.
     
    sekharchana, Frz and Amit Kamdar like this.


  25. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    t
    thanks... i try.... i try as i can :)
     


Share This Page