[Event Request] codeunit 99000787 "Create Prod. Order Lines"

[Simon110394]

Why do you need this change?

We need an event in CreateProdOrderLine procedure in order to manage the Item case with custom code.
In particular, we need to be able to assign a value to the parameter ErrorOccured, according to custom logics.

The OnCreateProdOrderLineOnBeforeInitProdOrderLine event is not sufficient for my scenario, since I don't have ErrorOccured as parameter to handle, moreover it is not possible to skip the code below using this event. So the ProdOrderLine record wouyld be initializate twice if I cannot skip it.
So the IsHandled parameter management is necessary.

The OnAfterProdOrderLineInsert event is not sufficient for my scenario, since I don't have ErrorOccured as parameter to handle.

Describe the request

In procedure CreateProdOrderLine of codeunit 99000787 "Create Prod. Order Lines" we need an event:

[IntegrationEvent(false, false)]
local procedure OnCreateProdOrderLineOnBeforeInitProdOrderLine2(var Ishandled: Boolean; var ErrorOccured: Boolean; ProdOrder: Record "Production Order")
begin
end;

Changes between **:

local procedure CreateProdOrderLine(ProdOrder: Record "Production Order"; VariantCode: Code[10]; var ErrorOccured: Boolean)
    var
        SalesHeader: Record "Sales Header";
		**IsHandled: Boolean;**
    begin
        DeleteLinesForProductionOrder(ProdOrder);

        NextProdOrderLineNo := 10000;

        InsertNew := false;

        case ProdOrder."Source Type" of
            ProdOrder."Source Type"::Item:
                begin
                    OnCreateProdOrderLineOnBeforeInitProdOrderLine(InsertNew);
					**Ishandled := false;
					OnCreateProdOrderLineOnBeforeInitProdOrderLine2(Ishandled, ErrorOccured, ProdOrder);
					if not Ishandled then begin**
						InitProdOrderLine(ProdOrder."Source No.", VariantCode, ProdOrder."Location Code");
						ProdOrderLine.Description := ProdOrder.Description;
						ProdOrderLine."Description 2" := ProdOrder."Description 2";
						ProdOrderLine.Validate(Quantity, ProdOrder.Quantity);
						ProdOrderLine.UpdateDatetime();
						if SalesLineIsSet then
							CopyDimFromSalesLine(SalesLine, ProdOrderLine);
						OnBeforeProdOrderLineInsert(ProdOrderLine, ProdOrder, SalesLineIsSet, SalesLine);
						ProdOrderLine.Insert();
						if ProdOrderLine.HasErrorOccured() then
							ErrorOccured := true;
					**end;**		

                    OnAfterProdOrderLineInsert(ProdOrder, ProdOrderLine, NextProdOrderLineNo);
                end;
            ProdOrder."Source Type"::Family:
                if not CopyFromFamily() then
                    ErrorOccured := true;
            ProdOrder."Source Type"::"Sales Header":
                begin
                    InsertNew := true;
                    if ProdOrder.Status <> ProdOrder.Status::Simulated then
                        SalesHeader.Get(SalesHeader."Document Type"::Order, ProdOrder."Source No.")
                    else
                        SalesHeader.Get(SalesHeader."Document Type"::Quote, ProdOrder."Source No.");
                    if not CopyFromSalesOrder(SalesHeader) then
                        ErrorOccured := true;
                end;
        end;

        OnAfterCreateProdOrderLine(ProdOrder, VariantCode, ErrorOccured);
    end;

[github-actions]

Hi @Simon110394,

Thank you for your extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Alternatives evaluated: Explain which existing events or extension points you evaluated and why they are insufficient for your scenario.
• IsHandled justification: Explain why an IsHandled bypass is required instead of a regular event or another extensibility design.
• Performance assessment: Add a brief assessment of the expected execution frequency and any performance impact.
• Data sensitivity assessment: Add a brief assessment of whether this change would expose any sensitive data.
• Multi-extension conflict assessment: Add a brief assessment of possible conflicts when multiple extensions subscribe and try to control the same behavior.

Please update the issue with the missing details. We'll automatically re-analyze once updated.

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.

[Simon110394]

Hi, I've updated the request info.
Thanks

[github-actions]

Hi @Simon110394,

Thank you for your extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Performance assessment: Add a brief assessment of the expected execution frequency and any performance impact.
• Data sensitivity assessment: Add a brief assessment of whether this change would expose any sensitive data.
• Multi-extension conflict assessment: Add a brief assessment of possible conflicts when multiple extensions subscribe and try to control the same behavior.

Please update the issue with the missing details. We'll automatically re-analyze once updated.

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.