Info | ||
---|---|---|
| ||
|
...
Step 1 - Create an adhoc header step
Use OnPostAdhocRegistration_OnAddSteps to add an ImageCapture step:
//Step 1: Create a simple ImageCapture header step
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistration_OnAddSteps', '', true, true)]
localprocedure MyOnPostAdhocRegistration_OnAddSteps(_RegistrationType: Text; var _RequestValues: Record"MOB NS Request Element"; var _Steps: Record"MOB Steps Element"; var _RegistrationTypeTracking: Text)
var
MobWmsToolbox: Codeunit"MOB WMS Toolbox";
begin
if _RegistrationType <> MobWmsToolbox."CONST::AdjustQuantity"() then
exit;
//Already collected, break to avoid adding the same new step indefinitely
if _RequestValues.HasValue('ImageCapture') then
exit;
_Steps.Create_ImageCaptureStep(10000, 'ImageCapture', 'Take a Picture');
_Steps.Set_helpLabel('Take a picture of the item');
end;
Step 2 - Handle the header step
//Step 2: Handle the ImageCapture step. The picture taken will be saved in the MOB Wms Media Queue
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistration_OnAfterPost', '', true, true)]
local procedure MyOnPostAdhocRegistration_OnAfterPost(_MessageId: Guid; _RegistrationType: Text; var _RequestValues: Record "MOB NS Request Element"; var _XmlResponseDoc: XmlDocument; var _RegistrationTypeTracking: Text)
var
MobMedia: Codeunit "MOB WMS Media";
MobWmsToolbox: Codeunit "MOB WMS Toolbox";
Image: Text;
begin
if _RegistrationType <> MobWmsToolbox."CONST::AdjustQuantity"() then
exit;
if _RequestValues.HasValue('ImageCapture') then begin
Image:=_RequestValues.GetValue('ImageCapture', true);
// Set the tracking value displayed in the document queue
_RegistrationTypeTracking:= ('Saved image: ' + Image);
MobMedia.AddImageToMediaQueue(Image);
end;
end;
ImageCapture Step in Adjust Quantity
...