I want extra column in sales and purchase invoice ...Please make a TDL

please help

 

[#Line: EI ColumnOne]

Option : Global EI ColumnOne : $vouchertypename equal "patients bill"

[!Line: Global EI ColumnOne]
Option : Global EI ColumnOne : $vouchertypename CONTAINS "patients bill"
Add : Right Fields : At Beginning : doctor fees, ref89,ku,ku18

;;Need to mention Right Fields, since just Field means Left Field
;;and we need “NumPack” Column to the right of the screen at beginning

Local : Field : Default : Align : Center

Local : Field : doctor fees : Info : "Doctor Fees"
Local : Field : ref89: Info : "% ref"
Local : Field : ku : Info : "Total Fees"
Local : Field : ku18 : Info : "HSN code"
[#Line: EI ColumnTwo] ;; Invoice Column Headings1 without clas

Option : Global EI ColumnTwo : $vouchertypename CONTAINS "patients bill"

[!Line: Global EI ColumnTwo]

Add : Right Fields : At Beginning : doctor fees, ref89,ku,ku18

Local : Field : Default : Align : Center

Local : Field : doctor fees : Info : ""
Local : Field : ref89 : Info : ""

[Line: EI ColumnTwo1] ;; Invoice Column Headings1 without class

Option : Global EI ColumnTwo : $vouchertypename CONTAINS "patients bill"

[Line: Global EI ColumnTwo1]
Option : Global EI ColumnTwo : $vouchertypename CONTAINS "patients bill"
Add : Right Fields : At Beginning : doctor fees, ref89,ku,ku18
Local : Field : Default : Align : Center

Local : Field : doctor fees : Info : ""
Local : Field : ref89 : Info : ""
Local : Field : ku : Info : ""

[Line: EI ColumnTwo12] ;; Invoice Column Headings1 without class

Option : Global EI ColumnTwo : $vouchertypename CONTAINS "patients bill"

[Line: Global EI ColumnTwo12]
Option : Global EI ColumnTwo : $vouchertypename CONTAINS "patients bill"
Add : Right Fields : At Beginning : doctor fees, ref89,ku,ku18
Local : Field : Default : Align : Center

Local : Field : doctor fees : Info : ""
Local : Field : ref89 : Info : ""
Local : Field : ku : Info : ""




[#Line: EI InvDetails]

Option : Global EI InvDetails : $vouchertypename CONTAINS "patients bill"


[!Line: Global EI InvDetails]

Delete : Lines : EI Marks, EI NumPackages

[#Line: CI InvDetails]

Option : Global CI InvDetails : $vouchertypename CONTAINS "patients bill"


[!Line: Global CI InvDetails]

Delete : Lines : CI MarksPackages

[#Line: EI InvInfo] ;; Invoice Inventory Entries without Class

Option : Global EI InvInfo : @@Issales
[#Line: CI InvInfo] ;; Invoice Inventory Entries with Class

Option : Global EI InvInfo : @@Issales
[!Line: Global EI InvInfo]

Add : Right Fields : At Beginning : doctor fees, ref89,ku,ku18
Local : Field : doctor fees : Storage : doctorfees
Local : Field : ref89 : Storage : ref89
Local : Field : ku : Storage : ku
Local : Field : ku18 : Storage : ku18
[System: UDF]

doctor fees : number : 11101
ref89 : number : 11102
ku : amount : 11103
ku18 : number : 11104


[Field: doctor fees]

Use : number field
Width : 8
Align : Right
Border : Thin Left Right








[Field: ref89]

Use : number field
Width : 12
Align : Right
Border : Thin Left Right


[Field: ku]

Use : amount field
Width : 12
Align : left
Border : Thin Left Right


set as: (($amount-#doctorfees)*#ref89)/100
Skip : Yes

[Field: ku18]

Use : Number field
Width : 12
Align : left
Border : Thin Left Right





[System: UDF]
arra1ty: String: 1092


[#Part: EI BaseInfo]
Option: arraty: $$Issales:##SVVoucherType


[!Part: arraty]
Add: Line: arra1ty


[Line: arra1ty]



Fields : Medium Prompt, CostCentreName2ty
Local : Field : Medium Prompt : Info : $$LocaleString:"D Amount"

[Field: Cost Centre Name2ty]

Use : numberField
set as :$$CollNumTotal:InventoryEntries@NumPackMarks1+$$CollNumTotal:InventoryEntries@NumPackMarks
Storage: arra1258ty
Skip : Yes

[System: UDF]
arra1ty1: String: 1093

[#Part: EI BaseInfo]
Option: arraty1: $$Issales:##SVVoucherType


[!Part: arraty1]
Add: Line: arra1ty1


[Line: arra1ty1]



Fields : Medium Prompt, CostCentreName2ty1
Local : Field : Medium Prompt : Info : $$LocaleString:"Hos Amount"

[Field: Cost Centre Name2ty1]

Use : numberField
set as :$amount-$$CollNumTotal:InventoryEntries@NumPackMarks+$$CollNumTotal:InventoryEntries@NumPackMarks1
Storage: arra1258ty1
Skip : Yes



[System: Formula]
NumPackMarks : $$Number:$ref89
NumPackMarksTotal2 : $$CollNumTotal:InventoryEntries@NumPackMarks

[System: Formula]
NumPackMarks1 : $$Number:$ku
NumPackMarksTotal3 : $$CollNumTotal:InventoryEntries@NumPackMarks1

 

This TDL is not working in Tally.ERP9 Rel 4.93... will u provide me screen shot