Page Comparison

Use this event to

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader', '', true, true)]
    local procedure OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _BaseOrderElement: Record "MOB NS BaseDataModel Element")
    begin
    end;

Example 1

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader', '', true, true)]
    local procedure OnGetShipOrders My01OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _BaseOrderElement: Record "MOB NS BaseDataModel Element")
    begin
        with _BaseOrderElement do begin
            Set_BaseOrderElement.Set_DisplayLine5('Set from OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader');
            SetValue        _BaseOrderElement.SetValue('MyOnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader', 'OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader Custom Tag for BackendID ' + Get _BaseOrderElement.Get_BackendID());
        end;
    end;

Example 2

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader', '', true, true)]
    local procedure OnGetShipOrders My02OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _BaseOrderElement: Record "MOB NS BaseDataModel Element")
    begin
        with _BaseOrderElement do begin
            SetValue_BaseOrderElement.SetValue('AssignedUserID', 'Assigned to: ' + _WhseShipmentHeader."Assigned User ID");

            Set        _BaseOrderElement.Set_Sorting1(_BaseOrderElement.GetValue('AssignedUserID'));
            Set        _BaseOrderElement.Set_Sorting2(_BaseOrderElement.Get_ItemNumber());
        end;
    end;

...