mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-07 15:46:55 +01:00
Add SCM functional knowledge domain
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:
parent
b91443beec
commit
9ac62e3967
34 changed files with 1244 additions and 10 deletions
|
|
@ -0,0 +1,37 @@
|
|||
namespace BCQuality.SCM.Samples;
|
||||
|
||||
using Microsoft.Inventory.Location;
|
||||
using Microsoft.Inventory.Transfer;
|
||||
|
||||
codeunit 50113 "SCM Transfer Posting Good"
|
||||
{
|
||||
procedure ShipTransferOrder(TransferOrderNo: Code[20])
|
||||
var
|
||||
TransferHeader: Record "Transfer Header";
|
||||
Location: Record Location;
|
||||
TransferOrderPostShipment: Codeunit "TransferOrder-Post Shipment";
|
||||
begin
|
||||
TransferHeader.Get(TransferOrderNo);
|
||||
TransferHeader.TestField("Direct Transfer", false);
|
||||
TransferHeader.TestField("In-Transit Code");
|
||||
Location.Get(TransferHeader."Transfer-from Code");
|
||||
Location.TestField("Require Shipment", false);
|
||||
|
||||
TransferOrderPostShipment.Run(TransferHeader);
|
||||
end;
|
||||
|
||||
procedure ReceiveTransferOrder(TransferOrderNo: Code[20])
|
||||
var
|
||||
TransferHeader: Record "Transfer Header";
|
||||
Location: Record Location;
|
||||
TransferOrderPostReceipt: Codeunit "TransferOrder-Post Receipt";
|
||||
begin
|
||||
TransferHeader.Get(TransferOrderNo);
|
||||
TransferHeader.TestField("Direct Transfer", false);
|
||||
TransferHeader.TestField("In-Transit Code");
|
||||
Location.Get(TransferHeader."Transfer-to Code");
|
||||
Location.TestField("Require Receive", false);
|
||||
|
||||
TransferOrderPostReceipt.Run(TransferHeader);
|
||||
end;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue