| Info | ||
|---|---|---|
| ||
|
...
// [Template]
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiry_OnAddSteps', '', true, true)]
local procedure MyOnWhseInquiry_OnAddSteps(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _Steps: Record "MOB Steps Element"; var _RegistrationTypeTracking: Text; var _IsHandled: Boolean)
begin
end;
// [Example 1]
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiry_OnAddSteps', '', true, true)]
local procedure Ex01_OnWhseInquiry_OnAddSteps(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _Steps: Record "MOB Steps Element")
begin
case _DocumentType of
'ValidateMyLotNumber':
begin
_Steps.Create_TextStep(10, 'MyTextStep1');
_Steps.Set_defaultValue('MyTextDefaultValue1');
_Steps.Set_header('MyTextStep1 - ' + _RequestValues.Get_LotNumber()); // Reading value from already collected step
_Steps.Create_TextStep(20, 'MyTextStep2');
_Steps.Set_defaultValue('MyTextDefaultValue2');
_Steps.Set_header('MyTextStep2');
exit
_IsHandled := true;
end;
'ValidateMyQuantity':
begin
_Steps.Create_TextStep(10, 'MyQtySteps1');
_Steps.Set_defaultValue('MyQtySteps1');
_Steps.Set_header('MyQtySteps1 - ' + Format(_RequestValues.Get_Quantity())); // Reading value from already collected step
_Steps.Create_TextStep(20, 'MyQtySteps2');
_Steps.Set_defaultValue('MyQtySteps2');
_Steps.Set_header('MyQtySteps2');
exit
_IsHandled := true;
end;
end;
end;
Related change to application.cfg
Each new DocumentType to be validated must have a related change to a service-section in the application.cfg. In this example, the service for the Pick page is modified. For additional examples, see the links below.
...