Skip to end of metadata
Go to start of metadata

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 8 Next »

Use this event to

Populate values in Order Lines displayed at the mobile device (derived from Warehouse Shipment Line).

Template 1

  [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine''', true, true)]
    procedure OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
    end;


Template 2

  [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine''', true, true)]
    procedure OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine2(_WhseShipmentLine: Record "Warehouse Shipment Line"; _TempReservationEntry: Record "Reservation Entry"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
        // (optional parameter _TempReservationEntry can be used when specific knowledge of the associated Reservation Entry is required)
    end;


Example 1

    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine''', true, true)]
    procedure OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
        with _BaseOrderLineElement do begin
            Item.Get(Get_ItemNumber());

            Set_DisplayLine5('Set from OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine');
            SetValue('SpecialEquipmentCode''SpecialEquipmentCode: ' + Item."Special Equipment Code");
        end;
    end;


Example 2

    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine''', true, true)]
    procedure My02OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
        with _BaseOrderLineElement do begin
            // New custom tag
            Item.Get(Get_ItemNumber());
            SetValue('SpecialEquipmentCode', Item."Special Equipment Code");


            // Sort by custom tag
            Set_Sorting1(GetValue('SpecialEquipmentCode'));
        end;
    end;



More examples


Version History

VersionChanges
MOB5.00Introduced


  • No labels