Hello Everyone, I want to import Stock Journal Voucher Entries from Excel to Tally, But I want to import all the stock Items in a single Entry. Currently, my code is working fine but it is creating multiple entries. Please help me in correcting this code. Code: [Function : GSTEntry Updation] Variable : RCnt : Number Variable : CCnt : Number Variable : APTotRCount : Number : 2 Variable : APFilePath : String Variable : SPShetName : String Variable : GSTEntryName : String Variable : StkScanItem : String Variable : StkScanRate : Number Variable : StkScanQty : Number Variable : GSTImpDate : Date Variable : SVViewName : Number 001 : Set : APFilePath : #GSTEntryImportFullPath 005 : Set : SPShetName : #GSTEntrySheetName 010 : Open File : ##APFilePath : Excel : Read 020 : Set Active Sheet : ##SPShetName 030 : While : Not $$IsEmpty:($$FileReadCell:##APTotRCount:1) 040 : Increment : APTotRCount 050 : End While 060 : Start Progress : ##APTotRCount : ##SVCurrentCompany : "GSTEntrys Updation" : "Please Wait..." 070 : Set : RCnt : 2 080 : While : Not $$IsEmpty:($$FileReadCell:##RCnt:1) 090 : Set : GSTImpDate : $$Date:##GSTItmImpDate 100 : Set : StkScanItem : $$FileReadCell:##RCnt:1 110 : Set : StkScanRate : $$FileReadCell:##RCnt:6 120 : Set : StkScanQty : $$FileReadCell:##RCnt:5 130 : Set : SVViewName : $$SysName:ConsVchView 140 : NEW OBJECT : Voucher 150 : SET VALUE : DATE : ##GSTImpDate 160 : SET VALUE : VCHSTATUSDATE : ##GSTImpDate 170 : SET VALUE : GSTREGISTRATION : $$SysName:NotApplicable 180 : SET VALUE : VOUCHERTYPENAME : "Stock Journal" ;190 : SET VALUE : NUMBERINGSTYLE : "Auto Retain" 200 : SET VALUE : FBTPAYMENTTYPE : "Default" 210 : SET VALUE : PERSISTEDVIEW : ##SVViewName 220 : SET VALUE : VCHSTATUSTAXADJUSTMENT : "Default" 230 : SET VALUE : VCHSTATUSVOUCHERTYPE : "Stock Journal" 240 : SET VALUE : VCHGSTCLASS : $$SysName:NotApplicable 250 : SET VALUE : VCHENTRYMODE : "Use for Stock Journal" 260 : SET VALUE : DESTINATIONGODOWN : "Main Location" 270 : SET VALUE : EFFECTIVEDATE : ##GSTImpDate 280 : SET VALUE : ISELIGIBLEFORITC : Yes 290 : SET VALUE : VOUCHERNUMBERSERIES : "Default" 300 : INSERT COLLECTION OBJECT : INVENTORYENTRIESIN 310 : SET VALUE : STOCKITEMNAME : ##StkScanItem 320 : SET VALUE : ISDEEMEDPOSITIVE : Yes 330 : SET VALUE : ISLASTDEEMEDPOSITIVE : Yes 340 : SET VALUE : RATE : $$TgtObject:$$AsRate:(##StkScanRate) 350 : SET VALUE : AMOUNT : -1 * ##StkScanRate 360 : SET VALUE : ACTUALQTY : $$TgtObject:$$AsQty:(##StkScanQty) 370 : SET VALUE : BILLEDQTY : $$TgtObject:$$AsQty:(##StkScanQty) 40 : INSERT COLLECTION OBJECT : BATCHALLOCATIONS 410 : SET VALUE : GODOWNNAME : "Main Location" 420 : SET VALUE : BATCHNAME : $$SysName:Primary 430 : SET VALUE : INDENTNO : $$SysName:NotApplicable 440 : SET VALUE : ORDERNO : $$SysName:NotApplicable 450 : SET VALUE : TRACKINGNUMBER : $$SysName:NotApplicable 460 : SET VALUE : DYNAMICCSTISCLEARED : No 470 : SET VALUE : AMOUNT : -1 * ##StkScanRate 480 : SET VALUE : ACTUALQTY : $$TgtObject:$$AsQty:(##StkScanQty) 490 : SET VALUE : BILLEDQTY : $$TgtObject:$$AsQty:(##StkScanQty) 500 : Set Target: .. 550 : Set Target: .. 560 : Log:##GSTImpDate 570 : Log:##StkScanItem 580 : Log:##StkScanRate 590 : Log:##StkScanQty 850 : Create Target 910 : Increment : RCnt 920 : Show Progress : ##RCnt 930 : End While 950 : Msg Box : "Message" : "GST Stock Item Master Imported Successfully !!!"
First Step Read Data From Excel and Store all Data One List Variable then Creatating Entry using Variable
