Popup_to_decide_list

[Irua]

Hola :)

Para crear dos opciones con esta función declaro la tabla interna, pero como haría para que se me refleja dos botones (radio button) en el popup y seleccionar solo una opcion :confused:


gracias:rolleyes:

[DCErick]

Espero el siguiente ejemplo sea entendible para lo que necesitas.



REPORT ZEXAMPLE.

DATA BEGIN OF ISPOPLI OCCURS 1.
INCLUDE STRUCTURE SPOPLI.
DATA END OF ISPOPLI.

DATA V_ANS.

START-OF-SELECTION.

PERFORM FILL_SPOPLI.

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
TEXTLINE1 = 'CHOOSE A REPORTING LANGUAGE'
TITEL = 'CHOOSE A LANGUAGE'
IMPORTING
ANSWER = V_ANS
TABLES
T_SPOPLI = ISPOPLI
EXCEPTIONS
NOT_ENOUGH_ANSWERS = 1
TOO_MUCH_ANSWERS = 2
TOO_MUCH_MARKS = 3
OTHERS = 4.

IF SY-SUBRC EQ 0.

IF V_ANS NE 'A'.

READ TABLE ISPOPLI INDEX V_ANS.

WRITE:/ 'YOU HAVE CHOSEN THE', ISPOPLI-VAROPTION, 'LANGUAGE.'.

ELSE.

WRITE:/ 'YOU HAVE NOT CHOSEN ANY LANGUAGE'.

ENDIF.

ELSE.

WRITE:/ 'ERROR WITH POPUP'.

ENDIF.

*&---------------------------------------------------*

*& FORM FILL_SPOPLI

*&---------------------------------------------------*

FORM FILL_SPOPLI.

MOVE 'ENGLISH (EN)' TO ISPOPLI-VAROPTION.
APPEND ISPOPLI.

MOVE 'GERMAN (DE)' TO ISPOPLI-VAROPTION.
APPEND ISPOPLI.

MOVE 'SPANISH (ES)' TO ISPOPLI-VAROPTION.
APPEND ISPOPLI.

MOVE 'ITALIAN (IT)' TO ISPOPLI-VAROPTION.
APPEND ISPOPLI.

MOVE 'JAPANESE (JA)' TO ISPOPLI-VAROPTION.
APPEND ISPOPLI.

MOVE 'GREEK (EL)' TO ISPOPLI-VAROPTION.
APPEND ISPOPLI.

ENDFORM. " FILL_SPOPLI

[Irua]

muchas gracias justo lo que necesitaba

:)