[Event Request] codeunit 5870 "Calculate BOM Tree"

[Simon110394]

Why do you need this change?

We need a way to calculate DueDate differently.
At the moment there are no other available events to do that. It is necessary to include the event as last line of the procedure in order to be able to overwrite the already calculate DueDate.

Describe the request

In procedure CalcCompDueDate of codeunit 5870 "Calculate BOM Tree" we need an event:

[IntegrationEvent(false, false)]
local procedure OnAfterCalcCompDueDate(var DueDate: Date; DemandDate: Date; ParentItem: Record Item; LeadTimeOffset: DateFormula)
begin
end;

Changes between **:

procedure CalcCompDueDate(DemandDate: Date; ParentItem: Record Item; LeadTimeOffset: DateFormula) DueDate: Date
    var
        InventorySetup: Record "Inventory Setup";
        EndDate: Date;
        StartDate: Date;
    begin
        if DemandDate = 0D then
            exit;

        EndDate := DemandDate;
        if Format(ParentItem."Safety Lead Time") <> '' then
            EndDate := DemandDate - (CalcDate(ParentItem."Safety Lead Time", DemandDate) - DemandDate)
        else
            if InventorySetup.Get() and (Format(InventorySetup."Default Safety Lead Time") <> '') then
                EndDate := DemandDate - (CalcDate(InventorySetup."Default Safety Lead Time", DemandDate) - DemandDate);

        if Format(ParentItem."Lead Time Calculation") = '' then
            StartDate := EndDate
        else
            StartDate := EndDate - (CalcDate(ParentItem."Lead Time Calculation", EndDate) - EndDate);

        if Format(LeadTimeOffset) = '' then
            DueDate := StartDate
        else
            DueDate := StartDate - (CalcDate(LeadTimeOffset, StartDate) - StartDate);

        **OnAfterCalcCompDueDate(DueDate, DemandDate, ParentItem, LeadTimeOffset);**
    end;

Internal work item: AB#640604

[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 what existing events or extension points you evaluated and why they are insufficient for this scenario.
• Why IsHandled is required: Justify why a bypass/override pattern is necessary instead of a regular event that extends the standard logic.
• Execution frequency and performance impact: Describe how often this code path runs and any expected performance considerations.
• Sensitive data exposure: Confirm whether the requested event would expose any sensitive or private data.
• Multi-extension conflict handling: Explain how conflicts between multiple subscribers would be avoided or mitigated when using IsHandled.

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]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event at the end of CalcCompDueDate in Codeunit 5870 Calculate BOM Tree so extensions can override the final calculated DueDate.

Location in CalcCompDueDate() procedure:

        if Format(ParentItem."Lead Time Calculation") = '' then
            StartDate := EndDate
        else
            StartDate := EndDate - (CalcDate(ParentItem."Lead Time Calculation", EndDate) - EndDate);

        if Format(LeadTimeOffset) = '' then
            DueDate := StartDate
        else
            DueDate := StartDate - (CalcDate(LeadTimeOffset, StartDate) - StartDate);

        OnAfterCalcCompDueDate(DueDate, DemandDate, ParentItem, LeadTimeOffset);
    end;

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

    [IntegrationEvent(false, false)]
    local procedure OnAfterCalcCompDueDate(var DueDate: Date; DemandDate: Date; ParentItem: Record Item; LeadTimeOffset: DateFormula)
    begin
    end;

---

File: CalculateBOMTree.Codeunit.al

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.