mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
570e776a37
- add SCM guidance for deriving base quantities through line unit-of-measure validation`n- add security guidance for parameterizing SetFilter with external text`n- add test isolation guidance for resetting per-test state before initialization guards`n- add web-service guidance for JSON null handling and invariant standard format 9`n- route and cover all five rules with paired evaluation fixtures
26 lines
1.1 KiB
AL
26 lines
1.1 KiB
AL
codeunit 50181 "Scanner Receipt Import Bad"
|
|
{
|
|
procedure PostScannedReceipt(ItemNo: Code[20]; LocationCode: Code[10]; UnitOfMeasureCode: Code[10]; ScannedQuantity: Decimal; DocumentNo: Code[20])
|
|
var
|
|
ItemJournalLine: Record "Item Journal Line";
|
|
ItemJnlPostLine: Codeunit "Item Jnl.-Post Line";
|
|
begin
|
|
if ScannedQuantity <= 0 then
|
|
Error(PositiveQuantityErr);
|
|
|
|
ItemJournalLine.Init();
|
|
ItemJournalLine.Validate("Posting Date", WorkDate());
|
|
ItemJournalLine.Validate("Entry Type", ItemJournalLine."Entry Type"::"Positive Adjmt.");
|
|
ItemJournalLine.Validate("Document No.", DocumentNo);
|
|
ItemJournalLine.Validate("Item No.", ItemNo);
|
|
ItemJournalLine.Validate("Location Code", LocationCode);
|
|
ItemJournalLine."Unit of Measure Code" := UnitOfMeasureCode;
|
|
ItemJournalLine.Quantity := ScannedQuantity;
|
|
ItemJournalLine."Quantity (Base)" := ScannedQuantity;
|
|
|
|
ItemJnlPostLine.RunWithCheck(ItemJournalLine);
|
|
end;
|
|
|
|
var
|
|
PositiveQuantityErr: Label 'The scanned quantity must be greater than zero.';
|
|
}
|