Ayuda con un selection screen

[Drako]

Hola a todos, me han pedido que realize un selection screen con checkbox y radio buttons pero no me sale, si alguien tuviera una solucion se las agradeceria mucho, saludos...

[Mauricio Hidalgo]

ESPERO TE ORIENTE BIEN.

program ztest2.

selection-screen begin of block archivo with frame title text-008.
parameters: p_obj1 TYPE C no-display.
parameters: p_obj2 TYPE C no-display.
parameters: p_obj3 TYPE C no-display.
parameters: p_obj4 TYPE C no-display.
parameters: p_obj5 TYPE C no-display.
parameters: p_obj6 TYPE C no-display.

parameters: p_pc like ibipparms-pc radiobutton group radi
user-command UCOMM1.
parameters: p_unix like ibipparms-unix radiobutton group radi.
parameters: p_server like ibipparms-server.
parameters: p_path like IBIPPARMS-PATH.
parameters: p_modi type char1 as checkbox .
selection-screen end of block archivo.

parameters p_dato1 type c as checkbox user-command c1.
parameters p_dato2 type c as checkbox user-command c2.
parameters p_dato3 type c as checkbox user-command c3.

at selection-screen.
case sy-ucomm.
when 'C1'.
message S001(00) with 'c1'.
when 'C2'.
message S001(00) with 'c2'.
when 'C3'.
message S001(00) with 'c3'.
endcase.


* F4 PARA SELECCION DE ARCHIVOS
at selection-screen on value-request for p_path.
IF p_pc = 'X'.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_PATH'
IMPORTING
file_name = P_PATH.
ELSEIF p_unix = 'X'.
CALL FUNCTION 'F4_FILENAME_SERVER' DESTINATION p_server
EXPORTING
pfad = P_PATH
EXCEPTIONS
no_file_on_server = 1
OTHERS = 2.
ENDIF.

[Drako]

Muchas gracias, me oriento en lo que estoy realizando, saludos...

[Drako]

Hola a todos de nuevo, lamentablemente y despues de muchos intentos lo que quiero hacer funcionar no me sale, espero que alguien sepa como hacer lo que requiero, en la imagen viene el tipo de selection screen que ocupo, ya logre que se vea de esa manera pero no me sale la funcionalidad de habilitar/deshabilitar los campos de captura de la direccion a usar por el programa.

[Claudia Valdespino]

Hola Drako, lo que quieres hacer es que cuando selecciones el primer radiobutton se deshabilite el de abajo?? Si es asi usa un LOOP AT SCREEN de esta manera:

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF rb_op1 EQ 'X'.
IF screen-name EQ 'P_ARCH1'.
MOVE '1' TO screen-input.
ENDIF.
IF screen-name EQ 'P_ARCH2'.
MOVE '0' TO screen-input.
ENDIF.
ELSE.
IF rb_op2 EQ 'X'.
IF screen-name EQ 'P_ARCH1'.
MOVE '0' TO screen-input.
ENDIF.
IF screen-name EQ 'P_ARCH2'.
MOVE '1' TO screen-input.
ENDIF.
ENDIF.
ENDIF.

MODIFY SCREEN.
ENDLOOP.

[Drako]