Tally chapter 230 TDL for Auto to Manual Invoice Numbering By Rajiv Mishra Computer Class

 

few lines are Missing here.

Pls watch the full video to get full coding

[#Menu: Gateway of Tally]

 

 

add:item:"Auto To Manual Vourchar No":menu:Change Vch Number Type

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[Menu:Change Vch Number Type]

 

 

Item:"Auto To Manual Vourchar No":Execute:Add Vch To Other Field

 

 

 

 

 

 

 

 

[Report:Add Vch To Other Field]

 

 

Form:Add Vch To Other Field

 

 

Title:"Voucher Type"

 

 

 

 

 

 

 

 

[Form:Add Vch To Other Field]

 

 

Part:Add Vch To Other Field

 

 

On:Form Accept:Yes:Form Accept

 

 

On:Form Accept:Yes:Call:Save Vch Number:#AddVchToOtherField

 

 

 

 

 

[Part:Add Vch To Other Field]

 

 

Line:Add Vch To Other Field

 

 

 

 

 

 

 

 

 

 

 

[Line:Add Vch To Other Field]

 

 

Field:Medium Prompt,Add Vch To Other Field

 

 

Local:Field:Medium Prompt:Info:"Voucher Type"

 

 

 

 

 

[Field:Add Vch To Other Field]

 

 

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:##SVCurrentCo mpany

 

 

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