#1
|
|||
|
|||
Ayuda con AT SELECTION-SCREEN OUTPUT.
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|