FM для вывода диалога с несколькими опциями

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

  1. DATA: lt_spopli TYPE TABLE OF SPOPLI,
  2. ls_spopli TYPE SPOPLI.
  3. DATA: lv_answer TYPE CHAR2.
  4.  
  5. CLEAR ls_spopli.
  6. ls_spopli-VAROPTION = 'Предложение'.
  7. APPEND ls_spopli TO lt_spopli.
  8. CLEAR ls_spopli.
  9. ls_spopli-VAROPTION = 'Заказ с оплатой на месте'.
  10. APPEND ls_spopli TO lt_spopli.
  11.  
  12. CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
  13. EXPORTING
  14. CURSORLINE = 1
  15. TEXTLINE1 = 'Сохранить документ как:'
  16. TITEL = 'Cохранить'
  17. IMPORTING
  18. ANSWER = lv_answer
  19. T_SPOPLI = lt_spopli
  20. EXCEPTIONS
  21. NOT_ENOUGH_ANSWERS = 1
  22. TOO_MUCH_ANSWERS = 2
  23. TOO_MUCH_MARKS = 3
  24. OTHERS = 4
  25. .
  26.  
  27. IF SY-SUBRC <> 0.
  28. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  29. WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

Комментарии

рахмет, хороший пример, пригодится.