diff --git a/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al b/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al index cce3ca73c2..272f213563 100644 --- a/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al +++ b/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al @@ -127,4 +127,18 @@ codeunit 457 "Environment Information" exit(EnvironmentInformationImpl.GetLinkedPowerPlatformEnvironmentId()); end; + /// + /// Gets the value of the specified environment setting. This is only callable from Microsoft published apps. + /// + /// The name of the setting. + /// The value of the setting. + [Scope('OnPrem')] + procedure GetEnvironmentSetting(SettingName: Text): Text + var + ModuleInfo: ModuleInfo; + begin + NavApp.GetCallerModuleInfo(ModuleInfo); + exit(EnvironmentInformationImpl.GetEnvironmentSetting(SettingName, ModuleInfo)); + end; + } diff --git a/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al b/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al index 6a90407f93..bcb34e2dad 100644 --- a/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al +++ b/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al @@ -148,6 +148,13 @@ codeunit 3702 "Environment Information Impl." exit(NavTenantSettingsHelper.GetLinkedPowerPlatformEnvironmentId()); end; + procedure GetEnvironmentSetting(SettingName: Text; ModuleInfo: ModuleInfo): Text + begin + if ModuleInfo.Publisher <> 'Microsoft' then + exit(''); + exit(NavTenantSettingsHelper.GetEnvironmentApplicationSetting(SettingName)); + end; + [InternalEvent(false)] procedure OnBeforeGetApplicationIdentifier(var AppId: Text) begin