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.