mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 06:36: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>
20 lines
827 B
AL
20 lines
827 B
AL
codeunit 50101 "SCM Stock Adjustment Good"
|
|
{
|
|
procedure PostPreparedPositiveAdjustment(var ItemJournalLine: Record "Item Journal Line")
|
|
var
|
|
ItemJnlPostLine: Codeunit "Item Jnl.-Post Line";
|
|
begin
|
|
ItemJournalLine.TestField("Entry Type", ItemJournalLine."Entry Type"::"Positive Adjmt.");
|
|
ItemJournalLine.TestField("Value Entry Type", ItemJournalLine."Value Entry Type"::"Direct Cost");
|
|
ItemJournalLine.TestField("Item No.");
|
|
ItemJournalLine.TestField("Posting Date");
|
|
ItemJournalLine.TestField("Quantity (Base)");
|
|
if ItemJournalLine."Quantity (Base)" < 0 then
|
|
Error(PositiveQuantityErr);
|
|
|
|
ItemJnlPostLine.RunWithCheck(ItemJournalLine);
|
|
end;
|
|
|
|
var
|
|
PositiveQuantityErr: Label 'The prepared adjustment must increase inventory.';
|
|
}
|