Free Code : Multi Account Printing Sample Code

Discussion in 'Free Source Codes' started by admin, May 20, 2014.

    
  1. admin

    admin Administrator Staff Member


    Code:
    ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara
    ;; Credits : http://tdlexperts.com
     
    [#Menu: Gateway of Tally]
       
        Item        : Multi Ledger Printing    : Display    : VCS Multi Ledger Printing
       
    [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]
       
        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
    
     

    Attached Files:



  2. mpal2311

    mpal2311 Active Member


    Great Admin Sir.
     


  3. rajiv jaiswal

    rajiv jaiswal Member


    i got error saying part:-vcs ml printing
    syntax error
     
    Sunder likes this.


  4. Sunder

    Sunder New Member




    Dear Sir,
    i get the error in tdl
    'part:vcs ml printing'
     


  5. NMS

    NMS Member


    The code is Working Fine .. Check in Release 4.8 or 4.9
    Thanks for Admin Sir...
     
    mpal2311 likes this.


  6. mpal2311

    mpal2311 Active Member


    Working.
     


  7. Taufeeq Shaikh

    Taufeeq Shaikh Active Member


    Admin Sir,

    Its working fine and very good TDL but want to share one idea that if we modify it with Detailed Report through Alt+F1 and GroupWise selection rather then all ledger. Then it will be completely useful for each & everyone.
     


  8. Mukesh Garg

    Mukesh Garg Member


    Plz help How to Set "START FRESH PAGE FOR EACH ACCOUNT" to NO Permanently in Multi Account Printing --> Account Books --> Ledger --> All account and group of accounts
     


Share This Page