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

[KateDovgalova]

Why do you need this change?

In 4PS Construct we need to execute customized code when creating dimensions. Most suitable way to implement this change would be by using integration event OnBeforeCreateDim - this event is present in procedure CreateDim for many other standard objects and allows adding dimension-related functionalities before getting the new Dimension Set ID.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnBeforeCreateDim' to be added to procedure "CreateDim" in table 11401 "CBG Statement Line".

    procedure CreateDim(DefaultDimSource: List of [Dictionary of [Integer, Code[20]]])
    var
        GenJournalTemplate: Record "Gen. Journal Template";
        IsHandled: Boolean; //new
    begin
        IsHandled := false; //new
        OnBeforeCreateDim(Rec, DefaultDimSource, IsHandled); //new
        if IsHandled then //new
            exit; //new

        "Shortcut Dimension 1 Code" := '';
        "Shortcut Dimension 2 Code" := '';

    [IntegrationEvent(false, false)]
    local procedure OnBeforeCreateDim(var CBGStatementLine: Record "CBG Statement Line"; DefaultDimSource: List of [Dictionary of [Integer, Code[20]]]; var IsHandled: Boolean)
    begin
        //new
    end;

Internal work item: AB#631150

[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
In our customization we added and modified code before and after DimManagement.GetDefaultDimID in procedure 'CreateDim'. Without 'IsHandled' parameter in 'OnBeforeCreateDim' event we'll have to use SingleInstance codeunit to save values before 'CreateDim' and additional event ('OnAfterCreateDim') to overwrite the logic in 'CreateDim'. Such change will worsen the performance.
Adding the 'OnBeforeCreateDim' event will not have a big impact because it matches the established pattern on "Gen. Journal Line", "Item Journal Line", "Purchase Header" and other standard tables where 'CreateDim' exposes the same event.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

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

Location in CreateDim() procedure:

procedure CreateDim(DefaultDimSource: List of [Dictionary of [Integer, Code[20]]])
var
    GenJournalTemplate: Record "Gen. Journal Template";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCreateDim(Rec, IsHandled, DefaultDimSource);
    if IsHandled then
        exit;

    "Shortcut Dimension 1 Code" := '';
    "Shortcut Dimension 2 Code" := '';
    GenJournalTemplate.Get("Journal Template Name");
    "Dimension Set ID" := DimManagement.GetDefaultDimID(
        DefaultDimSource, GenJournalTemplate."Source Code", "Shortcut Dimension 1 Code", "Shortcut Dimension 2 Code", 0, 0);
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateDim(var CBGStatementLine: Record "CBG Statement Line"; var IsHandled: Boolean; DefaultDimSource: List of [Dictionary of [Integer, Code[20]]])
begin
end;

---

File: CBGStatementLine.Table.al