mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46: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>
14 lines
638 B
AL
14 lines
638 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";
|
|
DimensionSetEntry: Record "Dimension Set Entry";
|
|
begin
|
|
JournalLine.Get(TemplateName, BatchName, LineNo);
|
|
DimensionSetEntry.Get(JournalLine."Dimension Set ID", DimensionCode);
|
|
DimensionSetEntry.Validate("Dimension Value Code", NewValue);
|
|
DimensionSetEntry.Modify();
|
|
end;
|
|
}
|