Codeunit 1819 Advanced Settings Ext. Impl.
- App
- Base Application
- Namespace
- System.Environment.Configuration
- Versions
- 17-28
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/AdvancedSettingsExtImpl.Codeunit.al26 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace System.Environment.Configuration;
using Microsoft.Foundation.Company;
codeunit 1819 "Advanced Settings Ext. Impl."
{
Access = Internal;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Navigation Bar Subscribers", 'OnBeforeDefaultOpenCompanySettings', '', false, false)]
local procedure OpenCompanySettings(var Handled: Boolean)
var
AdvancedSettingsExtApi: Codeunit "Advanced Settings Ext.";
CompanySettingsID: Integer;
begin
CompanySettingsID := page::"Company Information";
AdvancedSettingsExtApi.OnBeforeOpenCompanySettings(CompanySettingsID, Handled);
if not Handled then
PAGE.Run(CompanySettingsID);
Handled := true;
end;
}