[Event Request] at Table 480 "Dimension Set Entry" and Table 349 "Dimension Value"

[iyiannak]

Why do you need this change?

This is important for us, because it has been requested by our customers to add extra shortcut dimensions on "General Ledger Setup"

Describe the request

Hello!
(A) Table 480 "Dimension Set Entry" in procedure GetGlobalDimNo() we would like you add the event OnBeforeGetGlobalDimNo() like below

procedure GetGlobalDimNo(): Integer
var
GeneralLedgerSetup: Record "General Ledger Setup";
GlobalDimNo: Integer; //// New ////
IsHandled: Boolean; //// New ////
begin
OnBeforeGetGlobalDimNo("Dimension Code", GlobalDimNo, IsHandled); //// New ////
if IsHandled then //// New ////
exit(GlobalDimNo); //// New ////

GeneralLedgerSetup.Get();
if "Dimension Code" = GeneralLedgerSetup."Shortcut Dimension 3 Code" then
    exit(3);
if "Dimension Code" = GeneralLedgerSetup."Shortcut Dimension 4 Code" then
    exit(4);
if "Dimension Code" = GeneralLedgerSetup."Shortcut Dimension 5 Code" then
    exit(5);
if "Dimension Code" = GeneralLedgerSetup."Shortcut Dimension 6 Code" then
    exit(6);
if "Dimension Code" = GeneralLedgerSetup."Shortcut Dimension 7 Code" then
    exit(7);
if "Dimension Code" = GeneralLedgerSetup."Shortcut Dimension 8 Code" then
    exit(8);

end;

[IntegrationEvent(false, false)]
local procedure OnBeforeGetGlobalDimNo(DimensionCode: Code[20]; var GlobalDimNo: Integer; var IsHandled: Boolean)
begin
end;

(b) Table 349 "Dimension Value" in procedure GetGlobalDimensionNo() we would also like the event OnBeforeGetGlobalDimensionNo(), like below

local procedure GetGlobalDimensionNo(): Integer
var
GeneralLedgerSetup: Record "General Ledger Setup";
GlobalDimNo: Integer; //// New ////
IsHandled: Boolean; //// New ////
begin
OnBeforeGetGlobalDimensionNo("Dimension Code", GlobalDimNo, IsHandled); //// New ////
if IsHandled then //// New ////
exit(GlobalDimNo); //// New ////

GeneralLedgerSetup.Get();
case "Dimension Code" of
    GeneralLedgerSetup."Global Dimension 1 Code":
        exit(1);
    GeneralLedgerSetup."Global Dimension 2 Code":
        exit(2);
    GeneralLedgerSetup."Shortcut Dimension 3 Code":
        exit(3);
    GeneralLedgerSetup."Shortcut Dimension 4 Code":
        exit(4);
    GeneralLedgerSetup."Shortcut Dimension 5 Code":
        exit(5);
    GeneralLedgerSetup."Shortcut Dimension 6 Code":
        exit(6);
    GeneralLedgerSetup."Shortcut Dimension 7 Code":
        exit(7);
    GeneralLedgerSetup."Shortcut Dimension 8 Code":
        exit(8);
    else
        exit(0);
end;

end;

[IntegrationEvent(false, false)]
local procedure OnBeforeGetGlobalDimensionNo(DimensionCode: Code[20]; var GlobalDimNo: Integer; var IsHandled: Boolean)
begin
end;

Internal work item: AB#613335