Page Comparison

Use this event to

...

Template 1

  [EventSubscriber(ObjectType::Codeunit, Codeunit::"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::Codeunit, Codeunit::"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::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine', '', true, true)]
    procedure My01OnGetShipOrderLines_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::Codeunit, Codeunit::"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(CopyStr(GetValue('SpecialEquipmentCode'), 1, MaxStrLen("Sorting1 (internal)")));
        end;
    end;

...