Codeunit 8624 Setup Company Name
- App
- Base Application
- Namespace
- Microsoft.Foundation.Company
- Versions
- 17-28
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Foundation/Company/SetupCompanyName.Codeunit.al28 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 Microsoft.Foundation.Company;
using System.IO;
codeunit 8624 "Setup Company Name"
{
TableNo = "Company Information";
trigger OnRun()
begin
Rec.Validate(Name, CompanyName);
Rec.Validate("Ship-to Name", CompanyName);
Rec.Modify();
end;
[EventSubscriber(ObjectType::Table, Database::"Config. Table Processing Rule", 'OnDoesTableHaveCustomRuleInRapidStart', '', false, false)]
local procedure CheckCompanyInformationOnDoesTableHaveCustomRuleInRapidStart(TableID: Integer; var Result: Boolean)
begin
if TableID = DATABASE::"Company Information" then
Result := true;
end;
}