显示弹出窗口并获取用户输入值

显示弹出窗口并获取用户输入值

在某些情况下，我们需要根据某些动态条件在应用程序运行时从用户那里获取一些输入。

功能模块POPUP_GET_VALUES可用于显示弹出窗口以从用户获取输入。 该功能模块的特色是我们可以根据需要添加任意数量的字段。 这些字段可以是任何数据类型。

REPORT ztestpopup.
DATA: t_fields LIKE sval OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
*— Prepare Parameters for FM ————-*
  t_fields-tabname = 'BKPF'.
  t_fields-fieldname = 'BUDAT'.
APPEND t_fields.
  t_fields-tabname = 'BKPF'.
  t_fields-fieldname = 'BLART'.
APPEND t_fields.
*—- Function Module Call —————–*
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
*     NO_VALUE_CHECK  = ' '
      popup_title     = 'Test Popup'
*     START_COLUMN    = '5'
*     START_ROW       = '5'
*  IMPORTING
*     RETURNCODE      =
TABLES
fields          = t_fields
EXCEPTIONS
      error_in_fields = 1
OTHERS          = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*— Display Report —————-*
LOOP AT t_fields.
WRITE:/ t_fields-value.
ENDLOOP.

运行结果：