Change Voucher Number from Daybook

Sir Please make this tdl Workable

[#Form: Day Book]
Add: Button: After : DSPShowGP : InputNewVoucherNumber

[Button: InputNewVoucherNumber]
Title: "Set Voucher"
Key: Ctrl+R
Action List : InputVoucherNumber, ModifyVoucher

[Button: InputVoucherNumber]
Key: Ctrl+R
Action: Alter: Rpt InputVoucherNumber

[Button: ModifyVoucher]
Key: Ctrl+R
Action: Call : FuncEdit


[Function: FuncEdit]

;; Variable to Save MasterID
Variable : MSTID : String

;; Walking Over Current Vouchers of Day Book
100 : WALK COLLECTION : SELDayVouchers

;; Set Master ID to a Variable
120 : SET : MSTID : "ID:"+ $$String:$MasterID

;; Set Object In Edit Mode
130 : NEW OBJECT : Voucher : ##MSTID

;; Set Target to the First Ledger (PartyLedger)
140 : SET TARGET : LedgerEntries[1]

;;Modifies Value of the Methord
160 : SET VALUE : Voucher : #Voucher

;; Back to Ledger Entry Object
170 : SET TARGET : ..

;; Back to Voucher Object
180 : SET TARGET : ..

;; Saving Object
190 : ACCEPT ALTER

200 : END WALK



[Collection: SELDayVouchers]

Data Source : Report : Current
Fetch : All Ledger Entries


[Report: Rpt Input Voucher Number]
Title : "Update Voucher Number"
Form : Input Voucher Number
Auto : Yes

[Form: Input Voucher Number]
Part : Input Voucher Number
Width: 25% Screen
Height: 8% Screen

[Part: Input Voucher Number]
Line: New Voucher Number

[Line: New Voucher Number]

Field : Long Prompt , New Voucher Number
Local : Field: Long Prompt : Set As: "Voucher Number"

[Field : New Voucher Number]
Use : Short Voucher Field
Modifies : Voucher
Border : Thin Box
Width : 15

[System : Variable]
VoucherNumber : " "


[Variable : VoucherNumber]
Type : Voucher Number
Persistent : Yes

 

[#Form: Day Book]
Add: Button: After : DSPShowGP : InputNewVoucherNumber

[Button: InputNewVoucherNumber]
Title: "Set Voucher"
Key: Ctrl+R
Action List : InputVoucherNumber, ModifyVoucherNum

[Button: InputVoucherNumber]
Key: Ctrl+R
Action: Alter: Rpt InputVoucherNumber

[Button: ModifyVoucherNum ]
Key: Ctrl+R
Action: Call : FuncEdit


[Function: FuncEdit]

;; Variable to Save MasterID
Variable : MSTID : String

;; Walking Over Current Vouchers of Day Book
100 : WALK COLLECTION : SELDayVouchers

;; Set Master ID to a Variable
120 : SET : MSTID : "ID:"+ $$String:$MasterID

;; Set Object In Edit Mode
130 : NEW OBJECT : Voucher : ##MSTID

;; Set Target to the First Ledger (PartyLedger)
140 : SET TARGET : LedgerEntries[1]

;;Modifies Value of the Methord
160 : SET VALUE : VoucherNumber : ##SatVoucher

;; Back to Ledger Entry Object
170 : SET TARGET : ..

;; Back to Voucher Object
180 : SET TARGET : ..

;; Saving Object
190 : ACCEPT ALTER

200 : END WALK



[Collection: SELDayVouchers]

Data Source : Report : Selected;;Current
Fetch : All Ledger Entries


[Report: Rpt Input Voucher Number]
Title : "Update Voucher Number"
Form : Input Voucher Number
Auto : Yes

[Form: Input Voucher Number]
Part : Input Voucher Number
Width: 25% Screen
Height: 8% Screen

[Part: Input Voucher Number]
Line: New Voucher Number

[Line: New Voucher Number]

Field : Long Prompt , New Voucher Number
Local : Field: Long Prompt : Set As: "New Voucher Number"

[Field : New Voucher Number]
Use : Name Field
Modifies : SatVoucher
Border : Thin Box
Width : 15

[System : Variable]
SatVoucher : " "


[Variable : SatVoucher ]
Type : String
Persistent : Yes

 

look carefully the difference and learn more and more from this site

 

EXCELLENT SIR ITS WORKING

 

dear sir,
can u modify this

sir could u add one more requirement in this code .
while changing voucher number, it should also change in voucher reference no. also(for purchase vouchers)