[Event Request] Codeunit 99000773 "Calculate Prod. Order" #28987
Description
Why do you need this change?
I need an event at the end of the loop in procedure CalculateRoutingFromActual to add a custom procedure.
Describe the request
I need an event in procedure CalculateRoutingFromActual in codeunit 99000773 "Calculate Prod. Order" with ProdOrderRoutingLine as a parameter.
The event might be like this:
codeunit 99000773 "Calculate Prod. Order"
{
// ...
procedure CalculateRoutingFromActual(ProdOrderRoutingLine: Record "Prod. Order Routing Line"; ...)
// ...
ProdOrderRoutingLine.SetRange(Status, ProdOrderRoutingLine.Status);
ProdOrderRoutingLine.SetRange("Prod. Order No.", ProdOrderRoutingLine."Prod. Order No.");
ProdOrderRoutingLine.SetRange("Routing Reference No.", ProdOrderRoutingLine."Routing Reference No.");
ProdOrderRoutingLine.SetRange("Routing No.", ProdOrderRoutingLine."Routing No.");
ProdOrderRoutingLine.SetFilter("Routing Status", '<>%1', ProdOrderRoutingLine."Routing Status"::Finished);
OnCalculateRoutingFromActualOnAfterSetProdOrderRoutingLineFilters(ProdOrderRoutingLine);
repeat
OnCalculateRoutingFromActualOnBeforeCalcStartEndDate(ProdOrderRoutingLine, CalcStartEndDate);
if CalcStartEndDate and not ProdOrderRoutingLine."Schedule Manually" then
if ((Direction = Direction::Forward) and (ProdOrderRoutingLine."Previous Operation No." <> '')) or
((Direction = Direction::Backward) and (ProdOrderRoutingLine."Next Operation No." <> ''))
then begin
ProdOrderRoutingLine."Starting Time" := 0T;
ProdOrderRoutingLine."Starting Date" := 0D;
ProdOrderRoutingLine."Ending Time" := 235959T;
ProdOrderRoutingLine."Ending Date" := CalendarMgt.GetMaxDate();
end;
Clear(CalculateRoutingLine);
CalculateRoutingLine.CalculateRoutingLine(ProdOrderRoutingLine, Direction, CalcStartEndDate);
CalcStartEndDate := true;
OnCalculateRoutingFromActualOnAfterCalculateRoutingLine(ProdOrderRoutingLine);
until ProdOrderRoutingLine.Next() = 0;
end;
// ...
[IntegrationEvent(false, false)]
local procedure OnCalculateRoutingFromActualOnAfterCalculateRoutingLine(ProdOrderRoutingLine: Record "Prod. Order Routing Line")
begin
end;
}
Internal work item: AB#596395