Problem canceling an incoming Payment

Question

Hello Everybody
I'm trying to cancel an Incoming Payment using DI API.
When i do
oDocIP.GetByKey(iDocIPnumber)
I have the document (checked that by saving it as an XML File)
But wen i call the cancel method i have a -2028 Error "No Entry Found"
The incoming payment's payment mean is a bill of exchange.
Thanks in advance for your help
Best Regards

Answer 1

Hello,
For me working Fine my code, which i publish here.
I really do now know what object you are using... oDI.oCompany, but not a problem....
Maybe please cleanup you SM_OBS_DLL, this somethimes solves the the problem...
So my code is....
Private Sub CancelPayment(ByVal sIvoiceID As String)
        Try
            Dim oPay As SAPbobsCOM.Payments = oCompany.GetBusinessObject(BoObjectTypes.oIncomingPayments)
            Dim oRs As SAPbobsCOM.Recordset = oCompany.GetBusinessObject(BoObjectTypes.BoRecordset)
            Dim s As String = String.Format("SELECT T0.DocNum FROM ORCT T0 INNER JOIN RCT2 T1 ON T0.DocNum  = T1.DocNum Where T1.DocEntry = '{0}' and T1.InvType=13", sIvoiceID)
            oRs.DoQuery(s)
            Do While Not oRs.EoF
                oPay = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oIncomingPayments)
                If oPay.GetByKey(oRs.Fields.Item(0).Value.ToString()) Then
                    If oPay.Cancel <> 0 Then
                        MsgBox(String.Format("{0}-{1}", oCompany.GetLastErrorCode, oCompany.GetLastErrorDescription))
                    End If
                Else
                    MsgBox("Payment not found")
                End If
                oRs.MoveNext()
            Loop
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            GC.Collect()
        End Try
    End Sub
Take care:
When you pay an invoice partially, example using 2 payments, each payments should be cancelled -> Put the payment object inside the loop, otherwise
you will have some problems with the garbage of DI API. Maybe this causes the problem....
Tested on B1 2007 PL49 and SP1PL05
Regards
J.