Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-10-07 23:56:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add SCM functional knowledge domain

Browse source 
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>
This commit is contained in:
Jesper Schulz-Wedde 2026-09-17 15:54:23 +02:00
parent b91443beec
commit 9ac62e3967
34 changed files with 1244 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

37
microsoft/knowledge/scm/post-item-ledger-changes-through-item-journals.bad.al Normal file
View file

@ -0,0 +1,37 @@
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.';
}