How-to: Display a Confirm dialog (ForceWarning)

Description

You want to prompt the user to Confirm a message.

The ErrorIfNotConfirm() method described below will use an Error in a specific format to trigger the confirmation at the Mobile Device. For this reason using the method will cause an Error entry in the Windows Application Event Log.

If this is an issue for you, consider if your code can be restructured to display the information at existing elements, rather than requiring a confirmation.

Example 1: Planned function posting

Using this event OnPostReceiveOrder_OnBeforePostAnyOrder

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnPostReceiveOrder_OnBeforePostAnyOrder', '', true, true)]
    local procedure OnPostReceiveOrder_OnBeforePostAnyOrder(var _OrderValues: Record "MOB Common Element"; var _RecRef: RecordRef);
    var
        MobToolbox: Codeunit "MOB Toolbox";
    begin
        MobToolbox.ErrorIfNotConfirm('You are stopped for some condition... Do you want to continue?', _OrderValues);
    end;

Example 2: LockOrder (Planned function, when an Order is selected)

Using this event OnLockOrder_OnBeforeLockOrder

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Order Locking", 'OnLockOrder_OnBeforeLockOrder', '', true, true)]
    local procedure ShowConfirmBox_OnBeforeLockOrder(_MobDocumentQueue: Record "MOB Document Queue"; var _RequestValues: Record "MOB NS Request Element"; var _IsHandled: Boolean)
    var
        MobToolbox: Codeunit "MOB Toolbox";
    begin
        if _RequestValues.GetValue('Type') = 'Pick' then
            MobToolbox.ErrorIfNotConfirm(_RequestValues, 'You are stopped for some condition... Do you want to continue?');
    end;

Example 3: Unplanned Move

Using this event OnPostAdhocRegistrationOnUnplannedMove_OnAfterCreateWhseJnlLine

Find other functions here PostAdhocRegistration - Integration Events by Registration Type

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnUnplannedMove_OnAfterCreateWhseJnlLine', '', true, true)]
local procedure OnPostAdhocRegistrationOnUnplannedMove_OnAfterCreateWhseJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _WhseJnlLine: Record "Warehouse Journal Line")
var
MobToolbox: Codeunit "MOB Toolbox";
begin
MobToolbox.ErrorIfNotConfirm(_RequestValues, 'You are stopped for some condition... Do you want to continue?');
end;

Example 4: Custom Unplanned function

Using this event OnPostAdhocRegistrationOnCustomRegistrationType

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnCustomRegistrationType', '', true, true)]
local procedure My01OnPostAdhocRegistrationOnCustomRegistrationType(_RegistrationType: Text; var _RequestValues: Record "MOB NS Request Element"; var _SuccessMessage: Text; var _RegistrationTypeTracking: Text; var _IsHandled: Boolean)
var
MobToolbox: Codeunit "MOB Toolbox";
begin
if _RegistrationType <> 'MyNewUnplannedName' then
exit;

if _IsHandled then
exit;

MobToolbox.ErrorIfNotConfirm(_RequestValues, 'You are stopped for some condition... Do you want to continue?');

_SuccessMessage := 'My custom success message';
_RegistrationTypeTracking := 'My custom description for the document queue (column RegistationType)';
_IsHandled := true;
end;

Example 5: Custom Unplanned function (legacy XML version)

Using this event OnPostAdhocRegistrationOnCustomRegistrationTypeAsXml

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnCustomRegistrationTypeAsXml', '', true, true)]
 local procedure My02OnPostAdhocRegistrationOnCustomRegistrationTypeAsXml(var _XMLRequestDoc: XmlDocument; var _XMLResponseDoc: XmlDocument; _RegistrationType: Text; var _RegistrationTypeTracking: Text[200]; var _IsHandled: Boolean)
 var
 MobToolbox: Codeunit "MOB Toolbox";
 begin
 if _RegistrationType <> 'MyUnplanned' then
 exit;

if _IsHandled then
            exit;

        MobToolbox.ErrorIfNotConfirm('You are stopped for some condition... Do you want to continue?', _XMLRequestDoc);

        MOBToolbox.CreateSimpleResponse(_XMLResponseDoc, '');
        _IsHandled := true;
    end;

Using HTML formatting:

(Minimum Mobile App version 1.5.9)

You can use simple html formatting of the text to display in the confirmation dialog.

HtmlTxtToDispaly :=
'<html>' +
'' + 'My Text 1 in Bold and Blue' +
'' + ' ' + 'My Text 2 on new line in Italic' +
'' + 'My Text 3 after paragraph' + '' +
'My Text 4 in Bold and Red' + '' +
' ' + 'My Text 5 on new line in Italic' +
'' + 'My Text 6 after paragraph' +
'</html>';

How it works behind the scenes

The key ”ForceWarning:” is prefixed to a regular ERROR() command.

Error('ForceWarning:%1', MyConfirmMessage);

This way front-end App knows to a display a Confirm dialog
1. Choosing "Cancel" will return the user to the previous screen
2. Choosing "Confirm" will automatically repeat the request with a “Force” tag included
The Force tag tells the backend that the Process can now be completed and NOT halted by the ERROR command.