mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
9ac62e3967
Introduce nine source-backed rules with original AL sample pairs, bounded SCM review routing, and complete positive/clean evaluation coverage. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>
37 lines
1.6 KiB
AL
37 lines
1.6 KiB
AL
namespace BCQuality.SCM.Samples;
|
|
|
|
using Microsoft.Inventory.Journal;
|
|
using Microsoft.Inventory.Ledger;
|
|
|
|
codeunit 50100 "SCM Stock Adjustment Bad"
|
|
{
|
|
procedure PostPreparedPositiveAdjustment(ItemJournalLine: Record "Item Journal Line"; NewEntryNo: Integer)
|
|
var
|
|
ItemLedgerEntry: Record "Item Ledger Entry";
|
|
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);
|
|
|
|
ItemLedgerEntry.Init();
|
|
ItemLedgerEntry."Entry No." := NewEntryNo;
|
|
ItemLedgerEntry."Item No." := ItemJournalLine."Item No.";
|
|
ItemLedgerEntry."Entry Type" := ItemJournalLine."Entry Type";
|
|
ItemLedgerEntry."Posting Date" := ItemJournalLine."Posting Date";
|
|
ItemLedgerEntry."Document No." := ItemJournalLine."Document No.";
|
|
ItemLedgerEntry."Location Code" := ItemJournalLine."Location Code";
|
|
ItemLedgerEntry."Variant Code" := ItemJournalLine."Variant Code";
|
|
ItemLedgerEntry.Quantity := ItemJournalLine."Quantity (Base)";
|
|
ItemLedgerEntry."Remaining Quantity" := ItemLedgerEntry.Quantity;
|
|
ItemLedgerEntry.Positive := true;
|
|
ItemLedgerEntry.Open := true;
|
|
ItemLedgerEntry.Insert(true);
|
|
end;
|
|
|
|
var
|
|
PositiveQuantityErr: Label 'The prepared adjustment must increase inventory.';
|
|
}
|