DATA: lt_spopli TYPE TABLE OF SPOPLI,
ls_spopli TYPE SPOPLI.
DATA: lv_answer TYPE CHAR2.
CLEAR ls_spopli.
ls_spopli-VAROPTION = 'Предложение'.
APPEND ls_spopli TO lt_spopli.
CLEAR ls_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
TABLES
T_SPOPLI = lt_spopli
EXCEPTIONS
NOT_ENOUGH_ANSWERS = 1
TOO_MUCH_ANSWERS = 2
TOO_MUCH_MARKS = 3
OTHERS = 4
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Результат:
Сюда я буду сохранять всякие куски кода, конфигов, ссылки, чтобы в один прекрасный день когда мне это снова понадобится - не вспоминать судорожно где и когда я это применял.
26 июня 2011 г.
FM для вывода диалога с несколькими опциями
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий