二、field module的on input和on request 测试DEMO

PAI字段内容及变化检查

有两种操作：on input和on request。

触发条件：

on input：字段值不为空后触发检查
on request：字段值变更后触发检查

注意点：

使用ON INPUT时，如果检查的字段参考类型是STRING 或SSTRING，

则该字段在使用ON INPUT检查时，任何情况下都是非空值状态，

即：屏幕每次操作都会触发ON INPUT检查。

系统F1标准解释

语法：

场景一、单个字段单个检查

FIELD <FIELD1>

MODULE <MDL1> [ON INPUT] / [ON REQUEST].

场景二、单个字段多个检查

FIELD <FIELD1>

MODULE: <MDL1> [ON INPUT] / [ON REQUEST],

                 <MDL2> [ON INPUT] / [ON REQUEST] .

场景三、多个字段单个检查

CHAIN.

    FIELD:  <FIELD1> ,

                <FIELD2> .

    MODULE <MDL1> [ON CHAIN-INPUT] / [ON CHAIN-REQUEST].

ENDCHAIN.

主程序

REPORT  zwldemo007.

DATA: gv_ok_code_2000 TYPE sy-ucomm.

DATA: gv_io_1 TYPE char40 VALUE '',
      gv_io_2 TYPE char40 VALUE '',
      gv_io_3 TYPE char40 VALUE '',
      gv_io_4 TYPE char40 VALUE ''.


CALL SCREEN 2000.

*&---------------------------------------------------------------------*
*&      Module  STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_2000 OUTPUT.

  SET PF-STATUS 'ZPF_2000'.
  SET TITLEBAR 'ZTB_2000'.

ENDMODULE.                 " STATUS_2000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.

  CASE gv_ok_code_2000.
    WHEN 'BACK' OR 'RETURN' OR 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN OTHERS.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_2000  INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_CHECK_REQUEST_CASE1  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE pai_check_request_case1 INPUT.
  BREAK-POINT.
ENDMODULE.                 " PAI_CHECK_REQUEST_CASE1  INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_CHECK_INPUT_CASE2  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE pai_check_input_case2 INPUT.
  BREAK-POINT.
ENDMODULE.                 " PAI_CHECK_INPUT  INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_CHECK_REQUEST_CASE2  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE pai_check_request_case2 INPUT.
  BREAK-POINT.
ENDMODULE.                 " PAI_CHECK_REQUEST_CASE2   INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_CHECK_REQUEST_CASE3  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE pai_check_request_case3 INPUT.
  BREAK-POINT.
ENDMODULE.                 " PAI_CHECK_REQUEST_CASE3  INPUT

PBO & PAI部分

PROCESS BEFORE OUTPUT.
  MODULE status_2000.

*
PROCESS AFTER INPUT.
  "场景一、单个字段单个检查
  FIELD gv_io_1 MODULE pai_check_request_case1 ON REQUEST.

  "场景二、单个字段多个检查
  FIELD gv_io_2
  MODULE: pai_check_input_case2 ON INPUT,
          pai_check_request_case2 ON REQUEST.

  "场景三、多个字段单个检查
  CHAIN.
    FIELD:gv_io_3,
          gv_io_4.
    MODULE pai_check_request_case3 ON CHAIN-REQUEST.
  ENDCHAIN.


  MODULE user_command_2000.