Outgoing payment based on CreditNote

Question

Hi,
How do I create an Outgoing payment for customer based on a fresh CreditNote  with the DI API in C# please ?
I did try many combination from many different BoObjectTypes to many different BoRcptInvType and the code bellow is the last one I did try and I know it doesn't work
// Maybe it's not the one for CreditMemo
SAPbobsCOM.Payments Payment = (SAPbobsCOM.Payments)oCompany.GetBusinessObject(BoObjectTypes.oVendorPayments);
Payment.DocObjectCode =  BoPaymentsObjectType.bopot_OutgoingPayments;
Payment.CardCode = Document.CardCode;
Payment.DocDate = DateTime.Now;
Payment.DocCurrency = Document.DocCurrency;
Payment.LocalCurrency = BoYesNoEnum.tYES;
Payment.DocType = BoRcptTypes.rCustomer;
Payment.HandWritten = BoYesNoEnum.tNO;
Payment.CashSum = double.Parse(HeadersTable.Field["pos_DocTotal"].ToString());
Payment.DocRate = 0;
Payment.TaxDate = DateTime.Now;
Payment.ContactPersonCode = Document.ContactPersonCode;
Payment.ApplyVAT = BoYesNoEnum.tYES;
Payment.JournalRemarks = Document.JournalMemo;
Payment.Invoices.AppliedFC = 0;
Payment.Invoices.DocEntry = int.Parse(ObjectCode);           // The CreditMemo I just created...
Payment.Invoices.InvoiceType = BoRcptInvTypes.it_Return;  // MUST BE WRONG HERE
Payment.Invoices.SumApplied = Payment.CashSum;
Payment.Invoices.Add();
if (Payment.Add() != 0)
    oCompany.GetLastError(out ErrorCode, out ErrorMsg);
    LogError(ErrorCode.ToString() + " : " + ErrorMsg);
    oCompany.EndTransaction(BoWfTransOpt.wf_RollBack);
else
    oCompany.EndTransaction(BoWfTransOpt.wf_Commit);

Answer 1

here the entire method that creates my CreditMemo which works fine and have no error on it.
private void CreateCreditMemo()
            try
                SAPbobsCOM.Documents Document = (SAPbobsCOM.Documents)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oCreditNotes);
                SAPbobsCOM.BusinessPartners bp = (SAPbobsCOM.BusinessPartners)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners);
                SAPbobsCOM.Items Items = (SAPbobsCOM.Items)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oItems);
                string CardCode = HeadersTable.Field["pos_CardCode"].ToString();
                // The business partner is necessary
                if (bp.GetByKey(CardCode))
                    Document.CardCode = CardCode;
                    Document.HandWritten = BoYesNoEnum.tNO;
                    Document.PaymentGroupCode = -1;
                    Document.DocDate = DateTime.Parse(HeadersTable.Field["pos_DocDate"].ToString());
                    Document.DocType = BoDocumentTypes.dDocument_Items;
                    Document.DocCurrency = bp.Currency;
                    Document.NumAtCard = HeadersTable.Field["pos_Ref1"].ToString();
                    Document.Series = GetSeriesFromCardCode(CardCode, DOCTYPE.RETURN);
                    // Now adding the detail for this credit memo
                    while (!DetailsTable.EOF)
                        // I did it this way to debug variables faster.  That's all
                        string ItemCode = DetailsTable.Field["detail_ItemCode"].ToString();
                        string ItemDescription = DetailsTable.Field["detail_ItemDesc"].ToString();
                        double PriceAfterVAT = double.Parse(DetailsTable.Field["detail_PriceOfVat"].ToString());
                        double Price = double.Parse(DetailsTable.Field["detail_Price"].ToString());
                        double Quantity = double.Parse(DetailsTable.Field["detail_Quantity"].ToString());
                        string WhsCode = DetailsTable.Field["detail_WhsCode"].ToString();
                        if (!Items.GetByKey(ItemCode))
                            LogError("The ItemCode " + ItemCode + " doesn't exist");
                            return;
                        else
                            Document.Lines.ItemCode = ItemCode;
                            Document.Lines.ItemDescription = ItemDescription;
                            Document.Lines.PriceAfterVAT = PriceAfterVAT;
                            Document.Lines.Price = Price;
                            Document.Lines.Quantity = Quantity;
                            Document.Lines.WarehouseCode = WhsCode;
                            Document.Lines.TaxCode = SAP.GetTaxCodeFromAddresses(bp.Addresses);
                            DetailsTable.MoveNext();
                            if (!DetailsTable.EOF)
                                Document.Lines.Add();
                    if (Document.Add() != 0)
                        oCompany.GetLastError(out ErrorCode, out ErrorMsg);
                        LogError(ErrorCode.ToString() + " : " + ErrorMsg + " when adding the credit memo " + CardCode);
                    else
                        CreateOutgoingPayment(Document);
                else
                    LogError("The business partner " + CardCode + " doesn't exist in SAP Business Partners");
            catch (Exception ex)
                LogError(ex.Message + " when creating credit memo for " + blabla + " on " + DateTime.Now.ToString());