Add parameters in the event OnBeforeEnterBaseQty page 2900 - "Demand Forecast Variant Matrix"

[Babul2910]

Why do you need this change?

In the event OnBeforeEnterBaseQty event add below parameters
MatrixRecords: array[32] of Record Date;
ForecastType: Enum "Demand Forecast Type";
ProductionForecastName: Code[10];
DateFilter: Text;
QtyType: Enum "Analysis Amount Type";
var MATRIX_CellData: array[32] of Decimal

   [IntegrationEvent(true, false)]
    local procedure OnBeforeEnterBaseQty(var Item: Record "Forecast Item Variant Loc"; ColumnID: Integer; var IsHandled: Boolean; MatrixRecords: array[32] of Record Date; ForecastType: Enum "Demand Forecast Type"; ProductionForecastName: Code[10]; DateFilter: Text; QtyType: Enum "Analysis Amount Type"; var MATRIX_CellData: array[32] of Decimal);
    begin
    end;

Describe the request

We developed a new functionality in Business Central named Assembly BOM Version and want to incorporate it into the Demand Forecast process. To support this, a new fields was added to the Item and SKU tables, and this field should be shown on the Demand Forecast Matrix, along with Location and Variant.

Reason for Requesting the Event
The OnBeforeEnterBaseQty event enhancement is required to enable custom handling of Production Forecast Entry creation and quantity calculation, which is not possible with the current standard event parameters.

Internal work item: AB#638068

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add the missing matrix and forecast context parameters to OnBeforeEnterBaseQty and pass them from EnterBaseQty(ColumnID: Integer) before the standard quantity calculation logic.

Location in EnterBaseQty(ColumnID: Integer) procedure:

    local procedure EnterBaseQty(ColumnID: Integer)
    var
        Item: Record Item;
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeEnterBaseQty(Rec, ColumnID, IsHandled, MatrixRecords, ForecastType, ProductionForecastName, DateFilter, QtyType, MATRIX_CellData);
        if not IsHandled then begin
            Item.SetRange("No.", Rec."No.");
            Item.FindFirst();
            SetDateFilter(ColumnID);
            if QtyType = QtyType::"Net Change" then
                Item.SetRange("Date Filter", MatrixRecords[ColumnID]."Period Start", MatrixRecords[ColumnID]."Period End")
            else
                Item.SetRange("Date Filter", 0D, MatrixRecords[ColumnID]."Period End");

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

    [IntegrationEvent(true, false)]
    local procedure OnBeforeEnterBaseQty(var Item: Record "Forecast Item Variant Loc"; ColumnID: Integer; var IsHandled: Boolean; MatrixRecords: array[32] of Record Date; ForecastType: Enum "Demand Forecast Type"; ProductionForecastName: Code[10]; DateFilter: Text; QtyType: Enum "Analysis Amount Type"; var MATRIX_CellData: array[32] of Decimal)
    begin
    end;

---

File: DemandForecastVariantMatrix.Page.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.