OnLookupOnBinContent_OnIncludeBinContent

Use this event to

Add filter conditions for Bin Content that cannot be solved by OnSetFilter-event. 

Description

This event is triggered after filters have been applied to the Bin Content. The event should be used only when it is not possible to use OnLookupOnBinContent_OnSetFilterBinContent-event to solve if the Bin Content should be included in the response.

The Bin Content can be excluded from the response by setting the parameter _IncludeInLookup to false.

Template    

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnBinContent_OnIncludeBinContent', '', true, true)]
    local procedure OnLookupOnBinContent_OnIncludeBinContent(_BinContent: Record "Bin Content"; var _IncludeInLookup: Boolean)
    begin
    end;

Example 01: Do not include in response if item is blocked

    // [Example 01]: Do not include in response if item is blocked
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnBinContent_OnIncludeBinContent', '', true, true)]
    local procedure My01OnLookupOnBinContent_OnIncludeBinContent(_BinContent: Record "Bin Content"; var _IncludeInLookup: Boolean)
    var
        Item: Record Item;
    begin
        if Item.Get(_BinContent."Item No.") and Item.Blocked then
            _IncludeInLookup := false;
    end;

Example 02: Combine OnSetFilter and OnInclude events to display all fixed bins but floating bins only with inventory

    // [Example 02]: Combine OnSetFilter and OnInclude events to display all fixed bins but floating bins only with inventory
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnBinContent_OnSetFilterBinContent', '', true, true)]
    local procedure My02OnLookupOnBinContent_OnSetFilterBinContent(var _RequestValues: Record "MOB NS Request Element"; var _BinContent: Record "Bin Content")
    begin
        _BinContent.SetRange(Quantity); // Include all Bin Content records regardsless of Quantity on hand
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnBinContent_OnIncludeBinContent', '', true, true)]
    local procedure My02OnLookupOnBinContent_OnIncludeBinContent(_BinContent: Record "Bin Content"; var _IncludeInLookup: Boolean)
    begin
        _IncludeInLookup := _IncludeInLookup and ((_BinContent.Quantity <> 0) or _BinContent.Fixed);   // Exclude floating bins with no inventory
    end;

Version History