Closed
Description
Describe the request
Please add an Event OnAfterPostOutput in the procedure PostOutput in Codeunit 7324 "Whse.-Activity-Post"
local procedure PostOutput(var ProdOrder: Record "Production Order")
var
ProdOrderLine: Record "Prod. Order Line";
begin
TempWhseActivLine.Reset();
TempWhseActivLine.Find('-');
ProdOrder.Get(TempWhseActivLine."Source Subtype", TempWhseActivLine."Source No.");
repeat
ProdOrderLine.Get(TempWhseActivLine."Source Subtype", TempWhseActivLine."Source No.", TempWhseActivLine."Source Line No.");
PostOutputLine(ProdOrder, ProdOrderLine);
until TempWhseActivLine.Next() = 0;
PostedSourceType := TempWhseActivLine."Source Type";
PostedSourceSubType := TempWhseActivLine."Source Subtype";
PostedSourceNo := TempWhseActivLine."Source No.";
OnAfterPostOutput(ProdOrder); // <------------------------------------------------------------ New Event
end;
[IntegrationEvent(false, false)]
local procedure OnAfterPostOutput(var ProdOrder: Record "Production Order")
begin
end;
Additional context
We need to handle handling warehouse rounding adjustments.
Internal work item: AB#567158