SAP ABAP POP弹出 多字段输入窗口

SAP ABAP POP弹出 多字段输入窗口
效果如下

代码实例

  DATA: lt_value TYPE TABLE OF sval,
        ls_value TYPE sval,
        lv_rtn.

  DATA:lv_budat   TYPE bkpf-budat.

  ls_value-tabname = 'BKPF'.    "表名称
  ls_value-fieldname = 'BUDAT'.  " 字段名称 会参考表中的搜索帮助
  ls_value-value = sy-datum.     "默认值
  APPEND ls_value TO lt_value.

  ls_value-tabname = 'BKPF'.    "表名称
  ls_value-fieldname = 'USNAM'.  " 字段名称 会参考表中的搜索帮助
 " FIELD_ATTR ：Dynpr 字段外观属性  空 普通亮度，数据输入可能  01 高亮，可输入
 " 02 普通亮度，不可输入  03 高亮，不可输入   04 不显示
  ls_value-FIELD_ATTR = '03'.
  ls_value-fieldtext = '用户账号'.  " 屏幕字段显示值 ，如果不赋值，默认使用表中的描述
  ls_value-value = sy-uname.     "默认值
  APPEND ls_value TO lt_value.


  CALL FUNCTION 'POPUP_GET_VALUES'
    EXPORTING
      popup_title = '窗口标题'
    IMPORTING
      returncode  = lv_rtn
    TABLES
      fields      = lt_value.

  IF lv_rtn IS INITIAL."确认为空，取消为A
    READ TABLE lt_value INTO ls_value INDEX 1.
    lv_budat = ls_value-value.
    WRITE: lv_budat .
  ENDIF  .
在这里插入代码片