Plz help to fetch billedqty, i am unable to understand my mistake.

Discussion in 'Free Source Codes' started by love, Nov 25, 2022.

    
  1. love

    love Member


    ;STOCK REPORT WORK IN PROGRESS




    [#Menu:GATEWAY OF TALLY]

    Add:Key Item:Multi Stock :L:Display: Tin Multi Stock Report





    [Report: Tin Multi Stock Report]



    Form : Tin Multi Stock Report

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


    Set : In New Pages : Yes

    Set : SVFromDate : $$MonthStart:($$PrevMonth:##SVCurrentDate)
    Set : SVToDate : $$MonthEnd:($$PrevMonth:##SVCurrentDate)


    Title : "Multi Stock Report"

    PrintSet : Report Title : "Multi Stock Report"


    Print : Tin_PrintInMultiplePages

    [Form: Tin Multi Stock Report]

    Use:DSP Template

    Parts : Tin Mstk Title, Tin Mstk Report

    Page Break : DSP ClPageBreak, Tin Op PageBreak

    Buttons : Print Button

    Option : Tin Multi Stock Report New : ##InNewPages


    [!Form: Tin Multi Stock Report New]



    Delete : Page Break

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


    [Part: Tin Dummy Cl PageBreak]



    Lines : Dummy Line



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



    Parts : DSP OpCompanyName, DSP OpReportTitle, Tin Mstk Report Title

    Vertical: Yes


    [Part: Tin Mstk Title]



    Option : Tin Mstk Scn Title : NOT $$InPrintMode

    Option : Tin Mstk Prn Title : $$InPrintMode



    [!Part: Tin Mstk Scn Title]



    Parts : Tin Mstk Report Title


    [!Part: Tin Mstk Prn Title]



    Parts : DSP AccTitles, Tin Mstk Report Title

    Vertical: Yes


    [Part: Tin Mstk Report Title] ;; Column Titles Part



    Lines : Tin Mstk Report Title

    Border : Thin Top Bottom



    [Line: Tin Mstk Report Title]



    Use : Tin Mstk Stock Details Report


    Local : Field : Default : Type : String
    Local : Field : Default : Align : Center
    Local : Field : Default : Style : Normal Italic
    Local : Field : Tin Mstk Stock Vch Date : Info : "Date"
    Local : Field : Tin Mstk Stock Vch Particulars : Info : "Party Name"
    Local : Field : Tin Mstk Stock Vch Type : Info : "Vch Type"
    Local : Field : Tin Mstk Stock Vch No : Info : "Vch No."
    Local : Field : Tin Mstk Stock Vch IN : Info : "Inward."
    Local : Field : Tin Mstk Stock Vch OUT : Info : "Outward."
    Local : Field : Tin Mstk Stock Vch RUN : Info : "Stock In Hand"


    [Part: Tin Mstk Report] ;; Main Part with Part level Object association (Ledger)



    Parts : Tin Mstk Stock Report

    Repeat : Tin Mstk Stock Report : Tin Mstk Stock Coll

    Scroll : Vertical


    ;;

    [Part: Tin Mstk Stock Report]



    Parts : Tin Mstk Stock Head Report, Tin Mstk Stock Details Report

    Vertical: Yes


    [Part: Tin Mstk Stock Head Report]


    Lines : Tin Mstk Stock Head Report



    [Line: Tin Mstk Stock Head Report]



    Fields : StockName12

    Local : Field : StockName12 : Set As : $Name
    Local : Field : StockName12 : Align : Centre
    Local : Field : StockName12 : FullWidth : Yes
    Local : Field : StockName12 : Border : Thin Bottom
    Local : Field : StockName12 : Invisible : $$IsEmptyCollection:TinMstkStockDetailsColl
    Local : Field : StockName12 : Quick Search : Yes

    NextPage: ##InNewPages


    [Part: Tin Mstk Stock Details Report]



    Lines : Tin Mstk Stock OB Report, Tin Mstk Stock Details Report, Tin Mstk Stock CB Report

    Repeat : Tin Mstk Stock Details Report : Tin Mstk Stock Details Coll





    [Line: Tin Mstk Stock OB Report]



    Use : Tin Mstk Stock Details Report
    Local: Field : Tin Mstkline : Set as:""
    LOCAL: Field : Tin Mstk Stock Vch Date:Set as:""
    Local: Field : Tin Mstk Stock Vch Particulars:Set as:""
    LOCAL: Field : Tin Mstk Stock Vch Type:Set as:""
    Local: Field : Tin Mstk Stock Vch No:Set as:""
    Local: Field : Tin Mstk Stock Vch RUN :Set as:IF $OpeningBalance>0 Then $OpeningBalance Else -$OpeningBalance
    Local: Field : Default : Style : Normal Italic
    Local: Field : Tin Mstk Stock Vch Particulars: Set As : "Opening Balance"
    Local: Field : Tin Mstk Stock Vch IN : Set As : IF $OpeningBalance>0 then $OpeningBalance else ""
    Local: Field : Tin Mstk Stock Vch OUT : Set As : IF NOT $OpeningBalance>0 then $OpeningBalance else ""



    [Line: Tin Mstk Stock Details Report]



    Fields : Tin Mstkline,Tin Mstk Stock Vch Date, Tin Mstk Stock Vch Particulars

    Right Fields: Tin Mstk Stock Vch Type, Tin Mstk Stock Vch No,Tin Mstk Stock Vch In,Tin Mstk Stock Vch Out,Tin Mstk Stock Vch Run
    Invisible : $$IsEmptyCollection:TinMstkStockDetailsColl

    [Field: Tin Mstkline]

    Use: Number Field
    Set as:$$Line

    [Field: Tin Mstk Stock Vch Date]

    Use : Uni Date Field
    Set As : $Date


    [Field: Tin Mstk Stock Vch Particulars]

    Use : Name Field
    Set As : $PartyLedgerName

    [Field: Tin Mstk Stock Vch Type]

    Use : Name Field
    Set As : $VoucherTypeName

    [Field: StockName12]

    Use : Name Field
    Set As : $Name
    Set Always:Yes



    [Field: Tin Mstk Stock Vch No]

    Use : Name Field
    Set As : $VoucherNumber

    [Field: TinMstkStockVchIn]

    Use : Number Field
    Set As :IF $$IsSales:$vouchERTYPENAME OR $$IsDebitNote:$VOUCHERTYPENAME THEN @@MSTK123 ELSE ""
    Set Always:Yes


    [Field: TinMstkStockVchOut]

    Use : Number Field
    Set As :IF $$IsSales:$vouchERTYPENAME OR $$IsDebitNote:$VOUCHERTYPENAME THEN "" ELSE @@Mstk123
    Set Always:Yes
    [Field: TinMstkStockVchRun]

    Use : Number Field
    Set As : IF $$Line=1 THEN #TinMstkStockVchOUT ELSE @@1RUN
    [Line: Tin Mstk Stock CB Report]

    Use : Tin Mstk Stock Details Report

    Local: Field: Default : Style : Normal Italic

    Local: Field: Tin Mstk Stock Vch Particulars: Set As : "Closing Balance"
    ;Local: Field: Tin Mstk Stock Vch Particulars: Inactive : $CLOSINGBALANCE
    Local: Field: Tin Mstk Stock Vch IN : Set As : IF $ClosingBalance<0 then "" else $CLOSINGBALANCE

    Local: Field: Tin Mstk Stock Vch OUT : Set As : IF NOT $ClosingBalance<0 then $CLOSINGBALANCE ELSE ""
    Border : Thin Top Bottom


    ;; Config Report Definition


    [Report: Tin_PrintInMultiplePages]


    Use : SV Print Configuration

    Form : SV Print Configuration

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


    [Part: Tin_PrintInMultiplePages]



    Lines : InNewPages

    Horizontal Align: Center


    ;; Collection Definition


    [Collection: Tin Mstk Stock Coll]



    Type : Stockitem

    ; Filter : VCS_Non Empty Ones


    [Collection: Tin Mstk Stock Details Coll]
    Source Collection: Vouchers of Stock Item;Tin Mstk Stock Coll


    Type : Vouchers : Stock Item

    Child Of: $Name
    Belongs To: Yes
    Walk:Inventoryentries

    Fetch : LedgerEntries.PartyLedgerName, Openingbalance.Stockitemname,Closingbalance.STOCKITEMNAME,LedgerEntries.LedgerName

    BY:OpeningBalance1: $$AsSignedQty:$OpeningBalance:mad:@Mstk
    Compute : IntQtyOpBal :$$AsSignedQty:$$GodownItemValue:mad:@MSTK:$StockItemName:$BILLEDQTY

    Aggr Compute: BilledQty1:Sum:$BILLEDQTY:STOCKITEM:$NAME

    [System: Formula]

    Tin_Non Empty Ones : NOT $$IsEmpty:$OpeningBalance OR NOT $$IsEmpty:$ClosingBalance OR $$NumItems:TinMstkStockDetailsColl > 0
    MStk : $StockItemName=$Name
    Mstk123:$$FilterValue:$BilledQty:InventoryEntries:1:mStk
    1Run:$ClosingBalance;$OPENINGBALANCE
    1Morerun: ($OpeningBalance+#TinMstkStockVchIN)-#TinMstkStockVchOUT
    1Runneeded: $CLOSINGBALANCE
    Filteremp:$$IsEmpty:#TinMstkStockVchOut AND $$IsEmpty:#TinMstkStockVchIn AND $$IsEmpty:$OpeningBalance
     


  2. Sanjeev S

    Sanjeev S Active Member


    Where ever there is quantity you either need to define field as qty field else in set as put $$Number: before Qty formula
     
    love likes this.


  3. love

    love Member


    tx @@sanjeev s for the reply
    but my problem still remains
    my problem is billed qty is fetching total qty(A+A+B+C items) in a invoice whereas i need to fetch only total qty with respect to single item
    like if total sales is 120 units but i want under A item($name) total qty 20(A+A) just like stock item vouchers report
     


Share This Page