[Event Requet] Table 27 "Item".PickItem

[fridrichovsky]

Why do you need this change?

We need option change filter before count and findfirst. We set filter by Location and set custom field filters.

Describe the request

procedure PickItem(var Item: Record Item): Code[20]
    var
        FindRecordMgt: Codeunit "Find Record Management";
        ItemList: Page "Item List";
        RaiseNotification: Boolean;
    begin
        if Item.FilterGroup = -1 then
            ItemList.SetTempFilteredItemRec(Item);
        //--------------------------------------------OnPickItemOnBeforeFindFirstItem:BEGIN
        OnPickItemOnBeforeFindFirstItem(Item);
        //--------------------------------------------OnPickItemOnBeforeFindFirstItem:END

        RaiseNotification := Item.Count > FindRecordMgt.GetMaxRecordCountToReturn();

        if Item.FindFirst() then;
        ItemList.SetTableView(Item);
        ItemList.SetRecord(Item);
        ItemList.LookupMode := true;
        if RaiseNotification then
            ItemList.DoShowNotification();
        if ItemList.RunModal() = ACTION::LookupOK then
            ItemList.GetRecord(Item)
        else
            Clear(Item);

        exit(Item."No.");
    end;

    //--------------------------------------------OnPickItemOnBeforeFindFirstItem:BEGIN
    [IntegrationEvent(false, false)]
    local procedure OnPickItemOnBeforeFindFirstItem(var Item: Record Item)
    begin
    end;
    //--------------------------------------------OnPickItemOnBeforeFindFirstItem:END

Internal work item: AB#624781

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnPickItemOnBeforeFindFirstItem in the PickItem procedure of Table 27 "Item" to allow extensions to modify filters on the Item record before calling Item.Count and Item.FindFirst().

Location in PickItem procedure (around line 3545):

procedure PickItem(var Item: Record Item): Code[20]
var
    ItemList: Page "Item List";
    FindRecordMgt: Codeunit "Find Record Management";
    RaiseNotification: Boolean;
begin
    if Item.FilterGroup = -1 then
        ItemList.SetTempFilteredItemRec(Item);

    OnPickItemOnBeforeFindFirstItem(Item);  // <-- New event

    RaiseNotification := Item.Count > FindRecordMgt.GetMaxRecordCountToReturn();

    if Item.FindFirst() then;
    ItemList.SetTableView(Item);
    ItemList.SetRecord(Item);
    ItemList.LookupMode := true;
    if RaiseNotification then
        ItemList.DoShowNotification();
    if ItemList.RunModal() = ACTION::LookupOK then
        ItemList.GetRecord(Item)
    else
        Clear(Item);

    exit(Item."No.");
end;

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

[IntegrationEvent(false, false)]
local procedure OnPickItemOnBeforeFindFirstItem(var Item: Record Item)
begin
end;

---

File: Item.Table.al