Error No: -2028, Err Desc: " - ", when executing oDeliveryNotes.Add

Question

Sample code
Dim vSO As SAPbobsCOM.Documents
            Dim vSOLines As SAPbobsCOM.Document_Lines
            Dim vDeliveryLines As SAPbobsCOM.Document_Lines
            Dim vDelivery As SAPbobsCOM.Documents
            Dim lRetCode As Long
            Dim bLineAdded As Boolean
            Dim sDocEntry As String
            Try
                vSO = pCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
                'sDocEntry = GetDocEntry(sSO, DocumentTypes.SalesOrder)
                sDocEntry = sSO
                MsgBox(sSO)
                If vSO.GetByKey(sDocEntry) Then
                    vDelivery = pCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
                    vDelivery.CardCode = vSO.CardCode
                    vDelivery.NumAtCard = vSO.NumAtCard
                    ' vDelivery.SalesPersonCode = vSO.SalesPersonCode
                    ' vDelivery.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
                    vDelivery.DocumentSubType = SAPbobsCOM.BoDocumentSubType.bod_None
                    '  vDelivery.Address = "N/A" ' vSO.Address
                    ' vDelivery.ShipToCode = "PL100" 'vSO.ShipToCode"
                    ' vDelivery.Address2 = "Add 2" 'vSO.Address2
                    ' vDelivery.HandWritten = SAPbobsCOM.BoYesNoEnum.tNO
                    ' vDelivery.JournalMemo = "Delivery - C1000" '"Delivery - " & vSO.CardCode
                    ' vDelivery.Comments = "NONE" '"Based on SO " & sSO
                    'vDelivery.PaymentGroupCode = vSO.PaymentGroupCode
                    'vDelivery.DocObjectCode = SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                    'vDelivery.DocObjectCodeEx = SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                    ' vDelivery.DocDueDate = Now.Month & "/" & Now.Day & "/" & Now.Year
                    If vSO.UserFields.Fields.Item("U_CDIASNF").Value <> "" Then
                        vDelivery.UserFields.Fields.Item("U_CDIASNF").Value = vSO.UserFields.Fields.Item("U_CDIASNF").Value
                    End If
                    vSOLines = vSO.Lines
                    vDeliveryLines = vDelivery.Lines
                    bLineAdded = False
                    Dim iCnt As Integer
                    For iCnt = 0 To vSOLines.Count - 1
                        If bLineAdded = True Then
                            vDeliveryLines.Add()
                        Else
                            bLineAdded = True
                        End If
                        vSOLines.SetCurrentLine(iCnt)
                        vDeliveryLines.ItemCode = vSOLines.ItemCode
                        MsgBox(vSOLines.ItemCode) ' riade
                        vDeliveryLines.Quantity = vSOLines.Quantity
                        MsgBox(vSOLines.Quantity)
                        vDeliveryLines.Rate = 1 'vSOLines.Rate
                        MsgBox(vSOLines.Rate)
                        If vSO.Lines.UserFields.Fields.Item("U_CDIShkey").Value <> "" Then
                            vDeliveryLines.UserFields.Fields.Item("U_CDIShkey").Value = vSO.Lines.UserFields.Fields.Item("U_CDIShkey").Value
                        End If
                        If vSO.Lines.UserFields.Fields.Item("U_CDIPO").Value <> "" Then
                            vDeliveryLines.UserFields.Fields.Item("U_CDIPO").Value = vSO.Lines.UserFields.Fields.Item("U_CDIPO").Value
                        End If
                        vDeliveryLines.BaseType = SAPbobsCOM.BoAPARDocumentTypes.bodt_Order
                        vDeliveryLines.BaseEntry = sDocEntry
                        vDeliveryLines.BaseLine = iCnt
                    Next
                    Dim sErrRiade As String
                    <b>lRetCode = vDelivery.Add()</b>
                    sErrRiade = pCompany.GetLastErrorDescription 'add by Riade
                    If lRetCode <> 0 Then
                        Dim sErr As String
                        'pCompany.GetLastError(lRetCode, sErr) 'commented
                        sErr = pCompany.GetLastErrorDescription 'add by Riade
                        SBO_Application.MessageBox(sErr)
                        Return False
                        Exit Function
                    End If

Answer 1

Hi,
Maybe the problem is this line:
vDeliveryLines.BaseLine = iCnt
The baseline should be filled with the LineNum of the sales order line. The linenum of a line is NOT ALWAYS the same as the counter used in the setCurrentLine method! If you delete lines in an order the LineNum has gaps! So I suggest you use the following:
vDeliveryLines.BaseLine = vSOLines.LineNum
Hope this helps,
Jacco Moolenaar.