SAP 中POPUP函数的弹出框汇总

最新推荐文章于 2025-03-14 17:05:59 发布

SAP小白kenny

最新推荐文章于 2025-03-14 17:05:59 发布

阅读量4.6k

点赞数 3

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

本文链接：https://blog.csdn.net/weixin_42646630/article/details/110092714

版权

ABAP 专栏收录该内容

124 篇文章

订阅专栏

ALV报表弹出框：

CALL FUNCTION 'G_DISPLAY_SELECTION_DYNPRO'
  EXPORTING
*   ALLOW_PRINT    = ' '
    dynp_title     = 'ALV-Test' "title
*   EXTENDED_DISPLAY           = ' '
*   FIRST_INDEX    = 1
    key_columns    = 1
    number_of_rows = 20
*   SEL_DEFAULT    = 0
    sel_title1     = ls_header "header text
*   sel_title2     = 'test2'
    show_also_1    = 'X'
    start_column   = 5 "location
*   START_ROW      = 3
*   WIDTH_OF_TITLES            = ' '
*   WITHOUT_SELECTION          = ' '
*   MULTIPLE_SELECTION         = ' '
*   ALLOW_SORT     = 'X'
*   IMPORTING
*   FIRST_INDEX    =
*   SEL_INDEX      =
*   EXT_DISPLAY_SELECTED       =
  TABLES
    sel_table      = lt_data "show data
*   SEL_LINES      =
  EXCEPTIONS
    no_lines       = 1
    no_line_picked = 2
    OTHERS         = 3.

ALV弹出框-check box选择

DATA: lt_fieldcat TYPE slis_t_fieldcat_alv,
      ls_fieldcat LIKE LINE OF lt_fieldcat.

IF lt_fieldcat[] IS INITIAL.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname  = 'VBELN'.
  ls_fieldcat-seltext_l = 'SO NO'.
  ls_fieldcat-outputlen = 10.
  APPEND ls_fieldcat TO lt_fieldcat[].
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname  = 'POSNR'.
  ls_fieldcat-seltext_l = 'Item'.
  ls_fieldcat-outputlen = 6.
  APPEND ls_fieldcat TO lt_fieldcat[].
  ls_fieldcat-fieldname  = 'AUDAT'.
  ls_fieldcat-seltext_l = 'Date'.
  ls_fieldcat-outputlen = 8.
  APPEND ls_fieldcat TO lt_fieldcat[].
ENDIF.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
  EXPORTING
    i_title               = 'test'
*   I_SELECTION           = 'X'
*   I_ALLOW_NO_SELECTION  =
*   I_ZEBRA               = ' '
*    i_screen_start_column = 1
*    i_screen_start_line   = 1
*    i_screen_end_column   = 10
*    i_screen_end_line     = 10
    i_checkbox_fieldname  = 'SEL'
*   I_LINEMARK_FIELDNAME  =
*   I_SCROLL_TO_SEL_LINE  = 'X'
    i_tabname             = 'LT_DATA'
*   I_STRUCTURE_NAME      =
    it_fieldcat           = lt_fieldcat
*   IT_EXCLUDING          =
*   I_CALLBACK_PROGRAM    =
*   I_CALLBACK_USER_COMMAND       =
*   IS_PRIVATE            =
* IMPORTING
*   ES_SELFIELD           =
*   E_EXIT                =
  TABLES
    t_outtab              = lt_data
  EXCEPTIONS
    program_error         = 1
    OTHERS                = 2.

文本弹出框：

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'
  EXPORTING
    endpos_col   = 90
    endpos_row   = 10
    startpos_col = 1
    startpos_row = 1
    titletext    = 'Dry-run'
  TABLES
    valuetab     = lt_data
  EXCEPTIONS
    OTHERS       = 2.

弹出文本框--form调用

CALL FUNCTION 'BKK_POPUP_DISPLAY_LIST'
  EXPORTING
    i_callback_program    = sy-repid  "程序名
    i_callback_write_form = 'FRM_WRITE_CONTENTS'   "输出表内容的form名
    i_title               = 'test'
    i_start_column        = 25
    i_start_row           = 15
    i_end_column          = 60
    i_end_row             = 20
  IMPORTING
    answer                = return.

*&---------------------------------------------------------------------*
*&      Form  frm_write_contents
*&---------------------------------------------------------------------*
FORM frm_write_contents.
  LOOP AT itab.
    WRITE : / itab-posnr,' ',itab-ettyp .
  ENDLOOP.
ENDFORM.                    "l_server_info_contents

文本弹出框-confirm确认-5行文本

        CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
          EXPORTING
            diagnosetext1  = lv_msg1
            diagnosetext2  = lv_msg2
            diagnosetext3  = lv_msg3
            textline1      = lv_msg4
            textline2      = lv_msg5
            titel          = '容差提醒'
            start_column   = 25
            start_row      = 6
            cancel_display = ' '
          IMPORTING
            answer         = lv_anwser.

文本弹出框-无需确认（两行）

CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
 EXPORTING
   titel              = '111111111 '
   textline1          = '2222222222222'
   textline2          = ' 3333333333333'
   start_column       = 25
   start_row          = 6.

文本弹出框-可confirm确认(可修改按钮描述)

CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
    text_question         = text-s07 "确定要删除吗?
    icon_button_1         = text-s08 "是
    icon_button_2         = text-s09 "否
    default_button        = '2'
    display_cancel_button = 'X'
    start_column          = 25
    start_row             = 6
  IMPORTING
    answer                = wl_answer
  EXCEPTIONS
    text_not_found        = 1
    OTHERS                = 2.

文本弹出框-可confirm确认(可修改按钮描述)

CALL FUNCTION 'POPUP_TO_DECIDE'
  EXPORTING
   defaultoption           = '1'
    textline1               = '111111'
   textline2               = ' 222222'
   textline3               = '333333 '
    text_option1            = '4444444444'
    text_option2            = '5555555555555'
*   ICON_TEXT_OPTION1       = ' '
*   ICON_TEXT_OPTION2       = ' '
    titel                   = '66666666'
   start_column            = 25
   start_row               = 6
   cancel_display          = 'X'
  IMPORTING
   answer                  = answer .