Page Comparison

Use this event to

Description

You can use Whse. Inquiry to perform instant Online validationValidation of a steps input value. 

...

Template

    // [Template]
        [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiry_OnAddSteps', '', true, true)]
    local procedure OnWhseInquiry MyOnWhseInquiry_OnAddSteps(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _Steps: Record "MOB Steps ElementMOB 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"; var _IsHandled: Boolean)
    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;
            else
                exit;
        end;
    end;

Related change to application.cfg:
Each new DocumentType to be validated DocumentType must have a related change to the a service-section in the application.cfg. In this example, the service for the Pick page is modified. See further examples in For additional examples, see the links below.

    <service id="Pick" type="Order" orderType="Pick">
      <requests>
        <getOrders>GetPickOrders</getOrders>
        <getOrderLines>GetPickOrderLines</getOrderLines>
        <postOrder>PostPickOrder</postOrder>
      </requests>
      <validation>
        <lotNumberValidation documentName="ValidateMyLotNumber" online="true" includeCollectedValues="true"/>
        <quantityValidation documentName="ValidateMyQuantity" online="true" includeCollectedValues="true"/>
      </validation>
    </service>

...

Version History