Dear Experts, I found this code somewhere on net, Is it possible to explode...... Please Guide.... Code: [#Menu : Gateway Of Tally] Add : Key Item: "Item Wise Columnar Report": O: Display: Itemwisesummaryreport [Report : Itemwisesummaryreport] Form : Itemwisesummaryreport Printset : Report Title : "Item Wise Summarized Report" Title : "Stock Item Summarized Report" Variable : Sv Print Orientation:String Set : Svfromdate:$$Monthstart:##Svfromdate Set : Svtodate:$$Monthend:##Svcurrentdate Variable : Svfromdate, Svtodate [Form : Itemwisesummaryreport] Parts : Db Title,Aboutreport,Itemwisesummaryreport Local : Line : Db Title : Local : Field : Name Field: Set As : "Item Wise Columnar Report" Button : Printbutton, Exportbutton Button : Explodeflag,Changeperiod Key : ExplodeOnEnter,Bottomtoolbarbtn8,Bottomtoolbarbtn9,Bottomtoolbarbtn10 Set Always : Sv Print Orientation: "Landscape" [Part : Aboutreport] Lines : AuCompany, AuAddress, AuEmail, AuOtherDetails Invisible : $$Inprintmode [Line : AuCompany] Field : Aboutline1 [Field : Aboutline1] Use : Name Field Style : Large Bold Set As : $$String:$CmpMailName Align : Center Skip : Yes Width : 100% Screen [Line : AuAddress] Field : Aboutline2 [Field : Aboutline2] Use : Name Field Style : Normal Bold Set As : $$String:$CmpAddress Align : Center Skip : Yes Width : 100% Screen [Line : AuEmail] Field : Aboutline3 [Field : Aboutline3] Use : Name Field Style : Small Bold Set As : $$String:$CmpEMail Align : Center Skip : Yes Width : 100% Screen [Line : AuOtherDetails] Field : Aboutline4 [Field : Aboutline4] Use : Name Field Style : Small Bold Set As : "" Align : Center Skip : Yes Width : 100% Screen [Part : Itemwisesummaryreport] Lines : Itemwisesummaryreportt, Itemwisesummaryreport Bottom Line : Itemwisesummaryreporttotal Repeat : Itemwisesummaryreport : Inoutclsalpursitemcoll Scroll : Vertical Common Borders : Yes Total : Inoutclsalpuropqty, Stockjournalproduction,Inoutclsalpurinqty,Creditpurchase,Salereturninoutclsalpur,Recnoteinoutclsalpur,Delnoteinoutclsalpur,Purchasereturninoutclsalpur,Inoutclsalpurconsqty,Inoutclsalpurprodqty, Inoutclsalpuroutwqty, Inoutclsalpurclosqty [Line : Itemwisesummaryreporttotal] Use : Itemwisesummaryreport Local : Field : Default : Type : String Local : Field : Default : Align : Right Local : Field : Default : Style : Normal ;Local : Field : Default : Lines : 0 Local : Field : Inoutclsalpuritemname : Align : Center Local : Field : Inoutclsalpuritemname : Set As : "Gross Total" Local : Field : Inoutclsalpuritemname : Style : Normal Local : Field : Inoutclsalpuropqty : Set As : $$Total:Inoutclsalpuropqty Local : Field : Stockjournalproduction : Set As : $$Total:Stockjournalproduction Local : Field : Inoutclsalpurinqty : Set As : $$Total:Inoutclsalpurinqty Local : Field : Creditpurchase : Set As : $$Total:Creditpurchase Local : Field : Salereturninoutclsalpur : Set As : $$Total:Salereturninoutclsalpur Local : Field : Recnoteinoutclsalpur : Set As : $$Total:Recnoteinoutclsalpur Local : Field : Delnoteinoutclsalpur : Set As : $$Total:Delnoteinoutclsalpur Local : Field : Purchasereturninoutclsalpur : Set As : $$Total:Purchasereturninoutclsalpur Local : Field : Inoutclsalpurconsqty : Set As : $$Total:Inoutclsalpurconsqty Local : Field : Inoutclsalpurprodqty : Set As : $$Total:Inoutclsalpurprodqty Local : Field : Inoutclsalpuroutwqty : Set As : $$Total:Inoutclsalpuroutwqty Local : Field : Inoutclsalpurclosqty : Set As : $$Total:Inoutclsalpurclosqty Local : Field : Inoutclsalpurclosqty : Style : Normal Border : Totals [Line : Itemwisesummaryreportt] Use : Itemwisesummaryreport Local : Field : Default : Type : String Local : Field : Default : Align : Center Local : Field : Default : Style : Normal Local : Field : Default : Lines : 3 Local : Field : Inoutclsalpuritemname : Align : Center Local : Field : AuSrNo : Set As : "Sr.No." Local : Field : Inoutclsalpuritemname : Set As : "Item Name" Local : Field : Inoutclsalpuritemname : Style : Normal Local : Field : Inoutclsalpuropqty : Set As : "Opening Stock" Local : Field : Stockjournalproduction : Set As : "Stock Journal Production" Local : Field : Inoutclsalpurinqty : Set As : "Cash Purchase" Local : Field : Creditpurchase : Set As : "Credit Purchase" Local : Field : Salereturninoutclsalpur : Set As : "Sales Return" Local : Field : Recnoteinoutclsalpur : Set As : "Receipt Note" Local : Field : Delnoteinoutclsalpur : Set As : "Delivery Note" Local : Field : Purchasereturninoutclsalpur : Set As : "Purchase Return" Local : Field : Inoutclsalpurconsqty : Set As : "Stock Journal Consumption" Local : Field : Inoutclsalpurprodqty : Set As : "Credit Sales" Local : Field : Inoutclsalpuroutwqty : Set As : "Cash Sales" Local : Field : Inoutclsalpurclosqty : Set As : "Closing Stock" Border : Thin Top Bottom [Line : Itemwisesummaryreport] Fields : AuSrNo,Inoutclsalpuritemname, Inoutclsalpuropqty,Stockjournalproduction,Inoutclsalpurinqty,Creditpurchase,Salereturninoutclsalpur,Recnoteinoutclsalpur,Delnoteinoutclsalpur,Purchasereturninoutclsalpur,Inoutclsalpurconsqty,Inoutclsalpurprodqty, Inoutclsalpuroutwqty, Inoutclsalpurclosqty Repeat : Inoutclsalpurclosqty Option : Alteronenter [Field : Inoutclsalpuritemname] Use : Name Field Style : Normal Width : If $$Inprintmode Then 15 Else 28 Maximum : 50 Set As : $Name [Field : Inoutclsalpuropqty] Use : Qty Primary Field Style : Normal Format : "No Zero" Set As : $Auopqty Border : Thin Left Right Scroll : Yes Display : Stock Summary Width : If $$Inprintmode Then 10 Else 8 [Field : Inoutclsalpurinqty] Use : Qty Primary Field Style : Normal Set As : $Aupurcqty Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 [Field : Creditpurchase] Use : Qty Primary Field Style : Normal Set As : $Aupurcqtycredit Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 [Field : Stockjournalproduction] Use : Qty Primary Field Style : Normal Set As : $AuAuaninqty Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 [Field : Salereturninoutclsalpur] Use : Qty Primary Field Style : Normal Set As : $Salesreturninoutclsalpur Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 [Field : Recnoteinoutclsalpur] Use : Qty Primary Field Style : Normal Set As : $Recnote Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 [Field : Inoutclsalpurconsqty] Use : Qty Primary Field Style : Normal Set As : $AuAuanoutqty Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 Color : Blue [Field : Purchasereturninoutclsalpur] Use : Qty Primary Field Style : Normal Set As : $Purchasereturninoutclsalpur Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 Color : Blue [Field : Delnoteinoutclsalpur] Use : Qty Primary Field Style : Normal Set As : $Delnote Border : Thin Right Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 Color : Blue [Field : Inoutclsalpurprodqty] Use : Inoutclsalpurinqty Style : Normal Set As : $Ausaleqtynoncash Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 Color : Blue [Field : Inoutclsalpuroutwqty] Use : Inoutclsalpurinqty Style : Normal Set As : $Ausaleqty Format : "No Zero" Width : If $$Inprintmode Then 10 Else 8 Color : Blue [Field : Inoutclsalpurclosqty] Use : Inoutclsalpurinqty Set As : $Auclqty Format : "No Zero" Delete : Border Style : Normal Width : If $$Inprintmode Then 10 Else 8 Color : Red [Collection : Inoutclsalpurvoucher Collection] Type : Voucher [Collection : Inoutclsalpursitemcoll] Source Collection : Inoutclsalpurvoucher Collection Walk : All Inventory Entries By : Name : $Stockitemname Aggr Compute : Aupurcqty : Sum: If @@Inoutclsalpurpurcvr And @@Cashfil Then $Billedqty Else 0 Aggr Compute : Aupurcqtycredit : Sum: If @@Inoutclsalpurpurcvr And @@Noncashfil Then $Billedqty Else 0 Aggr Compute : Ausaleqty : Sum: If @@Inoutclsalpursalevr And @@Cashfil Then $Billedqty Else 0 Aggr Compute : Ausaleqtynoncash : Sum: If @@Inoutclsalpursalevr And @@Noncashfil Then $Billedqty Else 0 Aggr Compute : Purchasereturninoutclsalpur : Sum: If @@Purchasereturnvoucher Then $Billedqty Else 0 Aggr Compute : Salesreturninoutclsalpur : Sum: If @@Salesreturnvoucher Then $Billedqty Else 0 Aggr Compute : Recnote : Sum: If @@Recieptnotestock Then $Billedqty Else 0 Aggr Compute : Delnote : Sum: If @@Deliverynotestock Then $Billedqty Else 0 Aggr Compute : AuAuanoutqty : Sum: If @@Inoutclsalpurstockjrnlvr And Not $$Isinwards:$Billedqty Then $Billedqty Else 0 Aggr Compute : AuAuaninqty : Sum: If @@Inoutclsalpurstockjrnlvr And $$Isinwards:$Billedqty Then $Billedqty Else 0 Compute : Auclqty : $Stkclbalance:Stockitem:$Stockitemname Compute : Auopqty : $Stkopbalance:Stockitem:$Stockitemname Compute : Auclvalue : $Tbalclosing:Stockitem:$Stockitemname Compute : Auopvalue : $Tbalopening:Stockitem:$Stockitemname Sort : @@Sortalphaincr : $Name [System : Formula] Cashfil : $$Isledofgrp:$Partyledgername:$$Groupcash Or $$Isledofgrp:$Partyledgername:$$Groupbank Noncashfil : Not $$Isledofgrp:$Partyledgername:$$Groupcash Or $$Isledofgrp:$Partyledgername:$$Groupbank Inoutclsalpurpurc Vr : $$Ispurchase:$Vouchertypename Purchasereturnvoucher : $$Isdebitnote:$Vouchertypename Salesreturnvoucher : $$Iscreditnote:$Vouchertypename Inoutclsalpursale Vr : $$Issales:$Vouchertypename Inoutclsalpurstock Jrnl Vr : $$Isstockjrnl:$Vouchertypename Recieptnotestock : $$Isrcptnote:$Vouchertypename Deliverynotestock : $$Isdelnote:$Vouchertypename
yes possible. What you need to explode add it to the BODY line .... for the explode part, make your collection of data that you need.
Sir, Am not able to buid logic…… Which factors i have to build… Viz - collection, formula and variable.
Hi Amit Sir trying with some jugad but facing two problems 1 - Dirctly opening in full explode mode and enter to explode command is not working. 2 - Not able to build logic of condition in collection for totals. please guide
Yes ... You can with condition and without condition too. Study -- Line: DSP VchAccDetail in Developer