Versions Compared

Key

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

Use this event to

...

Template

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

Example

    // [Example]: Add steps referenced by new RegistrationCollectorConfiguration-Key to line steps collectors
    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Ship", 'OnGetShipOrderLines_OnAddStepsToWarehouseShipmentLine''', true, true)]
    procedure MyOnGetShipOrderLines_OnAddStepsToAnyLine(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _BaseOrderLineElement: Record "MOB NS BaseDataModel Element")
    begin
        with _BaseOrderLineElement do
            Create_StepsByReferenceDataKey('CustomShipSteps', true);
    end;



    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddRegistrationCollectorConfigurations''', true, true)]
    local procedure MyOnGetReferenceData_OnAddRegistrationCollectorConfigurations(var _Steps: Record "MOB Steps Element")
    begin
        with _Steps do begin
            InitConfigurationKey('CustomShipSteps');

            Create_DecimalStep(10000'CustomNetWeightGrams');
            Set_header('Net Weight (Grams)');
            Set_label('Net Weight (Grams):');
            Set_helpLabel('Net Weight in Grams per Base Unit of Measure');
            Set_minValue(0);
            Set_maxValue(100000);
            Set_performCalculation(true);
        end;
    end;

...