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


gracias

[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