Code: [#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 I requsted the community members to Share Full TDL code to the all members of this form. Enjoy Enjoy ........................................................................................................... Pankaj jain
Again copied code : Link http://td9.tallysolutions.com/vbull...-change-from-auto-to-manual-voucher-numbering
40:Set Valuerevent Duplicates:Yes { you give only one option that is yes. how to get user defined options "yes/no"} plz edit tdl code and send to me my email id: klyn4u@gmail.com