彈出SE61所寫文字的的文字框 --- 轉自老白的部落格Barry.bai

kevinhaerbin發表於2009-02-23
原文網址 : http://blog.itpub.net/11011430/viewspace-1017742/
AI
REPORT ztest.

INCLUDE .
BREAK-POINT.
DATA: user_buttons LIKE smp_dyntxt OCCURS 0 WITH HEADER LINE,
parameter LIKE spar OCCURS 0 WITH HEADER LINE,
antwort LIKE rsnewleng-fcode.

START-OF-SELECTION.
CLEAR user_buttons.
user_buttons-text = '關閉'.
user_buttons-icon_id = icon_close.
user_buttons-icon_text = '退出'.
user_buttons-quickinfo = '結尾'.
APPEND user_buttons.

CALL FUNCTION 'POPUP_DISPLAY_TEXT_USER_BUTTON'
EXPORTING
language = sy-langu
popup_title = '測試'
start_column = 5
start_row = 5
text_object = 'COM_ATTR_WZ_ATTR_TYPE' "SE61 DT對話文字
display_ok_button = ' '
display_cancel_button = ' '
IMPORTING
answer = antwort
TABLES
user_buttons = user_buttons
parameter = parameter
EXCEPTIONS
error_in_text = 1
text_not_found = 2
OTHERS = 3.

ULINE.
WRITE: / '點選按鈕：', antwort.
ULINE.

parameter-param = 'V1'.
parameter-value = text-010.
APPEND parameter.
parameter-param = 'V2'.
parameter-value = text-020.
APPEND parameter.

CALL FUNCTION 'POPUP_DISPLAY_TEXT_USER_BUTTON'
EXPORTING
language = sy-langu
popup_title = '使用引數測試'
start_column = 10
start_row = 10
text_object = 'SPO_EXAMPLE_2'
IMPORTING
answer = antwort
TABLES
parameter = parameter
EXCEPTIONS
error_in_text = 1
text_not_found = 2
OTHERS = 3.

ULINE.
WRITE: / '點選按鈕：', antwort.
ULINE.[@more@]

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/11011430/viewspace-1017742/，如需轉載，請註明出處，否則將追究法律責任。

相關文章