Apply Cash Payment and Credit Memo to an Invoice via DI API

Question

Hi, All:
I would like to be able to create an invoice and apply cash and a credit memo to it which equals the total of the invoice.  This will close out the invoice.
Does anyone out here know if this can be done through the DI API?  If so, some sample code would be greatly appreciated.
Thanks.

Answer 1

For those of you who are wondering, here is an example:
                int invoiceDocEntry = 0;
                int creditMemoDocEntry = 0;
                Documents invoice = (Documents)company.GetBusinessObject(BoObjectTypes.oInvoices);
                invoice.CardCode = "S001600";
                invoice.DocDate = DateTime.Today;
                invoice.DocDueDate = DateTime.Today;
                invoice.Lines.ItemCode = "A2-IC-6"; //$78.00
                invoice.Lines.Quantity = 2;
                invoice.Add();
                if(invoice.Add() != 0)
                    throw new Exception("Could not add invoice: " + company.GetLastErrorDescription());
                invoiceDocEntry = Int32.Parse(company.GetNewObjectKey());
                System.Runtime.InteropServices.Marshal.ReleaseComObject(invoice);
                Documents creditMemo = (Documents)company.GetBusinessObject(BoObjectTypes.oCreditNotes);
                creditMemo.CardCode = "S001600";
                creditMemo.DocDate = DateTime.Today;
                creditMemo.DocDueDate = DateTime.Today;
                creditMemo.Lines.ItemCode = "B4-HDMI-.7";
                creditMemo.Lines.Quantity = 1;   // $10.00
                if(creditMemo.Add() != 0)
                    throw new Exception("Could not add credit memo: " + company.GetLastErrorDescription());
                creditMemoDocEntry = Int32.Parse(company.GetNewObjectKey());
                System.Runtime.InteropServices.Marshal.ReleaseComObject(creditMemo);
                Payments payment = (Payments)company.GetBusinessObject(BoObjectTypes.oIncomingPayments);
                payment.CardCode = "S001600";
                payment.Checks.CheckSum = 68.00;
                payment.Checks.CheckNumber = 100;
                payment.Invoices.DocEntry = creditMemoDocEntry;
                payment.Invoices.InvoiceType = BoRcptInvTypes.it_CredItnote;
                payment.Invoices.Add();
                payment.Invoices.DocEntry = invoiceDocEntry;
                payment.Invoices.InvoiceType = BoRcptInvTypes.it_Invoice;
                if(payment.Add() != 0)
                    throw new Exception("Could not add payment: " + company.GetLastErrorDescription());
                System.Runtime.InteropServices.Marshal.ReleaseComObject(payment);