Copy the Frieght/AdditionalExpenses from SO to Delivery document

Question

Hi,
I want to copy the Frieght/AdditionalExpenses from SO to Delivery document. I'm using the following code.
When I'm adding DL document, I get internal error -5002.
Please help me.
Thank you.
            Dim objBaseDoc As SAPbobsCOM.Documents
                    objBaseDoc = objSBOAPI.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
            If objBaseDoc.GetByKey(strFirstDocEntry) = True Then
                Call AddExpensesFromBaseDoc(objDLDoc, objBaseDoc.Expenses)
Private Function AddExpensesFromBaseDoc(ByRef objDLDoc As SAPbobsCOM.Documents, ByRef objExpenses As SAPbobsCOM.DocumentsAdditionalExpenses)
        Try
            Dim i As Integer, ncnt As Integer, nIndexToStart As Integer
            nIndexToStart = objDLDoc.Expenses.Count
            Try
                objDLDoc.Expenses.SetCurrentLine(nIndexToStart)
            Catch ex As Exception
                objDLDoc.Expenses.Add()
            End Try
            ncnt = objExpenses.Count
            For i = 0 To ncnt - 1
                objExpenses.SetCurrentLine(i)
                objDLDoc.Expenses.SetCurrentLine(nIndexToStart + i)
                objDLDoc.Expenses.ExpenseCode = objExpenses.ExpenseCode
                objDLDoc.Expenses.LineTotal = objExpenses.LineTotal
                'objDLDoc.Expenses.TaxCode = objExpenses.TaxCode
                If (i + 1) < ncnt Then
                    objDLDoc.Expenses.Add()
                End If
            Next
        Catch ex As Exception
            Call objSBOAPI.SBO_Appln.MessageBox("AddExpensesFromBaseDoc " & ex.Message)
        End Try
    End Function

Answer 1

Hi Geetha,
The most likely reason for that error message is that there's a blank expenses line in the delivery. If you put a break point just before you try and add the delivery, check to see if every expenses line in the delivery has an expense code.
I suspect the problem is that the document object will automatically have a Expenses.Count value of 1, even if no expenses have been added. Therefore, if you've just created a new instance of a delivery document your following code will add a new expenses line but leave the first line empty:
nIndexToStart = objDLDoc.Expenses.Count
Try
objDLDoc.Expenses.SetCurrentLine(nIndexToStart)
Catch ex As Exception
objDLDoc.Expenses.Add()
End Try
You need to add logic to this, if Count is 1, then check to see if an expenses code has been set for this line. If not, then you need to overwrite the values in the first expenses line. If the count is 1 and there is an expenses code set on this line then you need to add a new expenses line.
Kind Regards,
Owen