mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 06:36:55 +01:00
fa63d5526c
Move Finance knowledge to the Microsoft-owned layer, add nine scoped rules with eighteen AL samples, and register bounded Finance review with complete paired evaluation coverage. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>
18 lines
969 B
AL
18 lines
969 B
AL
// Demonstration only; independently authored, not copied from BaseApp.
|
|
codeunit 50103 "Change Journal Dimension"
|
|
{
|
|
procedure ChangeExistingDimension(TemplateName: Code[10]; BatchName: Code[10]; LineNo: Integer; DimensionCode: Code[20]; NewValue: Code[20])
|
|
var
|
|
JournalLine: Record "Gen. Journal Line";
|
|
TempDimensionSetEntry: Record "Dimension Set Entry" temporary;
|
|
DimensionManagement: Codeunit DimensionManagement;
|
|
begin
|
|
JournalLine.Get(TemplateName, BatchName, LineNo);
|
|
DimensionManagement.GetDimensionSet(TempDimensionSetEntry, JournalLine."Dimension Set ID");
|
|
TempDimensionSetEntry.Get(JournalLine."Dimension Set ID", DimensionCode);
|
|
TempDimensionSetEntry.Validate("Dimension Value Code", NewValue);
|
|
TempDimensionSetEntry.Modify();
|
|
JournalLine.Validate("Dimension Set ID", DimensionManagement.GetDimensionSetID(TempDimensionSetEntry));
|
|
JournalLine.Modify(true);
|
|
end;
|
|
}
|