OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeader
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 |