[Event Request] Table 11401 "CBG Statement Line" - OnBeforeCalculateVAT

[KateDovgalova]

Why do you need this change?

In 4PS Construct we need to execute part of code in procedure CalculateVAT for new Account Type ("Fixed Asset") in a similar way as "G/L Account".
In current functionality for every Account Type other than "G/L Account" fields "VAT Type", "VAT Bus. Posting Group" and "VAT Prod. Posting Group" should be empty and there's no way to avoid this check.
Because of this we need new event with possibility to skip executing code in CalculateVAT and run custom code instead.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnBeforeCalculateVAT' to be added to procedure "CalculateVAT" in table 11401 "CBG Statement Line":

    procedure CalculateVAT()
    var
        VATPostingSetup: Record "VAT Posting Setup";
        GLAccount: Record "G/L Account";
        IsHandled: Boolean; //new
    begin
        IsHandled := false; //new
        OnBeforeCalculateVAT(Rec, IsHandled); //new
        if IsHandled then //new
            exit; //new

        "VAT %" := 0;
        "Debit Incl. VAT" := Debit;
        "Debit VAT" := 0;
        "Credit Incl. VAT" := Credit;
        "Credit VAT" := 0;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeCalculateVAT(var CBGStatementLine: Record "CBG Statement Line"; var IsHandled: Boolean)
    begin
        //new
    end;

Internal work item: AB#631152

[AleksandricMarko]

Hi @KateDovgalova,

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:

• Alternatives evaluated: Which existing events or extension patterns you already evaluated, and why they are insufficient for this scenario.
• Justification for IsHandled: The specific technical reason a standard positive event design is not sufficient here.
• Performance considerations: How often this code path runs and any expected performance impact of the requested event.
• Data sensitivity review: Confirmation that the event would not expose sensitive business or personal data.
• Multi-extension interaction: The risks if multiple extensions subscribe here, and how conflicts should be mitigated.

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

[KateDovgalova]

Hi @AleksandricMarko
Using event with IsHandled is required because standard logic does not allow VAT fields for types other than "G/L Account" and we need to extend check on type "Fixed Asset"; customization also replaces branching logic. Executing custom code after the standard one is not an option.
This means that alternative implementations (by using field-level events) wouldn't work either.
There will be no big impact on performance because custom code runs only on interactive single-record field validations (user edits), not in bulk. The procedure body is pure arithmetic + one VATPostingSetup.Get.
The 'var CBGStatementLine' parameter exposes only financial/configuration data already accessible to anyone with table read permission. No personal data is surfaced.
To mitigate conflicts when several extensions subscribe to the event I suggest we add events to custom procedure to which downstream extensions should subscribe to.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the CalculateVAT() procedure of Table 11401 "CBG Statement Line" at the beginning of the procedure.

Location in CalculateVAT() procedure:

procedure CalculateVAT()
var
    VATPostingSetup: Record "VAT Posting Setup";
    GLAccount: Record "G/L Account";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCalculateVAT(Rec, IsHandled);
    if IsHandled then
        exit;

    "VAT %" := 0;
    "Debit Incl. VAT" := Debit;
    "Debit VAT" := 0;
    "Credit Incl. VAT" := Credit;
    "Credit VAT" := 0;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeCalculateVAT(var CBGStatementLine: Record "CBG Statement Line"; var IsHandled: Boolean)
begin
end;

---

File: CBGStatementLine.Table.al