Error when creating Invoice via DI API

Question

Can you help me, I have a problem about DI
When I create invoice with serial number and create transaction with 1 item in many serial number itu2019s no problem but
If i create transaction with 2 diffrent item with many serial number has error the error code -5002([inv1.docentry][line:0],u2019item serial us not found in whseu2026.u2019)
I using sap 2005 pl 40, I have debug my coding there is nothing wrong with it, than I suspec this is bug in DI is that rightu2026
This is my code
  Dim oInvoices As SAPbobsCOM.Documents
        Dim iRetVal As Integer = -1
        Dim sErrMsg As String = ""
        Dim isAddHeader As Boolean = True
        Dim iRow As Integer = 0
        Dim sWhsCode As String = ""
        Dim iAddedQty As Integer
        Dim iCurrLine As Double = 0
        Dim iBasedDoc As Integer = 0
        Dim sNewDocNum As String = ""
        Dim sCardCode As String = ""
        Dim isdocnum As String = ""
        Dim CompleteOrder As DataRow
        Try
            oInvoices = myCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
            For iRow = 0 To myOrderDetailsTable.Rows.Count - 1
                Console.WriteLine(myOrderDetailsTable.Rows(iRow).Item(ISSCANNED_FIELD))
                If myOrderDetailsTable.Rows(iRow).Item(ISSCANNED_FIELD) = 1 Then
                    Console.WriteLine(myOrderDetailsTable.Rows(iRow))
                    CompleteOrder = myOrderDetailsTable.Rows(iRow)
                    Console.WriteLine(sWhsCode & "   " & CompleteOrder(WHSCODE_FIELD))
                    sWhsCode = CompleteOrder(WHSCODE_FIELD)
                    With oInvoices
                        If isAddHeader Then
                            isdocnum = CompleteOrder(DOCNUM_FIELD)
                            iBasedDoc = CompleteOrder(DOCENTRY_FIELD)
                            sCardCode = CompleteOrder(CARDCODE_FIELD)
                            '.DocObjectCode = SAPbobsCOM.BoObjectTypes.oInvoices
                            .Reference2 = CompleteOrder(DOCENTRY_FIELD)
                            .DocDate = Today.Date
                            .DocDueDate = Today.Date
                            .TaxDate = Today.Date
                            Console.WriteLine("cardcode : " & sCardCode)
                            .CardCode = sCardCode
                            Console.WriteLine("ibasedDoc :" & iBasedDoc)
                            .Reference1 = iBasedDoc
                            isAddHeader = False
                        ElseIf isAddHeader = False Then
                            ' .Lines.Delete()
                            .Lines.Add()
                        End If ' isAddHeader
                        iAddedQty = 0
                        iCurrLine = 0
                        Console.WriteLine("CompleteOrder(ITEMCODE_FIELD) : " & CompleteOrder(ITEMCODE_FIELD))
                        .Lines.ItemCode = CompleteOrder(ITEMCODE_FIELD)
                        Console.WriteLine(".Lines.WarehouseCode = CompleteOrder(WHSCODE_FIELD) : " & CompleteOrder(WHSCODE_FIELD))
                        .Lines.WarehouseCode = CompleteOrder(WHSCODE_FIELD)
                        Console.WriteLine("Lines.UnitPrice = CompleteOrder(PRICE_FIELD) " & CompleteOrder(PRICE_FIELD))
                        .Lines.UnitPrice = CompleteOrder(PRICE_FIELD)
                        Console.WriteLine("CompleteOrder(ISUSEBATCH_FIELD) : " & CompleteOrder(ISUSEBATCH_FIELD))
                        If CompleteOrder(ISUSEBATCH_FIELD) = 1 Then
                            For iCurrLine = 0 To CompleteOrder(QUANTITY_FIELD) - 1
                                If iCurrLine > 0 Then .Lines.BatchNumbers.Add()
                                .Lines.BatchNumbers.SetCurrentLine(iCurrLine)
                                .Lines.BatchNumbers.Quantity = 1
                                Console.WriteLine("CompleteOrder(SCANNED_FIELD) :" & CompleteOrder(SCANNED_FIELD))
                                .Lines.BatchNumbers.BatchNumber = CompleteOrder(SCANNED_FIELD)
                                '.Lines.BaseEntry = iBasedDoc
                            Next
                        ElseIf CompleteOrder(ISUSEBATCH_FIELD) = 0 Then
                            Console.WriteLine("CompleteOrder(WHSCODE_FIELD) :" & CompleteOrder(WHSCODE_FIELD))
                            While sWhsCode = CompleteOrder(WHSCODE_FIELD)
                                If iCurrLine > 0 Then .Lines.SerialNumbers.Add()
                                .Lines.SerialNumbers.SetCurrentLine(iCurrLine)
                                Console.WriteLine("CompleteOrder(SYSSERIAL_FIELD)" & CompleteOrder(SYSSERIAL_FIELD))
                                CompleteOrder(SYSSERIAL_FIELD) = IIf(IsDBNull(CompleteOrder(SYSSERIAL_FIELD)), 0, CompleteOrder(SYSSERIAL_FIELD))
                                .Lines.SerialNumbers.SystemSerialNumber = CompleteOrder(SYSSERIAL_FIELD)
                                Console.WriteLine("CompleteOrder(SCANNED_FIELD) :" & CompleteOrder(SCANNED_FIELD))
                                .Lines.SerialNumbers.InternalSerialNumber = CompleteOrder(SCANNED_FIELD)
                                ' .Lines.BaseEntry = iBasedDoc
                                iCurrLine = iCurrLine + 1
                                iRow = iRow + 1
                                If iRow <= myOrderDetailsTable.Rows.Count - 1 Then
                                    CompleteOrder = myOrderDetailsTable.Rows(iRow)
                                ElseIf iRow > myOrderDetailsTable.Rows.Count - 1 Then
                                    Exit While
                                End If
                            End While
                            iRow = iRow - 1
                        End If
                        .Lines.Quantity = iCurrLine
                    End With ' oInvoices
                End If ' CompleteOrder(ISSCANNED_FIELD) = 1
            Next iRow
            iRetVal = oInvoices.Add()
thnx for your attention

Answer 1

Hello tony,
Please check the following:
1.Make sure the item is managed by serials
2.The serials number have been auto created in GRPO/AP invoice etc puchase document
3.You need to set the system serial number for the lines. How do you know the system serial number of the serial number? refer to the Serial Number Details form
Inventory=>Item management=>Serials Numbers=>Serial Number Details
SystemSerialNumber Sets or returns the successive numerator starting from1 issued for each item with serial numbers management. This numerator progresses according to the creation of new units of the same sort (for the same item).
This property is mandatory when using Serial Numbers for outgoing documents. Field name: SysSerial.This is a foreign key to the SerialNumbers object
Sample code to add invoice with items managed by serials:
Private Sub btnSerials_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSerials.Click
        ConnectViaDI()
        Dim oInvoice As SAPbobsCOM.Documents = Nothing
        oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oInvoice.CardCode = "C001"
        oInvoice.DocDueDate = Date.Now
        Dim oLines As SAPbobsCOM.Document_Lines = oInvoice.Lines
        oLines.ItemCode = "S00002"
        oLines.UnitPrice = 1500
        oLines.Quantity = 2
        oLines.TaxCode = "CA"
        'Set the system serial no. for the 1st item
        oLines.SerialNumbers.SystemSerialNumber = 3
        'Set the system serial no. for the 2nd item
        oLines.SerialNumbers.Add()
        oLines.SerialNumbers.SystemSerialNumber = 4
        lRetCode = oInvoice.Add
        If 0 <> lRetCode Then
            oCompany.GetLastError(lErrCode, errMsg)
            MsgBox(errMsg)
        Else
            MsgBox("AR Invoice with serials number added.")
        End If
    End Sub
Kind Regards, yatsea