Page Comparison

Use this event to

...

Description

This event is triggered after filters have been applied to the Warehouse Receipt Activity Header. The event should be used only when it is not possible to use OnSetFilter-event to solve if the Header should be included in the OrderList response.

The Warehouse Receipt Header Activity Header can be excluded from the OrderList response by setting the parameter _IncludeInOrderList to false.

...

Learn about Basic vs. Complex filtering

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Put Away", 'OnGetReceiveOrdersOnGetPutAwayOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader', '', true, true)]
    local procedure OnGetReceiveOrders OnGetPutAwayOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader(_WhseReceiptHeaderWhseActHeader: Record "Warehouse Receipt HeaderWarehouse Activity Header"; var _HeaderFilters: Record "MOB NS Request Element";  var _IncludeInOrderList: Boolean)
    begin
    end;

Example:

...

Exclude Inventory Picks when the source document (the purchase order) is not released

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Put Away", 'OnGetReceiveOrdersOnGetPutAwayOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader', '', true, true)]
    local procedure MyOnGetReceiveOrders MyOnGetPutAwayOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader(_WhseReceiptHeaderWhseActHeader: Record "Warehouse Receipt Header"Warehouse Activity Header"; var _HeaderFilters: Record "MOB NS Request Element";  var _IncludeInOrderList: Boolean)
    var
        WhseReceiptLine        PurchaseHeader: Record "Warehouse Receipt LinePurchase Header";
        PurchaseHeader        MobToolbox: RecordCodeunit "Purchase Header";
        Vendor: Record VendorMOB Toolbox";
    begin
        if WhseReceiptLine.FindSet() then
            repeat
                if WhseReceiptLine (_WhseActHeader.Type = _WhseActHeader.Type::"Invt. Put-away") and (_WhseActHeader."Source Document" = WhseReceiptLine _WhseActHeader."Source Document"::"Purchase Order") then begin
                    PurchaseHeader            if PurchaseHeader.Get(WhseReceiptLine_WhseActHeader."Source Subtype", WhseReceiptLine _WhseActHeader."Source No.");
                    if Vendor.Get and (MobToolbox.AsInteger(PurchaseHeader."Buy-from Vendor No.") and not (Vendor.Blocked < Vendor.Blocked::AllStatus) < MobToolbox.AsInteger(PurchaseHeader.Status::Released)) then
                                        _IncludeInOrderList := false;
                end;
            until (WhseReceiptLine.Next() = 0) or not _IncludeInOrderList;
    end;

...