[EventRequest] Report 5005340 Create Delivery Reminder OnAfterGetVendorChanged

[BernhardKloibmueller]

Describe the request

Hello

we would need a new event in the Report 5005340 Create Delivery Reminder to overwrite if a new Delivery Reminder Header needs to be created:

OLD:

            dataitem("Purchase Line"; "Purchase Line")
            {
                DataItemLink = "Document Type" = field("Document Type"), "Document No." = field("No.");
                DataItemTableView = sorting("Document Type", "Document No.", "Line No.") where("Outstanding Quantity" = filter(<> 0));
                RequestFilterFields = Type, "No.";

                trigger OnAfterGetRecord()
                begin
                    Window.Update(2, "Line No.");

                    VendorChanged := "Purchase Header"."Buy-from Vendor No." <> LastVendorNo;
                    if VendorChanged then
                        Clear(CreateDeliveryReminder);
                    if CreateDeliveryReminder.Remind("Purchase Line", DeliveryReminderTerms, DeliveryReminderLevel, DateOfTheCurrentDay) then begin
                        if VendorChanged then begin
                            if DeliveryReminderHeader."Vendor No." <> '' then begin
                                CreateDeliveryReminder.HeaderReminderLevelRefresh(DeliveryReminderHeader);
                                CreateDeliveryReminder.UpdateLines(DeliveryReminderHeader);
                            end;

NEW:

            dataitem("Purchase Line"; "Purchase Line")
            {
                DataItemLink = "Document Type" = field("Document Type"), "Document No." = field("No.");
                DataItemTableView = sorting("Document Type", "Document No.", "Line No.") where("Outstanding Quantity" = filter(<> 0));
                RequestFilterFields = Type, "No.";

                trigger OnAfterGetRecord()
                begin
                    Window.Update(2, "Line No.");

                    VendorChanged := "Purchase Header"."Buy-from Vendor No." <> LastVendorNo;
                    OnAfterGetVendorChanged("Purchase Header", "Purchase Line", VendorChanged);
                    if VendorChanged then
                        Clear(CreateDeliveryReminder);
                    if CreateDeliveryReminder.Remind("Purchase Line", DeliveryReminderTerms, DeliveryReminderLevel, DateOfTheCurrentDay) then begin
                        if VendorChanged then begin
                            if DeliveryReminderHeader."Vendor No." <> '' then begin
                                CreateDeliveryReminder.HeaderReminderLevelRefresh(DeliveryReminderHeader);
                                CreateDeliveryReminder.UpdateLines(DeliveryReminderHeader);
                            end;

[IntegrationEvent(IncludeSender, false)]
local procedure OnAfterGetVendorChanged(PurchaseHeader:Record "Purchase Header";PurchaseLine:Record "Purchase Line"; var VendorChanged:Boolean)
begin
end;

Also it would be beneficial if the global variables would be protected:
CreateDeliveryReminder: Codeunit "Create Delivery Reminder";
VendorChanged: Boolean;

Thank you if this would be possible.

Additional context

We need to create delivery reminders by order and not by vendor and for this either we need the procedures to overwrite the report or an working event.
Internal work item: AB#568212