Page Comparison

Use this event to

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnIncludeWarehouseShipmentLine', '', true, true)]
    local procedure OnGetShipOrderLines_OnIncludeWarehouseShipmentLine(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _IncludeInOrderLines: Boolean)
    begin
    end;

Example: Exclude blocked items

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnIncludeWarehouseShipmentLine', '', true, true)]
    local procedure MyOnGetShipOrderLines_OnIncludeWarehouseShipmentLine(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _IncludeInOrderLines: Boolean)
    var
        Item: Record Item;
    begin
        if Item.Get(_WhseShipmentLine."Item No.") and Item.Blocked then
            _IncludeInOrderLines := false;
    end;

Version History