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

[KateDovgalova]

Why do you need this change?

In 4PS Construct we need to open card page for another account type - fixed asset - in procedure OpenAccountCard in table 11401 "CBG Statement Line".

Describe the request

Dear ALAppExtensions team,

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

    procedure OpenAccountCard()
    var
        GLAcc: Record "G/L Account";
        Cust: Record Customer;
        Vend: Record Vendor;
        Employee: Record Employee;
        BankAcc: Record "Bank Account";
    begin
        TestField("Account No.");

        case "Account Type" of
            "Account Type"::"G/L Account":
                begin
                    GLAcc."No." := "Account No.";
                    PAGE.Run(PAGE::"G/L Account Card", GLAcc);
                end;
            "Account Type"::Customer:
                begin
                    Cust."No." := "Account No.";
                    PAGE.Run(PAGE::"Customer Card", Cust);
                end;
            "Account Type"::Vendor:
                begin
                    Vend."No." := "Account No.";
                    PAGE.Run(PAGE::"Vendor Card", Vend);
                end;
            "Account Type"::Employee:
                begin
                    Employee."No." := "Account No.";
                    PAGE.Run(PAGE::"Employee Card", Employee);
                end;
            "Account Type"::"Bank Account":
                begin
                    BankAcc."No." := "Account No.";
                    PAGE.Run(PAGE::"Bank Account Card", BankAcc);
                end;
        end;

        OnAfterOpenAccountCard(Rec); //new
    end;

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

Internal work item: AB#630446

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event at the end of OpenAccountCard() in table 11401 CBG Statement Line so extensions can open a card page for additional account types.

Location in OpenAccountCard() procedure (before the closing end;):

procedure OpenAccountCard()
var
    GLAcc: Record "G/L Account";
    Cust: Record Customer;
    Vend: Record Vendor;
    Employee: Record Employee;
    BankAcc: Record "Bank Account";
begin
    TestField("Account No.");

    case "Account Type" of
        "Account Type"::"G/L Account":
            begin
                GLAcc."No." := "Account No.";
                PAGE.Run(PAGE::"G/L Account Card", GLAcc);
            end;
        "Account Type"::Customer:
            begin
                Cust."No." := "Account No.";
                PAGE.Run(PAGE::"Customer Card", Cust);
            end;
        "Account Type"::Vendor:
            begin
                Vend."No." := "Account No.";
                PAGE.Run(PAGE::"Vendor Card", Vend);
            end;
        "Account Type"::Employee:
            begin
                Employee."No." := "Account No.";
                PAGE.Run(PAGE::"Employee Card", Employee);
            end;
        "Account Type"::"Bank Account":
            begin
                BankAcc."No." := "Account No.";
                PAGE.Run(PAGE::"Bank Account Card", BankAcc);
            end;
    end;

    OnAfterOpenAccountCard(Rec);
end;

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

[IntegrationEvent(false, false)]
local procedure OnAfterOpenAccountCard(CBGStatementLine: Record "CBG Statement Line")
begin
end;

---

File: CBGStatementLine.Table.al