field(48; "Dimension Value Code"; Code[20])
{
Caption = 'Dimension Value Code';
trigger OnValidate()
Var
Dimension: Record Dimension;
DimensionValue: Record "Dimension Value";
DefaultDimension: Record "Default Dimension";
NoSeries: Codeunit "No. Series";
Owner_rec: Record Owners;
DimMgt: Codeunit DimensionManagement;
NewDimSetID: Integer;
DimSetEntry: Record "Dimension Set Entry";
begin
Rec.TestField("Dimension Code");
if Rec."Dimension Value Code" <> '' then begin
// if Dialog.Confirm(DimValueConfirmLbl, true, Rec."Dimension Value Code") then begin
Dimension.Reset();
Dimension.SetRange(Code, rec."Dimension Code");
if Dimension.FindFirst() then begin
// begin
DimensionValue.Init();
DimensionValue.Validate("Dimension Code", rec."Dimension Code");
DimensionValue.Validate(Code, Rec."Dimension Value Code");
DimensionValue.Validate(Name, DimensionValue.Code);
DimensionValue.Insert(true);
DefaultDimension.Init();
DefaultDimension.Validate("Table ID", Database::Owners);
DefaultDimension.Validate("No.", Rec.No);
DefaultDimension.Validate("Dimension Code", rec."Dimension Code");
if DimensionValue.Get(rec."Dimension Code", Rec."Dimension Value Code") then DefaultDimension.Validate("Dimension Value Code", DimensionValue.Code);
DefaultDimension.Insert(true);
end;