[EVENT] Also add RecordID to the current event that is already there.

Why do you need this change?

I need to build a different filter for the Approval Entry and I need the RecordID for this.

Describe the request

In codeunit 1535 "Approvals **Mgmt." there is this function

 procedure FindOpenApprovalEntryForCurrUser(var ApprovalEntry: Record "Approval Entry"; RecordID: RecordID): Boolean
    begin
        ApprovalEntry.SetRange("Table ID", RecordID.TableNo);
        ApprovalEntry.SetRange("Record ID to Approve", RecordID);
        ApprovalEntry.SetRange(Status, ApprovalEntry.Status::Open);
        ApprovalEntry.SetRange("Approver ID", UserId);
        // Initial check before performing an expensive query due to the "Related to Change" flow field.
        if not ApprovalEntry.IsEmpty() then
            ApprovalEntry.SetRange("Related to Change", false);

        **OnFindOpenApprovalEntryForCurrUserOnAfterApprovalEntrySetFilters(ApprovalEntry);**
        exit(ApprovalEntry.FindFirst());
    end;

In here there is the event OnFindOpenApprovalEntryForCurrUserOnAfterApprovalEntrySetFilters. It now olny contains the Approval Entry. I would also like to include the RecordID

SO the function becomes

 procedure FindOpenApprovalEntryForCurrUser(var ApprovalEntry: Record "Approval Entry"; RecordID: RecordID): Boolean
    begin
        ApprovalEntry.SetRange("Table ID", RecordID.TableNo);
        ApprovalEntry.SetRange("Record ID to Approve", RecordID);
        ApprovalEntry.SetRange(Status, ApprovalEntry.Status::Open);
        ApprovalEntry.SetRange("Approver ID", UserId);
        // Initial check before performing an expensive query due to the "Related to Change" flow field.
        if not ApprovalEntry.IsEmpty() then
            ApprovalEntry.SetRange("Related to Change", false);

        **OnFindOpenApprovalEntryForCurrUserOnAfterApprovalEntrySetFilters(ApprovalEntry, RecordID);**
        exit(ApprovalEntry.FindFirst());
    end;

and the event becomes

[IntegrationEvent(false, false)]
local procedure OnFindOpenApprovalEntryForCurrUserOnAfterApprovalEntrySetFilters(var ApprovalEntry: Record "Approval Entry";RecordID: RecordID)
begin
end;

Provide an implementation (optional)

• I will provide the implementation for this extensibility request

Start in codeunit 1535 "Approvals Mgmt." and locate FindOpenApprovalEntryForCurrUser and its OnFindOpenApprovalEntryForCurrUserOnAfterApprovalEntrySetFilters event. Update the event invocation and declaration to include RecordID, then verify that the codeunit compiles and the event exposes both ApprovalEntry and RecordID to subscribers.