Codeunit 8624 Setup Company Name

App
Base Application
Namespace
Microsoft.Foundation.Company
Versions
17-28

Procedures, 1

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;
}