Invoice - not matching record found (ODBC -2028) Problem

Question

hi,
when i'm going to raise the invoice based on sales order, it displays above mention error message. if anyone can help me to find this error.
here i'm going to retrive previous open sales order and raise an invoce.
here is my cording.
MB_oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
            MB_oRecSet = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            Dim sql As String = "SELECT T0.DocNum FROM ORDR T0  INNER JOIN RDR1 T1 ON T0.DocEntry = T1.DocEntry WHERE T1.ItemCode =" & strItmCode & " and  T0.DocDate ='" & dtDocDate.Date & "' and  T0.DocStatus ='O'"
            MB_oRecSet.DoQuery(sql)
            MB_oRecSet.MoveFirst()
            If MB_oRecSet.EoF = True And MB_oRecSet.BoF = True Then
                Return False
            End If
            Dim i As Integer
            'oCompany.GetNewObjectCode(MB_oRecSet.Fields.Item(0).Value)
            With MB_oInvoice
                .CardCode = "Duo_Sub"
                .CardName = "Monthly Subscription"
                .Lines.BaseType = SAPbobsCOM.BoObjectTypes.oOrders
                .Lines.SetCurrentLine(0)
                .Lines.BaseEntry = MB_oRecSet.Fields.Item(0).Value
                .Lines.BaseLine = 0
                .Lines.ItemCode = strItmCode
                .Lines.LineTotal = dblTot
                .Lines.Quantity = decQty
                .Lines.TaxCode = "EXEM OUT"
                .Lines.WTLiable = SAPbobsCOM.BoYesNoEnum.tNO
                .Lines.Add()
                i = .Add()
                Dim sa As String
                Dim ik As Integer
                oCompany.GetLastError(ik, sa)
                If (sa <> "") Then
                    SBO_Application.MessageBox(ik & sa)
                End If
            End With
kind regards,
chaminda ratnayake

Answer 1

Hi Chaminda!
You need the DocEntry instead of the DocNum
=> "SELECT T0.DocNum FROM ORDR..."
here you have to set the DocEntry of your Sales Order
=> .Lines.BaseEntry = MB_oRecSet.Fields.Item(0).Value
Matthias