OnPostAdhocRegistrationOnToteShipping_OnBeforeModifyWarehouseShipmentHeader

Use this event to

Populate fields at Warehouse Shipment Header when posting ToteShipping.

Template

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

Example

    // [Example] 
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnToteShipping_OnHandleRegistrationForWarehouseShipmentLine', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnToteShipping_OnHandleRegistrationForWarehouseShipmentLine(var _Registration: Record "MOB WMS Registration"; var _RequestValues: Record "MOB NS Request Element"; var _WhseShptLine: Record "Warehouse Shipment Line")
    var
        WhseShptHeader: Record "Warehouse Shipment Header";
        RegistrationType: Text;
    begin
        RegistrationType := _RequestValues.GetValue('RegistrationType');

        WhseShptHeader.Get(_WhseShptLine."No.");
        _WhseShptLine."Description 2" := CopyStr(StrSubstNo('%1 %2 %3', RegistrationType, _Registration."Tote ID", WhseShptHeader."MOB Posting MessageId"), 1, MaxStrLen(_WhseShptLine."Description 2"));
    end;

Version History