Page Comparison

Use this event to

...

OnAddSteps-event only supported when the full xml response has not been created already using the OnWhseInquiryOnCustomDocumentTypeAsXml event

Template

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiry_OnAddSteps', '', true, true)]
    local procedure OnWhseInquiry_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

    // [Example 1]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiry_OnAddSteps', '', true, true)]
    procedure Ex01_OnWhseInquiry_OnAddSteps(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _Steps: Record "MOB Steps Element")
    var
        RequestValues: Record "MOB NS Request Element" temporary;
    begin
        case _DocumentType of
            'ValidateMyLotNumber':
                begin
                    _Steps.Create_TextStep(10, 'MyTextStep1');
                    _Steps.Set_defaultValue('MyTextDefaultValue1');
                    _Steps.Set_header('MyTextStep1 - ' + _RequestValues.Get_LotNumber());

                    _Steps.Create_TextStep(20, 'MyTextStep2');
                    _Steps.Set_defaultValue('MyTextDefaultValue2');
                    _Steps.Set_header('MyTextStep2');
                    exit;
                end;

            'ValidateMyQuantity':
                begin
                    _Steps.Create_TextStep(10, 'MyQtySteps1');
                    _Steps.Set_defaultValue('MyQtySteps1');
                    _Steps.Set_header('MyQtySteps1 - ' + format(_RequestValues.Get_Quantity()));

                    _Steps.Create_TextStep(20, 'MyQtySteps2');
                    _Steps.Set_defaultValue('MyQtySteps2');
                    _Steps.Set_header('MyQtySteps2');
                    exit;
                end;
            else
                exit;
        end;
    end;

...