Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Use this event to

Excerpt

Populate values in Orders displayed at the mobile device (derived from Warehouse Shipments).


Template

    [EventSubscriber(ObjectType::CodeunitCodeunit::"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::CodeunitCodeunit::"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::CodeunitCodeunit::"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(CopyStr(_BaseOrderElement.GetValue('AssignedUserID')1, MaxStrLen("Sorting1 (internal)")));
            Set        _BaseOrderElement.Set_Sorting2(CopyStr(_BaseOrderElement.Get_ItemNumber()1, MaxStrLen("Sorting2 (internal)")));
        end;
    end;



Filter by label (Content by label)
showLabelsfalse
showSpacefalse
sorttitle
titleMore examples
excerptTypesimple
cqllabel = "bc" and label = "orders" and label = "example" and label = "onaftersetfrom"

...