Internal Error -10 and -238

Question

Hi guys,
Has anybody ever encountered the internal error (-10) message when adding documents ?
Your help is really appreciated.
Thanks in advance.
Regards,
RICKY

Answer 1

Module modTest1
    Dim oCompany As SAPbobsCOM.Company
    Dim oDocuments As SAPbobsCOM.Documents
    Dim oRec As SAPbobsCOM.Recordset
    Dim sItemCode As String = ""
    Dim sWarehouseCode As String = ""
    Dim dIssuedQty As Double = 0
    Dim dCurrentQty As Double = 0
    Private Sub addGI()
        oCompany.StartTransaction()
        oDocuments = CType(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInventoryGenExit), SAPbobsCOM.Documents)
        oDocuments.DocDate = Today
        oDocuments.DocDueDate = Today.AddDays(10)
        oDocuments.Series = 0 'fill with appropriate data according to the Database
        oDocuments.JournalMemo = "Hello World"
        sItemCode = "" 'fill with appropriate data according to the Database
        sWarehouseCode = "" 'fill with appropriate data according to the Database
        dIssuedQty = 0 'fill with appropriate data according to the Database
        oDocuments.Lines.ItemCode = sItemCode
        oDocuments.Lines.AccountCode = "" 'fill with appropriate data according to the Database
        oDocuments.Lines.Quantity = dIssuedQty
        oDocuments.Lines.WarehouseCode = sWarehouseCode
        oDocuments.Lines.ProjectCode = "" 'fill with appropriate data according to the Database
        oDocuments.Lines.CostingCode = "" 'fill with appropriate data according to the Database
        oRec.DoQuery("SELECT BatchNum, Quantity FROM OIBT WHERE Quantity > 0 AND ItemCode = '" & sItemCode & "' AND WhsCode = '" & sWarehouseCode & "' ORDER BY BatchNum ASC, InDate ASC, CreateDate ASC")
        If oRec.RecordCount > 0 Then
            oRec.MoveFirst()
            While Not oRec.EoF
                dCurrentQty = CDbl(oRec.Fields.Item("Quantity").Value) - dIssuedQty
                If dCurrentQty < 0 Then
                    oDocuments.Lines.BatchNumbers.Quantity = CDbl(oRec.Fields.Item("Quantity").Value)
                    oDocuments.Lines.BatchNumbers.BatchNumber = oRec.Fields.Item("BatchNum").Value.ToString
                    dIssuedQty = dIssuedQty - CDbl(oRec.Fields.Item("Quantity").Value)
                    oDocuments.Lines.BatchNumbers.Add()
                Else
                    oDocuments.Lines.BatchNumbers.Quantity = dIssuedQty
                    oDocuments.Lines.BatchNumbers.BatchNumber = oRec.Fields.Item("BatchNum").Value.ToString
                    Exit While
                End If
                oRec.MoveNext()
            End While
        End If
        Dim iErrStatus As Integer
        iErrStatus = oDocuments.Add
        Dim sSAPID As String = ""
        If iErrStatus <> 0 Then
            sSAPID = ""
        Else
            oCompany.GetNewObjectCode(sSAPID)
        End If
        Dim sDocNum As String = ""
        If sSAPID <> "" Then
            If oDocuments.GetByKey(CInt(sSAPID)) = True Then
                sDocNum = oDocuments.DocNum.ToString
            End If
        End If
        If iErrStatus <> 0 Then
            Dim sErrMsg As String = ""
            sErrMsg = oCompany.GetLastErrorDescription '(iErrStatus, sErrMsg)
            If oCompany.InTransaction Then
                oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack)
            End If
        Else
            If oCompany.InTransaction Then
                oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
            End If
        End If
    End Sub
End Module
it should be like this (has been simplified)