mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
525e84e183
Align article and AL sample conventions, keep BC facts separate from review mechanics, and clarify reciprocal Finance ownership without bespoke shared test assertions. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>
17 lines
735 B
AL
17 lines
735 B
AL
codeunit 50102 "SCM Revaluation Batch Bad"
|
|
{
|
|
procedure PostCalculatedRevaluationBatch(TemplateName: Code[10]; BatchName: Code[10])
|
|
var
|
|
ItemJournalLine: Record "Item Journal Line";
|
|
ItemJnlPostLine: Codeunit "Item Jnl.-Post Line";
|
|
begin
|
|
ItemJournalLine.SetRange("Journal Template Name", TemplateName);
|
|
ItemJournalLine.SetRange("Journal Batch Name", BatchName);
|
|
ItemJournalLine.FindSet();
|
|
repeat
|
|
ItemJournalLine.TestField("Value Entry Type", ItemJournalLine."Value Entry Type"::Revaluation);
|
|
ItemJournalLine.TestField("Inventory Value Per");
|
|
ItemJnlPostLine.RunWithCheck(ItemJournalLine);
|
|
until ItemJournalLine.Next() = 0;
|
|
end;
|
|
}
|