Table 39 "Purchase Line" - new Event on field 5794 "Planned Receipt Date"

[DanielSmutek]

Why do you need this change?

We need this event for implementing of customer funkcionality

Describe the request

    field(5794; "Planned Receipt Date"; Date)
    {
        AccessByPermission = TableData "Order Promising Line" = R;
        Caption = 'Planned Receipt Date';

        trigger OnValidate()
        var
            CustomCalendarChange: array[2] of Record "Customized Calendar Change";
            IsHandled: Boolean;
        begin
            IsHandled := false;
            OnBeforeValidatePlannedReceiptDate(Rec, xRec, CurrFieldNo, TrackingBlocked, IsHandled);
            if IsHandled then
                exit;

            if "Promised Receipt Date" <> 0D then begin
                if "Planned Receipt Date" <> 0D then begin
                    CustomCalendarChange[1].SetSource(CalChange."Source Type"::Location, "Location Code", '', '');
                    "Expected Receipt Date" :=
                      CalendarMgmt.CalcDateBOC(InternalLeadTimeDays("Planned Receipt Date"), "Planned Receipt Date", CustomCalendarChange, false)
                end else
                    "Expected Receipt Date" := "Planned Receipt Date";
            end else
                if "Planned Receipt Date" <> 0D then begin
                    CustomCalendarChange[1].SetSource(CalChange."Source Type"::Vendor, "Buy-from Vendor No.", '', '');
                    CustomCalendarChange[2].SetSource(CalChange."Source Type"::Location, "Location Code", '', '');
                    UpdateOrderDateFromPlannedReceiptDate(CustomCalendarChange);
                    CustomCalendarChange[1].SetSource(CalChange."Source Type"::Location, "Location Code", '', '');
                    "Expected Receipt Date" :=
                      CalendarMgmt.CalcDateBOC(InternalLeadTimeDays("Planned Receipt Date"), "Planned Receipt Date", CustomCalendarChange, false)
                end else
                    if "Requested Receipt Date" <> 0D then
                        Validate("Requested Receipt Date")
                    else
                        GetUpdateBasicDates();
            NEW EVENT >>
            IsHandled := false;
            OnValidatePlannedReceiptDateBeforePurchLineCheck(Rec, xRec, IsHandled);
            if not IsHandled then
            NEW EVENT <<
            if not TrackingBlocked then
                CheckDateConflict.PurchLineCheck(Rec, CurrFieldNo <> 0);
        end;
    }

NEW EVENT >>
[IntegrationEvent(false, false)]
local procedure OnValidatePlannedReceiptDateBeforePurchLineCheck(var PurchaseLine: Record "Purchase Line"; xPurchaseLine: Record "Purchase Line"; var IsHandled: Boolean)
begin
end;
NEW EVENT >>

[AleksandricMarko]

Hi @DanielSmutek,

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Meaningful Justification: The justification "We need this event for implementing of customer funkcionality" does not provide enough context. Please describe the specific business scenario or technical limitation you are facing. For example, explain why you need to skip the CheckDateConflict.PurchLineCheck call and what custom logic you intend to execute instead.

• Alternatives Evaluated: Please describe which existing events or patterns you have already tried and why they are insufficient for your use case. For instance, the existing OnBeforeValidatePlannedReceiptDate event at the beginning of this trigger already includes an IsHandled parameter — have you considered using that event instead?

• Justification for IsHandled: Since this request uses the IsHandled pattern to bypass the CheckDateConflict.PurchLineCheck logic, please explain why a standard (non-IsHandled) event would not be sufficient, what specific business logic must be skipped or replaced, and why alternative approaches (such as the existing OnBeforeValidatePlannedReceiptDate event) won't work.

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