How to set Amount to Apply in Payment Allocation to invoice from code

samantha73samantha73 Member Posts: 78
Hi Guys
I thought it's simple to allocate payments to invoices from code but after couple of days of trying I need help..:)
Basically it works setting the Applied-To-Id and remaining amount , but always takes the remaining amount instead of the amount to apply
This is my simple codeunit
var
        CustLedgEntry: Record "Cust. Ledger Entry";
        ApplyingCustLedgEntry: Record "Cust. Ledger Entry";
        CustEntrySetApplID: Codeunit "Cust. Entry-SetAppl.ID";
    
        CustEntryApplyPostedEntries: Codeunit "CustEntry-Apply Posted Entries";

    begin

        CustLedgEntry.SetRange("Entry No.", 144);
        ApplyingCustLedgEntry.SetRange("Entry No.", 157);
        CustLedgEntry.Validate("Amount to Apply", -25);

        ApplyingCustLedgEntry.Validate("Applies-to ID", 'TEST1234');
        ApplyingCustLedgEntry.VALIDATE("Amount to Apply", 25);
        CustEntrySetApplID.SetApplId(CustLedgEntry, ApplyingCustLedgEntry, 'test1234');

        ApplyingCustLedgEntry.VALIDATE("Amount to Apply", 25);

        ApplyingCustLedgEntry.MODIFY(true);

        CustEntryApplyPostedEntries.Apply(ApplyingCustLedgEntry, ApplyingCustLedgEntry."Document No.", CustLedgEntry."Posting Date");

    end;

so far the only way to get amount to apply populated was changing the setappl.ID codeunit (creating my own) as below
if ((CustLedgerEntry."Amount to Apply" <> 0) and (CustEntryApplID = '')) or
           (CustEntryApplID = '')
        then
            CustLedgerEntry."Amount to Apply" := [b]ApplyingCustLedgerEntry."Amount to Apply" * -1[/b]//-1//original 0
        else
            if CustLedgerEntry."Amount to Apply" = 0 then begin
                CustLedgerEntry.CalcFields("Remaining Amount");
                CustLedgerEntry."Amount to Apply" := [b]ApplyingCustLedgerEntry."Amount to Apply" * -1[/b];//original CustLedgerEntry."Remaining Amount"
            end;

I still cannot use above since I need discounts, tolerance etc to be working and want to get see the best possible option. Looks like writing to ledger entries is quite complicated

Answers

  • txerifftxeriff Member Posts: 480
    Hi,

    So you want to override "amount to apply" field.
    Why dont you create an event subscriber to onaftervalidate for that field?
    not sure if I understand what do you want to do.
  • samantha73samantha73 Member Posts: 78
    Ok thanks..let me try to explain - it's simple . From the front end you can part pay (invoice remaining 100 payment 50) an invoice though either cash receipt journal or payment journal. How to do this from code?
  • txerifftxeriff Member Posts: 480
    you can use also "applies to do type" and "applies to doc no" fields instead "applies to id". that should solve the issue.

    if you would need to split a payment between several documents proportionally, then you would need to set applies to ID and amount to apply in customer ledger entry/vendor ledger entry.

    I think it's codeunits 226/227 that will allow you to edit both tables.

    just follow the code in nav standard, I've done this a lot years ago but I dont recall precisely.

    hoe this helps.
Sign In or Register to comment.