free code :- Sales & Purchases Monthly summery (Details)

Discussion in 'Free Source Codes' started by psjain_jal, Apr 27, 2013.

         
  1. psjain_jal

    psjain_jal Member


    Code:
    [System : UDF]                                 
     
        UDFColNo : Number : 500                             
     
    ;;[#Part: MST LED Default]                                 
     
    [#Part: MST LED Details]                                 
     
        Add : Option        : PrtNonPartyLed                : NOT $IsDebtorCreditor     
     
    [!Part: PrtNonPartyLed]                                 
     
        Lines : LnColNoInColReport                                 
     
    [Line: LnColNoInColReport]                                 
     
        Field      : Long Prompt, FldColNoInColReport                             
     
        Local      : Field : Long Prompt : Setas  : "Column No in Columer Report :"                                 
     
    ;;    Local      : Field : Long Prompt : Inactive: NOT @@HasCalculation OR $$IsSysNameEqual:TDS:$TaxType OR $$IsSysNameEqual:ServiceTax:$TaxType OR $$IsSysNameEqual:TCS:$TaxType OR $$IsSysNameEqual:FBT:$TaxType                                 
     
        [Field : FldColNoInColReport]                             
     
            Use : Number Field                         
     
        Storage : UDFColNo                             
     
    ;[#Menu : Gateway of Tally]                                 
     
    [#Menu: Account Books]                                 
     
    ;;    Add : Item : Monthly Sales Summery : Display : RptMonthlySummaryRegister                                 
     
        Add : Item : Before : @@locQuit : Details Monthly Summery  :  Display Collection : ClnVoucherTypes :  NOT $$IsEmpty:$$SelectedCmps                                 
     
    [Collection : ClnVoucherTypes]                                 
     
        Type        : Voucher Type                                 
     
        Format      : $$Name, 20                                 
     
        Align      : Right                                 
     
        FullHeight  : Yes                                 
     
        Title      : $$LocaleString:"Select Voucher Type"                                 
     
        Fetch        : Name, Parent, IsDeemedPositive                     
     
        Report      : RptMonthlySummaryRegister                                 
     
        Variable    : SVoucherType                                 
     
        Trigger    : SVoucherType1                                 
     
        Filter      : OnlySalePurchase                             
     
        BelongsTo  : Yes                                 
     
        WithAlias  : Yes                                 
     
        Set as      : $Name                                 
     
        Fetch        : SortPosition, AdditionalName                     
     
        [Report: SVoucherType1]                             
     
            Use    : Collection Variable                         
     
            Title    : $$LocaleString:"Select Voucher Type"                     
     
            Local  : Line : Collection Variable : Field : SVoucherType1                                 
     
            Local  : Field: MV Title            : Info  : $$LocaleString:"Voucher Type"                                 
     
            [Field: SVoucherType1]                         
     
                  Use        : Name Field                                 
     
                  Table      : ClnVchrList                                 
     
                  Show Table  : Always                                 
     
                  Key        : Create Voucher Type                                 
     
                Modifies    : SVoucherType                                 
     
    [Collection : ClnVchrList]                                 
     
        use    : ExtractVoucherType                         
     
        Filter  : OnlySalePurchase                             
     
    [Report : RptMonthlySummaryRegister]                                 
     
        Use            : DSP Template                         
     
        Title        : "Columnar Register - Monthly Summery"                             
     
        Form        : FrmMonthlySummaryRegister                     
     
        Family      : $$Translate:"Sales Register"                                 
     
                                       
     
        [Form    : FrmMonthlySummaryRegister]                             
     
            Use        : DSP Template                     
     
            Parts    : DSP AccTitles, PrtMSmryTitles, PrtMSmryColTitles, PrtMSmryDetails                         
     
            Option  : SmallSizeForm : NOT $$InPrintMode                             
     
            [Part    : PrtMSmryTitles]                             
     
                Lines        : Empty, LnMSmryTitles, LnMSmryTitles2                     
     
                [Line    : LnMSmryTitles]                             
     
                    Fields        : Name Field, FldCheckVchrTypeDRCR                     
     
                    Local : Field : Name Field : Set As : "Monthly Summary of " + ##SVoucherType                             
     
                [Line    : LnMSmryTitles2]                             
     
                    Fields        : Name Field                     
     
                    Local : Field : Name Field : Set As : "For the period from " + $$String:##SVFromDate + " to " + $$String:##SVToDate                             
     
                    Local : Field : Name Field : FullWidth : Yes                             
     
                    Border      : Thick Bottom                         
     
                    [Field : FldCheckVchrTypeDRCR]                 
     
                        Use : Logical Field             
     
                        set as : $IsDeemedPositive:VoucherType:##SVoucherType             
     
                    Invisible : Yes                 
     
                                     
     
            [Part    : PrtMSmryColTitles]                             
     
                Lines        : LnMSmryColTitles                         
     
                Common Border    : Yes                             
     
                [Line    : LnMSmryColTitles]                             
     
                    Use : LnMSmryColDetails                 
     
                    Local : Field : Default : Type : String                 
     
                    Local : Field : Short Name Field : Set As : "Month"                 
     
                    Local : Field : FldMSmryMONTH      : Set As : "Month"             
     
                    Local : Field : FldMSmryAmt        : Set As : $LName             
     
                    Local : Field : FldMSmryAmt        : Line  : 0             
     
                    Local : Field : FldMTotal          : Set As : "Total"             
     
                    Border      : Thick Bottom                             
     
            [Part    : PrtMSmryDetails]                             
     
                Lines  : LnMSmryColDetails, LnMSmryColTotals                                 
     
                Repeat : LnMSmryColDetails : ClnDatewiseSales                                 
     
                Scroll : Vertical                                 
     
                [Line    : LnMSmryColDetails]                             
     
                    Fields : Short Name Field, FldMSmryMONTH, FldMSmryAmt, FldMTotal                                 
     
                    Repeat : FldMSmryAmt : ClnSaleLeds                                 
     
                    Local : Field : Short Name Field : Set As : $PMonth + " - " + $PYear                 
     
    ;                Local : Field : Short Name Field : Display : MySalesVouchers                 
     
                Local : Field : FldMSmryMONTH : Set As : $mDate                     
     
                Local : Field : FldMSmryAmt  : Set As : @ExactAmt                     
     
                Local : Field : FldMTotal    : Set As : $MAmount1                     
     
    ;                Option : DisplayOnEnter                 
     
                                     
     
                [Line    : LnMSmryColTotals]                             
     
                    Fields : Short Name Field, FldMSmryMONTH, FldMSmryAmtTot, FldMTotalTot                                 
     
                    Repeat : FldMSmryAmtTot : ClnSaleLeds                                 
     
                    Local : Field : Short Name Field : Set As : "Total"                 
     
                    Local : Field : FldMSmryMONTH : Set As : ""                 
     
                    Local : Field : FldMSmryAmtTot  : Set As : @ExactAmt                 
     
                    Local : Field : FldMTotalTot    : Set As : $$CollAmtTotal:ClnSaleLeds:$MAmount                 
     
                    Border : Totals                 
     
                                     
     
    [Field : FldMSmryMONTH]                                 
     
        Use        : Short Name Field                             
     
        Invisible : Yes                             
     
                                     
     
    [Field : FldMSmryAmt]                                 
     
        Use : Amount Field                                 
     
        mSrchKey : #FldMSmryMONTH + $LName                             
     
        mAmt : $$ReportObject:$$CollectionFieldByKey:$MAmount:@mSrchKey:ClnMonthLedMatrix                             
     
        ExactAmt : if #FldCheckVchrTypeDRCR then (if $$IsDr:@mAmt then @mAmt * -1 else @mAmt) else (if $$IsDr:@mAmt then @mAmt else @mAmt * -1)                                 
     
                                     
     
    [Field : FldMTotal]                                 
     
        Use : Amount Field                             
     
    [Field :FldMSmryAmtTot]                                 
     
        Use : Amount Field                             
     
        mAmt : $$ReportObject:$$CollectionFieldByKey:$MAmount:$LName:ClnSaleLeds                             
     
        ExactAmt : if #FldCheckVchrTypeDRCR then (if $$IsDr:@mAmt then @mAmt * -1 else @mAmt) else (if $$IsDr:@mAmt then @mAmt else @mAmt * -1)                                 
     
                                     
     
    [Field : FldMTotalTot]                                 
     
        Use : Amount Field                             
     
                                     
     
    ;                                 
     
    ;; Collection Definitions                                 
     
    ;                                 
     
                                     
     
    [Collection: ClnSaleVchrs]                                 
     
        Type        : Voucher                     
     
        Fetch        : Date, SanVchrYearMonth, PartyLedgerName, Amount                     
     
        Filter        : SanSelectedVchr                     
     
    [Collection: ClnSaleLeds]                                 
     
        Source Collection    : ClnSaleVchrs                         
     
        Walk                : All Ledger Entries             
     
        By                    : LName            : $LedgerName
     
        By                  : ColNo        : $mColNo                             
     
        Aggr Compute        : MAmount        : SUM    : $Amount         
     
        Filter                : SanNonParty             
     
        Keep Source            : ().                 
     
        Search Key            : $LName                 
     
        Sort : Default : $ColNo                             
     
    [#Object : Voucher]                                 
     
        SanVchrYearMonth : $$String:@@mVchrYear + $$ZeroFill:@@mVchrMonthNo:2                             
     
                                     
     
    [#Object : Ledger Entry]                                 
     
        mColNo : $UDFColNo:Ledger:$LedgerName                             
     
                                     
     
    [#Object : Ledger]                                 
     
        IsDebtorCreditor : $$IsBelongsTo:$$GroupSundryDebtors OR $$IsBelongsTo:$$GroupSundryCreditors                             
     
    [System : Formula]                                 
     
        mVchrYear        : $$YearOfDate:$Date                         
     
        MVchrMon          : $$MonthOfDate:$Date                         
     
        mVchrMonthNo      : $$String:@@MVchrMon                         
     
    [Collection: ClnDatewiseSales]                                 
     
        Source Collection    : ClnSaleVchrs                         
     
        By                    : PYear    : $$YearOfDate:$Date     
     
        By                    : PMonth    : $$FullMonthName:$Date       
     
        By                  : mDate    : $SanVchrYearMonth                             
     
        Aggr Compute        : MAmount1    : SUM    : $Amount             
     
        Keep Source            : ().                 
     
        Sort                : Default    : $mDate         
     
        Search Key            : $mDate                 
     
    [Collection: ClnMonthLedMatrix]                                 
     
        Source Collection    : ClnSaleVchrs                         
     
        Walk                : All Ledger Entries             
     
        By                    : PYear    : $$YearOfDate:$Date     
     
        By                    : PMonth    : $$FullMonthName:$Date       
     
        By                  : mDate    : $SanVchrYearMonth                             
     
        By                    : LName        : $LedgerName 
     
        Aggr Compute        : MAmount    : SUM    : $Amount             
     
        Keep Source            : ().                 
     
        Search Key            : $mDate + $LName                 
     
        Filter                : SanNonParty             
     
    [System: Formula]                                 
     
    ;    SanIsSalesVchr    : $$IsSales:$VoucherTypeName                         
     
        SanNonParty    : NOT $IsDebtorCreditor:Ledger:$LName                             
     
        SanSelectedVchr    : $VoucherTypeName = ##SVoucherType                         
     
        OnlySalePurchase : $$IsSales:$Parent OR $$Ispurchase:$Parent OR $$IsDebitNote:$Parent OR $$IsCreditNote:$Parent                                 
     
    ;;==============                                 
     
    [Report: MySalesVouchers]                                 
     
        Use        : Voucher Register                                 
     
        Replace    : Set                    : VoucherTypeName      : VoucherTypeName    : $$VchTypeSales     
     
        Set        : FamilyVoucherFlag    : Yes                                 
     
        Title      : $$LocaleString:"List of Sales Vouchers"                                 
     
                                     
     
        Set        : SV Sort Method        : @@Default                                 
     
        Set        : SV From Date          : if $$InPrintMode then $$MonthStart:##SVCurrentDate else ##SVCurrentDate                                 
     
        Set        : SV To Date            : if $$InPrintMode then $$MonthEnd:##SVCurrentDate else ##SVCurrentDate                                 
     
        Set        : Is Day Book          : Yes                                 
     
        Set        : VoucherTypeName      : $$SysName:AllItems                                 
     
        Set        : DSPShowMonthly        : No                                 
     
        Set        : DSPHasMultiLevel      : Yes                                 
     
        Set        : DSPNotScaleable      : Yes                                 
     
        Set        : DSPHasColumnTotal    : Yes                                 
     
        Set        : ColumnarDayBook      : Yes                                 
     
        Set        : Groupname            : ""                                 
     
        Set        : StockGroupName        : ""                                 
     
        Set        : ExplodeFlag          : if $$InPrintMode then "Yes" else "No"                                 
     
        Set            : TallyAudit            : No     
     
        Set            : IsMultiPage            : No     
     
        set : IsLedgerReport : Yes                             
     
                                     
     
    ;    Repeat      : SVColumnType, SVColumnName                                 
     
                                     
     
    ;;[Report: Company Columns]                                 
     
    ;;[#Report: DYBK Configure]    ;;Auto Report                                 
     
    ;;[Collection: Columnar Vouchers of Ledgers]                                 
     
                                     
     
                                    
     
    yacob and Pritam Krishna like this.


  2. Aniket

    Aniket New Member


    not working in 4.6. when we open stock summary it gives error
     




  3. nirexshan

    nirexshan New Member


    thank u sir
     
    riyastm likes this.


  4. anil sharma

    anil sharma New Member


    Hi

    how to generate Report Closing Stock Register with Ageing
     


  5. Bsingh

    Bsingh New Member


    how to see the report after loading this tdl
     


  6. dkp_jal

    dkp_jal Member


    Not work in Tally.erp 9 v1.1
    Error:
    BAD FORMULA
    ().
     


  7. Rakesh Tripathi

    Rakesh Tripathi New Member


    correction required in formula error
     




  8. SINTO PARAVA

    SINTO PARAVA New Member


    Try in Original Version of Tally.ERP9 :)
     



  9.  



  10. this report is very best one, i just want to know if we change filter as ledger name or group insted of voucher type and change the code then can t is possible to get same report ( it will as ledgerwise,monthwise report and usefull for vat audit) ?
     


  11. priya

    priya Member


    Good TDL; if the provision for displaying it in detailed format, it will be the best one. Nevertheless thank you for yet another display of knowledge and utility valued TDL
     


  12. jaingourav25

    jaingourav25 New Member


    PLZ GIVE THIS REPORT IN DETAILED DRILL DOWN OPTION
     


  13. bhasi

    bhasi New Member


    please explain how to use this option
     


  14. PRATIKshah

    PRATIKshah New Member


    please explain how to use this option
     


  15. Kalpesh Kothari

    Kalpesh Kothari New Member


    TDL LOADED.........FROM WHERE TO GENERATE REPORT ... ????
     


  16. info.ap

    info.ap New Member


     



  17. Dear Sir,

    You can do well, I am trying a report but can't achieve target. i am searching your kind help. my codes working well except auto column. while selecting auto column its git getting value. may be my collection or formula not perfect. can you please check that why Auto column not retriving any value... Thank You
     

    Attached Files:



  18. Jay kumar tailor

    Jay kumar tailor Active Member


    DEAR SIR
    PLEASE EXPLODE/EXPEND INTO IT .
     
    zakirhossain_diu likes this.



  19. Dear Sir
    ATTN: Mr. Jay kumar tailor

    Thank you for your comments, can you please on which collection Auto column TB Details line should be explode. i am trying for that, if you got me please tell that.

    Thank you
     


  20. rony

    rony Member


    Dear Sir,
    I m also getting error of bad formula '0'. It means it is for later version. if any 1 knows the function of error it can be resolved. no issue with license or pirated. Error is of function because tally has introduced so many new function in all updated versions. Help is necessary.
    Regards
     


  21. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Here it is.... am using it as it is............no changes in the core coding.

    For General Information.... no FUNCTION has been used in this TDL code.......

    Sales-Purchase Monthly Summary 03.PNG
     
    M K RAJU likes this.


  22. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    If at all it were due to function, because tally has introduced new functions, then it would NOT be working in new versions, whereas it will work in old versions.
     


  23. rony

    rony Member


    Dear Amitji,
    when I remove (). from Keep source from collection bad formula error gone, but it shows only Details Monthly Summery. Then I remove ;; from Monthly Sales Summery. It enables the menu but it shows Line :LnMsmryColTitles could not find repeated Fields. what repeated I should ADD.
    Thanks and Regards
     


Share This Page