| Info | ||
|---|---|---|
| ||
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 |
...
// [Template]
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnToteShippingOnPostAdhocRegistrationOnPostShipment_OnHandleRegistrationForWarehouseShipmentLineOnBeforeModifyWarehouseShipmentHeader', '', true, true)]
local procedure OnPostAdhocRegistrationOnToteShipping OnPostAdhocRegistrationOnPostShipment_OnHandleRegistrationForWarehouseShipmentLineOnBeforeModifyWarehouseShipmentHeader(var _Registration: Record "MOB WMS Registration"; var _RequestValues: Record "MOB NS Request Element"; var _WhseShptLineWhseShptHeader: Record "Warehouse Shipment LineWarehouse 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.", 'OnPostAdhocRegistrationOnToteShippingOnPostAdhocRegistrationOnPostShipment_OnHandleRegistrationForWarehouseShipmentLineOnBeforeModifyWarehouseShipmentHeader', '', true, true)]
local procedure MyOnPostAdhocRegistrationOnToteShipping MyOnPostAdhocRegistrationOnPostShipment_OnHandleRegistrationForWarehouseShipmentLine(var _Registration: Record "MOB WMS Registration"; OnBeforeModifyWarehouseShipmentHeader(var _RequestValues: Record "MOB NS Request Element"; var _WhseShptLineWhseShptHeader: Record "Warehouse Shipment LineWarehouse Shipment Header")
var
WhseShptHeader ShippingAgentCode: Record "Warehouse Shipment Header"Code[10];
RegistrationType ShippingAgentServiceCode: TextCode[10];
begin
RegistrationType
ShippingAgentCode := CopyStr(_RequestValues.GetValue('RegistrationTypeShippingAgentCode');
WhseShptHeader.Get(_WhseShptLine."No.");
_WhseShptLine."Description 2", 1, MaxStrLen(ShippingAgentCode));
ShippingAgentServiceCode := CopyStr(StrSubstNo_RequestValues.GetValue('%1 %2 %3ShippingAgentServiceCode'), RegistrationType, _Registration."Tote ID", WhseShptHeader."MOB Posting MessageId"), 1, MaxStrLen(_WhseShptLine."Description 2")) 1, MaxStrLen(ShippingAgentServiceCode));
_WhseShptHeader.Validate("Shipping Agent Code", ShippingAgentCode);
_WhseShptHeader.Validate("Shipping Agent Service Code", ShippingAgentServiceCode);
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...