Partially Paying AR Invoices using DTW

Question

I am trying to add a cash payment for $500 against a $1000 invoice using DTW by filling in the below fields. However, it is closing the invoice even though it hasn't been fully paid.
Are there additional fields that I need to fill in to specify that I want to keep the invoice open?
Thanks,
Mike
Payments Object:
Recordkey = 1
CardCode = "5AGRIL1"
CashAccount = "_SYS000000000951"
CashSum = 500.00
DocDate = 20050701
Payments_Invoices Object:
Recordkey = 1
DocEntry = 5
SumApplied = 500.00

Answer 1

Hi Mike,
Here's a cleaned up snippet that makes the payment partial if the payment sum is less than the open total for the invoice. It's written in VB6 (sorry for that).
Henry
Public Function CreateIncomingPaymentForInvoice(inv As Documents, invoiceDocEntry As Long, inBankAccount As String, sumApplied As Double, paymentDate As Date, strGLAccount As String) As String
    Dim pay As SAPbobsCOM.Payments
    Dim lRetCode, lErrCode As Long
    Dim sErrMsg As String   
On Error GoTo PayFailed   
    Set pay = vCmp.GetBusinessObject(oIncomingPayments)
    'The following line enables partial payment
    pay.Invoices.sumApplied = sumApplied
    pay.cardCode = inv.cardCode
    pay.cardname = inv.cardname
    pay.BankAccount = inBankAccount
    pay.docDate = paymentDate
    pay.TaxDate = paymentDate
    pay.TransferDate = paymentDate
    pay.docCurrency = "EUR"
    pay.ApplyVAT = tYES
    pay.TransferAccount = strGLAccount
    pay.TransferSum = sumApplied
    pay.Invoices.docEntry = invoiceDocEntry
    pay.Invoices.DocLine = 1
    pay.Invoices.InvoiceType = it_Invoice
    lRetCode = pay.Add     
    If lRetCode = 0 Then
        CreateIncomingPaymentForInvoice = "" ' no error
        Exit Function
    End If
PayFailed:
    vCmp.GetLastError lErrCode, sErrMsg
    CreateIncomingPaymentForInvoice = "" & lErrCode & ", " & sErrMsg
End Function