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>
20 lines
910 B
AL
20 lines
910 B
AL
// Demonstration only; independently authored, not copied from BaseApp.
|
|
codeunit 50102 "Copy Journal Dimensions"
|
|
{
|
|
procedure CopyAllLineDimensions(TemplateName: Code[10]; BatchName: Code[10]; SourceLineNo: Integer; TargetLineNo: Integer)
|
|
var
|
|
SourceLine: Record "Gen. Journal Line";
|
|
TargetLine: Record "Gen. Journal Line";
|
|
begin
|
|
SourceLine.Get(TemplateName, BatchName, SourceLineNo);
|
|
TargetLine.Get(TemplateName, BatchName, TargetLineNo);
|
|
TargetLine."Shortcut Dimension 1 Code" := SourceLine."Shortcut Dimension 1 Code";
|
|
TargetLine."Shortcut Dimension 2 Code" := SourceLine."Shortcut Dimension 2 Code";
|
|
TargetLine.Modify(true);
|
|
end;
|
|
|
|
procedure HasShortcutDimension1(JournalLine: Record "Gen. Journal Line"; DimensionValue: Code[20]): Boolean
|
|
begin
|
|
exit(JournalLine."Shortcut Dimension 1 Code" = DimensionValue);
|
|
end;
|
|
}
|