-2028 [nnm1], 'No matching records found (ODBC -2028)'

Question

Hi All
When the AR invoice saving, I am getting the error -2028 [nnm1], 'No matching records found (ODBC -2028)'
could any one help me in this regards
Amal

Answer 1

Hi ian
Here is my source code.  Could you help me what may be the wrong.
     Dim i As Integer
        Dim RetVal As Long
        Dim ErrCode As Long
        Dim ErrMsg As String = ""
        Dim sItemCode As String
        Dim dblQty As Double
        Dim sItemName As String
        Dim dblPrice As Double
        Dim dblDis As Double
        Dim sTax As String
        Dim dblTotal As Double
        Dim vInvoice As SAPbobsCOM.Documents
        vInvoice = vCmp.GetBusinessObject(BoObjectTypes.oInvoices)
        vInvoice.CardCode = txtCardCode.Text
        vInvoice.CardName = lblCardName.Text
        vInvoice.HandWritten = BoYesNoEnum.tNO
        vInvoice.DocDate = lblDate.Text
        vInvoice.DocTotal = Val(lblGrTotal.Text)
        vInvoice.DocType = BoDocumentTypes.dDocument_Items
        vInvoice.DocObjectCode = 13
        Dim lSingleItem As ListViewItem
        For i = 0 To ListView1.Items.Count - 1
            sItemCode = ListView1.Items(i).Text
            lSingleItem = ListView1.Items.Item(i)
            sItemName = lSingleItem.SubItems.Item(1).Text
            dblQty = Val(lSingleItem.SubItems.Item(2).Text)
            dblPrice = Val(lSingleItem.SubItems.Item(3).Text)
            dblDis = Val(lSingleItem.SubItems.Item(4).Text)
            sTax = lSingleItem.SubItems.Item(5).Text
            dblTotal = Val(lSingleItem.SubItems.Item(6).Text)
            vInvoice.Lines.ItemCode = sItemCode
            vInvoice.Lines.ItemDescription = sItemName
            vInvoice.Lines.Quantity = dblQty
            vInvoice.Lines.Price = dblPrice
            vInvoice.Lines.Currency = "INR"
            vInvoice.Lines.TaxCode = "VAT0"
            vInvoice.Lines.PriceAfterVAT = dblPrice
         if i>0 then vInvoice.Lines.Add()
        Next i
        RetVal = vInvoice.Add
        'Check the result
        If RetVal <> 0 Then
            vCmp.GetLastError(ErrCode, ErrMsg)
            MsgBox(ErrCode & " " & ErrMsg)
        End If