Tally Chapter 192 TDL for Multi Ledger Print By Rajiv Mishra Computer Class

 

Few lines are Missing here.

Pls Watch the video to get the full coding.

[Report: VCS Multi Ledger Printing]

  

    Form        : VCS Multi Ledger Printing

    Variable    : In New Pages, SV From Date, SV To Date

 

    Set            : In New Pages        : Yes

    Set            : SV To Date        : $$FinYearEnd:##SVCurrentDate:$StartingFrom:Company:##SVCurrentCompany

 

    Title        : "Multi Ledger Printing"

    PrintSet    : Report Title        : "Multi Ledger Printing"

 

    Print        : VCS_PrintInMultiplePages

 

[Form: VCS Multi Ledger Printing]

    Use:DSP Template

    Parts        : VCS ML Title, VCS ML Printing

    Page Break    : DSP ClPageBreak, VCS Op PageBreak

 

    Buttons        : Print Button, F2ChangePeriod

    Keys        : ChangePeriod

 

    Option        : VCS Multi Ledger Printing New    : ##InNewPages

   

    [!Form: VCS Multi Ledger Printing New]

       

        Delete    : Page Break

        Add        : Page Break    : VCS Dummy Cl PageBreak, VCS Op PageBreak

 

        [Part: VCS Dummy Cl PageBreak]

           

            Lines    : Dummy Line

           

[Part: VCS Op PageBreak]    ;; Opening Page Break Part

   

    Parts  : DSP OpCompanyName, DSP OpReportTitle, VCS ML Printing Title

    Vertical: Yes

 

[Part: VCS ML Title]

   

    Option    : VCS ML Scn Title    : NOT $$InPrintMode

    Option    : VCS ML Prn Title    : $$InPrintMode

   

    [!Part: VCS ML Scn Title]

       

        Parts    : VCS ML Printing Title

 

    [!Part: VCS ML Prn Title]

       

        Parts    : DSP AccTitles, VCS ML Printing Title

        Vertical: Yes

 

[Part: VCS ML Printing Title]    ;; Column Titles Part   

   

    Lines    : VCS ML Printing Title

    Border    : Thin Top Bottom

   

    [Line: VCS ML Printing Title]

       

        Use        : VCS ML Ledger Details Printing

 

        Local    : Field    : Default                        : Type        : String

        Local    : Field    : Default                        : Align        : Center

        Local    : Field    : Default                        : Style        : Normal Italic

       

        Local    : Field    : VCS ML Ledger Vch Date        : Info        : "Date"

        Local    : Field    : VCS ML Ledger Vch Particulars: Info        : "Particulars"

        Local    : Field    : VCS ML Ledger Vch Type        : Info        : "Vch Type"

        Local    : Field    : VCS ML Ledger Vch No            : Info        : "Vch No."

        Local    : Field    : VCS ML Ledger Vch DrAmt        : Info        : "Debit"

        Local    : Field    : VCS ML Ledger Vch CrAmt        : Info        : "Credit"

 

[Part: VCS ML Printing]    ;; Main Part with Part level Object association (Ledger)

   

    Parts    : VCS ML Ledger Printing

    Repeat    : VCS ML Ledger Printing    : VCS ML Ledger Coll

    Scroll    : Vertical

 

;; Following Part gets rendered for each Ledger Object in the Collection 'VCS ML Ledger Coll'

 

    [Part: VCS ML Ledger Printing]

       

        Parts    : VCS ML Ledger Head Printing, VCS ML Ledger Details Printing

        Vertical: Yes

 

        [Part: VCS ML Ledger Head Printing]

 

            Lines    : VCS ML Ledger Head Printing

           

            [Line: VCS ML Ledger Head Printing]

               

                Fields    : LedgerName

                Local    : Field    : LedgerName    : Set As    : $Name

                Local    : Field    : LedgerName    : Align        : Centre

                Local    : Field    : LedgerName    : FullWidth    : Yes

                Local    : Field    : LedgerName    : Border    : Thin Bottom

                NextPage: ##InNewPages

 

        [Part: VCS ML Ledger Details Printing]

           

            Lines    : VCS ML Ledger OB Printing, VCS ML Ledger Details Printing, VCS ML Ledger CB Printing

            Repeat    : VCS ML Ledger Details Printing    : VCS ML Ledger Details Coll

           

            [Line: VCS ML Ledger OB Printing]

               

                Use            : VCS ML Ledger Details Printing

                Local: Field: Default                        : Style        : Normal Italic

           

                Local: Field: VCS ML Ledger Vch Particulars: Set As    : "Opening Balance"

                Local: Field: VCS ML Ledger Vch DrAmt        : Set As    : if $$IsDr:$OpeningBalance then $OpeningBalance else 0

                Local: Field: VCS ML Ledger Vch CrAmt        : Set As    : if NOT $$IsDr:$OpeningBalance then $OpeningBalance else 0

 

            [Line: VCS ML Ledger Details Printing]

               

                Fields        : VCS ML Ledger Vch Date, VCS ML Ledger Vch Particulars

                Right Fields: VCS ML Ledger Vch Type, VCS ML Ledger Vch No, VCS ML Ledger Vch DrAmt, VCS ML Ledger Vch CrAmt

               

                [Field: VCS ML Ledger Vch Date]

 

                    Use        : Uni Date Field

                    Set As    : $Date

 

                [Field: VCS ML Ledger Vch Particulars]

 

                    Use        : Name Field

                    Set As    : $DSPAccName:Ledger:$$FirstContraAcc:$$IsDr:$$OrigVchLedTotal:#LedgerName

 

                [Field: VCS ML Ledger Vch Type]

 

                    Use        : Name Field

                    Set As    : $VoucherTypeName

 

                [Field: VCS ML Ledger Vch No]

 

                    Use        : Name Field

                    Set As    : $VoucherNumber

 

                [Field: VCS ML Ledger Vch DrAmt]

 

                    Use        : Amount Forex Field

                    Set As    : $$OrigVchLedDrTotal:#LedgerName

 

                [Field: VCS ML Ledger Vch CrAmt]

 

                    Use        : Amount Forex Field

                    Set As    : $$OrigVchLedCrTotal:#LedgerName

 

            [Line: VCS ML Ledger CB Printing]

               

                Use            : VCS ML Ledger Details Printing

                Local: Field: Default                        : Style        : Normal Italic

           

                Local: Field: VCS ML Ledger Vch Particulars: Set As    : "Closing Balance"

                Local: Field: VCS ML Ledger Vch DrAmt        : Set As    : if $$IsDr:$ClosingBalance then $ClosingBalance else 0

                Local: Field: VCS ML Ledger Vch CrAmt        : Set As    : if NOT $$IsDr:$ClosingBalance then $ClosingBalance else 0

                Border        : Thin Top Bottom

 

;; Config Report Definition

 

[Report: VCS_PrintInMultiplePages]

   

    Use        : SV Print Configuration

    Form    : SV Print Configuration

    Local    : Form    : SV Print Configuration    : Add        : Parts    : VCS_PrintInMultiplePages

 

[Part: VCS_PrintInMultiplePages]

       

    Lines            : InNewPages

    Horizontal Align: Center

 

;; Collection Definition

 

[Collection: VCS ML Ledger Coll]

   

    Type    : Ledger

    Filter    : VCS_Non Empty Ones

 

[Collection: VCS ML Ledger Details Coll]

   

    Type    : Vouchers    : Ledger

    Child Of: $Name

    Fetch    : LedgerEntries.*

 

;; System Formula

 

[System: Formula]

 

    VCS_Non Empty Ones    : NOT $$IsEmpty:$OpeningBalance OR NOT $$IsEmpty:$ClosingBalance OR $$NumItems:VCSMLLedgerDetailsColl > 0

 

;; End-of-File