PROBLEM TO EXPLODED DATA PLEASE HELP US

Discussion in 'Free Source Codes' started by SURENRA, Nov 3, 2016.

    
  1. SURENRA

    SURENRA New Member


    Dear Tdl Experts,
    I make report Stock Group Party wise sales report and I have add exploded part in stock group line it show all group item and not get amount of that particular item please help us in exploded part collection.


    please correct my code.
    Below is my code.
    Code:
    [#Menu : Gateway Of tally]
    
    Key Item: ITEM GROUP PARTY SALE        : I : Display            :PARTYITEMWISEREPORTBYsurendra
    
    
    [Report:PARTYITEMWISEREPORTBYsurendra]
        Use        : DSP Template
        Title           : "PARTY GROUP LEDGER WISE REPORT"
        Variable         : SV Print Orientation : String
        Form        :PARTYITEMWISEREPORTBYsurendra
        Variable        : DoSetAutoColumn, StockItemNameRepeat
        Repeat        : StockItemNameRepeat
        Set         : DoSetAutoColumn         : Yes
        Set        : DSPRepeatCollection    : "Item Name Repeat Coll"
        Set                 : SVFromDate              : $$MonthStart:##SVFromDate
        Set                 : SVToDate                 : $$MonthEnd:##SVCurrentDate
    
    [Form:PARTYITEMWISEREPORTBYsurendra]
    
        Use        : DSP Template
        Parts        :PQWSTitle,PQWSPeriod,PARTYITEMWISEREPORTBYsurendra
        Button    : ExplodeFlag,ChangePeriod
        Bottom Toolbar Buttons    : EnterToEdit,BottomToolBarBtn8,BottomToolBarBtn9,BottomToolBarBtn10
        Option        : Set Auto Vch Option     : ##DoSetAutoColumn AND $$SetAutoColumns:StockItemNameRepeat
          Set Always : SV Print Orientation : "Landscape"
    Width        : 100% Page
        Space Left    : 2 mms
         Space Right    : 2 mms
    
    
    [Key: EnterToEdit]
        Key         : Enter
        Title       : $$LocaleString:"Explode"
        Type        : BottomToolBarBtn2   
        Action      : Explode
    
    
    [Part:PQWSTitle]
        Line    : PQWSTitle
        Horizontal Align    : Center
       
    [Part:PQWSPeriod]
        Line    : PQWSPeriod
       
    [Line:PQWSTitle]   
        Field    : Simple Field   
        Local        : Field    : Simple Field    : Style    : Large Bold
        Local        : Field    : Simple Field    : Info    : "PARTY QUALITY WISE TOTAL SALES AMOUNT"
        Local        : Field    : Simple Field    : Border: Thin Bottom
        Local        : Field    : Simple Field    : Align    : Center
       
    [Line:PQWSPeriod]
        Right Field    : Name Field
        Local        : Field    : Name Field    : Info    : @@DSPDateStr
        Local        : Field    : Name Field    : Width    : 60
        Local        : Field    : Name Field    : Align    : Right
    
    
    
    
    
    
    
    
    
    
    [!Form: Set Auto Vch Option]
    
    [Part:PARTYITEMWISEREPORTBYsurendra]
    
        Lines        :PARTYITEMWISEREPORTBYsurendra Title,PARTYITEMWISEREPORTBYsurendra Details
        BottomLines    :PARTYITEMWISEREPORTBYsurendra Total
        Repeat        :PARTYITEMWISEREPORTBYsurendra Details        : Party Name Repeat
        Scroll        : Vertical
        CommonBorder: Yes
        Total        :PARTYITEMWISEREPORTBYsurendra Party,PARTYITEMWISEREPORTBYsurendra Col Total
    
        [Line:PARTYITEMWISEREPORTBYsurendra Title]
    
            Use        :PARTYITEMWISEREPORTBYsurendra Details
    
            Local    : Field    : Default            : Type        : String
            Local    : Field    : Default            : Align        : RIGHT
    Local    : Field    : PGWSSno    : Set as     : "SNO"
        Local    : Field    : PGWSSno    : Border     : Thin Left Right
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : Set as    : "PARTY NAME"
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : ALIGN    : LEFT
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : Widespaced: Yes
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Party        : Set as    : ##StockItemNameRepeat
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Party        : Lines    : 0
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra ColTotal        : Set as    : "Total"
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra ColTotal        : Border     : Thin Left Right
            Border    : COLUMN TITLES
           
    
        [Line:PARTYITEMWISEREPORTBYsurendra Details]
    
            Fields    :PGWSSno,PARTYITEMWISEREPORTBYsurendra Name,PARTYITEMWISEREPORTBYsurendra Party,PARTYITEMWISEREPORTBYsurendra Col Total
            Repeat    :PARTYITEMWISEREPORTBYsurendra Party
            Total    :PARTYITEMWISEREPORTBYsurendra Party
            Explode    : PIMDExplodee    : ($$KeyExplode OR ##ExplodeFlag)    ; problem in exploding
    
    
    [Part:PIMDExplodee]
        Line    : PIMDExplodee
        Repeat    : PIMDExplodee:PIMDPartyExplodee
        Border    : Thin Bottom
    
    
    
       
    [Line:PIMDExplodee]
    Use        :PARTYITEMWISEREPORTBYsurendra Details
    
            Local    : Field    : Default            : Type        : String
            Local    : Field    : Default            : Align        : RIGHT
    Local    : Field    : PGWSSno    : Set as     : ""
        Local    : Field    : PGWSSno    : Border     : Thin Left Right
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : Set as    : $stockitemexp
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : ALIGN    : LEFT
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Party        : Set as    : $$ReportObject:$$CollectionFieldByKey:$Amount:@MyFormulaa:SalesVoucherPartyItemWiseTotalAmountCollexp
       
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra ColTotal        : Set as    :  $$Total:PARTYITEMWISEREPORTBYsurendraParty
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra ColTotal        : Border     : Thin Left Right
    
    [system : formula]
    MyFormulaa    : ##StockItemNameRepeat + #PARTYITEMWISEREPORTBYsurendraNam       
    
    [Field:PGWSSno]
        Use        : NUMBER FIELD
        Set as    : $$Line
         Width : if $$inprintmode then 5 else 4
        Align    : Center
        Border    : Thin Left Right
    
            [Field:PARTYITEMWISEREPORTBYsurendra Name]
    
                Use            : Name Field
                Set as        : $PartyLedgerRepeatNew
               
                Variable    : Stock Item Name
               
               
    
            [Field:PARTYITEMWISEREPORTBYsurendra Party]
    
                Use            : Amount Field
                Set as        : $$ReportObject:$$CollectionFieldByKey:$Amount:@MyFormula:SalesVoucherPartyItemWiseTotalAmountColl
                MyFormula    : ##StockItemNameRepeat + #PARTYITEMWISEREPORTBYsurendraName
                Format        : "NoZero"
                Border        : Thin Left
    
            [Field:PARTYITEMWISEREPORTBYsurendra Col Total]
    
                Use            : Amount Field
                Set as        : $$Total:PARTYITEMWISEREPORTBYsurendraParty
                Border        : Thin Left RIGHT
    
        [Line:PARTYITEMWISEREPORTBYsurendra Total]
    
            Fields    :PGWSSno,PARTYITEMWISEREPORTBYsurendra Name,PARTYITEMWISEREPORTBYsurendra Party,PARTYITEMWISEREPORTBYsurendra Col Total
            Repeat    :PARTYITEMWISEREPORTBYsurendra Party
    
            Local    : Field    : Default            : Type        : String
            Local    : Field    : Default            : Align        : RIGHT
            Local    : Field    :PGWSSno        : Set as    : ""
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : Set as    : "Total"
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : ALIGN    : LEFT
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Name        : Widespaced: Yes
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra Party        : Set as    : $$Total:PARTYITEMWISEREPORTBYsurendraParty
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra ColTotal        : Set as    : $$Total:PARTYITEMWISEREPORTBYsurendraColTotal
            Local    : Field    :PARTYITEMWISEREPORTBYsurendra ColTotal        : Border     : Thin Left Right
            Border    : TOTALS
           
    
    [Collection: SALES VOUCHER COLL]
    
        Type        : Voucher
        Filter        : SalesVoucherFilter
      
    
    [Collection: SalesVoucherPartyItemWiseTotalAmountColl]
    
        Source Collection    : SALES VOUCHER COLL
    
        Walk                : Inventory Entries
        By                    : StockItemNameRepeat            : $PartyLedgerName            
        By                    : PartyLedgerRepeatNew            : $Parent:STOCKITEM:$StockItemName          
        Aggr Compute        : Amount        : SUM    : $Amount
    
        Search Key            : $StockItemNameRepeat + $PartyLedgerRepeatNew
    
    ; exploded part collection
    
    [Collection: SalesVoucherPartyItemWiseTotalAmountCollEXP]
    
        Source Collection    : SALES VOUCHER COLL
    
        Walk                    : Inventory Entries
        By                    : StockItemNameRepeat            : $PartyLedgerName  
        By                    : PartyLedgerRepeatNew            : $Parent:STOCKITEM:$StockItemName            
        By                    : StockItemexp                : $StockItemName          
        Aggr Compute        : Amount        : SUM    : $Amount
    
        Search Key            : $StockItemNameRepeat + $StockItemexp
    
    
    [Collection: Party Name Repeat]
    
        Source Collection    : SALES VOUCHER COLL
    
        Walk                : Inventory Entries
        By                    : PartyLedgerRepeatNew            :  $Parent:STOCKITEM:$StockItemName         
        Aggr Compute        : Amount        : SUM    : $Amount
    
       
    [Collection: Item Name Repeat Coll]
    
        Source Collection    : SALES VOUCHER COLL
    
        Walk                : Inventory Entries
        By                    : StockItemNameRepeat            :   $PartyLedgerName   
        Aggr Compute        : Amount        : SUM    : $Amount
    
    
    
    ; explode collection
    
    [Collection: PIMDPartyExplodee]
        Source Collection    : SALES VOUCHER COLL
    
        Walk                : Inventory Entries
        By                    : PartyLedgerRepeatNew            :  $Parent:STOCKITEM:$StockItemName
        By                    : StockItemexp                :   $StockItemName
        Aggr Compute        : Amount        : SUM    : $Amount
    
        
    
    [Variable: StockItemNameRepeat]
       
        Type        : String
        Repeat        : ##DSPRepeatCollection
    
    [System: Formula]
    
        SalesVoucherFilter    : $$IsSales:$VoucherTypeName
        
    
    
     


  2. SURENRA

    SURENRA New Member


    Dear Experts,
    PLease help me in above code, exploded part not work in search key function please help me to correct this code.
     


  3. Neha19

    Neha19 Member


    hello did you find solution regarding explode part ???
     


Share This Page