Ниже код для получения вот такого результата.

DATA: lt_spopli
TYPE TABLE OF SPOPLI
, ls_spopli TYPE SPOPLI.
DATA: lv_answer
TYPE CHAR2
.
ls_spopli-VAROPTION = 'Предложение'.
APPEND ls_spopli
TO lt_spopli
. ls_spopli-VAROPTION = 'Заказ с оплатой на месте'.
APPEND ls_spopli
TO lt_spopli
.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
CURSORLINE = 1
TEXTLINE1 = 'Сохранить документ как:'
TITEL = 'Cохранить'
IMPORTING
ANSWER = lv_answer
T_SPOPLI = lt_spopli
EXCEPTIONS
NOT_ENOUGH_ANSWERS = 1
TOO_MUCH_ANSWERS = 2
TOO_MUCH_MARKS = 3
OTHERS = 4
.
MESSAGE ID SY
-MSGID
TYPE SY
-MSGTY
NUMBER SY
-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
Комментарии
kenzhemax
ср, 07/25/2012 - 18:16
Постоянная ссылка (Permalink)
рахмет, хороший пример,