[ODLN.Series] , 'Internal error (-2038) occurred'

Question

Dear experts,
I have the following error "[ODLN.Series] , 'Internal error (-2038) occurred'" that occurs from time to time when I try to add a delivery based on a sales order with the DI API.
has any body else ever had the same error before ?
in the help the code number 2038 means a Data Source - Record Lock
I added a code that adds the delivery onther time each time this error occurs
what can i do to solve this issue ?
Best Regards
Abderrahim,

Answer 1

Dear Vieira ,
thank you for your respone
I don't think i can catch an inner exeception it's an error that I catch by the  oCompany.GetLastError(ierr, serr) ,how can i get more details of the 2038 error?
just one remark the deliveries are created very well,I think the errors occurs when there a lot of deliveries to create
this the code that adds de Delivery
Dim DocEntry As Integer
        Dim iPickID As Integer
        DocEntry = GetOrderEntry(H_So.order_no)
        iPickID = H_So.order_no.Substring(9, 6)
        Dim bGetOrder As Boolean = oOrder.GetByKey(DocEntry)
        oBP.GetByKey(oOrder.CardCode)
        oDelivery.CardCode = oOrder.CardCode
        oDelivery.HandWritten = SAPbobsCOM.BoYesNoEnum.tNO
        oDelivery.ImportFileNum = oOrder.ImportFileNum
         'Add lines into Delivery
         Dim bIsFirstLine As Boolean = True
        Dim iQtyConfirmed As Integer = 0
        For Each L_So As L_Conf_NYK In L_SoArray
            iQtyConfirmed += L_So.pkd_qty
            If bIsFirstLine = False Then
                oDelivery.Lines.Add()
            Else
                bIsFirstLine = False
            End If
            Dim VisOrder As Integer = Me.GetVisOrderLine(oOrder, CInt(L_So.line_no))
            oOrder.Lines.SetCurrentLine(VisOrder)
            Dim ItemCode As String = GetItemCode(L_So.product_no)
            Dim oPLQuantity As Integer = GetPLQuantity(oOrder)
            oDelivery.Lines.BaseEntry = oOrder.DocEntry
            oDelivery.Lines.ItemCode = ItemCode
            oDelivery.Lines.BaseLine = CInt(L_So.line_no)
            oDelivery.Lines.BaseType = 17
            oDelivery.Lines.Quantity = CDbl(L_So.pkd_qty)
        Next
        'Set expenses to the Delivrey
        Dim bIsFirstLoop As Boolean = True
        Dim i As Integer = 0
        Dim TotalFreightOnOrder As Double = 0
        While i < oOrder.Expenses.Count
            oOrder.Expenses.SetCurrentLine(i)
            TotalFreightOnOrder += oOrder.Expenses.LineTotal
            i += 1
        End While
        i = 0
        If TotalFreightOnOrder > 0 And iQtyConfirmed > 0 Then
            Do
                If bIsFirstLoop = True Then
                    bIsFirstLoop = False
                Else
                    oDelivery.Expenses.Add()
                End If
                oOrder.Expenses.SetCurrentLine(i)
                oDelivery.Expenses.ExpenseCode = oOrder.Expenses.ExpenseCode
                If oOrder.Expenses.LineTotalFC = 0 Then
                    oDelivery.Expenses.LineTotal = oOrder.Expenses.LineTotal
                Else
                    oDelivery.Expenses.LineTotal = oOrder.Expenses.LineTotalFC
                End If
                oDelivery.Expenses.TaxCode = oOrder.Expenses.TaxCode
                oDelivery.Expenses.BaseDocEntry = oOrder.DocEntry
                oDelivery.Expenses.BaseDocLine = oOrder.Expenses.LineNum
                oDelivery.Expenses.BaseDocType = oOrder.DocObjectCode
                i += 1
            Loop While i < oOrder.Expenses.Count
        End If
        Threading.Thread.Sleep(1000)
        Dim iAddition As Integer = 0
        Dim ierr As Integer
        'i try to create a delivery each time the error 5002 and 2038 errors occurs
        Do
            ierr = oDelivery.Add
            If ierr <> 0 Then
                ErrFlag = False
               Threading.Thread.Sleep(1000)
                iAddition += 1
            End If
        Loop While (Math.Abs(ierr) = 5002 Or Math.Abs(ierr) = 2038) And iAddition <= 5
         If ierr <> 0 Then
            ErrFlag = False
            Dim serr As String = ""
            oCompany.GetLastError(ierr, serr)
            Throw New Exception(serr & ". Delivery for order number " & oOrder.DocNum & " in the pick list number " & iPickID & " cannot be created.")
        End If
Best regards
Abderrahim
Edited by: Boukhris Abderrahim on Mar 13, 2009 1:24 PM