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
Good work but pcs total and quantity total not comming and it is not working in batch qty and if actual qty is diff from bill qty
Vaibhav your code is working good but I need to do the same in batch but am not getting it Can you make changes in your code so that I can do the same in batch
sir i am not good in tdl, mujhe ye tdl banane mein kafi time laga, jabki ye simple tdl hai, and i have no idea about batch in tally , so sorry i can't help you in this meter, here are many experts , balki mujhe khusi hi hogi agar koi isko aur imrove karke iski coding yaha par post karta hai
lets hope so i am too like you i am not professional one did just for my requirement and am ready to help some one who need