Page Comparison

Use this event to

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnIncludeWarehouseActivityHeader', '', true, true)]
    local procedure OnGetPickOrders_OnIncludeWarehouseActivityHeader(_WhseActHeader: Record "Warehouse Activity Header"; var _IncludeInOrderList: Boolean)
    begin
    end;

Example

    // [Example]: Do not include Invt. Picks when the source doc.(Sales Order) is not released.
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnIncludeWarehouseActivityHeader', '', true, true)]
    local procedure MyOnGetPickOrders_OnIncludeWarehouseActivityHeader(_WhseActHeader: Record "Warehouse Activity Header"; var _IncludeInOrderList: Boolean)
    var
        SalesHeader: Record "Sales Header";
        MobToolbox: Codeunit "MOB Toolbox";
    begin
        if (_WhseActHeader.Type = _WhseActHeader.Type::"Invt. Pick") and (_WhseActHeader."Source Document" = _WhseActHeader."Source Document"::"Sales Order") then
            if SalesHeader.Get(_WhseActHeader."Source Subtype", _WhseActHeader."Source No.") and (MobToolbox.AsInteger(SalesHeader.Status) < MobToolbox.AsInteger(SalesHeader.Status::Released)) then
                _IncludeInOrderList := false;
    end;

...