From 861bd13c6d382bf0be4e49d3a5326bfcedaf3533 Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Mon, 19 Jan 2026 15:30:39 +0100 Subject: [PATCH] Adding event for setting default language --- .../App/Language/src/Language.Codeunit.al | 11 +++++++++++ .../App/Language/src/LanguageImpl.Codeunit.al | 2 ++ 2 files changed, 13 insertions(+) diff --git a/src/System Application/App/Language/src/Language.Codeunit.al b/src/System Application/App/Language/src/Language.Codeunit.al index 2611d3d7cc..b72284368a 100644 --- a/src/System Application/App/Language/src/Language.Codeunit.al +++ b/src/System Application/App/Language/src/Language.Codeunit.al @@ -341,5 +341,16 @@ codeunit 43 Language internal procedure OnGetUserLanguageCode(var UserLanguageCode: Code[10]; var Handled: Boolean) begin end; + + /// + /// Integration event, emitted from . + /// Subscribe to this event to change the default behavior by changing the provided parameter(s). + /// + /// + /// Exit parameter that holds the user language code. + [IntegrationEvent(false, false)] + internal procedure OnGetLanguageIdOrDefault(var DefaultLanguageCode: Code[10]) + begin + end; } diff --git a/src/System Application/App/Language/src/LanguageImpl.Codeunit.al b/src/System Application/App/Language/src/LanguageImpl.Codeunit.al index e975d6b799..214eb7ac91 100644 --- a/src/System Application/App/Language/src/LanguageImpl.Codeunit.al +++ b/src/System Application/App/Language/src/LanguageImpl.Codeunit.al @@ -51,6 +51,7 @@ codeunit 54 "Language Impl." procedure GetLanguageIdOrDefault(LanguageCode: Code[10]): Integer; var + Language: Codeunit Language; LanguageId: Integer; begin if LanguageIdOverride <> 0 then begin @@ -61,6 +62,7 @@ codeunit 54 "Language Impl." exit(LanguageId); end; + Language.OnGetLanguageIdOrDefault(LanguageCode); LanguageId := GetLanguageId(LanguageCode); if LanguageId = 0 then LanguageId := GlobalLanguage();