Dear Experts, I have entered a TDL coding for importing stock masters, it will not shown any errors, but the stock items are not imported to tally, i can't know the reason, you experts definitely know the error in this TDL please help me. below are the codings ;;/************* StockItem Import ******************/ [#Menu : GateWay of Tally] Key Item : StockItem Import : K : Execute : SL StockItem Import [Report : SL StockItem Import] Form : SL StockItem Import Title : $$LocaleString:"Stock Item Import" Auto : Yes [Form : SL StockItem 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 StockItem Import Title, SL StockItem Import Details On : Form Accept : Yes : Action : CALL : ImportStockItem 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 Import" [Part : SL StockItem Import Title] Lines : SL StockItem Imports , SL StockItem Imports Info [Line : SL StockItem Imports] Fields : Form Sub Title Space Bottom : 0.25 Local : Field : Form Sub Title : Info : $$LocaleString:"Stock Item Import" [Line : SL StockItem Imports Info] Field : Simple Field Space Bottom : 0.75 Local : Field : Simple Field : Info : $$LocaleString:"(Only Specific Excel Format is Supported)" Local : Field : Simple Field : Full Width : Yes Local : Field : Simple Field : Align : Centre [Part : SL StockItem 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 : "C:\Users\yennes12\Desktop\ReadyMade\StockItemMaster.xlsx" Set as : "D:\StockItem.xls" Full Width : Yes [Field : Test1] Use : Name Field Table : SL StockItemCollimport Show Table : Always [Variable : SLSVExcelPath] Type : String Default : "" Persist : Yes [System : Variable] SLSVExcelPath : "" [System : Formula] SLExcelFilePath : ##SLSVExcelPath [Collection : SL StockItemcoll] ODBC : "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + @@SLExcelFilePath SQL : "Select * from [Sheet1$]" SQLObject : SL StockItem Object Client Only : Yes [Collection : SL StockItemCollimport] Source Collection : SL StockItemColl Fetch : * Compute : NSStockItemName : $_1 Compute : NSStockAlias : $_2 Compute : NSPartNo : $_3 Compute : NSDescription : $_4 Compute : NSUnder : $_5 Compute : NSCategory : $_6 Compute : NSUnits : $_7 Compute : NSAlternateUnits : $_8 Compute : NSMaintaininBatches : $_9 Compute : NSStandardRate : $_10 Compute : NSSCPDate : $_11 Compute : NSSCPRate : $_12 Compute : NSSSPDate : $_13 Compute : NSSSPRate : $_14 Compute : NSRateofDuty : $_15 Compute : NSCommodity : $_16 Compute : NSRateofVAT : $_17 Compute : NSMRP : $_18 Compute : NSmrptoPrint : $_19 Compute : NSMRPVat : $_20 Compute : NSGodown : $_21 Compute : NSBatch : $_22 Compute : NSQuantity : $_23 Compute : NSRate : $_24 Compute : NSSalesLedger : $_25 Compute : NSSalesPercentage : $_26 Compute : NSPurchaseLedger : $_27 Compute : NSPruchasePercentage : $_28 ;; Format : $NSStockItemName ;;; Item Create [Function : ImportStockItem] VARIABLE : ProgressCount : Number Variable : NSSSPRate : String Variable : NSSCPRate : String Variable : NSQuantity : String Variable : NSRate : String 1000 : Query Box : "Do you Want to Import \n Stock Item ?": Yes : No 1001 : IF : $$LastResult 1002 : SET : ProgressCount : 1 1020 : IF : NOT ($$NumItems:SLStockItemCollimport> 0) 1030 : RETURN 1040 : END IF 1050 : START PROGRESS : ($$NumItems:SLStockItemCollimport) : "Importing" : @@CmpMailName :"Stock Items" 1060 : WALK COLLECTION : SL StockItemCollimport 1061 : Set : NSSCPRate ;:$$String : @NSSCPRate 1062 : Set : NSSSPRate ;:$$String : @NSSSPRate 1063 : Set : NSQuantity ;:$$String : @NSQuantity 1064 : Set : NSRate ;:$$String : @NSRate 1070 : NEW OBJECT : STOCKITEM 1100 : SET VALUE : NAME : $NSStockItemName 11070 : INSERT COLLECTION OBJECT : Name 11071 : SET VALUE: NAME : $NSStockAlias 11072 : SET VALUE: LANGUAGEID : "1033" 11073 : SET TARGET : .. 1105 : INSERT COLLECTION OBJECT : MAILINGNAME 1120 : SET VALUE : MAILINGNAME : $NSPartNo 1130 : SET TARGET : ... 1131 : Set Value : Description : $NSDescription 1140 : SET VALUE : PARENT : $NSUnder 1150 : SET VALUE : BASEUNITS : $NSUnits 1151 : Set Value : Additional Units : $NSAlternateUnits 1152 : Set Value : Is BatchWise On : $NSMaintaininBatches 1153 : Set Value : BasicRateOfExcise : $NSRateofDuty 1154 : Set Value : VATCommodity : $NSCommodity 1155 : Set Value : RateOfVAT : $NSRateofVAT 1156 : Set Value : RateofMRP : $NSMRP 1157 : Set Value : CalcOnMRP : $NSmrptoPrint 1158 : Set Value : IsMRPInclofTax : $NSMRPVat 1125 : Set Value : CATEGORY : $NSCategory ; 1126 : Set Value : OPENINGBALANCE: $$TgtObject$$AsQty:##NSQuantity);; + " Nos" ; 1127 : Set Value : OPENINGRATE : $$TgtObject$$AsRate:##NSRate) 171 : INSERT COLLECTION OBJECT : STANDARDCOSTLIST ; 172 : SET VALUE : DATE : @@COSTDATE ; 173 : SET VALUE : RATE : $$TgtObject$$AsRate:##NSSCPRate) 174 : SET TARGET : ... 271 : INSERT COLLECTION OBJECT : STANDARDPRICELIST ; 272 : SET VALUE : DATE : @@SALEDATE ; 273 : SET VALUE : RATE : $$TgtObject$$AsRate:##NSSSPRate) 274 : SET TARGET : ... 3161a : Log : ##NSRate 3161b : Log : ##NSQuantity 3161 : INSERT COLLECTION OBJECT : Batch Allocations 3162 : SET VALUE : GODOWNNAME : $NSGodown 3163 : SET VALUE : BATCHNAME : $NSBatch ; 3164 : SET VALUE : OPENINGBALANCE : $$TgtObject$$AsQty:##NSQuantity) ; 3166 : SET VALUE : OPENINGRATE : $$TgtObject$$AsRate:##NSRate) 3170 : SET TARGET : ... 4170 : Insert Collection Object : SALESLIST 4180 : Set Value : NAME : $NSSalesLedger 4190 : IF : $NSSalesPercentage 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 : $NSPurchaseLedger 4280 : IF : $NSPruchasePercentage 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 : ... 1190 : Create Target 1191 : Save Target 1180 : LOG OBJECT 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:$NSSCPDate:8:2) + "-" + + ; ($$StringPart:$NSSCPDate:5:2) + "-" + + ; ($$StringPart:$NSSCPDate:0:4)) ; ; SALEDATE : $$Date($$StringPart:$NSSSPDate:8:2) + "-" + + ; ($$StringPart:$NSSSPDate:5:2) + "-" + + ; ($$StringPart:$NSSSPDate:0:4)) ; ; ;[Collection: TSPL SMP SIC LOGVarColl] ; ;Data Source : Variable : Item Import Status ; ;[Collection: TSPL SMP SIC LOGVarColl Summ] ; ;Source Collection : TSPL SMP SIC LOGVarColl ;By : SICStockItem : $ItemName ;By : SICStatus : $Status ;Keep Source : (). ;Filter : TSPL SMP NonEmpty Item ;Client Only : Yes ;; End-of-File correct the tdl and postit, it will help full for all the peoples Yours, V.Rajesh
