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