Note

This event is specific to the "PostShipment"-RegistrationType. Do not confuse with other RegistrationTypes that is posting shipments.as well and got their own events i.e. OnPostAdhocRegistrationOnToteShipping_OnBeforeModifyWarehouseShipmentHeader

Use this event to

Populate fields at Warehouse Shipment Header when posting RegistratonType "PostShipment".

Template

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeader', '', true, true)]
    local procedure OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeader(var _RequestValues: Record "MOB NS Request Element"; var _WhseShptHeader: Record "Warehouse Shipment Header")
    begin
    end;

Example

For you to read step values "ShippingAgentCode" and "ShippingAgentServiceCode" you must first create these steps: See OnGetRegistrationConfiguration_OnAddSteps

    // [Example]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeader', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeader(var _RequestValues: Record "MOB NS Request Element"; var _WhseShptHeader: Record "Warehouse Shipment Header")
    var
        ShippingAgentCode: Code[10];
        ShippingAgentServiceCode: Code[10];
    begin

        ShippingAgentCode := CopyStr(_RequestValues.GetValue('ShippingAgentCode'), 1, MaxStrLen(ShippingAgentCode));
        ShippingAgentServiceCode := CopyStr(_RequestValues.GetValue('ShippingAgentServiceCode'), 1, MaxStrLen(ShippingAgentServiceCode));

        _WhseShptHeader.Validate("Shipping Agent Code", ShippingAgentCode);
        _WhseShptHeader.Validate("Shipping Agent Service Code", ShippingAgentServiceCode);
    end;

More examples

There are no items with the selected labels at this time.

Version History

Version	Changes
MOB5.17	Introduced

Browser not supported