ABAP弹出窗口函数——各按钮RETURN

原创已于 2024-12-11 19:49:13 修改 · 468 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#弹出窗口 #POPU

于 2021-06-08 17:42:12 首次发布

10.Abap 专栏收录该内容

57 篇文章

订阅专栏

这段代码展示了SAP ABAP中用于创建不同类型的确认和信息对话框的函数调用。包括`POPUP_TO_CONFIRM`、`POPUP_TO_CONFIRM_LOSS_OF_DATA`、`POPUP_TO_CONFIRM_STEP`等，每个函数都有其特定的参数和返回值，用于用户交互和决策。这些函数在需要用户确认操作、显示警告或提供信息时非常有用。

部署运行你感兴趣的模型镜像

REPORT Y_ABC_M3.

START-OF-SELECTION.

  DATA: LV_TITLE TYPE STRING VALUE '确认继续TITLE'.
  DATA: LV_QUEST TYPE STRING VALUE '确认继续执行后续任务？'.
  DATA: LV_LINE1 TYPE STRING VALUE '确认继续LINE1？'.
  DATA: LV_LINE2 TYPE STRING VALUE '确认继续LINE2？'.
  DATA: LV_LINE3 TYPE STRING VALUE '确认继续LINE3？'.
  DATA: LV_BUTT1 TYPE STRING VALUE 'YES(是)'.
  DATA: LV_BUTT2 TYPE STRING VALUE 'NO(否)'.

  DATA: LV_ANS.
  DATA: LT_SPAR TYPE TABLE OF SPAR WITH HEADER LINE.

  LT_SPAR-PARAM = '1'.
  LT_SPAR-VALUE = '2'.
  APPEND LT_SPAR.
  LT_SPAR-PARAM = '1'.
  LT_SPAR-VALUE = '2'.
  APPEND LT_SPAR.
  LT_SPAR-PARAM = '1'.
  LT_SPAR-VALUE = '2'.
  APPEND LT_SPAR.

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TITLEBAR              = LV_TITLE
*     DIAGNOSE_OBJECT       = 'CACS_CONFIRM_LOSS_OF_DATA'
      TEXT_QUESTION         = LV_QUEST
      TEXT_BUTTON_1         = LV_BUTT1
      ICON_BUTTON_1         = 'ICON_SYSTEM_OKAY'
      TEXT_BUTTON_2         = LV_BUTT2
      ICON_BUTTON_2         = 'ICON_SYSTEM_CANCEL'
      DEFAULT_BUTTON        = '1'
      DISPLAY_CANCEL_BUTTON = ''
      POPUP_TYPE            = 'ICON_MESSAGE_WARNING'
    IMPORTING
      ANSWER                = LV_ANS
    TABLES
      PARAMETER             = LT_SPAR[]
    EXCEPTIONS
      TEXT_NOT_FOUND        = 1
      OTHERS                = 2.
  WRITE:/ 'POPUP_TO_CONFIRM' , LV_ANS.
*  Yes:1
*  No:2
*  Cancle:A
*  X:A

  " MESSAGE：数据将会丢失。
  CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
    EXPORTING
      TEXTLINE1     = LV_LINE1
      TEXTLINE2     = LV_LINE2
      TITEL         = LV_TITLE
*     START_COLUMN  = 25
*     START_ROW     = 6
*     DEFAULTOPTION = 'Y' " Y OR J
    IMPORTING
      ANSWER        = LV_ANS.
  WRITE:/ 'POPUP_TO_CONFIRM_LOSS_OF_DATA' , LV_ANS.

***  Yes:J
***  No:N


  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    EXPORTING
*     DEFAULTOPTION  = 'Y'
      TEXTLINE1      = LV_LINE1
      TEXTLINE2      = LV_LINE2
      TITEL          = LV_TITLE
*     START_COLUMN   = 25
*     START_ROW      = 6
*     CANCEL_DISPLAY = 'X'
    IMPORTING
      ANSWER         = LV_ANS.
  WRITE:/ 'POPUP_TO_CONFIRM_STEP' , LV_ANS.
***  Yes:J
***  No:N
***  Cancle:A
***  X:A

  CALL FUNCTION 'POPUP_FOR_INFO'
    EXPORTING
      INFO1     = LV_QUEST
      TEXTLINE1 = LV_LINE1
      TITEL     = LV_TITLE.


  CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
    EXPORTING
*     DEFAULTOPTION  = 'Y'
      DIAGNOSETEXT1  = 'DIAGNOSETEXT1'
      DIAGNOSETEXT2  = 'DIAGNOSETEXT2'
      DIAGNOSETEXT3  = 'DIAGNOSETEXT3'
      TEXTLINE1      = LV_LINE1
      TEXTLINE2      = LV_LINE2
      TITEL          = LV_TITLE
*     START_COLUMN   = 25
*     START_ROW      = 6
*     CANCEL_DISPLAY = 'X'
    IMPORTING
      ANSWER         = LV_ANS.
  WRITE:/ 'POPUP_TO_CONFIRM_WITH_MESSAGE' , LV_ANS.


  CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_VALUE'
    EXPORTING
*     DEFAULTOPTION  = 'Y'
      OBJECTVALUE    = 'OBJECTVALUE'
*     TEXT_AFTER     = ' '
      TEXT_BEFORE    = 'TEXT_BEFORE'
      TITEL          = 'POPUP_TO_CONFIRM_WITH_VALUE'
*     START_COLUMN   = 25
*     START_ROW      = 6
*     CANCEL_DISPLAY = 'X'
    IMPORTING
      ANSWER         = LV_ANS
    EXCEPTIONS
      TEXT_TOO_LONG  = 1
      OTHERS         = 2.
  WRITE:/ 'POPUP_TO_CONFIRM_WITH_VALUE' , LV_ANS.

  CALL FUNCTION 'POPUP_TO_DECIDE'
    EXPORTING
*     DEFAULTOPTION     = '1'
      TEXTLINE1         = LV_LINE1
      TEXTLINE2         = LV_LINE2
      TEXTLINE3         = LV_LINE3
      TEXT_OPTION1      = 'TEXT_OPTION1'
      TEXT_OPTION2      = 'TEXT_OPTION2'
*     ICON_TEXT_OPTION1 = ' '
*     ICON_TEXT_OPTION2 = ' '
      TITEL             = TEXT-002
*     START_COLUMN      = 25
*     START_ROW         = 6
*     CANCEL_DISPLAY    = 'X'
    IMPORTING
      ANSWER            = LV_ANS.
  WRITE:/ 'POPUP_TO_DECIDE' , LV_ANS.


  CALL FUNCTION 'POPUP_TO_DECIDE_WITH_MESSAGE'
    EXPORTING
*     DEFAULTOPTION     = '1'
      DIAGNOSETEXT1     = 'DIAGNOSETEXT1'
      DIAGNOSETEXT2     = 'DIAGNOSETEXT2'
      DIAGNOSETEXT3     = 'DIAGNOSETEXT3'
      TEXTLINE1         = LV_LINE1
      TEXTLINE2         = LV_LINE2
      TEXTLINE3         = LV_LINE3
      TEXT_OPTION1      = 'TEXT_OPTION1'
      TEXT_OPTION2      = 'TEXT_OPTION2'
*     ICON_TEXT_OPTION1 =
*     ICON_TEXT_OPTION2 =
      TITEL             = LV_TITLE
*     START_COLUMN      = 25
*     START_ROW         = 6
*     CANCEL_DISPLAY    = 'X'
    IMPORTING
      ANSWER            = LV_ANS.

  WRITE:/ 'POPUP_TO_DECIDE_WITH_MESSAGE' , LV_ANS.

弹出窗口函数	是	否	取消	关闭
POPUP_TO_CONFIRM	1	2
POPUP_TO_CONFIRM_LOSS_OF_DATA	J	N
POPUP_TO_CONFIRM_STEP	J	N	A	A
POPUP_TO_CONFIRM_WITH_MESSAGE	J	N	A	A
POPUP_TO_CONFIRM_WITH_VALUE	J	N	A	A
POPUP_TO_DECIDE	1	2	A	A
POPUP_TO_DECIDE_WITH_MESSAGE	1	2	A	A