Page Comparison

Use this event to

...

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.

Template  Template

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

Example:

...

Don't include Invt. Picks when the source doc.(Purchase Order) is not released.

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Put Away", 'OnGetReceiveOrdersOnGetPutAwayOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader', '', true, true)]
    procedure MyOnGetReceiveOrders MyOnGetPutAwayOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader(_WhseReceiptHeaderWhseActHeader: Record "Warehouse Receipt HeaderWarehouse Activity Header"; var _IncludeInOrderList: Boolean)
    var
        WhseReceiptLine:  Record "Warehouse Receipt Line";
        PurchaseHeader  PurchaseHeader: Record "Purchase Header";
        Vendor: Record Vendor;
    begin
        if WhseReceiptLine.FindSet() then
            repeat
                if WhseReceiptLine    if (_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 (PurchaseHeader."Buy-from Vendor No.") and not (Vendor.Blocked < Vendor.Blocked::AllStatus < PurchaseHeader.Status::Released) then
                        _IncludeInOrderList  :=   false;
                end;
            until (WhseReceiptLine.Next()   =   0) or   not   _IncludeInOrderList := false;
    end;

...