Heute 09:48
tableextension 99000800 "Mfg. Inventory Adjmt. Entry" extends "Inventory Adjmt. Entry (Order)"
{
[InherentPermissions(PermissionObjectType::TableData, Database::"Inventory Adjmt. Entry (Order)", 'I')]
procedure SetProdOrderLine(ProdOrderLine: Record "Prod. Order Line")
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeSetProdOrderLine(Rec, ProdOrderLine, IsHandled);
if IsHandled then
exit;
Init();
"Order Type" := "Order Type"::Production;
"Order No." := ProdOrderLine."Prod. Order No.";
"Order Line No." := ProdOrderLine."Line No.";
"Item No." := ProdOrderLine."Item No.";
"Routing No." := ProdOrderLine."Routing No.";
"Routing Reference No." := ProdOrderLine."Routing Reference No.";
"Cost is Adjusted" := false;
"Is Finished" := ProdOrderLine.Status = ProdOrderLine.Status::Finished;
"Indirect Cost %" := ProdOrderLine."Indirect Cost %";
"Overhead Rate" := ProdOrderLine."Overhead Rate";
OnAfterSetProdOrderLineTransferFields(Rec, ProdOrderLine);
GetUnitCostsFromProdOrderLine();
if not Insert() then;
end;
}
Heute 13:27