abap弹出对话框并输入值的函数POPUP_GET_VALUES的使用方法

最新推荐文章于 2024-04-08 11:14:24 发布

zxf92183

最新推荐文章于 2024-04-08 11:14:24 发布

阅读量5.2k

点赞数 1

分类专栏： SAP

原文链接：https://blog.csdn.net/champaignwolf/article/details/51859459

版权

SAP 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

项目中，经常用到，点击按钮时弹出一个对话框，选择一些值，然后返回选择的值，进一步操作，下面是使用弹窗对话框函数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.