I am getting the following error on some workstations but not all with the following VBScript. In my attempts to troubleshoot this I have reinstalled the Sage 100 workstation and used various users who all have necessary permission. First my system Sage MAS 100 Advanced 2013 Update 4 Workstations Win 7 x64 The error: MS Script Link Error Information User... CSH-ERP Date... 6/3/2014 Time... 12:38:56 OLE Error Number... -2147352567 Description........ NewObject Error: 65 Language........... VBScript Script Line........ 104 Script Column...... 8 Here is the script Dim oscript, retVal, oSS Dim so, po, PathHome, ordtype Dim mas_user, mas_password so = PO_PurchaseOrder_bus_SalesOrderNo po = PO_PurchaseOrder_bus_PurchaseOrderNo ordtype = PO_PurchaseOrder_bus_OrderType mas_user = "user" mas_password = chr(100)+chr(100)+chr(100)+chr(100)+chr(100)+chr(100) not the password PathHome = "\\csh-erp\Sage\Version2013\mas90\Home" if ordtype "D" then msgbox "This option is only available on DROP SHIP orders.", vbokonly, "Message" else 'msgbox "This will write back po number " & po & " to s/o #" & so, vbokonly, "Testing" Set oScript = CreateObject("ProvideX.Script") retVal = oScript.Init(PathHome) If retVal 0 Then MsgBox "Unable to Initialize MAS Path " & PathHome, vbOKOnly, "Error" Else Set oSS = oScript.NewObject("SY_Session") retVal = oSS.nSetUser(MAS_user, MAS_password) If retVal = 0 Then MsgBox "Unable to set module User/Password - " & oSS.sLastErrorMsg, vbOKOnly, "Error" End If retVal = oSS.nSetCompany(mas_scr_cmp, 1) If retVal = 0 Then MsgBox "Unable to set company - " & oSS.sLastErrorMsg, vbOKOnly, "Error" End If retVal = oSS.nSetModule("S/O") If retVal = 0 Then MsgBox "Unable to set module S/O - " & oSS.sLastErrorMsg, vbOKOnly, "Error" End If retVal = oSS.nSetDate("S/O", MAS_SCR_DTE) if retVal = 0 Then MsgBox "Unable to set module S/O date - " & oSS.sLastErrorMsg, vbOKOnly, "Error" End If retVal = oSS.nSetProgram(oSS.nLookupTask("SO_SalesOrder_ui")) If retVal = 0 Then MsgBox "Unable to set program - " & oSS.sLastErrorMsg, vbOKOnly, "Error" End If Line reported by error Set oSOOrder = oScript.NewObject("SO_SalesOrder_bus", oSS) retVal = oSOOrder.nSetKeyValue("SalesOrderNo$", so) retVal = oSOOrder.nSetKey() retVal = oSOOrder.nSetValue("UDF_DSPO$", po) retVal = oSOOrder.nWrite() ' Clean up oSS.nCleanup oSS.DropObject Set oSS = Nothing Set oScript = Nothing msgbox "Order # copied to sales order.", vbokonly, "Message" End if end if
↧