[Event Request] - codeunit 1402 "Cancel Posted Purch. Cr. Memo" - OnBeforeTestCorrectCrMemoIsAllowed

[krasivarna]

Why do you need this change?

Hello This event publisher will use to set in record Purchase Credit Memo Header some fields. I review another codeunit for cancel posted sales credit memo. In this codeunit is exist such publisher

Describe the request

I paste the procedure of codeunit 1402 "Cancel Posted Purch. Cr. Memo". Between code I shall add the new lines which marked with comment "new line". In the end of codeunit must add new publisher OnBeforeTestCorrectCrMemoIsAllowed

procedure TestCorrectCrMemoIsAllowed(var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr.")
var //new line
IsHandled: Boolean; //new line
begin
IsHandled := false; //new line
OnBeforeTestCorrectCrMemoIsAllowed(PurchCrMemoHdr, IsHandled); //new line
if not IsHandled then begin //new line
TestIfPostingIsAllowed(PurchCrMemoHdr);
TestIfVendorIsBlocked(PurchCrMemoHdr, PurchCrMemoHdr."Buy-from Vendor No.");
TestIfVendorIsBlocked(PurchCrMemoHdr, PurchCrMemoHdr."Pay-to Vendor No.");
TestIfInvoiceIsCorrectedOnce(PurchCrMemoHdr);
TestIfCrMemoIsCorrectiveDoc(PurchCrMemoHdr);
TestVendorDimension(PurchCrMemoHdr, PurchCrMemoHdr."Pay-to Vendor No.");
TestDimensionOnHeader(PurchCrMemoHdr);
TestPurchLines(PurchCrMemoHdr);
TestIfAnyFreeNumberSeries(PurchCrMemoHdr);
TestExternalDocument(PurchCrMemoHdr);
TestInventoryPostingClosed(PurchCrMemoHdr);
end; //new line

OnAfterTestCorrectCrMemoIsAllowed(PurchCrMemoHdr);

end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestCorrectCrMemoIsAllowed(var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr.; var IsHandled: Boolean)
begin
end;

[github-actions]

Hi @krasivarna,

Thank you for your extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Specific title: Update the title so it identifies the exact procedure or event being requested, not just the codeunit.
• Alternatives considered: Explain which existing extensibility options or events in this flow were reviewed and why they are insufficient.
• IsHandled justification: Clarify why bypassing the standard validation logic with IsHandled is required instead of using a regular event.
• Performance considerations: Add a brief note about expected execution frequency and any performance impact.
• Data sensitivity review: Confirm whether this change exposes any sensitive data and whether that is acceptable.
• Multi-extension interaction: Describe how conflicts should be handled if multiple extensions subscribe and set IsHandled.

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

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.

[krasivarna]

Alternatives considered: I review code before call the procedure TestCorrectCrMemoIsAllowed and not found event which I can use for modify filed in entry.
IsHandled justification: The event not needed this parameter, but I copied parameter form event of cancel sales credit memo codeunit.
Performance considerations: I think this codeunit in not use often .
Data sensitivity review: This changes not exposes any sensitive data and whether that is acceptable.
Multi-extension interaction: I think that if many calling execute every extension must check if this parameter is set in true before exute its logic

[github-actions]

Hi @krasivarna,

Thank you for your extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Why the existing event is insufficient: CancelPstdPurchCrMYesNo.Codeunit.al already publishes OnCancelCrMemoOnBeforeTestCorrectCrMemoIsAllowed(var PurchCrMemoHdr, var IsHandled) before TestCorrectCrMemoIsAllowed is called. Please explain why that event does not work for your scenario.
• Scenario requiring a new hook in codeunit 1402: Clarify whether you specifically need this event for direct calls to codeunit 1402 Cancel Posted Purch. Cr. Memo outside the standard Yes/No cancellation flow, and describe that scenario.

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

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.

[krasivarna]

Why the existing event is insufficient: When the system call first Cancel posted purchase credit mem o Yes/No I can use this publisher OnCancelCrMemoOnBeforeTestCorrectCrMemoIsAllowed.
Scenario requiring a new hook in codeunit 1402: But in codeunit 1402 is exist procedure CancelPostedCrMemo(var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."): Boolean
In it exist call of TestCorrectCrMemoIsAllowed. There not preset any publisher and our flow not execute correctly. Therefore I want to add publisher in this procedure inside. If you can add publisher before call procedure I can use both publishers

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in CancelPostedCrMemo() before TestCorrectCrMemoIsAllowed(PurchCrMemoHdr); so extensions can update the purchase credit memo header for direct calls to codeunit 1402.

Location in CancelPostedCrMemo() procedure:

    procedure CancelPostedCrMemo(var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."): Boolean
    var
        PurchHeader: Record "Purchase Header";
        PurchInvHeader: Record "Purch. Inv. Header";
    begin
        OnCancelPostedCrMemoOnBeforeTestCorrectCrMemoIsAllowed(PurchCrMemoHdr);
        TestCorrectCrMemoIsAllowed(PurchCrMemoHdr);
        if not CODEUNIT.Run(CODEUNIT::"Cancel Posted Purch. Cr. Memo", PurchCrMemoHdr) then begin
            PurchInvHeader.SetRange("Applies-to Doc. No.", PurchCrMemoHdr."No.");
            if PurchInvHeader.FindFirst() then begin
                if Confirm(StrSubstNo(PostingCreditMemoFailedOpenPostedInvQst, GetLastErrorText)) then
                    ShowPostedPurchaseInvoice(PurchInvHeader);

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

    [IntegrationEvent(false, false)]
    local procedure OnCancelPostedCrMemoOnBeforeTestCorrectCrMemoIsAllowed(var PurchCrMemoHeader: Record "Purch. Cr. Memo Hdr.")
    begin
    end;

---

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