SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF }
.L0S31 { font-style: italic; color: #808080 }
.L0S32 { color: #3399FF }
.L0S33 { color: #4DA619 }
.L0S52 { color: #0000FF }
.L0S55 { color: #800080 }
.L0S70 { color: #808080 }
*POPUP_TO_CONFIRM_LOSS_OF_DATA:显示YES/NO的弹出窗口，提示用户未保存的数据将丢失
*POPUP_TO_CONFIRM_STEP:提示是否确认操作要弹出窗口
*POPUP_TO_CONFIRM_WITH_MESSAGE:可以显示定制的提示消息的确认窗口
*POPUP_TO_CONFIRM_WITH_VALUE：显示确认用户对某个特定对象操作的弹出窗口
*POPUP_TO_DECIDE:将待确认选项以单选按钮的方式显示的弹出窗口
*POPUP_TO_DECIDE_WITH_MESSAGE:带消息的确认窗口
*POPUP_TO_DISPLAY_TEXT:显示多行信息的窗口
*POPUP_TO_SELECT_MONTH:月份选择窗口
*POPUP_WITH_TABLE_DISPLAY:表格对象的确认窗口
SELECTION-SCREEN:BEGIN OF BLOCK dialog WITH FRAME TITLE text-001.
PARAMETERS:p1 RADIOBUTTON GROUP grp1 DEFAULT ‘X‘,
p2 RADIOBUTTON GROUP grp1,
p3 RADIOBUTTON GROUP grp1,
p4 RADIOBUTTON GROUP grp1,
p5 RADIOBUTTON GROUP grp1,
p6 RADIOBUTTON GROUP grp1,
p7 RADIOBUTTON GROUP grp1,
p8 RADIOBUTTON GROUP grp1,
p9 RADIOBUTTON GROUP grp1.
SELECTION-SCREEN:END OF BLOCK dialog.
DATA:answer TYPE c."接受窗口单击按钮返回值。A = Cancel，1 = 按钮1，2 = 按钮2
AT SELECTION-SCREEN.
IF p1 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_CONFIRM_LOSS_OF_DATA‘
EXPORTING
textline1 = ‘LINE1‘
textline2 = ‘LINE2 ‘
titel = ‘POPUP_TO_CONFIRM_LOSS_OF_DATA‘
start_column = 25
start_row = 6
IMPORTING
answer = answer.
ENDIF.
IF p2 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_CONFIRM_STEP‘
EXPORTING
textline1 = ‘LINE1‘
textline2 = ‘LINE1 ‘
titel = ‘POPUP_TO_CONFIRM_STEP‘
cancel_display = ‘X‘
IMPORTING
answer = answer.
ENDIF.
IF p3 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_CONFIRM_WITH_MESSAGE‘
EXPORTING
diagnosetext1 = ‘SETEXT1‘
textline1 = ‘LINE1‘
titel = ‘POPUP_TO_CONFIRM_WITH_MESSAGE‘.
ENDIF.
IF p4 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_CONFIRM_WITH_VALUE‘
EXPORTING
objectvalue = ‘POPUP_TO_CONFIRM_WITH_VALUE‘
text_before = ‘POPUP_TO_CONFIRM_WITH_VALUE‘
titel = ‘POPUP_TO_CONFIRM_WITH_VALUE‘.
ENDIF.
IF p5 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_DECIDE‘
EXPORTING
textline1 = ‘TEXTLINE1‘
text_option1 = ‘TEXT_OPTION1‘
text_option2 = ‘TEXT_OPTION2‘
titel = ‘POPUP_TO_DECIDE‘.
ENDIF.
IF p6 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_DECIDE_WITH_MESSAGE‘
EXPORTING
diagnosetext1 = ‘DIAGNOSETEXT1‘
textline1 = ‘TEXTLINE1‘
text_option1 = ‘TEXT_OPTION1‘
text_option2 = ‘TEXT_OPTION2‘
titel = ‘POPUP_TO_DECIDE_WITH_MESSAGE‘
IMPORTING
answer = answer.
ENDIF.
IF p7 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_DISPLAY_TEXT‘
EXPORTING
titel = ‘POPUP_TO_DISPLAY_TEXT ‘
textline1 = ‘TEXTLINE1‘.
ENDIF.
IF p8 = ‘X‘.
CALL FUNCTION ‘POPUP_TO_SELECT_MONTH‘
EXPORTING
actual_month = ‘200907‘.
ENDIF.
IF p9 = ‘X‘.
DATA:BEGIN OF zlurl OCCURS 0,
url LIKE scarr-url,
END OF zlurl.
DATA:res TYPE i.
SELECT * INTO CORRESPONDING FIELDS OF TABLE zlurl FROM scarr.
**显示传递的内表数据，CHOISE为用户选择数据行数回执信息
CALL FUNCTION ‘POPUP_WITH_TABLE_DISPLAY‘
EXPORTING
endpos_col = 50
endpos_row = 10
startpos_col = 20
startpos_row = 1
titletext = ‘POPUP_WITH_TABLE_DISPLAY‘
IMPORTING
choise = res
TABLES
valuetab = zlurl.
ENDIF.