share the code and also check for the quantity because ur total quantity does not match the no of pices
Very True..... and that should be a great motivation for you to make it much better TDL......... Kindly let us know when you are able to make it better. Any problems/ queries, we will help out during the time you are coding. I also do the same and make and build my TDLs much better and robust and for ease of use. And I hope you will be making it better for all of us. Keep us updated.
i have already doing work or such a project but problem aries to me too nett wett is not getting in bill quality [Field : vch nettwett] Type : Amount:Forced Use : Amount Field Align : Right Set as : $$CollectionField:$NETTqty:1:BatchAllocations Set always : Yes Inactive : $$IsEnd:$StockItemName Storage : NETTqty skip : yes ;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [#Object: Inventory Entry] StkDimension: $NETTqty [#Field: VCH ActualQty] Option : Diff VCH Qty : $DiffActualQty [#Field: VCH BilledQty] Switch : VCHActualQuantity : Diff VCH Qty : NOT $DiffActualQty [!Field: Diff VCH Qty] Set as : $StkDimension Set Always : Yes [#Field: VCHBATCH ActualQty] Switch : VCHBatchQuantity: Diff VCHBATCH Qty : $DiffActualQty [#Field: VCHBATCH BilledQty] Switch :VCHBATCH NrmlBQty : Diff VCHBATCH Qty : NOT $DiffActualQty [!Field: Diff VCHBATCH Qty] Set as : $$Owner:$StkDimension Type : Quantity : Forced ;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [System: UDF] EIgrossqty: amount:10000 lessqty : amount:10001 NETTQTY : amount : 10002 itemmarka : string : 10003 [#Field: VCHBATCH BilledQty] Set as : $$CollectionField:$NETTqty:1:BatchAllocations
send dummy tally data . ....... with screenshot explanations and TDL to nehalsofttech@gmail.com will have a look within a week.
i have already worked its on and my code is Code: ;:::::::::::this tdl for Meter Wise Detail in Tally;;;;;;;;;;;;;;;; ;;;;Version 1.01""""""" ;;;make correcton of always prints mtr ;;;;;;:::::::Add Field in Item Creation for Yes or No [#Part: LEDNotes] Add:Lines:Total Meter Detail VAibhav [#Part: STKI Desc] Add:Lines:Total Meter Detail VAibhav [Line:Total Meter Detail VAibhav] Fields:Medium Prompt,Total Meter Detail VAibhav Local:Field:Medium Prompt:Info:"Total Meter Detail?" [Field:Total Meter Detail VAibhav] Use:Logical Field Storage:IsMultiMeterDetail ;;;;;;;;;Add Sub forum after Stock Item Name [#Field : VCHACC StockItem] Add : SubForm : Meterwisereport :($IsMultiMeterDetail:StockItem:$StockItemName); and NOT :$StockItemName) [report : Meterwisereport] form : Meterwiseform [Form: Meterwiseform] Part : MeterwisePart1,MeterwisePart2 Width : 25% Page Height : 60% Page Vertical Align : Centre [Part: MeterwisePart1] Line : VmeterTitle, VmeterDetail Repeat : VmeterDetail : Vmeter Break On : $$IsEmpty:$Vmeter Scroll : Vertical Total : Vmeterwise,Vtotalthancount [Line: VmeterTitle] Fields : Form Subtitle Local : Field : Form SubTitle : Set as : "Please Enter Meters wise Detail" Space Bottom : 1 [Line: VmeterDetail] Field : VthanNo, Vmeterwise,VUnitsStock,Vtotalthancount [Field: VthanNo] Use : Number Field Width : 4 Set as : $$Line Skip : Yes Storage : vaibhTotalthan [Field: Vmeterwise] Use : Amount Field Storage : Vmeter [Field: VUnitsStock] Width : 4 Set as: $BaseUnits:StockItem:$StockItemName Skip : Yes [Field: Vtotalthancount] Use : Number Field Width : 4 Set as : "1" Skip : Yes Invisible:Yes [Part: MeterwisePart2] Line : totalmeter [Line: totalmeter] Field : CVeha,CVeha1 [Field: CVeha] Border : Totals Set As :$$Total:Vmeterwise Width : 4 Use : Amount Field Storage : VmeterTotal Skip:Yes [Field: CVeha1] Border : Totals Set As :$$Total:Vtotalthancount; - 1 Width : 4 Skip:Yes [System: UDF] Vmeter : Amount: 700 vaibhTotalthan:Number:900 IsMultiMeterDetail:Logical:1000 VmeterTotal: Amount: 1100 vaibhTotalthancounts:Number:1101 [#Field: VCH BilledQty] ;;;;;;;Its in Vocher Creation "VCH BilledQty" Field to set ResetVal :If $$IsEmpty:$VmeterTotal Then $$Value else $VmeterTotal [#Field: EXPINV Desc] Set as: If $$IsEmpty:$Vmeter Then $StockItemName else If $$IsEmpty:$BasicUserDescription then $StockItemName + $$NewLine+ $BaseUnits:StockItem:$StockItemName +"="+ $$FullList:TSPL:$Vmeter else $StockItemName + "(" + $$FullList:BasicUserDescription:$BasicUserDescription + ")" + $$NewLine+$BaseUnits:StockItem:$StockItemName+ "="+ $$FullList:TSPL:$Vmeter Style : Normal Bold Cells : @@ExcelItemColumn [Collection: TSPL] Type : Vmeter : Stock Item Child of : #VCHStockItem [*Part: EI DescExplosion] Option : EIDescExplosion0 : not $$InPrintMode Option : EIDescExplosion1 : $$InPrintMode [!Part: EI DescExplosion0] Line : EI DescExplosion Repeat : EI DescExplosion : BasicUserDescription BreakOn : $$IsEmpty:$BasicUserDescription Scroll : Vertical [!Part: EI DescExplosion1] Line : EI DescExplosion1 [Line: EI DescExplosion1] Fields : EI Desc1 Indent : If $$InPrintMode Then 5 Else 2 Option : EI DescExplosion Excel : $$InExportMode AND @@IsExcelFormat ;Explode : MeterwisePart1 : $$NumItems:Vmeter > 0 ;new line [Field: EI Desc1] Use : Narration Field Alignment:Justified Style : Small Italic Info : If $$IsEmpty:$Vmeter Then $$FullList:BasicUserDescription:$BasicUserDescription else "" Cells : @@ExcelItemColumn ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Line : EI Column One] ;; Title Line1 Add : Right Fields: Before : VCH QtyTitle : VCS SI Piece Title [#Line : EI Column Two] ;; Title Line2 Add : Right Fields: Before : VCH ActualQtyTitle : VCS SI Piece Title Local : Field : VCS SI Piece Title : Set As : "" [Field : VCS SI Piece Title] Use : Name Field Width : 6 Skip : Yes Set As : "Pcs" [#Line : EI Inv Info] ;; Inventory Repeat Line - - With out Class Add : Right Fields: Before : VCH ActualQty : VCS SI Piece [#Line : CI Inv Info] ;; Inventory Repeat Line - - With Class Add : Right Fields: Before : VCH ActualQty : VCS SI Piece [Field : VCS SI Piece] Use : Number Field ;set as : $$String:@@NumNumPack Storage : VCS SI Piece Width : 6 Format : "No Zero" [#Part: EI InvInfo] ;; Part Where Inventory ENtries are repeating - With out Class Total : VCS SI Piece [#Part: CI InvInfo] ;; Part Where Inventory ENtries are repeating - Class Mode Total : VCS SI Piece [#Form : Export Invoice] Local : Line : VCH NarrPrompt : Add : Right Fields : Before : EI QtyTotal : VCS SI Piece Total [Field : VCS SI Piece Total] Use : Number Field Set As : $$Total:VCSSIPiece Width : 6 Border : Totals Skip : Yes [System : UDF] VCS SI Piece : Number : 5000 ;; Print [#Line: EXPINV Column1] Add : Right Field : Before : EXPINV QtyTitle : VCS SI Piece Title [#Line : EXPINV Column2] Add : Right Field : Before : EXPINV ActualQtyTitle : VCS SI Piece Title Local : Field : VCS SI Piece Title : Set As : "" Local : Field : VCS SI Piece Title : Border : Thin Left Local : Field : VCS SI Piece Title :Scroll : Yes [#Line : EXPINV InvDetails] Add : Right Field : Before : EXPINV ActualQty : VCS SI Piece Print [#Line: EXPINV Totals] Add : Right Field : Before : EXPINV ActualQtyTotal : VCS SI Piece Print Total [#Part: EXPINV InvInfo] Total : VCS SI Piece Print [Field : VCS SI Piece Print] Use :Number Field Set As : $VCSSIPiece Width : 5 ;Border : Thin Left Format : "No Zero" Scroll : No [Field : VCS SI Piece Print Total] Use : Number Field Set As : $$Total:VCSSIPiecePrint ;Width : 6 ;Border : Thin Left Format : "No Zero" Scroll : No ;;;;to print a line [#Line: EXPINV InvDetails] Border : Thin Bottom
