Page Comparison

Use this event to

...

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnToteShipping_OnBeforeModifyRegistrationOnHandleRegistrationForWarehouseShipmentLine', '', true, true)]
    local procedure OnPostAdhocRegistrationOnToteShipping_OnBeforeModifyRegistratioOnHandleRegistrationForWarehouseShipmentLine(var _WhseShptLineRegistration: Record "Warehouse Shipment LineMOB WMS Registration"; var _RequestValues: Record "MOB NS Request Element"; var _RegistrationWhseShptLine: Record "MOB WMS RegistrationWarehouse Shipment Line")
    begin
    end;
 

Example

    // [Example] 
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnToteShipping_OnBeforeModifyRegistrationOnHandleRegistrationForWarehouseShipmentLine', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnToteShipping_OnBeforeModifyRegistrationOnHandleRegistrationForWarehouseShipmentLine(var _WhseShptLineRegistration: Record "Warehouse Shipment LineMOB WMS Registration"; var _RequestValues: Record "MOB NS Request Element"; var _RegistrationWhseShptLine: Record "MOB WMS RegistrationWarehouse Shipment Line")
    var
        RegisteredToteID        WhseShptHeader: Record "Warehouse Shipment Header";
        RegistrationType: Text;
    begin
        RegisteredToteID        RegistrationType := _RegistrationRequestValues.GetValue('RegistrationType');

        WhseShptHeader.Get(_WhseShptLine."Tote IDNo.");
        if not RegisteredToteID.Contains(_RequestValues.GetValue('ToteID')) then
            _Registration.FieldError("Tote ID");
        // Assign any field at MobWmsRegistration here...
        // ..._WhseShptLine."Description 2" := CopyStr(StrSubstNo('%1 %2 %3', RegistrationType, _Registration."Tote ID", WhseShptHeader."MOB Posting MessageId"), 1, MaxStrLen(_WhseShptLine."Description 2"));
    end;

Version History

...