1. We are making changes to http://tdlexperts.com. So redirected to new portal http://tdlexperts.net. Kindly cooperate!!!
    Dismiss Notice

Importing Stock Master

Discussion in 'Requests' started by V Rajesh, Jul 21, 2015.

  1. V Rajesh

    V Rajesh New Member


    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
     


  2. sunil Gairola

    sunil Gairola New Member


    can u please attached files also
     


  3. sachidanandan

    sachidanandan New Member


    attach the file!
     


Share This Page