Code: Alles auswählen.
AT LINE-SELECTION.
DATA: Answer(3) TYPE c.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Options'
* DIAGNOSE_OBJECT = ' '
text_question = 'Additional options for this list'
TEXT_BUTTON_1 = 'Show Graph'(001)
* ICON_BUTTON_1 = ' '
TEXT_BUTTON_2 = 'Show Details'(002)
* ICON_BUTTON_2 = ' '
DEFAULT_BUTTON = '1'
DISPLAY_CANCEL_BUTTON = 'X'
* USERDEFINED_F1_HELP = ' '
START_COLUMN = 25
START_ROW = 6
* POPUP_TYPE =
IMPORTING
ANSWER = ANSWER
* TABLES
* PARAMETER =
* EXCEPTIONS
* TEXT_NOT_FOUND = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*
*
If ANSWER = 001.
*Grafik wird aufgerufen
elseif ANSWER = 002.
*Detailliste wird angezeigt
Code: Alles auswählen.
*schöner wäre case
CASE answer.
WHEN '1'.
WHEN '2'.
WHEN 'A'.
ENDCASE.