[#Form: Ledger Vouchers] Add: Button: InputNewVchtyp1 [#Form: Day Book] Add: Button: InputNewVchtyp1 [Button: InputNewVchtyp1] Title: "Set Vch Type" Key: CTRL+F8 Action List : InputVchtyp1, ModifyVchtyp 1 [Button: InputVchtyp1] Key:CTRL+F8 Action: Alter: Rpt InputVchtyp1 [Button: ModifyVchtyp1] Key: CTRL+F8 Action: Call : FuncEdit3 [Function: FuncEdit3] Variable : MSTID : String 100 : WALK COLLECTION : SELDayVouchers3 120 : SET : MSTID : "ID:"+ $$String:$MasterID 130 : NEW OBJECT : Voucher : ##MSTID 140 : SET TARGET : LedgerEntries[1] 160 : SET VALUE : VoucherTypeName : #NvVchtyp 170 : SET TARGET : .. 180 : SET TARGET : .. 190 : ACCEPT ALTER 200 : END WALK [Collection: SELDayVouchers3] Data Source : Report : Selected Fetch : All Ledger Entries [Report: Rpt InputVchtyp1] Title : "Upvchtyp Voucher Type" Form : Input Vchtyp1 Auto : Yes [Form: Input Vchtyp1] Part : Input Vchtyp1 Width: 25% Screen Height: 8% Screen [Part: Input Vchtyp1] Line: New Vchtyp1 [Line: New Vchtyp1] Field : Long Prompt , Newvchtype Local : Field: Long Prompt : Set As: "New Vchtype" [Field : Newvchtype] Use : Short Name Field Modifies : NvVchtyp Border : Thin Box Width : 15 [System : Variable] Nvvchtyp : " " [Variable : NvVchtyp] Type : Vouchertypename Persistent : Yes
Some Change There. 1. Voucher Type Name (Table Added) Code: [#Form: Ledger Vouchers] Add: Button: InputNewVchtyp1 [#Form: Day Book] Add: Button: InputNewVchtyp1 [Button: InputNewVchtyp1] Title: "Set Vch Type" Key: CTRL+F8 Action List : InputVchtyp1, ModifyVchtyp 1 [Button: InputVchtyp1] Key:CTRL+F8 Action: Alter: Rpt InputVchtyp1 [Button: ModifyVchtyp1] Key: CTRL+F8 Action: Call : FuncEdit3 [Function: FuncEdit3] Variable : MSTID : String 100 : WALK COLLECTION : SELDayVouchers3 120 : SET : MSTID : "ID:"+ $$String:$MasterID 130 : NEW OBJECT : Voucher : ##MSTID 140 : SET TARGET : LedgerEntries[1] 160 : SET VALUE : VoucherTypeName : #NvVchtyp 170 : SET TARGET : .. 180 : SET TARGET : .. 190 : ACCEPT ALTER 200 : END WALK [Collection: SELDayVouchers3] Data Source : Report : Selected Fetch : All Ledger Entries [Report: Rpt InputVchtyp1] Title : "Upvchtyp Voucher Type" Form : Input Vchtyp1 Auto : Yes [Form: Input Vchtyp1] Part : Input Vchtyp1 Width: 25% Screen Height: 8% Screen [Part: Input Vchtyp1] Line: New Vchtyp1 [Line: New Vchtyp1] Field : Long Prompt , Newvchtype Local : Field: Long Prompt : Set As: "New Vch Type" [Field : Newvchtype] Use : Short Name Field Modifies : NvVchtyp Border : Thin Box Width : 15 Table : Vouchertype Show Table : Always [System : Variable] Nvvchtyp : " " [Variable : NvVchtyp] Type : Vouchertypename Persistent : Yes