[MVP feedback] Invoices, orders, etc., are printed in user's language if no specific language code is specified on the documentg default language

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;
+
+    /// <summary>
+    /// Integration event, emitted from <see cref="GetLanguageIdOrDefault"/>.
+    /// Subscribe to this event to change the default behavior by changing the provided parameter(s).
+    /// </summary>
+    /// <seealso cref="GetLanguageIdOrDefault"/>
+    /// <param name="Default LanguageCode">Exit parameter that holds the user language code.</param>
+    [IntegrationEvent(false, false)]
+    internal procedure OnGetLanguageIdOrDefault(var DefaultLanguageCode: Code[10])
+    begin
+    end;
 }
 

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();