OnPostAdhocRegistrationOnPostShipment_OnBeforeRunWhsePostShipment

Use this event to

Code to be executed prior to posting via standard posting routines.

Description

The event can be used to call functions on the standard posting codeunit before run to i.e. print document on posting.

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

    // [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
        // prerequisite: the "ShippingAgentCode"- and "ShippingAgentServiceCode"-steps must to be created from separate event to be able to actually read this value here
        // see: https://docs.taskletfactory.com/display/TFSK/OnGetRegistrationConfiguration_OnAddSteps
        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;

Version History