Dear Sir, Please Solve the Error , I go to Bank Ledger in Display mode Select Voucher Entry then Change Debit Ledger Name then Error - Incorrect Ledger selected in Bank Allocation Screen Error file Screen Short Attached ;;---------------------------------------------------------------------------------------------------------------- [#Form: Ledger Vouchers] Add: Button: After : Contact Details : InputNewVchLedName [#Form: Day Book] Add: Button: InputNewVchLedName [Button: InputNewVchLedName] Title : "Set Dr Vch LedName" Key : CTRL+F8 ; CTRL+F8 Action List : InputVchLedName, ModifyVchLedName ; Mode : Display ; Scope : Selected Lines [Button: InputVchLedName] Key : CTRL+F8 Action : Alter: Rpt InputVchLedName [Button: ModifyVchLedName] Key : CTRL+F8 Action : Call : FuncEditVchLedName [Function: FuncEditVchLedName] Variable : MSTID : String 090 : Start Batch Post : 2000 100 : WALK COLLECTION : SetDayVouchersLedEnries 120 : SET : MSTID : "ID:"+ $$String:$MasterID 130 : NEW OBJECT : Voucher : ##MSTID 142 : SET TARGET : LedgerEntries[1] 160 : SET VALUE : LedgerName : $$String:##NvVchLedName 165 : SET VALUE : IsDeemedPositive : Yes ; 166 : Walk Collection : Bank Allocations ; 166 : SET TARGET : Bank Allocations ; 167 : SET VALUE : BankPartyName : $LedgerName ; 168 : SET TARGET : .. ; 169 : End Walk 170 : SET TARGET : .. 270 : ACCEPT ALTER 280 : END WALK 290 : End Batch Post [Collection: SetDayVouchersLedEnries] Data Source : Report : Selected Fetch : All Ledger Entries [Report: Rpt InputVchLedName] Title : "Update Voucher LedgerName";"Upvchtyp Voucher Type" Form : Input VchLedName Auto : No [Form: Input VchLedName] Part : Input VchLedName Width : 25% Screen Height : 10% Screen [Part: Input VchLedName] Line: New VchLedNameDr1, New VchLedNameDr2 [Line: New VchLedNameDr1] Field : Form SubTitle Local : Field: Form SubTitle: Set As: " Change of Debit Ledger Name" Border: Thin Bottom [Line: New VchLedNameDr2] Field : Long Prompt , NewvchLedName Local : Field: Long Prompt : Set As: "New Ledger Name" Space Top : 0.50 [Field : NewvchLedName] Use : Short Name Field ;Table : Vouchertype, End of list Table : ListOfLedgers, End of list Show Table : Always Modifies : NvVchLedName Border : Thin Box Width : 15 [System : Variable] NvvchLedName : " " [Variable : NvVchLedName] Type : String Persistent : Yes ;;----------------------------------------------------------------------------------------------------------------
