[Event Requet] Table 222 "Ship-to Address".GetFilterCustNo

[fridrichovsky]

Why do you need this change?

Customer have very strict filter for each user. We need change Security filtering before set filter.

Describe the request

procedure GetFilterCustNo(): Code[20]
     begin
 //-----------------------------------------OnBeforeGetFilterCustNo:BEGIN
     OnBeforeGetFilterCustNo(Rec);
 //-----------------------------------------OnBeforeGetFilterCustNo:END
    if GetFilter("Customer No.") <> '' then
         if GetRangeMin("Customer No.") = GetRangeMax("Customer No.") then
             exit(GetRangeMax("Customer No."));
     end;
//-----------------------------------------OnBeforeGetFilterCustNo:BEGIN
     [IntegrationEvent(false, false)]
     local procedure OnBeforeGetFilterCustNo(var ShipToAddress: Record "Ship-to Address")
     begin
     end;
 //-----------------------------------------OnBeforeGetFilterCustNo:END

Internal work item: AB#624640

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add OnBeforeGetFilterCustNo integration event to allow modifying security filters before the standard filter retrieval logic.

In GetFilterCustNo procedure (around line 408):

procedure GetFilterCustNo(): Code[20]
begin
    OnBeforeGetFilterCustNo(Rec);
    if GetFilter("Customer No.") <> '' then
        if GetRangeMin("Customer No.") = GetRangeMax("Customer No.") then
            exit(GetRangeMax("Customer No."));
end;

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

/// <summary>
/// Integration event that fires before retrieving the filtered customer number.
/// Use this event to modify security filters or adjust filter criteria before the standard logic executes.
/// </summary>
/// <param name="ShipToAddress">The ship-to address record with current filters applied.</param>
[IntegrationEvent(false, false)]
local procedure OnBeforeGetFilterCustNo(var ShipToAddress: Record "Ship-to Address")
begin
end;

---

File: ShiptoAddress.Table.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 47814.