mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 06:36:55 +01:00
525e84e183
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>
20 lines
1.1 KiB
AL
20 lines
1.1 KiB
AL
codeunit 50109 "SCM Tracking Transfer Good"
|
|
{
|
|
procedure TransferBlanketOrderTracking(var SourceBlanketOrderLine: Record "Sales Line"; var DestinationSalesOrderLine: Record "Sales Line"; QuantityBaseToTransfer: Decimal)
|
|
var
|
|
SalesLineReserve: Codeunit "Sales Line-Reserve";
|
|
begin
|
|
SourceBlanketOrderLine.TestField("Document Type", SourceBlanketOrderLine."Document Type"::"Blanket Order");
|
|
SourceBlanketOrderLine.TestField(Type, SourceBlanketOrderLine.Type::Item);
|
|
DestinationSalesOrderLine.TestField("Document Type", DestinationSalesOrderLine."Document Type"::Order);
|
|
DestinationSalesOrderLine.TestField(Type, DestinationSalesOrderLine.Type::Item);
|
|
DestinationSalesOrderLine.TestField("No.", SourceBlanketOrderLine."No.");
|
|
if QuantityBaseToTransfer <= 0 then
|
|
Error(PositiveQuantityErr);
|
|
|
|
SalesLineReserve.TransferSaleLineToSalesLine(SourceBlanketOrderLine, DestinationSalesOrderLine, QuantityBaseToTransfer);
|
|
end;
|
|
|
|
var
|
|
PositiveQuantityErr: Label 'The base quantity to transfer must be positive.';
|
|
}
|