Ayuda con AT SELECTION-SCREEN OUTPUT.

[sirmapu]

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.

[jarabas]

Si nos comentas que quieres que se muestre y que quieres que se oculte, te podriamos ayudar mejor.

Saludos.

[sirmapu]

Necesito que siempre se muestre el blok b1
y cuando seleccione una opcion me muestre el bloque correspondiente
y me oculte los otros
PARAMETERS: r_clie RADIOBUTTON GROUP grup USER-COMMAND r DEFAULT 'X' "si esto esta activo que me habilite el bloque BLOCK b2
, r_mate RADIOBUTTON GROUP grup ,"si esto esta activo que me habilite el bloque BLOCK b3
r_vul RADIOBUTTON GROUP grup ."si esto esta activo que me habilite el bloque BLOCK b4


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' "si esto esta activo que me habilite el bloque BLOCK b2
,
r_mate RADIOBUTTON GROUP grup ,"si esto esta activo que me habilite el bloque BLOCK b3
r_vul RADIOBUTTON GROUP grup ."si esto esta activo que me habilite el bloque BLOCK b4

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_altcli AS CHECKBOX MODIF ID cli.



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 .
SELECTION-SCREEN END OF BLOCK b3.

INITIALIZATION.
title = 'Reservas'.


*Selecion sflight alv
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE title2.
SELECT-OPTIONS: SOcarrid FOR sbook-carrid MODIF ID vul,
SOconnid FOR sbook-connid MODIF ID vul,
SOfldate FOR sbook-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.