Blog

Sometime when we use Tally and need corrections for previous entries. When we wrongly entered voucher type and want to change it. But changing any voucher one by one, takes more time and going through lengthy process. And same if we want to change voucher numbering automatic to manual then our automatic voucher numbering gone blank. If you required change voucher type along with voucher numbering automatic to manual, then you are in right place. Now we can change voucher type and voucher number system in bulk with this free tally TDL. With this free Tally Prime TDL and Tally ERP9 TDL we can change voucher types and voucher numbering in bulk in few seconds.

How to Use:

• Copy the below Tally TDL Code and make a Text file
• Load in Tally ERP9 or in Tally Prime (Method provided below)
• Now go to Daybook, You will find Two extra buttons in right side toolbar (Change Voucher Type and Change Voucher Numbering)
• Use Voucher type changer button to change voucher type and Voucher numbering button to change voucher numbering Automatic to Manual.

This is best free TDL to have in your Tally . Must have TDL file for Tally ERP9 and Tally Prime that can use for lifetime. This free TDL Code will perfectly work with Tally Prime.

TDL Code:

[#Form: Day Book]
Add: Button: LWVchtypeCh,LWVCHManual
[Button: LWVchtypeCh]
Title: "Change Voucher Type"
Key: CTRL+z
Action List : LWVchtypecc, LWVchtypecz
[Button: LWVchtypecc]
Key:CTRL+z
Action: Alter: LWVchtypecznew
[Button: LWVchtypecz]
Key: CTRL+z
Action: Call : LWfunced
[Function: LWfunced]
Variable : MSTID : String
100 : WALK COLLECTION : LWcollevc
120 : SET : MSTID : "ID:"+ $$String:$MasterID
130 : NEW OBJECT : Voucher : ##MSTID
140 : SET TARGET : LedgerEntries[1]
160 : SET VALUE : VoucherTypeName : #LWVchtypecznew
170 : SET TARGET : ..
180 : SET TARGET : ..
190 : ACCEPT ALTER
200 : END WALK
[Collection: LWcollevc]
Data Source : Report : Selected
Fetch : All Ledger Entries
[Report: LWVchtypecznew]
Title : "Change Voucher Type"
Form : LWVchtypecc
Auto : Yes
[Form: LWVchtypecc]
Part : LWVchtypecc
Width: 25% Screen
Height: 8% Screen
[Part: LWVchtypecc]
Line: LWvchnew
[Line: LWvchnew]
Field : Long Prompt , LWNewvchtype
Local : Field: Long Prompt : Set As: "Choose New Voucher Type"
[Field : LWNewvchtype]
Use : Short Name Field
Modifies : LWVchtypecznew
Border : Thin Box
Width : 15
Table : Vouchertype
Show Table : Always
[System : Variable]
LWVchtypecznew : " "
[Variable : LWVchtypecznew]
Type :VoucherTypeName
Persistent : Yes
;WWW.LEARNWELLS.COM;
[Button: LWVCHManual]
Title: "Voucher Number Auto to Manual"
Key: CTRL+m
Action List :LWVmanaut
[Button: LWVmanaut]
Key:CTRL+m
Action: Alter: LearnwellAutoToManula
[Report:LearnwellAutoToManula]
Form:LearnwellAutoToManula
Title:"Voucher Type"
[Form:LearnwellAutoToManula]
Part:LearnwellAutoToManula
On:Form Accept:Yes:Form Accept
On:Form Accept:Yes:Call:Save Vch Number:#LearnwellAutoToManula
[Part:LearnwellAutoToManula]
Line:LearnwellAutoToManula
[Line:LearnwellAutoToManula]
Field:Medium Prompt,LearnwellAutoToManula
Local:Field:Medium Prompt:Info:"Voucher Type"
[Field:LearnwellAutoToManula]
Use:Name Field
Table:Voucher Type
[Function:Save Vch Number]
Parameter:VarVchType:String
Variable:VarBillNum:String
Variable:VarVchMstId:String
Variable:VarMstId:String
Variable:Counter :Number
Variable:NoOfItem :Number
00 : SET FILE LOG ON
01 : SET : Counter : 0
02 : START PROGRESS : ($$NumItems:MpVchTypeColl) : "Voucher update" : @@CmpMailName : "Updating Vouchers..."
10:Walk Collection:Mp Vch Type Coll
15:Set:VarBillNum:$VoucherNumber 
20:Set:VarMstId:$MasterId 
30:Set:VarVchMstId:"ID:"+##VarMstId
40:Call:FillVchNumToUdfValues
90: INCREMENT : Counter
100: SHOW PROGRESS : ##Counter
110:End Walk
404: END PROGRESS
406 : SET FILE LOG OFF
500:Call:Set Vch To Manual
600:Call:Set Vch Oth To Number Field
[Function:FillVchNumToUdfValues]
Object:Voucher:##VarVchMstId
10:Set Target 
20:Set Object
30:Set Value:OldBillNumber:##VarBillNum
40:Accept Alter
50:Return
[Function:Set Vch To Manual]
Object:Voucher Type:##VarVchType
10:Set Target
20:Set Object
30:Set Value:Numbering Method:"Manual"
40:Set Value:Prevent Duplicates:Yes
50:Accept Alter
60:Return
[Function:Set Vch Oth To Number Field]
00 : SET FILE LOG ON
01 : SET : Counter : 0
02 : START PROGRESS : ($$NumItems:MpVchTypeColl) : "Voucher update" : @@CmpMailName : "Updating Vouchers..."
10:Walk Collection:Mp Vch Type Coll
15:Set:VarBillNum:$OldBillNumber
20:Set:VarMstId:$MasterId
30:Set:VarVchMstId:"ID:"+##VarMstId
40:Call:FillUdfToVchNumValues
90: INCREMENT : Counter
100: SHOW PROGRESS : ##Counter
110:End Walk
404: END PROGRESS
406 : SET FILE LOG OFF
[Function:FillUdfToVchNumValues]
Object:Voucher:##VarVchMstId
10:Set Target
20:Set Object
30:Set Value:VoucherNumber:##VarBillNum
40:Accept Alter
50:Return
[Collection:Mp Vch Type Coll]
Type:Vouchers:VoucherType
Child Of:##VarVchType
Fetch:VoucherNumber,MasterId,OldBillNumber
Parm Var:SvFromDate:$StartingFrom:Company:##SVCurrentCompany
Parm Var:SvToDate:$$FinYearEnd:##SVCurrentDate:$StartingFrom:Company:##SVCurrentCompany
[#Field: VCH Type Combo]
Add:Fields:Vch Old Bill Number
[Field:Vch Old Bill Number]
Use:Name Field
Storage:OldBillNumber
Invisible:Yes
[System:udf]
OldBillNumber:String:850

Watch above video to learn :

• How to load TDL file in Tally.
• How to add toolbar buttons
• How to use Voucher Changer TDL code in Tally Prime

HOW TO USE TDL CODE:

1. Copy TDL code and Make a Text file
2. Save into your computer.
3. Copy the text file path including Name and extension (as – C:\Users\HP\Desktop\rec\Party Detail.txt)
4. Open Tally ERP9  OR Tally Prime
5. Press F12 and goto Product and Features (for Tally ERP9)
6. Click on Help and click on TDL & Addon  (for Tally Prime)
7. Press F4 (to open a Box)
8. Load TDL file on Startup – Yes
9. Paste The path in blank space
10. Press enter and save