abap 弹出对话框函数POPUP_GET_VALUES的使用方法

来源：互联网发布：js上传图片本地预览编辑：程序博客网时间：2024/05/16 11:54

项目中，经常用到，点击按钮时弹出一个对话框，选择一些值，然后返回选择的值，进一步操作，下面是使用弹窗对话框函数POPUP_GET_VALUES返回日期的例子，当然后也可以时其他类型的，定义数据元素时，根据需要定义成相应的类型就行了，效果如下图：

代码如下：

DATA: it_value TYPE TABLE OF sval,

wa_value TYPE sval,

        lv_rtn_cd.

  CLEAR:it_value,wa_value,lv_rtn_cd.
  IF lv_cmd = '1' OR lv_cmd = '2'.
    wa_value-tabname = 'ZMMDATE'.
    wa_value-fieldname = 'BDATE'.
    wa_value-value = sy-datum.
    APPEND wa_value TO it_value.

    wa_value-tabname = 'ZMMDATE'.
    wa_value-fieldname = 'EDATE'.
    wa_value-value = sy-datum.
    APPEND wa_value TO it_value.
  ELSE.
    wa_value-tabname = 'ZMMDATE'.
    wa_value-fieldname = 'JDATE'.
    wa_value-value = sy-datum.
    APPEND wa_value TO it_value.
  ENDIF.

  CALL FUNCTION 'POPUP_GET_VALUES'
    EXPORTING
      popup_title = '日期选择'
    IMPORTING
      returncode  = lv_rtn_cd
    TABLES
      fields      = it_value.

  DATA:gt_itab TYPE TABLE OF zputwbsrq_s WITH HEADER LINE.
  DATA:msg TYPE TABLE OF  zbapimessage WITH HEADER LINE.

  DATA:gt_in TYPE TABLE OF zputprrq_s WITH HEADER LINE.

  DATA:gt_in1  TYPE TABLE OF zputporq_s WITH HEADER LINE.
  DATA:msg1 TYPE TABLE OF zbapiret WITH HEADER LINE.

  DATA:gt_in2 TYPE TABLE OF zputplrq_s WITH HEADER LINE.

  IF lv_rtn_cd IS INITIAL.
        READ TABLE it_value INTO wa_value WITH KEY fieldname = 'BDATE'.
        IF sy-subrc = 0.
          gt_itab-p_day = wa_value-value.
          gt_itab-b_day = wa_value-value.
        ENDIF.
    ENDIF.

0 0