Hi.... Successfully passed the voucher but qty and rate field comes empty. then the voucher will not accept the debit credit dose not match that error. [#Menu: Gateway of Tally] Add : Item : "Bulk Payment Entry" : Alter : JennyPayment EntryRpt [Report : JennyPayment EntryRpt] Form : JennyPayment EntryFrm Title : $$LocaleString:"Bulk Payment Entry" Object : Company [Form : JennyPayment EntryFrm] Part : Form SubTitle, Sales Bulk Passing Part Width : 100% Page Height : 100% Page Space Left : 0.25 Space Right : 0.25 Horizontal Align: Left Local : Field : Form SubTitle : Info : "Bulk Sales Inventory" On : Form Accept : yes : Form Accept On : Form Accept : yes : Call : Sales Bulk Passing Functions ;;;;;;;;; ;; Sales Debit Part ;; ;;------------------------------------------------------------------------------------------ [Part : Sales Bulk Passing Part] Line : Sales Bulk Passing Line Title, Sales Bulk Passing Line Repeat : Sales Bulk Passing Line : Sales Bulk Passing Collections Scroll : Vertical Common Border : Yes Break On : $$IsEndOfList:$PartyLedgerName [Line : Sales Bulk Passing Line Title] Field :SBP Sno T,SBP Date T,SBP type T,SBP type Debit T,SBP type Credit T,SBP type Amount T Right Field : BulkVchQty Name T,BulkVchQty T,BulkVch Rate T,SBP Narrations T,SBP Last Rate T Local : Field : Default : Type : String Local : Field : Default : Style : Normal Bold Local : Field : Default : Align : Center Local : Field : Default :Border : Thin Box [Field:SBP Last Rate T] Width:8 Set as:"Last Rate" Skip:Yes [Field:BulkVchQty Name T] Width :8 Set as : "Stock Name" Skip : Yes [Field : BulkVchQty T]; : Info : $$LocaleString:"Sno." Width :8 Set as : "Qty" Skip : Yes [Field : BulkVch Rate T]; : Info : $$LocaleString:"Sno." Width :8 Set as : "Rate" Skip : Yes [Field : SBP Sno T]; : Info : $$LocaleString:"Sno." Width :5 Set as : "Sno." Skip : Yes [Field : SBP Date T]; : Info : $$LocaleString:"Date" Width : @@ShortWidth Set as : "Date" Skip : Yes [Field : SBP type T]; : Info : $$LocaleString:"Voucher Type" Width : 8 Set as : "Voucher Type" Skip : Yes [Field : SBP type Debit T] Width : 25 Set as :"Party Ledger" Skip : Yes [Field : SBP type Credit T] Width : 25 Set as :"Credit Ledger" Skip : Yes Invisible:Yes [Field : SBP type Amount T] Set as : "Amount" Width : @@ShortWidth Skip : Yes [Field : SBP Narrations T] Set as : "Narration" Full Width : Yes Skip : Yes [Line : Sales Bulk Passing Line] Field : SBP Serial No, SBP Date , SBP Vch Type , SBP Debit Ledger,SBP Credit Ledger,SBP Ledger Amount Right Field : BulkVchQty Name,BulkVchQty,BulkVch Rate,SBP Narrtions,SBP Last Rate Space Top : 0.25 [Field:SBP Last Rate] Use:Number Field Set as:$$FilterValue:$RateartyCollBatch:1artyItemCheckss Width:8 Set Always:Yes Storage:Sgprate [Collection : SaleVchCollBatch] Type : Voucher [Collection : PartyCollBatch] Source Collection : SaleVchCollBatch Walk : InventoryEntries ;By : Pname : $PartyLedgerName by : item : $stockitemname Aggr Compute : Rate : sum : $Rate [System: Formula] PartyItemCheckss : $item=#BulkVchQtyName;VCHStockItem [Field : BulkVchQty Name] Type : String Table : Stock Item, EndOfList ;Set as : ##SVVoucherType Use : Name Field Set always : Yes Storage : BulkQtyUDFFld ;Storage:StockItemName ;Set always : Yes Show Table : Always Case : Title Case Width : 8 ;Align : Left ;Inactive : $$IsEndOfList:$JennyPaymentVchFld Border : Thin Box [Field : BulkVchQty] ;Type:Quantity;:Forced Use : Number Field ;Use:Name Field ;Use : Qty Field ;Set always : Yes Storage :BulkVchQtyUDFFld ;Storage : Billed Qty Width : 8 Case : Title Case Border : Thin Box [Field : BulkVchRate ] Use : Number Field Set always : Yes Storage : BulkRateUDFFld Width : 8 Border : Thin Box [Field : SBP Serial No] Use : Short Name Field ;Width : @@SymWidth Width :5 Set as : $$Line Skip : Yes [Field : SBP Date ] Type : Date Use : Short Date Field Storage : Date Width : @@ShortWidth Border : Thin Box [Field : SBP Vch Type ] Type : String Table : JennyVchtypeFld, EndOfList Use : Name Field Set always : Yes Storage : JennyPaymentVchtypeFld Show Table : Always Case : Title Case Width : 8 Align : Left Border : Thin Box Inactive : $$IsEndOfList:$PartyLedgerName [Collection: JennyVchtypeFld] Title : $$LocaleString:"Voucher Types" Collection : Sales Vouchers Fetch : Name, ActualVoucherType Format : $$Name, 10 [Field : SBP Debit Ledger] Type : String Use : Name Field Table : JennyPayment SundryDebtorsLed, EndOfList Storage : PartyLedgerName ;;Set as : $Name Show Table : Always Case : Title Case Width : 25 Align : Left Inactive : $$IsEndOfList:$PartyLedgerName Border : Thin Box [Collection: JennyPayment SundryDebtorsLed] Title : "List of Ledgers" Type : Ledger ;Child of : $$GroupIndirectExpenses Belongs to : yes Format : $Name,30 Align : Right Full Height : Yes ;Filter : PaymentDebitledgerFld [Field :SBP Credit Ledger] Type : String Use : Name Field Table : JennyPayment SalesLed Storage : LedgerName Show Table : Always Case : Title Case Width : 25 Align : Left Border : Thin Box Invisible:Yes [Collection: JennyPayment SalesLed] Title : "List of Ledgers" Type : Ledger ;Child of : $$GroupBank Belongs to : yes Format : $Name,30 Align : Right Full Height : Yes [Field : SBP Ledger Amount] Type : Amount Use : Amount Field Storage : Amount Width : @@ShortWidth Inactive : $$IsEndOfList:$PartyLedgerName Border : Thin Box [Field : SBP Narrtions ] Type : String Use : Name Field Storage : Narration Full Width : Yes Inactive : $$IsEndOfList:$PartyLedgerName [Collection: Sales Bulk Passing Collections] Title : "Bulk Payment Entry" Type : SalesEntryBulkEntry : Company Child Of : ##SVCurrentCompany [System: UDF] SalesEntryBulkEntry : Aggregate : 41071 Date : Date : 41072 PartyLedgerName : String : 41073 Amount : Amount : 41074 SalesLedgerName : String : 41075 Narration : String: 41076 JennyPaymentVchtypeFld : String: 41077 BulkVchQtyUDFFld:Number:41078 BulkRateUDFFld:Number:41079 BulkQtyUDFFld:String:41080 Sgprate:Number:42082 [System: UDF] LedgerName : String : 41068 ;; --------------------------------------- [System: Variable] [Variable : Counter] Type: Number ;; Bulk Auto Entry ;; ;;----------------------------------------------------------------------------------------------------------------------- [Function: Sales Bulk Passing Functions] ;; Procedural Block Parameter : JennyVTypeName : String : ##SVVoucherType ;Parameter : pVoucherType : String Variable : SVVoucherType : String Variable:SVPersistedView:String Variable:SvIsInvoice:String Variable : CphDate : Date Variable : CphDrLedgerName : String Variable : CphCrLedgerName : String Variable : CphAmount : Amount Variable : CphNarration : String Variable : CphJennyPaymentVchtype: String Variable : CpVchQty:Quantity Variable : Counter : Number: 1 ;00: Set : SVVoucherType : ##pVoucherType 001 : Start Batch Post : 10 005 : START PROGRESS : ($$NumItems:SalesBulkPassingCollections) : "Creating Vouchers" : @@CmpMailName : "Creating Sales Vouchers ..." 007 : WALK COLLECTION : Sales Bulk Passing Collections 30 : SET : SVViewName : $$SysName:InvVchView 30a : Set : SVPersistedView : $$SysName:InvVchView 31 : Set : CphJennyPaymentVchtype :"" 32 : SET : CphJennyPaymentVchtype :$JennyPaymentVchtypeFld ;60 : SET VALUE : VoucherTypeName : "sales" 50 : SET : CphDate : $$Date:$Date ;90 : SET VALUE : VoucherNumber :"1" 020 : SET : CphDrLedgerName : $PartyLedgerName 030 : SET : CphCrLedgerName : $SalesLedgerName 040 : SET : CphAmount : $$AsAmount:$Amount 045 : SET : CphNarration : $Narration ;110 : SET VALUE : SvIsInvoice : Yes ;111 : Set Value: amount:$$AsAmount:"1" 060 : NEW OBJECT : Voucher 070 : SET VALUE : Date : ##CphDate 080 : SET VALUE : VoucherTypeName :##CphJennyPaymentVchtype 080a : Log: #SBPVchType 090 : SET VALUE : Narration : $Narration 130 : INSERT COLLECTION OBJECT : LEDGERENTRIES 140 : SET VALUE : LedgerName : $PartyLedgerName;"1" 150 : SET VALUE : IsDeemedPositive : Yes 151 : SET VALUE : IsPartyLedger : Yes 160 : SET VALUE : Amount : ##CphAmount 170 : SET TARGET : .. ;130a : INSERT COLLECTION OBJECT : LEDGERENTRIES ;140a : SET VALUE : LedgerName : "1" ;170a : SET TARGET : .. 180 : INSERT COLLECTION OBJECT : INVENTORYENTRIES 190 : SET VALUE : StockItemName : $BulkQtyUDFFld;$StockItemName;"pen" 210 : SET VALUE : ActualQty : $$TgtObject:$$AsQty:$BulkVchQtyUDFFld;+"Nos";-$$TgtObject$$AsQty:$BulkVchQtyUDFFld);"1") 220 : SET VALUE : BilledQty : $$TgtObject:$$AsQty:$BulkVchQtyUDFFld;+"Nos";-$$TgtObject$$AsQty:$BulkVchQtyUDFFld) 230 : SET VALUE : Rate : $$TgtObject$$AsRate:$BulkRateUDFFld) 240 : SET VALUE : Amount :$$AsAmount:##CphAmount ;241 : Set Value: IsDeemedPositive : Yes 250 : INSERT COLLECTION OBJECT : BATCHALLOCATIONS ;260 : SET VALUE : GodownName : "stockyard" ;270 : SET VALUE : BatchName : "" 280 : SET VALUE : ActualQty : $$TgtObject:$$AsQty:$BulkVchQtyUDFFld;+"Nos";-$$TgtObject$$AsQty:$BulkVchQtyUDFFld) 290 : SET VALUE : BilledQty : $$TgtObject:$$AsQty:$BulkVchQtyUDFFld;+"Nos";-$$TgtObject$$AsQty:$BulkVchQtyUDFFld) 300 : SET VALUE : Rate : $$TgtObject$$AsRate:$BulkRateUDFFld) 310 : SET VALUE : Amount : $$AsAmount:##CphAmount ;311 : Set Value: IsDeemedPositive : Yes 320 : SET TARGET : .. 330 : INSERT COLLECTION OBJECT : ACCOUNTING ALLOCATIONS 340 : SET VALUE : LedgerName : "sales" 360 : SET VALUE : Amount : $$AsAmount:##CphAmount * -1 361 : Set Value: IsDeemedPositive : No 370 : SET TARGET : .. 500 : END WALK 510 : SET TARGET : ... 600 : SET TARGET : .. 601 : SET VALUE : PersistedView : ##SVViewName 602 : CREATE TARGET 603 : INCREMENT : Counter 604 : SHOW PROGRESS : ##Counter 604 : END WALK 605 : END PROGRESS 606 : RETURN 607 : End Batch Post
