Hello,

Could you please advise - what is wrong with the script below.
It creates duplicated invoice lines, seemingly due to the CopyLinesFromSalesOrder call.

Maybe this function is outdated - looks like line items are created anyway?

Thanks,

Alex

'Create ProvideX COM Object
Set oScript = CreateObject ("ProvideX.Script")

'Get the ODBC path for the last accessed installation of MAS 90/200
Const HKEY_CURRENT_USER = &H80000001
Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
oReg.GetExpandedStringValue HKEY_CURRENT_USER,"Software\ODBC\ODBC.INI\SOTAMAS90","Directory",PathRoot
PathHome = PathRoot & "\Home"
MsgBox(PathHome)
Set oReg = Nothing

oScript.Init(PathHome)

Set oSS = oScript.NewObject("SY_Session")

' Set the user for the Session
r = oSS.nLogon()
If r=0 Then



    '''''''''''''''''''''''
    ' Enter: username, password
    r = oss.nSetUser("user","password")


End If


' Set the company, module date and module for the Session
r = oss.nsetcompany("ABC")



'''''''''''''''''''''''
' Enter: date
r = oSS.nSetDate("S/O","20140406")
r = oSS.nSetModule("S/O")




' Instantiate a Sales Order business object
oSEC = oSS.nSetProgram(oSS.nLookupTask("SO_SalesOrder_ui"))
Set o = oScript.NewObject("SO_SalesOrder_bus", oSS)





'''''''''''''''''''''''
' Enter: OrderNumber
OrderNo = "0000408"




MsgBox(OrderNo)

' Create a new S/O Invoice for the Sales Order created above

oSEC = oSS.nSetProgram(oSS.nLookupTask("SO_Shipping_ui"))
Set o = oScript.NewObject("SO_Shipping_bus", oSS)

' Check the BatchEnabled property to determine if batches are enabled
IF o.nBatchEnabled = 1 Then
    BatchNo = ""
    PrivateFlag = "Y"
    CommentText = "This is a comment"
    r = o.nSelectNewBatch(BatchNo, PrivateFlag, CommentText)
End If

' Create a new header record using the next available invoice number
InvoiceNo = ""
r = o.nGetNextInvoiceNo(InvoiceNo)
r = o.nSetKey(InvoiceNo)
r = o.nSetValue("ARDivisionNo$", "02")
r = o.nSetValue("SalesOrderNo$", OrderNo)
MsgBox(InvoiceNo)

' Copy the lines from a Sales Order by calling the CopyLinesFromSlesOrder method.
shipCompleteOrder = "Y"
r = o.oLines.nCopyLinesFromSalesOrder(OrderNo, shipCompleteOrder)
If r = 0 Then
    MsgBox("Error copying SO lines to INV: " & o.sLastErrorMsg & vbCRLF & "Quiting")
    oss.nCleanup()        ' Call Cleanup() before dropping the Session Object
    oss.DropObject()
    Set oss = Nothing
    WScript.Quit
End If

' Process Lines Loop - set shipped quantity
r = o.oLines.nMoveFirst()
Do Until o.oLines.nEOF=1
    r = o.oLines.nGetValue("ItemType$",ItemType)

    tmpQuantity = 0
    r = o.olines.nGetValue("QuantityOrdered",tmpQuantity)
    If r = 0 Then
        MsgBox("Error getting QuantityOrdered: " & o.sLastErrorMsg & vbCRLF & "Quitting")
        oss.nCleanup()        ' Call Cleanup() before dropping the Session Object
        oss.DropObject()
        Set oss = Nothing
        WScript.Quit
    End If

    r = o.olines.nGetValue("QuantityShipped",quantityShipped)
    If r = 0 Then
        MsgBox("Error getting QuantityShipped: " & o.sLastErrorMsg & vbCRLF & "Quitting")
        oss.nCleanup()        ' Call Cleanup() before dropping the Session Object
        oss.DropObject()
        Set oss = Nothing
        WScript.Quit
    End If

    'r = o.oLines.nGetValue("Valuation$",Valuation)
        
    MsgBox("ItemType: " & ItemType & "; Quantity Ordered: " & tmpQuantity)
        
    ' Set QuantityShipped
    r = o.oLines.nSetValue("QuantityShipped",tmpQuantity)
    If r = 0 Then
        MsgBox("Error setting line quantity: " & o.sLastErrorMsg & vbCRLF & "Quitting")
        oss.nCleanup()        ' Call Cleanup() before dropping the Session Object
        oss.DropObject()
        Set oss = Nothing
        WScript.Quit
    End If

    r = o.oLines.nMoveNext()
Loop ' End Invoice Lines loop

' Write the line change to memory
r = o.oLines.nWrite()
If r = 0 Then
    MsgBox("Error writing lines: " & o.sLastErrorMsg & vbCRLF & "Quitting")
    oss.nCleanup()        ' Call Cleanup() before dropping the Session Object
    oss.DropObject()
    Set oss = Nothing
    WScript.Quit
End If

' Write the invoice header and lines to disk
r = o.nWrite()
If r = 0 Then
    MsgBox("Error writing INV: " & o.sLastErrorMsg & vbCRLF & "Quitting")
    oss.nCleanup()        ' Call Cleanup() before dropping the Session Object
    oss.DropObject()
    Set oss = Nothing
    WScript.Quit
End If

' Done with the Invoice object
r = o.DropObject()
o = 0

Wscript.Echo "DONE"
Wscript.Quit