...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Use this event to
| Excerpt |
|---|
As Xml Step nodes for custom GetRegistrationConfiguration RegistrationType. |
Create steps for new custom Adhoc RegistrationType. Steps must be written as Xml. |
Description
This event is introduced only for backwards compatibility, and easier migration of old customizations.
Consider using the OnGetRegistrationConfiguration_OnAddSteps instead.
Template
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnGetRegistrationConfigurationOnCustomRegistrationType_OnAddStepsAsXml', '', true, true)]
local procedure OnGetRegistrationConfigurationOnCustomRegistrationType_OnAddStepsAsXml(var _XMLRequestDoc: XmlDocument; var _XMLSteps: XmlNode; _RegistrationType: Text; var _RegistrationTypeTracking: Text[200]; var _IsHandled: Boolean)
begin
if _RegistrationType = 'MyCustomRegistrationType' then begin // Replace constant 'MyCustomRegistrationType' with your own RegistrationType
if _IsHandled then
exit;
// Add Steps elements as Xml here
// ....
_IsHandled := true;
end;
end;
Example
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnGetRegistrationConfigurationOnCustomRegistrationType_OnAddStepsAsXml', '', true, true)]
local procedure OnGetRegistrationConfigurationOnCustomRegistrationType_OnAddStepsAsXml(var _XMLRequestDoc: XmlDocument; var _XMLSteps: XmlNode; _RegistrationType: Text; var _RegistrationTypeTracking: Text[200]; var _IsHandled: Boolean)
begin
if _RegistrationType = 'SetWhseClassCode' then begin
if _IsHandled then
exit;
_RegistrationTypeTracking := CreateSetWhseClassCodeRegColConf(_XmlRequestDoc, _XMLSteps);
_IsHandled := true;
end;
end;
procedure CreateSetWhseClassCodeRegColConf(_XMLRequestDoc: XmlDocument; var _XMLSteps: XmlNode) ReturnRegistrationTypeTracking: Text[200];
var
MobSetup: Record "MOB Setup";
Item: Record Item;
MobXMLMgt: Codeunit "MOB XML Management";
MobWMSToolbox: Codeunit "MOB WMS Toolbox";
MOBToolbox: Codeunit "MOB Toolbox";
MobConfTools: Codeunit "MOB WMS Conf. Tools";
XMLRequestNode: XmlNode;
XMLRequestDataNode: XmlNode;
XMLParameterNode: XmlNode;
ItemNumber: Code[20];
begin
// Extract any parameters from the XML
// The parameters are located in the <requestData> element
// The Set Warehouse Class Code feature expects 1 header value
// Item
MobXMLMgt.GetDocRootNode(_XMLRequestDoc, XMLRequestNode);
MobXMLMgt.FindNode(XMLRequestNode, MobWMSToolbox."CONST::requestData"(), XMLRequestDataNode);
// -- Now find the item parameter
MobXMLMgt.FindNode(XMLRequestDataNode, 'ItemNumber', XMLParameterNode);
// -- Get the parameter
ItemNumber := MobWMSToolbox.GetItemNumber(MOBToolbox.ReadMisc(MobXmlMgt.GetNodeInnerText(XMLParameterNode)));
item.Get(ItemNumber);
// Set the tracking value displayed in the document queue
ReturnRegistrationTypeTracking := StrSubstNo('SetWhseClassCode: %1', ItemNumber);
MobSetup.GET();
// Now we have the parameters -> determine which registrations to collect
// Unit of Measure
// Set the basic required values
MobConfTools.RC_Std_Parms(1,
'WhseClassCode',
'Enter Warehouse Class Code',
Item.FieldCaption("Warehouse Class Code") + ':',
'');
// Set extended values
MobConfTools.RC_Ext_Parms('', false, true, true, 0);
// Create the step
MobConfTools.RC_List_ListData_XmlNode(_XMLSteps,
GetWhseClassCode(Item),
'');
end;
procedure GetWhseClassCode(_Item: Record Item) WhseClassList: Text[1024];
var
WhseClass: Record "Warehouse Class";
begin
if _Item."Warehouse Class Code" <> '' then begin
WhseClassList := _Item."Warehouse Class Code";
WhseClass.SetFilter(Code, '<>%1', _Item."Warehouse Class Code");
end;
if WhseClass.FINDFIRST() then
repeat
if WhseClassList = '' then
WhseClassList := WhseClass.Code
else
WhseClassList += ';' + WhseClass.Code;
until WhseClass.NEXT() = 0;
if WhseClassList = '' then
WhseClassList := ' '
else
if _Item."Warehouse Class Code" <> '' then
WhseClassList += ';' + ' '
else
WhseClassList := ' ;' + WhseClassList;
exit(WhseClassList);
end;
Version History:
| Version | Changes |
|---|---|
| MOB5.00 | Introduced |
...