ABAP弹出框
SAP中可以使用function，显示弹窗。根据不同弹窗类型，SAP对弹出框进行了分组，例如：SPO1,SPO2等。SAP系统中有一些这些分组的函数的样例函数，可以通过 RS+分组+* 进行搜索，例如SPO4的弹窗样例，使用RSSPO4*进行搜索。所有的function源码都在Package:SZP下。
1.SP01类型
包含一些提示信息，让用户确认的弹窗。
示例1：POPUP_TO_CONFIRM函数使用
"显示弹窗 FORM spo1_pop. "接收选择结果 DATA:ANSWER(1) TYPE C. "传入表,没啥用 DATA:parm LIKE TABLE OF SPAR WITH HEADER LINE. "使用popup_to_confirm,一个确认弹窗 CALL FUNCTION \'POPUP_TO_CONFIRM\' EXPORTING "弹窗标题 TITLEBAR = \'请确认\' "额外文本，可以使用se61维护Dialog Text, "示例中使用：TEXT1_ZUM_POPUP_TO_CONFIRM DIAGNOSE_OBJECT = \'\' "弹窗显示确认问题文本 TEXT_QUESTION = \'这是弹窗显示确认问题\' "最左边按钮文本,默认yes TEXT_BUTTON_1 = \'yes\' "最左边按钮图标：Table:Icon,Tcode:Icon都可以查看图标，传入icon名 ICON_BUTTON_1 = \'ICON_CHECKED\' "中间按钮文本，默认no TEXT_BUTTON_2 = \'No\' "中间按钮图标 ICON_BUTTON_2 = \'ICON_INCOMPLETE\' "初始选中按钮 DEFAULT_BUTTON = \'1\' "是否显示cancel按钮 DISPLAY_CANCEL_BUTTON = \'X\' "显示一个info按钮，帮助信息，但是se61找不到对应值 USERDEFINED_F1_HELP = \'TEST_TEXT_ZUR_SPO1\' "弹窗开始列 START_COLUMN = 25 "弹窗开始行 START_ROW = 6 "弹窗文本左边图标 POPUP_TYPE = \'ICON_MESSAGE_INFORMATION\' "未知功能 * IV_QUICKINFO_BUTTON_1 = \'\' * IV_QUICKINFO_BUTTON_2 = \'\' IMPORTING "选择值1:yes;2:no;A:cancel; ANSWER = ANSWER TABLES "传入table，源码没使用？ PARAMETER = parm * EXCEPTIONS * TEXT_NOT_FOUND = 1 * OTHERS = 2 . IF SY-SUBRC <> 0. MESSAGE s000 WITH \'error\'. ELSE. MESSAGE s000 WITH answer. ENDIF. ENDFORM.
示例2：POPUP_TO_CONFIRM_STEP使用
FORM spo1_pop1. "提示do not use "接收选择结果 DATA:ANSWER(1) TYPE C. CALL FUNCTION \'POPUP_TO_CONFIRM_STEP\' EXPORTING DEFAULTOPTION = \'Y\' "显示两行文本 TEXTLINE1 = \'textline 1\' TEXTLINE2 = \'textline 2\' "弹窗标题 TITEL = \'popup title\' START_COLUMN = 25 START_ROW = 6 "是否显示cancel按钮 CANCEL_DISPLAY = \'\' IMPORTING "返回值J:yes;N:no;A:cancel ANSWER = ANSWER. IF SY-SUBRC <> 0. MESSAGE s000 WITH \'error\'. ELSE. MESSAGE s000 WITH answer. ENDIF. ENDFORM.
示例3：POPUP_TO_CONFIRM_WITH_VALUE函数使用
FORM spo1_pop2. "提示do not use "接收选择结果 DATA:ANSWER(1) TYPE C. CALL FUNCTION \'POPUP_TO_CONFIRM_WITH_VALUE\' EXPORTING "默认按钮 DEFAULTOPTION = \'Y\' "显示文本 OBJECTVALUE = \'100\' "文本后缀 TEXT_AFTER = \'%\' "文本前缀 TEXT_BEFORE = \'百分比:\' TITEL = \'title\' START_COLUMN = 25 START_ROW = 6 CANCEL_DISPLAY = \'X\' IMPORTING ANSWER = ANSWER. IF SY-SUBRC <> 0. MESSAGE s000 WITH \'error\'. ELSE. MESSAGE s000 WITH answer. ENDIF.
类似还有函数：POPUP_TO_CONFIRM_WITH_MESSAGE，POPUP_TO_CONFIRM_LOSS_OF_DATA，但是都不推荐使用，这种提示信息的直接使用POPUP_TO_CONFIRM就够了。
2.SPO2类型
和SPO1类似，显示一些信息供用户确认。
示例1：POPUP_TO_DECIDE函数使用
"显示三行文本弹窗 FORM spo2_pop1. "do not use "接收选择结果 DATA:ANSWER(1) TYPE C. "显示弹窗 CALL FUNCTION \'POPUP_TO_DECIDE\' EXPORTING "默认按钮 DEFAULTOPTION = \'1\' "三行文本 TEXTLINE1 = \'first line\' TEXTLINE2 = \'second line\' TEXTLINE3 = \'third line\' "按钮1，2的文本 TEXT_OPTION1 = \'yes\' TEXT_OPTION2 = \'no\' "按钮1，2的图标 * ICON_TEXT_OPTION1 = \' \' * ICON_TEXT_OPTION2 = \' \' "弹窗标题 TITEL = \'title\' "开始行列 START_COLUMN = 25 START_ROW = 6 "是否显示cancel按钮 CANCEL_DISPLAY = \'X\' IMPORTING "选择返回1:按钮1；2：按钮2；A:cancel按钮 ANSWER = ANSWER. IF SY-SUBRC <> 0. MESSAGE s000 WITH \'error\'. ELSE. MESSAGE s000 WITH answer. ENDIF. ENDFORM.
示例2：POPUP_TO_DECIDE_WITH_MESSAGE函数使用
FORM spo2_pop2. "do not use "接收选择结果 DATA:ANSWER(1) TYPE C. "显示弹窗 CALL FUNCTION \'POPUP_TO_DECIDE_WITH_MESSAGE\' EXPORTING "默认按钮 DEFAULTOPTION = \'1\' "diagno文本，必须有一个 DIAGNOSETEXT1 = \'dia1\' * DIAGNOSETEXT2 = \'dia2\' * DIAGNOSETEXT3 = \'dia3\' "text文本行，至少有一个 TEXTLINE1 = \'text1\' * TEXTLINE2 = \'text2\' * TEXTLINE3 = \'text3\' "按钮文本 TEXT_OPTION1 = \'yes\' TEXT_OPTION2 = \'no\' "按钮图标 * ICON_TEXT_OPTION1 = * ICON_TEXT_OPTION2 = "标题 TITEL = \'title\' START_COLUMN = 25 START_ROW = 6 CANCEL_DISPLAY = \'X\' IMPORTING ANSWER = answer. IF SY-SUBRC <> 0. MESSAGE s000 WITH \'error\'. ELSE. MESSAGE s000 WITH answer. ENDIF. ENDFORM.
3.SPO4类型
接收用户输入信息弹窗。
示例1：使用POPUP_GET_VALUES函数
使用table类型参数fields结构：
tabname:接收值所在数据库表名
fieldname:字段名
value:值，用户输入或预设
field_obl:是否必输栏位
fieldtext:栏位文本
"显示输入值弹窗 FORM spo4_pop. "接收值的字段 DATA:fileds TYPE TABLE OF sval WITH HEADER LINE. DATA:retcode(1) TYPE C. "设置字段 CLEAR fileds. fileds-tabname = \'SPFLI\'. fileds-fieldname = \'CARRID\'. fileds-value = \'02\'. * fileds-fieldtext = \'航班id\'. APPEND fileds. CLEAR fileds. fileds-tabname = \'SPFLI\'. fileds-fieldname = \'CONNID\'. fileds-field_obl = \'X\'. APPEND fileds. CALL FUNCTION \'POPUP_GET_VALUES\' EXPORTING "是否值检查 NO_VALUE_CHECK = \'\' "标题 POPUP_TITLE = \'title\' "设置位置 START_COLUMN = \'5\' START_ROW = \'5\' IMPORTING "点击cancel,返回A RETURNCODE = retcode TABLES "接收值的字段内表 FIELDS = fileds. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH retcode. ELSE. MESSAGE s000 WITH retcode. LOOP AT fileds. WRITE: / fileds-fieldname,fileds-value. ENDLOOP. ENDIF. ENDFORM.
示例2：POPUP_GET_VALUES_DB_CHECKED函数，填写数据会验证是否在数据库中存在
FORM spo4_pop1. "接收值的字段 DATA:fileds TYPE TABLE OF sval WITH HEADER LINE. DATA:retcode(1) TYPE C. "设置字段 CLEAR fileds. fileds-tabname = \'SPFLI\'. fileds-fieldname = \'CARRID\'. APPEND fileds. CALL FUNCTION \'POPUP_GET_VALUES_DB_CHECKED\' EXPORTING "是否检查填写数据是否存在 CHECK_EXISTENCE = \'X\' "title POPUP_TITLE = \'title\' "位置设置 START_COLUMN = \'5\' START_ROW = \'5\' IMPORTING RETURNCODE = retcode TABLES FIELDS = fileds. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH retcode. ELSE. MESSAGE s000 WITH retcode. LOOP AT fileds. WRITE: / fileds-fieldname,fileds-value. ENDLOOP. ENDIF. ENDFORM.
示例3：POPUP_GET_VALUES_USER_CHECKED函数，可以执行额外程序的子form程序,做栏位输入检查
FORM spo4_pop2. "接收值的字段 DATA:fileds TYPE TABLE OF sval WITH HEADER LINE. DATA:retcode(1) TYPE C. "设置字段 CLEAR fileds. fileds-tabname = \'SPFLI\'. fileds-fieldname = \'CARRID\'. APPEND fileds. "弹窗获取输入值执行额外form CALL FUNCTION \'POPUP_GET_VALUES_USER_CHECKED\' EXPORTING "执行的form名 FORMNAME = \'CHECK_EXIT\' POPUP_TITLE = \'title\' "form所在program名 PROGRAMNAME = \'TEST_POPUP\' "开始行列 START_COLUMN = \'5\' START_ROW = \'5\' "？？？ NO_CHECK_FOR_FIXED_VALUES = \'\' IMPORTING RETURNCODE = retcode TABLES FIELDS = fileds. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH retcode. ELSE. MESSAGE s000 WITH retcode. ENDIF. ENDFORM. "执行用户自定义检查逻辑,当error有值，显示info弹窗 FORM check_exit TABLES fileds STRUCTURE sval CHANGING error STRUCTURE svale. LOOP AT fileds. "自定义检查是否数据库存在 SELECT SINGLE * FROM SPFLI WHERE CARRID = fileds-value. IF sy-subrc <> 0. "数据库表 ERROR-ERRORTAB = \'SPFLI\'. "检查字段 ERROR-ERRORFIELD = \'CARRID\'. "package:SZP下message classes中可以找到对应值 ERROR-MSGTY = \'I\'. ERROR-MSGID = \'S4\'. ERROR-MSGNO = \'510\'. ENDIF. ENDLOOP. ENDFORM.
示例4：POPUP_GET_VALUES_USER_HELP函数，可以执行额外程序的子form程序,做栏位输入检查，自定义f1，f4帮助
FORM spo4_pop3. "接收值的字段 DATA:fileds TYPE TABLE OF sval WITH HEADER LINE. DATA:retcode(1) TYPE C. "设置字段 CLEAR fileds. fileds-tabname = \'SPFLI\'. fileds-fieldname = \'CARRID\'. APPEND fileds. CALL FUNCTION \'POPUP_GET_VALUES_USER_HELP\' EXPORTING "F1帮助from名 F1_FORMNAME = \'F1_HELP\' "F1帮助form所在program F1_PROGRAMNAME = \'TEST_POPUP\' "F4帮助form名 F4_FORMNAME = \'F4_HELP\' "F4帮助所在program F4_PROGRAMNAME = \'Z_TEST_POPUP\' "自定义检查form名 * FORMNAME = \' \' POPUP_TITLE = \'title\' "自定义检查form所在program * PROGRAMNAME = \' \' "设置显示位置 * START_COLUMN = \'5\' * START_ROW = \'5\' * NO_CHECK_FOR_FIXED_VALUES = \' \' IMPORTING RETURNCODE = retcode TABLES FIELDS = fileds. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH retcode. ELSE. MESSAGE s000 WITH retcode. ENDIF. ENDFORM. FORM f1_help USING TABNAME FIELDNAME. MESSAGE s000 WITH TABNAME FIELDNAME \'no f1 help\'. ENDFORM. "F4帮助逻辑 FORM f4_help USING TABNAME FIELDNAME DISPLAY CHANGING RETURNCODE VALUE. DATA: BEGIN OF F_TAB OCCURS 10. INCLUDE STRUCTURE HELP_VALUE. DATA: END OF F_TAB, BEGIN OF V_TAB OCCURS 200, VALUE(40) TYPE C, END OF V_TAB. "字段表 F_TAB-TABNAME = \'SPFLI\'. F_TAB-FIELDNAME = \'CARRID\'. F_TAB-SELECTFLAG = \'X\'. APPEND F_TAB. "填充值 SELECT * FROM SPFLI. V_TAB = SPFLI-CARRID. APPEND V_TAB. ENDSELECT. "显示获取到的值 CALL FUNCTION \'HELP_VALUES_GET_WITH_TABLE\' EXPORTING * CUCOL = 0 * CUROW = 0 DISPLAY = DISPLAY FIELDNAME = FIELDNAME TABNAME = TABNAME * NO_MARKING_OF_CHECKVALUE = \' \' * TITLE_IN_VALUES_LIST = \' \' * TITEL = \' \' * SHOW_ALL_VALUES_AT_FIRST_TIME = \' \' * NO_CONVERSION = \' \' IMPORTING SELECT_VALUE = VALUE TABLES FIELDS = F_TAB VALUETAB = V_TAB. ENDFORM.
示例5：POPUP_GET_VALUES_USER_BUTTONS函数，可以执行额外程序的子form程序，自定义f1，f4帮助，多两个功能按钮执行额外逻辑
FORM spo4_pop4. "接收值的字段 DATA:fileds TYPE TABLE OF sval WITH HEADER LINE. DATA:retcode(1) TYPE C. DATA:ICON_OK_PUSH LIKE ICON-NAME VALUE ICON_OKAY. DATA:ICON_CREATE_PUSH LIKE ICON-NAME VALUE ICON_CREATE. DATA:ICON_SEARCH_PUSH LIKE ICON-NAME VALUE ICON_SEARCH. "设置字段 CLEAR fileds. fileds-tabname = \'SPFLI\'. fileds-fieldname = \'CARRID\'. APPEND fileds. CALL FUNCTION \'POPUP_GET_VALUES_USER_BUTTONS\' EXPORTING "F1帮助from名,form所在program名 * F1_FORMNAME = \' \' * F1_PROGRAMNAME = \' \' "F4帮助from名,form所在program名 * F4_FORMNAME = \' \' * F4_PROGRAMNAME = \' \' "用户点击按钮响应form,form所在program名 FORMNAME = \'USER_CODE\' PROGRAMNAME = \'Z_TEST_POPUP\' "title POPUP_TITLE = \'title\' "ok按钮文本，图标及提示 OK_PUSHBUTTONTEXT = \'ok\' ICON_OK_PUSH = ICON_OK_PUSH QUICKINFO_OK_PUSH = \'ok\' "按钮1文本，图标及提示 FIRST_PUSHBUTTON = \'creat\' ICON_BUTTON_1 = ICON_CREATE_PUSH QUICKINFO_BUTTON_1 = \'creat something\' "按钮2文本，图标及提示 SECOND_PUSHBUTTON = \'seach\' ICON_BUTTON_2 = ICON_SEARCH_PUSH QUICKINFO_BUTTON_2 = \'search something\' * START_COLUMN = \'5\' * START_ROW = \'5\' * NO_CHECK_FOR_FIXED_VALUES = \' \' IMPORTING RETURNCODE = retcode TABLES FIELDS = fileds * EXCEPTIONS * ERROR_IN_FIELDS = 1 * OTHERS = 2 . IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH retcode. ELSE. MESSAGE s000 WITH retcode. ENDIF. ENDFORM. "响应用户选点击按钮 FORM USER_CODE TABLES FIELDS STRUCTURE SVAL USING CODE CHANGING ERROR STRUCTURE SVALE SHOW_POPUP. CASE CODE. "点击ok按钮 WHEN \'FURT\'. MESSAGE s000 WITH \'button ok\' code. "按钮响应后，是否弹窗继续显示，为空直接关闭，为X不不关闭 SHOW_POPUP = \'\'. "点击button1 WHEN \'COD1\'. MESSAGE s000 WITH \'button1\' code. SHOW_POPUP = \'X\'. "点击button2 WHEN \'COD2\'. MESSAGE s000 WITH \'button2\' code. SHOW_POPUP = \'X\'. ENDCASE. ENDFORM.
4.SPO5类型
示例1：POPUP_TO_DECIDE_LIST函数，显示弹窗包含一个选项表，供用户选择，单选或多选。
FORM spo5_pop. "选择列表 DATA: t_selist LIKE SPOPLI OCCURS 5 WITH HEADER LINE. DATA: answer TYPE C. "选择标志 t_selist-SELFLAG = \'X\'. "选项 t_selist-VAROPTION = \'选项1\'. "INACTIVE字段控制是否不可选 * t_selist-INACTIVE = \'X\'. APPEND t_selist. t_selist-SELFLAG = \'\'. t_selist-VAROPTION = \'选项2\'. APPEND t_selist. "显示一个选择列表 CALL FUNCTION \'POPUP_TO_DECIDE_LIST\' EXPORTING "光标所在选项行 CURSORLINE = 1 "单选按钮，多选框 "MARK_FLAG不设置，MARK_MAX = 1单选 "MARK_FLAG="X"，MARK_MAX = 0 多选checkbox * MARK_FLAG = \'X\' MARK_MAX = 1 "设置弹窗位置 * START_COL = 0 * START_ROW = 0 TEXTLINE1 = \'text1\' TEXTLINE2 = \'text2\' TEXTLINE3 = \'text3\' "title TITEL = \'title\' "仅显示 * DISPLAY_ONLY = \'X\' IMPORTING ANSWER = answer TABLES T_SPOPLI = t_selist. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH answer. ELSE. MESSAGE s000 WITH answer. ENDIF. ENDFORM.
5.SPO6类型
示例1：POPUP_DISPLAY_TEXT函数，显示se61创建文本
FORM spo6_pop. DATA: CANCELLED(1) TYPE C. "显示文本text,只能是se61创建text CALL FUNCTION \'POPUP_DISPLAY_TEXT\' EXPORTING "语言 * LANGUAGE = SY-LANGU "标题 POPUP_TITLE = \'title\' "位置 * START_COLUMN = 10 * START_ROW = 3 "文本对象，se61,dialog text类型创建 TEXT_OBJECT = \'SPO_EXAMPLE_1\' "helpmodal * HELP_MODAL = \'X\' IMPORTING CANCELLED = CANCELLED. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH CANCELLED. ELSE. MESSAGE s000 WITH CANCELLED. ENDIF. "POPUP_DISPLAY_TEXT_WITH_PARAMS函数 "text_objext = \'SPO_EXAMPLE_2\',可以在se61中找到，参数名规则："&参数名&" "定义参数表，可以在文本中插入参数 "DATA:params LIKE SPAR OCCURS 0 WITH HEADER LINE. "PARAM字段：参数名；VALUE字段：参数值 ENDFORM.
示例2：POPUP_DISPLAY_TEXT函数，显示se61创建文本，显示自定义按钮button
FORM spo6_pop1. DATA:params LIKE SPAR OCCURS 0 WITH HEADER LINE. DATA:USER_BUTTONS LIKE SMP_DYNTXT OCCURS 0 WITH HEADER LINE. DATA:answer LIKE RSNEWLENG-FCODE. params-PARAM = \'V1\'. params-VALUE = \'参数1\'. APPEND params. "设置自定义按钮 USER_BUTTONS-TEXT = \'tips1\'. USER_BUTTONS-ICON_ID = ICON_CLOSE. USER_BUTTONS-ICON_TEXT = \'exit\'. APPEND USER_BUTTONS. CALL FUNCTION \'POPUP_DISPLAY_TEXT_USER_BUTTON\' EXPORTING "语言 * LANGUAGE = SY-LANGU "title POPUP_TITLE = \'title\' "位置 * START_COLUMN = 5 * START_ROW = 5 * DOCU_CLASS = \'DT\' "文本对象，se61建立dialog text类型创建 TEXT_OBJECT = \'SPO_EXAMPLE_2\' "是否显示ok,cancel按钮 DISPLAY_OK_BUTTON = \'X\' DISPLAY_CANCEL_BUTTON = \'X\' IMPORTING ANSWER = answer TABLES "用户自定义按钮 USER_BUTTONS = USER_BUTTONS PARAMETER = params. IF SY-SUBRC <> 0. * Implement suitable error handling here MESSAGE s000 WITH answer. ELSE. MESSAGE s000 WITH answer. ENDIF. ENDFORM.