[Event Request] [ES][Codeunit][99000837][Prod. Order Line-Reserve] AssignForPlanning OnBeforeAssignForPlanning

[Madagascar245]

Why do you need this change?

We need to add an ishandle in this procedure.

Describe the request

[ES][Codeunit][99000837][Prod. Order Line-Reserve]

AssignForPlanning()

Would like to add a new event OnBeforeAssignForPlanning:

procedure AssignForPlanning(var ProdOrderLine: Record "Prod. Order Line")
    var
        PlanningAssignment: Record "Planning Assignment";
        >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        Ishandled: Boolean;
        <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    begin
        >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        OnBeforeAssignForPlanning(ProdOrderLine, Ishandled);

        if Ishandled then
            exit;
        <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

        if ProdOrderLine.Status = ProdOrderLine.Status::Simulated then
            exit;
        if ProdOrderLine."Item No." <> '' then
            PlanningAssignment.ChkAssignOne(ProdOrderLine."Item No.", ProdOrderLine."Variant Code", ProdOrderLine."Location Code", WorkDate());
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeAssignForPlanning(ProdOrderLine: Record "Prod. Order Line"; var Ishandled: Boolean)
    begin
    end;

Internal work item: AB#602722

[AleksandricMarko]

Hello @Madagascar245
Can you explain us business logic behind this change?
Is the IsHandled really necessary?

[Madagascar245]

We need it because in the UpdateStartingEndingTime procedure in the Production Order table, it performs a modify(true) on the Prod. Order Line table, which in turn reaches this procedure, and we do not want it to perform this functionality, which also occurs in the CheckEndingDate procedure in the “Pord. Order Line” table. We only want it to recalculate the dates. That is why we need the ishandled.

[AleksandricMarko]

Hello @Madagascar245
Why do not you use IsHandled event OnBeforeChkAssignOne in procedure ChkAssignOne (table 99000850 "Planning Assignment")?
Maybe with manual binding involved...

[Madagascar245]

Hello @AleksandricMarko

That ishandle is not useful to us because we check the ishandled with a field from the “Prod. Order Line” table, and in that event we cannot obtain the value of the field from the “Prod. Order Line” table.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add an IsHandled event pattern to the AssignForPlanning procedure in Codeunit 99000837 "Prod. Order Line-Reserve".

Location in AssignForPlanning procedure (around line 400):

procedure AssignForPlanning(var ProdOrderLine: Record "Prod. Order Line")
var
    PlanningAssignment: Record "Planning Assignment";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeAssignForPlanning(ProdOrderLine, IsHandled);
    if IsHandled then
        exit;

    if ProdOrderLine.Status = ProdOrderLine.Status::Simulated then
        exit;
    if ProdOrderLine."Item No." <> '' then
        PlanningAssignment.ChkAssignOne(ProdOrderLine."Item No.", ProdOrderLine."Variant Code", ProdOrderLine."Location Code", WorkDate());
end;

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnBeforeAssignForPlanning(var ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean)
begin
end;

---

File: ProdOrderLineReserve.Codeunit.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 46093.