ABAP-弹框

最新推荐文章于 2024-04-04 20:38:24 发布

阴天也不错

最新推荐文章于 2024-04-04 20:38:24 发布

阅读量548

点赞数

分类专栏： ABAP 文章标签：其他

本文链接：https://blog.csdn.net/weixin_49691117/article/details/131654571

版权

ABAP 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

是否

函数：POPUP_TO_CONFIRM

      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
*         TITLEBAR       = ' '
*         DIAGNOSE_OBJECT             = ' '
          text_question  = '警告：请确认是否删除！'
          text_button_1  = 'Yes'(001)
          icon_button_1  = 'ICON_CHECKED'
          text_button_2  = 'No'(002)
          icon_button_2  = 'ICON_INCOMPLETE'
        IMPORTING
          answer         = lv_answer
        EXCEPTIONS
          text_not_found = 1
          OTHERS         = 2.
      IF sy-subrc = 0.
        IF lv_answer <> '1'.
          lv_msg = '已取消'.
          MESSAGE s014(zmdg002) WITH lv_msg.
          RETURN.
        ENDIF.
      ENDIF.

在这里插入图片描述

获取输入值

函数：POPUP_GET_VALUES / POPUP_GET_VALUES_USER_HELP

DATA:lv_stgrd TYPE stgrd,
     lv_budat TYPE sy-datum.
DATA:lt_fields TYPE STANDARD TABLE OF sval,
     ls_fields TYPE sval.
REFRESH: lt_fields.

CLEAR:ls_fields.
ls_fields-tabname = 'BKPF'.
ls_fields-fieldname = 'STGRD'.
ls_fields-fieldtext = '冲销原因'.
APPEND ls_fields TO lt_fields.
CLEAR:ls_fields.
ls_fields-tabname = 'BSIS'.
ls_fields-fieldname = 'BUDAT'.
ls_fields-fieldtext = '冲销过账日期'.
APPEND ls_fields TO lt_fields.
DATA:lv_return TYPE c.
CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
*   NO_VALUE_CHECK  = ' '
    popup_title     = '类型选择'
*   START_COLUMN    = '5'
*   START_ROW       = '5'
  IMPORTING
    returncode      = lv_return
  TABLES
    fields          = lt_fields
  EXCEPTIONS
    error_in_fields = 1
    OTHERS          = 2.
IF lv_return EQ 'A'.
  MESSAGE '已取消' TYPE 'E' DISPLAY LIKE 'S'.
ELSEIF lv_return IS INITIAL.
  READ TABLE lt_fields INTO ls_fields INDEX 1.
  lv_stgrd = ls_fields-value.
  CLEAR:ls_fields.
  READ TABLE lt_fields INTO ls_fields INDEX 2.
  lv_budat = ls_fields-value.
  CLEAR:ls_fields.
ENDIF.