mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 22:56:55 +01:00
bec8890b7e
* 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> * Normalize SCM knowledge and review ownership 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> --------- Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com> Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>
32 lines
1.2 KiB
AL
32 lines
1.2 KiB
AL
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;
|
|
}
|