The version is Sage 100 ERP Premium Version 5.10.0.1 Here's the script: Set oScript = CreateObject ("ProvideX.Script") oScript.Init("C:\\Sage\\Sage 100 Premium ERP\\MAS90\\Home") Set oss = oScript.NewObject("SY_SESSION") retVAL = oSS.nLogon() If retVAL = 0 Then retVAL = oSS.nSetUser("****","****") End If If retVAL = 0 Then WScript.Echo("0|Login failed") oSS.nCleanup() oSS.DropObject() Set oSS = Nothing WScript.Quit End If retVal = oSS.nSetCompany("001") If retVAL = 0 Then WScript.Echo("0|Failed to set company") oSS.nCleanup() oSS.DropObject() Set oSS = Nothing WScript.Quit End If retVal = oSS.nSetDate("C/I","20141119") retVal = oss.nSetModule("C/I") retVal = oss.nSetProgram(oss.nLookupTask("CI_ItemCode_UI")) Set oCIItemCode = oScript.NewObject("CI_ItemCode_bus", oSS) --- line of code failling MsgBox(oSS.sLastErrorMsg) retVal = oCIItemCode.nSetKey("133455789") retVal = oCIItemCode.nSetValue("ItemCodeDesc$","Advance Maxi") retVal = oCIItemCode.nSetValue("ItemType$","1") retVal = oCIItemCode.nSetValue("SalesUnitOfMeasure$","") retVal = oCIItemCode.nSetValue("PurchaseUnitOfMeasure$","") retVal = oCIItemCode.nSetValue("StandardUnitOfMeasure$","") retVal = oCIItemCode.nSetValue("TaxClass$","NT") retVal = oCIItemCode.nSetValue("PurchasesTaxClass$","NT") retVal = oCIItemCode.nSetValue("ProductType$","F") retVal = oCIItemCode.nSetValue("ProductLine$","ITEM") retVal = oCIItemCode.nSetValue("Valuation$", "1") retVal = oCIItemCode.nSetValue("CommentText$","") retVal = oCIItemCode.nSetValue("ShipWeight$","") retVal = oCIItemCode.nSetValue("ImageFile$","") retVal = oCIItemCode.nSetValue("StandardUnitCost",0) retVal = oCIItemCode.nSetValue("StandardUnitPrice",10.00000) retVal = oCIItemCode.nSetValue("SuggestedRetailPrice",0) retVal = oCIItemCode.nSetValue("PrimaryVendorNo$", "") retVal = oCIItemCode.nSetValue("DropShip$", "Y") retVal = oCIItemCode.nSetValue("InactiveItem$", "N") oCIItemCode.sExtDescriptionText = "" retVal = oCIItemCode.nWrite() If retVal = 0 Then WScript.Echo("0|Failed to insert item (CI_ItemCode_bus)") oCIItemCode.DropObject() oSS.nCleanup() oSS.DropObject() Set oCIItemCode = Nothing Set oSS = Nothing Set oScript = Nothing WScript.Quit End If oCIItemCode.DropObject() Set oCIItemCode = Nothing errCode = 1 errMsg = "" Set oIMItemWarehouse = oScript.NewObject("IM_ItemWarehouse_bus", oSS) retVal = oIMItemWarehouse.nSetKeyValue("ItemCode$", "133455789") retVal = oIMItemWarehouse.nSetKeyValue("WarehouseCode$", "") retVal = oIMItemWarehouse.nSetKey() retVal = oIMItemWarehouse.nSetValue("ReorderPointQty", 0) retVal = oIMItemWarehouse.nWrite() oIMItemWarehouse.DropObject() Set oIMItemWarehouse = Nothing If Not retVal = 1 Then errCode = 2 errMsg = errMsg & "|Failed to set warehouse re-order point (IM_ItemWarehouse_bus)" End If Set oIMTransaction = oScript.NewObject("IM_Transaction_bus", oSS) retVal = oIMTransaction.nSetValue("TransactionType$","6") strEntryNo = "" retVal = oIMTransaction.nGetNextEntryNo(strEntryNo) retVal = oIMTransaction.nSetKeyValue("EntryNo$", strEntryNo) retVal = oIMTransaction.nSetKey() retVal = oIMTransaction.nSetValue("TransactionDate$","20141119") retVal = oIMTransaction.nSetValue("DefaultFromWhseCode$", "000") retVal = oIMTransaction.nSetValue("Comment$", "nChannel") retVal = oIMTransaction.oLines.nAddLine() retVal = oIMTransaction.oLines.nSetValue("ItemCode$", "133455789") retVal = oIMTransaction.oLines.nSetValue("WarehouseCode$", "") retVal = oIMTransaction.oLines.nSetValue("TransactionQty", 20.00000) retVal = oIMTransaction.oLines.nWrite() retVal = oIMTransaction.nWrite() oIMTransaction.DropObject() Set oIMTransaction = Nothing If Not retVal = 1 Then errCode = 2 errMsg = errMsg & "|Inventory adjustment transactions failed (IM_Transaction_bus)" End If Set oIMTransactionRegister = oScript.NewObject("IM_TransactionRegister_upd", oSS) retVal = oIMTransactionRegister.nUpdateInit() retVal = oIMTransactionRegister.nUpdateMain() retVal = oIMTransactionRegister.nUpdateCleanup() oIMTransactionRegister.DropObject() Set oIMTransactionRegister = Nothing If Not retVal = 1 Then errCode = 2 errMsg = errMsg & "|Register inventory adjustment transactions failed (IM_TransactionRegister_upd)" End If Set oAPVendor = oScript.NewObject("AP_Vendor_bus", oSS) retVal = oAPVendor.nSetKeyValue("APDivisionNo$", "") retVal = oAPVendor.nSetKeyValue("VendorNo$", "") retVal = oAPVendor.nSetKey() retVal = oAPVendor.nSetValue("VendorName$", "Affinity") retVal = oAPVendor.nSetValue("PrimaryContact$", "") retVal = oAPVendor.nSetValue("AddressLine1$", "") retVal = oAPVendor.nSetValue("AddressLine1$", "") retVal = oAPVendor.nSetValue("City$", "") retVal = oAPVendor.nSetValue("State$", "") retVal = oAPVendor.nSetValue("ZipCode$", "") retVal = oAPVendor.nSetValue("EmailAddress$", "") retVal = oAPVendor.nSetValue("TelephoneNo$", "") retVal = oAPVendor.nSetValue("FaxNo$", "") retVal = oAPVendor.nWrite() oAPVendor.DropObject() Set oAPVendor = Nothing If Not retVal = 1 Then errCode = 2 errMsg = errMsg & "|Vendor insert/update failed (AP_Vendor_bus)" End If Set oIMItemVendor = oScript.NewObject("IM_ItemVendor_bus", oSS) retVal = oIMItemVendor.nSetKeyValue("ItemCode$", "133455789") retVal = oIMItemVendor.nSetKeyValue("APDivisionNo$", "") retVal = oIMItemVendor.nSetKeyValue("VendorNo$", "") retVal = oIMItemVendor.nSetKey() retVal = oIMItemVendor.nSetValue("VendorAliasItemNo$", "") retVal = oIMItemVendor.nSetValue("LastUnitCost", 0) retVal = oIMItemVendor.nWrite() oIMItemVendor.DropObject() Set oIMItemVendor = Nothing If Not retVal = 1 Then errCode = 2 errMsg = errMsg & "|Item vendor insert/update failed (IM_ItemVendor_bus)" End If WScript.Echo(errCode & errMsg) oSS.nCleanup() oSS.DropObject() Set oss = Nothing Set oScript = Nothing WScript.Quit
↧