[Event Request] Codeunit 1313 "Correct Posted Purch. Invoice", local procedure TestPurchaseLines

[stephanpl]

Why do you need this change?

We have added an option value to the purchase line type enumeration. This causes an error when clicking the Correct action on the ribbon from a posted purchase invoice that this line type is not supported on a simplified purchase invoice.

Describe the request

To prevent an error from being raised in ErrorHelperLine for WrongItemType (line 352) for a value that is not listed in the procedure IsCancellationSupported in the "Purch. Inv. Line" table (line 351), we would like you to add an event publisher.
Internal work item: AB#615118

[AleksandricMarko]

Hi @stephanpl,

We analyzed your request for an event in Codeunit 1313 "Correct Posted Purch. Invoice", procedure TestPurchaseLines.

Alternative Approach Suggested:

The error occurs because IsCancellationSupported() in the "Purch. Inv. Line" table doesn't recognize your custom purchase line type. Instead of adding an event in TestPurchaseLines, we suggest adding an event directly in the IsCancellationSupported() procedure. This would allow your extension to mark custom line types as supported for cancellation at the source.

Proposed Implementation:

Location: Table 123 "Purch. Inv. Line", IsCancellationSupported() procedure

procedure IsCancellationSupported() Result: Boolean
begin
    Result := Type in [Type::" ", Type::Item, Type::"G/L Account", Type::"Charge (Item)", Type::Resource];
    OnAfterIsCancellationSupported(Rec, Result);
end;

Event Publisher:

[IntegrationEvent(false, false)]
local procedure OnAfterIsCancellationSupported(PurchInvLine: Record "Purch. Inv. Line"; var Result: Boolean)
begin
end;

File: PurchInvLine.Table.al

Note: Since IsCancellationSupported() is a public procedure that may be called from multiple locations, consider using Manual Binding for your event subscriber to control when the subscription is active.

---

Please confirm if this alternative approach works for your scenario, or let us know if you specifically need the event in TestPurchaseLines and why.

[stephanpl]

Yes, I confirm that this alternative approach works perfectly for my scenario.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add an OnAfterIsCancellationSupported event in the IsCancellationSupported() procedure of Table 123 "Purch. Inv. Line" to allow extensions to mark custom purchase line types as supported for cancellation.

Location in IsCancellationSupported() procedure (around line 978):

procedure IsCancellationSupported() Result: Boolean
begin
    Result := Type in [Type::" ", Type::Item, Type::"G/L Account", Type::"Charge (Item)", Type::Resource];
    OnAfterIsCancellationSupported(Rec, Result);
end;

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

[IntegrationEvent(false, false)]
local procedure OnAfterIsCancellationSupported(PurchInvLine: Record "Purch. Inv. Line"; var Result: Boolean)
begin
end;

---

File: PurchInvLine.Table.al

📝 Note: Since IsCancellationSupported() is a public procedure that may be called from multiple places (e.g., both purchase and sales invoice correction flows), consider using Manual Event Subscription Binding for your event subscriber to control when the subscription is active.

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 43688.