26 июня 2011 г.

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

  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.

Результат:

Комментариев нет:

Отправить комментарий