[Event Request] codeunit 444 "Purchase-Post Prepayments" - OnUpdatePurchaseDocumentOnBeforeFindSetCrMemoPurchLine

[tuan-nguyen-fenwick]

Why do you need this change?

We would like to request a new integration event to add a filter before findset of credit memo lines in the UpdatePurchaseDocument procedure in codeunit 444 "Purchase-Post Prepayments".

Describe the request

We need the event here, right before FindSet of the credit memo lines:

    [IntegrationEvent(false, false)]
    local procedure OnUpdatePurchaseDocumentOnBeforeFindSetCrMemoPurchLine(PurchaseHeader: Record "Purchase Header"; var PurchaseLine: Record "Purchase Line")
    begin
    end;

Internal work item: AB#646145

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in the UpdatePurchaseDocument procedure of Codeunit 444 "Purchase-Post Prepayments" immediately before the FindSet(true) call for credit memo purchase lines so extensions can apply additional filters to PurchaseLine.

Location in UpdatePurchaseDocument procedure:

        end else begin
            PurchaseHeader."Last Prepmt. Cr. Memo No." := GenJnlLineDocNo;
            PurchaseHeader."Prepmt. Cr. Memo No." := '';
            PurchLine.SetFilter("Prepmt. Amt. Inv.", '<>0');
            OnUpdatePurchaseDocumentOnBeforeFindSetCrMemoPurchLine(PurchaseHeader, PurchLine);
            if PurchLine.FindSet(true) then
                repeat
                    PurchLine."Prepmt. Amt. Inv." := PurchLine."Prepmt Amt Deducted";
                    if PurchaseHeader."Prices Including VAT" then
                        PurchLine."Prepmt. Amount Inv. Incl. VAT" := PurchLine."Prepmt. Amt. Inv."
                    else
                        PurchLine."Prepmt. Amount Inv. Incl. VAT" :=
                          Round(
                            PurchLine."Prepmt. Amt. Inv." * (100 + PurchLine."Prepayment VAT %") / 100,
                            GetCurrencyAmountRoundingPrecision(PurchLine."Currency Code"));

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

    [IntegrationEvent(false, false)]
    local procedure OnUpdatePurchaseDocumentOnBeforeFindSetCrMemoPurchLine(PurchaseHeader: Record "Purchase Header"; var PurchaseLine: Record "Purchase Line")
    begin
    end;

---

File: PurchasePostPrepayments.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.