Table 1110 Cost Budget Name, source in 29

Source29

src/Layers/W1/BaseApp/CostAccounting/Budget/CostBudgetName.Table.al61 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.CostAccounting.Budget;

table 1110 "Cost Budget Name"
{
    Caption = 'Cost Budget Name';
    DataClassification = CustomerContent;
    LookupPageID = "Cost Budget Names";

    fields
    {
        field(1; Name; Code[10])
        {
            Caption = 'Name';
            NotBlank = true;
        }
        field(2; Description; Text[80])
        {
            Caption = 'Description';
        }
    }

    keys
    {
        key(Key1; Name)
        {
            Clustered = true;
        }
    }

    fieldgroups
    {
        fieldgroup(DropDown; Name, Description)
        {
        }
    }

    trigger OnDelete()
    var
        CostBudgetEntry: Record "Cost Budget Entry";
        CostBudgetRegister: Record "Cost Budget Register";
    begin
        CostBudgetEntry.SetCurrentKey("Budget Name");
        CostBudgetEntry.SetRange("Budget Name", Name);
        CostBudgetEntry.DeleteAll();

        CostBudgetRegister.SetCurrentKey("Cost Budget Name");
        CostBudgetRegister.SetRange("Cost Budget Name", Name);
        CostBudgetRegister.DeleteAll();
    end;

    trigger OnInsert()
    begin
        TestField(Name);
    end;
}