Incoming Payment Error(-2028) Data source - No data found, pls help me

Question

Dear friend,
Im struggle in Adding Incomming Payment, I got -2028 Error msg,
DATA SOURCE – NO DATA FOUND pls help me to solve
Its My code
Public Sub incopay(ByVal oform As SAPbouiCOM.Form)
        Dim incom As SAPbobsCOM.Payments
        Dim value As Integer
        Dim strerror As String
        Try
            Dim rset As SAPbobsCOM.Recordset
            oitem = oform.Items.Item("om")
            oedit = oitem.Specific
            vfd1 = oedit.String
            incom = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oIncomingPayments)
            incom.AccountPayments.AccountCode = acc
            incom.AccountPayments.AccountName = accn
            incom.AccountPayments.Decription = "deposit"
            incom.AccountPayments.SumPaid = vfd1
            'incom.CardCode = "C1"
            'incom.CardName = "Shama Broadcast Contents & Services (P) Ltd."
            incom.DocDate = Now
            incom.DueDate = Now
            incom.TaxDate = Now
            incom.DocCurrency = "INR"
            incom.Reference2 = 2
            incom.JournalRemarks = "Incoming Payments - 161020"
            'incom.AccountPayments.Add()
            'value = incom.Add
            incom.CheckAccount = "102020"
            incom.Checks.DueDate = Now
            incom.Checks.CountryCode = "IN"
            incom.Checks.BankCode = "HDFC"
            incom.Checks.Trnsfrable = SAPbobsCOM.BoYesNoEnum.tNO
            incom.Checks.CheckSum = 100
            incom.Checks.Add()
            incom.AccountPayments.Add()
            value = incom.Add
        Catch ex As Exception
            oapp.MessageBox(ex.Message)
        End Try
        ''incom.AccountPayments.Add()
        ''value = incom.Add()
        If value <> 0 Then
            ocompany.GetLastError(value, strerror)
            MsgBox(value & "   " & strerror)
        End If
    End Sub
Regards,
Hempradeep.S

Answer 1

Hi Hempradeep,
I haven't tried executing your code, but suggest that you try and solve it with elimination. This means you make your code shorter and shorter until it posts.
So firstly take out the account payment and the check payments and just do a cash payment and see if it posts. If it posts then you gradually add the code you hade previously until it gives you that error again.
That error you got can be because of many reasons. It could be that the cardcode, gl account, currency, etc, etc, etc does not exist. It could be because of any data you specify from another table does not exist or does not relate to this object. Like when you're posting to a customer and you actually specify a supplier (just an example and not your problem).
Start with a very basic incoming payment and work your way up to the code you've got there now.
Good luck,
Adele