Ver Mensaje Individual
  #7  
Viejo 08/05/07, 17:51:05
Avatar de Claudia Valdespino
Claudia Valdespino Claudia Valdespino is offline
Member
 
Fecha de Ingreso: mar 2007
Localización: Lima - Perú
Mensajes: 54
Listooooo!!!! jejejeje. Vi tu código y te faltaba una pequeñez después de declarar tu radiobutton: USER-COMMAND enter. Y tus parámetros debes declararlos del tipo RLGRAP-FILENAME para que puedas llamar al explorador de windows y esgojas la ruta de tu archivo. Ahora tu código quedaria de la siguiente manera:

SELECTION-SCREEN BEGIN OF BLOCK scr2 WITH FRAME TITLE text-010.

PARAMETER: descarga AS CHECKBOX.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS rad_pc RADIOBUTTON GROUP r1 USER-COMMAND enter.
SELECTION-SCREEN COMMENT 4(28) text-011.
SELECTION-SCREEN POSITION 32.
*PARAMETERS dir_pc(200).
PARAMETERs dir_pc LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS rad_unix RADIOBUTTON GROUP r1.
SELECTION-SCREEN COMMENT 4(28) text-012.
SELECTION-SCREEN POSITION 32.
*PARAMETERS dir_unix(200).
PARAMETERs dir_unix LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK scr2.


AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF rad_pc EQ 'X'.
IF screen-name EQ 'DIR_PC'.
MOVE '1' TO screen-input.
ENDIF.
IF screen-name EQ 'DIR_UNIX'.
MOVE '0' TO screen-input.
ENDIF.
ELSEIF rad_unix EQ 'X'.
IF screen-name EQ 'DIR_PC'.
MOVE '0' TO screen-input.
ENDIF.
IF screen-name EQ 'DIR_UNIX'.
MOVE '1' TO screen-input.
ENDIF.
ENDIF.

MODIFY SCREEN.
ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR dir_pc.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
CHANGING
FILE_NAME = dir_pc
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR dir_unix.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
CHANGING
FILE_NAME = dir_unix
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2.

START-OF-SELECTION.
IF rad_pc EQ 'X'.
perform descarga_pc.
elseif rad_unix eq 'X'.
perform descarga_unix.
endif.

Ahora si te va a salir
__________________
Saludos,

Claudia V.
Responder Con Cita