Page Comparison

Use this event to

...

This event is triggered after filters have been applied to the Warehouse Activity Shipment 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 Activity Header Shipment Header can be excluded from the OrderList response by setting the parameter _IncludeInOrderList to false.

...

Template

 [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnIncludeWarehouseShipmentHeader', '', true, true)]
    procedure OnGetShipOrders_OnIncludeWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment 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 Ship", 'OnGetShipOrders_OnIncludeWarehouseShipmentHeader', '', true, true)]
    procedure OnGetShipOrders_OnIncludeWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _IncludeInOrderList: Boolean)
    var
        WhseShipmentLine: Record "Warehouse Shipment Line";
        SalesHeader: Record "Sales Header";
        Customer: Record Customer;
    begin
        if WhseShipmentLine.FindSet() then
            repeat
                if WhseShipmentLine."Source Document" = WhseShipmentLine."Source Document"::"Sales Order" then begin
                    SalesHeader.Get(WhseShipmentLine."Source Subtype", WhseShipmentLine."Source No.");
                    if Customer.Get(SalesHeader."Sell-to Customer No.") and not (Customer.Blocked < Customer.Blocked::All) then
                        _IncludeInOrderList := false;
                end;
            until (WhseShipmentLine.Next() = 0) or not _IncludeInOrderList;
    end;

...