[Event Request] Codeunit 10837 "Payment Management FR" - PostInvPostingBuffer

[STaillandier]

Why do you need this change?

On Payment Lines, user can set a reason code if SEPA payment is returned unpaid (new field in extension). This reason code should be saved in generated customer ledger entries during posting process.

With existing events :

• We can transfer reason code from Payment Line to InvPostingBuffer (OnGenerInvPostingBufferOnBeforeUpdtBuffer)
• We can transfer reason code from General Journal Line to Customer Ledger Entry (base App)

but we can't transfer value from InvPostingBuffer to General Journal Line

Describe the request

In procedure PostInvPostingBuffer(), we need to adjust existing code line 1096

local procedure PostInvPostingBuffer(): Integer
begin

[....]
GenJnlLine."Source No." := InvPostingBuffer[1]."Source No.";
GenJnlLine."External Document No." := InvPostingBuffer[1]."External Document No.";
GenJnlLine."Due Date" := InvPostingBuffer[1]."Due Date";
GenJnlLine."Shortcut Dimension 1 Code" := InvPostingBuffer[1]."Global Dimension 1 Code";
GenJnlLine."Shortcut Dimension 2 Code" := InvPostingBuffer[1]."Global Dimension 2 Code";
GenJnlLine."Dimension Set ID" := InvPostingBuffer[1]."Dimension Set ID";

    OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck(GenJnlLine, PaymentHeader, PaymentClass, PaymentLine);
    GenJnlPostLine.RunWithCheck(GenJnlLine);
    GLEntry.SetRange("Document Type", GenJnlLine."Document Type");
    GLEntry.SetRange("Document No.", GenJnlLine."Document No.");
    if GLEntry.FindLast() then
        exit(GLEntry."Entry No.");
    exit(0);
end;

We need :

Either ajust current event by adding a parameter InvPostingBuffer[1] in OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck

GenJnlLine."Dimension Set ID" := InvPostingBuffer[1]."Dimension Set ID";

OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck(GenJnlLine, PaymentHeader, PaymentClass, PaymentLine, InvPostingBuffer[1]); // NEW PARAMETER
GenJnlPostLine.RunWithCheck(GenJnlLine);

with publisher :
OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck(var GenJnlLine: Record "Gen. Journal Line"; var PaymentHeader: Record "Payment Header FR"; var PaymentClass: Record "Payment Class FR"; PaymentLine: Record "Payment Line FR"; InvPostingBuffer : record "Payment Post. Buffer FR")

Either add a new publisher before posting

GenJnlLine."Dimension Set ID" := InvPostingBuffer[1]."Dimension Set ID";
OnAfterCopyGenJnlLineFromInvPostingBuffer(GenJnlLine, InvPostingBuffer[1]); // NEW LINE

OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck(GenJnlLine, PaymentHeader, PaymentClass, PaymentLine);
GenJnlPostLine.RunWithCheck(GenJnlLine);

with publisher :
OnAfterCopyGenJnlLineFromInvPostingBuffer(var GenJnlLine: Record "Gen. Journal Line"; InvPostingBuffer : record "Payment Post. Buffer FR")

Internal work item: AB#636051

[AleksandricMarko]

Hi @STaillandier,

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Meaningful justification: Please explain the business scenario or technical intent that requires this change. What specific functionality depends on passing InvPostingBuffer[1] at this point? What business process requires access to Payment Post. Buffer FR data during GenJnlLine posting? Why is this data essential in PostInvPostingBuffer()?

Please update the issue with the missing details. We'll automatically re-analyze once updated.

[STaillandier]

Please update the issue with the missing details. We'll automatically re-analyze once updated.

Has this issue been re-analyzed ?

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnAfterCopyGenJnlLineFromInvPostingBuffer in the PostInvPostingBuffer procedure of Codeunit 10837 "Payment Management FR" after the GenJnlLine fields are copied from InvPostingBuffer[1] and before the existing OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck event, to allow transferring additional data from the posting buffer to the journal line.

Location in PostInvPostingBuffer procedure (around line 1106):

GenJnlLine."Shortcut Dimension 1 Code" := InvPostingBuffer[1]."Global Dimension 1 Code";
GenJnlLine."Shortcut Dimension 2 Code" := InvPostingBuffer[1]."Global Dimension 2 Code";
GenJnlLine."Dimension Set ID" := InvPostingBuffer[1]."Dimension Set ID";
OnAfterCopyGenJnlLineFromInvPostingBuffer(GenJnlLine, InvPostingBuffer[1]);  // <-- New event

OnPostInvPostingBufferOnBeforeGenJnlPostLineRunWithCheck(GenJnlLine, PaymentHeader, PaymentClass, PaymentLine);
GenJnlPostLine.RunWithCheck(GenJnlLine);

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnAfterCopyGenJnlLineFromInvPostingBuffer(var GenJnlLine: Record "Gen. Journal Line"; InvPostingBuffer: Record "Payment Post. Buffer FR")
begin
end;

---

File: PaymentManagementFR.Codeunit.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.