Page Comparison

...

Also, since this event is consistently called before planned documents are displayed at the mobile device, you may use the event to display confirmation messages at the mobile device when such documents are opened.

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB User ManagementMOB WMS Order Locking", 'OnLoginOnLockOrder_OnAfterLoginOnBeforeLockOrder', '', true true, true true)]
    local procedure OnLogin OnLockOrder_OnAfterLogin(_MobDocQueueOnBeforeLockOrder(_MobDocumentQueue: Record "MOB Document Queue"; var _RequestValues: Record "MOB Document Queue"MOB NS Request Element"; var _IsHandled: Boolean)
    begin
        // Implement custom business logic here        
    end;

Example

...

1

    // [Example 01]  Your own custom locking implementation: Suspend all order locking for Pick lines
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB User ManagementMOB WMS Order Locking", 'OnLoginOnLockOrder_OnAfterLoginOnBeforeLockOrder', '', true true, true true)]
    local procedure OnLogin My01OnLockOrder_OnAfterLoginOnBeforeLockOrder(_MobDocQueueMobDocumentQueue: Record "MOB Doc Queue")
var
     MobUserMOB Document Queue"; var _RequestValues: Record "MOB UserMOB NS Request Element";
 var   WarehouseEmployee_IsHandled: Record "Warehouse Employee";
begin
     with _LookupResponseElement do begin
          MobUser.Get(_MobDocQueue."Mobile User ID");
          WarehouseEmployee.SetRange("User ID", MobUser."User ID");
          if WarehouseEmployee.IsEmpty() then
               Error('You Shall Not Pass!!!!');
     end;
Boolean)
    begin
        if _RequestValues.GetValue('Type') = 'Pick' then begin
            _IsHandled := true;
            exit;
        end;
    end;

Example 2

    // [Example 02]  Confirmation message when attempting specific lock type
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Order Locking", 'OnLockOrder_OnBeforeLockOrder', '', true, true)]
    local procedure My02OnLockOrder_OnBeforeLockOrder(_MobDocumentQueue: Record "MOB Document Queue"; var _RequestValues: Record "MOB NS Request Element"; var _IsHandled: Boolean)
    var
        MobToolbox: Codeunit "MOB Toolbox";
        XmlRequestDoc: XmlDocument;
    begin
        if _RequestValues.GetValue('Type') = 'Pick' then begin
            _MobDocumentQueue.LoadXMLRequestDoc(XmlRequestDoc);
            MobToolbox.ErrorIfNotConfirm('This is a confirmation message OnGetPickOrderLines...', XmlRequestDoc);
        end;
    end;

Version History

...