I have a coding for importing Stock Item Master from Excel, but it has some problem, it will show the item names in popup but it will not come into tally, No error are shown. Please correct the coding for help me. /************* StockItem Import ******************/ [#Menu : GateWay of Tally] Key Item : Stock Item Master Import : K : Execute : SL StockItemmaster Import [Report : SL StockItemmaster Import] ;; Auto Report Form : SL StockItemmaster Import Title : $$LocaleString:"Stock Item Master Import" Auto : Yes [Form: SL StockItemmaster Import] No Confirm : Yes Space Top : 1 Space Left : 1 Space Right : 1 Space Bottom : 1 Option : Small Size Form Full Width : No Full Height : No Vertical Align : Centre Parts : SL StockItemmaster Import Title, SL StockItemmaster Import Details ;; On : Form Accept : Yes : CALL : StockItemMaster Local : Field : SL Import FileName : Modifies : SL SVExcelPath : Yes Local : Field : SL Import FileName : Variable : SL SVExcelPath Local : Line : SL Voucher Imports : Local : Field : Form Sub Title : Info : $$LocaleString:"Stock Item Master Import" [Part: SL StockItemmaster Import Title] Lines : SL StockItemmaster Imports, SL StockItemmaster Imports Info [Line: SL StockItemmaster Imports] Fields : Form Sub Title Space Bottom : 0.25 Local : Field : Form Sub Title : Info : $$LocaleString:"StockItem Master Import" [Line: SL StockItemmaster Imports Info] Field : Simple Field Space Bottom : 0.75 Local : Field : Simple Field : Info : $$LocaleString:"(Only Tally (XLS) Format is Supported)" Local : Field : Simple Field : Full Width : Yes Local : Field : Simple Field : Align : Centre [Part: SL StockItemmaster Import Details] Lines : SL Import FileName [Line: SL Import FileName] Field : Medium Prompt, SL Import FileName , TEST1 Local : Field : Medium Prompt : Info : $$LocaleString:"Import File Name (XLS) :" [Field: SL Import FileName] Use : Name Field Width : @@NarrWidth Set as : "G:\tdls\stockitemmaster.xls" Full Width : Yes [Field : TEST1] Use : Name Field Table : SL StockItemMasterCollimport Show Table : Always [Variable: SL SVExcelPath] Type : String Default : "" Persist : Yes [System: Variable] SL SVExcelPath : "" [System: Formula] SLExcelFilePath : ##SLSVExcelPath [Collection : SL StockItemMasterColl] ODBC : "Driver={Microsoft Excel Driver (*.xls)};DBQ= " + @@SLExcelFilePath SQL : "Select * from [Sheet1$]" SQLObject : SL StockItemMaster Object Client Only : Yes [Object : SL StockItemMaster Object] SLStockItemName : $_1 SLStockAlias : $_2 SLPartNo : $_3 SLDescription : $_4 SLUnder : $_5 SLCategory : $_6 SLUnits : $_7 SLAlternateUnits : $_8 SLMaintaininBatches : $_9 SLStandardRate : $_10 SLSCPDate : $_11 SLSCPRate : $_12 SLSSPDate : $_13 SLSSPRate : $_14 SLRateofDuty : $_15 SLCommodity : $_16 SLRateofVAT : $_17 SLMRP : $_18 SLmrptoPrint : $_19 SLMRPVat : $_20 SLGodown : $_21 SLBatch : $_22 SLQuantity : $_23 SLRate : $_24 ;; SLSalesLedger : $_25 SLSalesPercentage : $_26 SLPurchaseLedger : $_27 SLPruchasePercentage : $_28 [Collection : SL StockItemMasterCollimport] Source Collection : SL StockItemMasterColl ;; Fetch : * Compute : SLStockItemName : $_1 Compute : SLStockAlias : $_2 Compute : SLPartNo : $_3 Compute : SLDescription : $_4 Compute : SLUnder : $_5 Compute : SLCategory : $_6 Compute : SLUnits : $_7 Compute : SLAlternateUnits : $_8 Compute : SLMaintaininBatches : $_9 Compute : SLStandardRate : $_10 Compute : SLSCPDate : $_11 Compute : SLSCPRate : $_12 Compute : SLSSPDate : $_13 Compute : SLSSPRate : $_14 Compute : SLRateofDuty : $_15 Compute : SLCommodity : $_16 Compute : SLRateofVAT : $_17 Compute : SLMRP : $_18 Compute : SLmrptoPrint : $_19 Compute : SLMRPVat : $_20 Compute : SLGodown : $_21 Compute : SLBatch : $_22 Compute : SLQuantity : $_23 Compute : SLRate : $_24 ;; Compute : SLSalesLedger : $_25 Compute : SLSalesPercentage : $_26 Compute : SLPurchaseLedger : $_27 Compute : SLPruchasePercentage : $_28 Format : $SLStockItemName [Function: ImportLedgerMaster] ;; Procedural Block Variable : Counter : Number ;;[Collection : SL Stock Group MainMaster] ;; Source Collection : SL Stock Item Excel ;; By : SLUnder : $_5 ;;[Collection : SL Stock Categorey Master] ;; Source Collection : SL Stock Item Excel ;; By : SLCategory : $_6 ;;[Collection : SL Stock Unit Master] ;; Source Collection : SL Stock Item Excel ;; By : SLUnits : $_7 ;; Item Create ;;[Function : SL Stock Item Import] VARIABLE : ProgressCount : Number Variable : SLSSPRate : String Variable : SLSCPRate : String Variable : SLQuantity : String Variable : SLRate : String 01 : SET FILE LOG ON 02 : SET : Counter : 0 02a : START PROGRESS : ($$NumItems:SLStockItemmasterCollimport) : "Stock Item Import" : @@CmpMailName : "Importing Items..." 03 : WALK COLLECTION : SLStockItemMasterCollimport 04 : NEW OBJECT : StockItem 06 : SET VALUE : Name : $SLStockItemName 1000 : Query Box : "Do you Want to Import \n Stock Item ?": Yes : No 1001 : IF : $$LastResult 1001a : New Object : Item Create 1002 : SET : ProgressCount : 1 1003 : Call : SL Stk Categ 1004 : Call : SL Stk MainGroup 1006 : Call : SL Stk Unit 1020 : IF : NOT ($$NumItems:SLStockItemColl> 0) 1030 : RETURN 1040 : END IF 1050 : START PROGRESS : ($$NumItems:SLStockItemColl) : "Importing" : "Stock Items" 1060 : WALK COLLECTION : SL StockItemMaster Coll 1061 : Set : SLSCPRate : $$String:$SLSCPRate 1062 : Set : SLSSPRate : $$String:$SLSSPRate 1063 : Set : SLQuantity : $$String:$SLQuantity 1064 : Set : SLRate : $$String:$SLRate 1070 : NEW OBJECT : STOCK ITEM ;;: $SLStockItemName : Yes 1100 : SET VALUE : NAME : $SLStockItemName 11070 : INSERT COLLECTION OBJECT : Name 11071 : SET VALUE: NAME : $SLStockAlias 11072 : SET VALUE: LANGUAGEID : "1033" 11073 : SET TARGET : .. 1105 : INSERT COLLECTION OBJECT : MAILINGNAME 1120 : SET VALUE : MAILINGNAME : $SLPartNo 1130 : SET TARGET : ... 1131 : Set Value : Description : $SLDescription 1140 : SET VALUE : PARENT : $SLUnder 1150 : SET VALUE : BASEUNITS : $SLUnits 1151 : Set Value : Additional Units : $SLAlternateUnits 1152 : Set Value : Is BatchWise On : $SLMaintaininBatches 1153 : Set Value : BasicRateOfExcise : $SLRateofDuty 1154 : Set Value : VATCommodity : $SLCommodity 1155 : Set Value : RateOfVAT : $SLRateofVAT 1156 : Set Value : RateofMRP : $SLMRP 1157 : Set Value : CalcOnMRP : $SLmrptoPrint 1158 : Set Value : IsMRPInclofTax : $SLMRPVat 1125 : Set Value : CATEGORY : $SLCategory 1126 : Set Value : OPENINGBALANCE: $$TgtObject$$AsQty:##SLQuantity);; + " Nos" 1127 : Set Value : OPENINGRATE : $$TgtObject$$AsRate:##SLRate) 171 : INSERT COLLECTION OBJECT : STANDARDCOSTLIST 172 : SET VALUE : DATE : @@COSTDATE 173 : SET VALUE : RATE : $$TgtObject$$AsRate:##SLSCPRate) 174 : SET TARGET : ... 271 : INSERT COLLECTION OBJECT : STANDARDPRICELIST 272 : SET VALUE : DATE : @@SALEDATE 273 : SET VALUE : RATE : $$TgtObject$$AsRate:##SLSSPRate) 274 : SET TARGET : ... 3161a : Log : ##SLRate 3161b : Log : ##SLQuantity 3161 : INSERT COLLECTION OBJECT : Batch Allocations 3162 : SET VALUE : GODOWNNAME : $SLGodown 3163 : SET VALUE : BATCHNAME : $SLBatch 3164 : SET VALUE : OPENINGBALANCE : $$TgtObject$$AsQty:##SLQuantity) 3166 : SET VALUE : OPENINGRATE : $$TgtObject$$AsRate:##SLRate) 3170 : SET TARGET : ... 4170 : Insert Collection Object : SALESLIST 4180 : Set Value : NAME : $SLSalesLedger 4190 : IF : $SLSalesPercentage Contains "14.5" 4200 : Set Value : TAXCLASSIFICATIONNAME : "Output VAT @ 14.5%" 4210 : Else 4220 : Set Value : TAXCLASSIFICATIONNAME : "Output VAT @ 5%" 4230 : End If 4240 : Set Value : CLASSRATE : "100.00000" 4250 : Set Value : REMOVEZEROENTRIES : Yes 4251 : SET TARGET : ... 4260 : Insert Collection Object : PURCHASELIST 4270 : Set Value : NAME : $SLPurchaseLedger 4280 : IF : $SLPruchasePercentage contains "14.5" 4290 : Set Value : TAXCLASSIFICATIONNAME : "Input VAT @ 14.5%" 4300 : Else 4310 : Set Value : TAXCLASSIFICATIONNAME : "Input VAT @ 5%" 4320 : End If 4330 : Set Value : CLASSRATE : "100.00000" 4340 : Set Value : REMOVEZEROENTRIES : Yes 4341 : SET TARGET : ... 1180 : LOG OBJECT 1190 : Create Target 1250 : SHOW PROGRESS : ##ProgressCount 1260 : SET : ProgressCount : ##ProgressCount + 1 1270 : END WALK 1280 : END PROGRESS 1290 : Msg Box : "Message" : "Stock Item Master Imported Successfully !!!" 1200 : ENDIF [System : Formula] COSTDATE : $$Date($$StringPart:$SLSCPDate:8:2) + "-" + + ($$StringPart:$SLSCPDate:5:2) + "-" + + ($$StringPart:$SLSCPDate:0:4)) SALEDATE : $$Date($$StringPart:$SLSSPDate:8:2) + "-" + + ($$StringPart:$SLSSPDate:5:2) + "-" + + ($$StringPart:$SLSSPDate:0:4)) ;; For Groups [Function : SL Stk MainGroup] 01 : Walk Collection : SL Stock Group MainMaster 02 : New Object : Stock Group 03 : Set Value : Name : $SLUnder 04 : Set Value : ISADDABLE : "Yes" 05 : SET VALUE : PARENT : " Primary" 06 : Create Target 07 : End Walk ;; For Category [Function : SL Stk Categ] 01 : Walk Collection : SL Stock Categorey Master 02 : New Object : Stock Category 03 : Set Value : Name : $SLCategory 04 : SET VALUE : PARENT : " Primary" 05 : Create Target 06 : End Walk ;;; For Unit [Function : SL Stk Unit] 01 : Walk Collection : SL Stock Unit Master 02 : New Object : UNIT 03 : Set Value : Name : $SLUnits 04 : Set Value : ISSIMPLEUNIT : "Yes" 05 : Create Target 06 : End Walk
