Alguien me puede tirar una linea he buscado, y necesito que de un bloque con 3 opciones cuando seleciono una me la muestre y me saque las otras.
*---------------------------------------------------------------------*
* Selecion *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
*Selecion bloque 1 principal 3 opciones alta modificacion, alta
*modificacion reservas, alv tabla sflight.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE title3.
PARAMETERS: r_clie RADIOBUTTON GROUP grup USER-COMMAND r DEFAULT 'X',
r_mate RADIOBUTTON GROUP grup ,
r_vul RADIOBUTTON GROUP grup .
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
title3 = 'Selecion principal'.
*Selecion bloque alta modificacion clientes
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE title1.
*PARAMETERS
_excel AS CHECKBOX MODIF ID cli.
*PARAMETERS
_html AS CHECKBOX MODIF ID cli.
PARAMETERS
_altcli AS CHECKBOX MODIF ID cli,
p_modcli AS CHECKBOX MODIF ID cli.
* R_CLIE RADIOBUTTON GROUP GRUP USER-COMMAND R DEFAULT ‘X’,
* R_MATE RADIOBUTTON GROUP GRUP.
SELECTION-SCREEN END OF BLOCK b2.
INITIALIZATION.
title1 = 'Clientes'.
*Selecion alta modificacion reservas
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE title.
PARAMETERS: p_modres AS CHECKBOX MODIF ID mat ,
p_dowres AS CHECKBOX MODIF ID mat .
*SELECT-OPTIONS: so_id FOR scustom-id NO INTERVALS NO-EXTENSION MODIF
* ID mat,
* so_name FOR scustom-name NO INTERVALS NO-EXTENSION
*MODIF ID mat.
SELECTION-SCREEN END OF BLOCK b3.
INITIALIZATION.
title = 'Reservas'.
*Selecion sflight alv
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE title2.
PARAMETERS: pcarrid LIKE sflight-carrid MODIF ID VUL ,
pconnid LIKE sflight-connid MODIF ID VUL,
pfldate LIKE sflight-fldate MODIF ID VUL.
SELECTION-SCREEN END OF BLOCK b4.
INITIALIZATION.
title2 = 'Vuelos'.
*———————————————————————–*
*AT SELECTION-SCREEN.
*———————————————————————–*
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-group1 = 'CLI'.
CASE r_clie.
WHEN 'X'.
screen-active = 0.
WHEN OTHERS.
* screen-active = 1.
ENDCASE.
ELSEIF screen-group1 = 'MAT'.
CASE r_mate.
WHEN 'X'.
screen-active = 1.
WHEN OTHERS.
* screen-active = 0.
ENDCASE.
ELSEIF screen-group1 = 'VUL'.
CASE r_VUL.
WHEN 'X'.
screen-active = 2.
WHEN OTHERS.
* screen-active = 0.
ENDCASE.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
START-OF-SELECTION.