Para desde la pantalla de seleccion te salte el explorador
SELECTION-SCREEN BEGIN OF BLOCK BLOCK02 WITH FRAME TITLE TEXT-S02.
PARAMETERS: f1 like RLGRAP-FILENAME OBLIGATORY DEFAULT 'C:\',
SELECTION-SCREEN END OF BLOCK BLOCK02.
* Ayudas, lanzar el explorador
AT SELECTION-SCREEN ON VALUE-REQUEST FOR f1.
PERFORM SET_filepath changing f1.
*&---------------------------------------------------------------------*
*& Form SET_filepath
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_F1 text
*----------------------------------------------------------------------*
FORM SET_filepath CHANGING P_F1.
data : fullpath TYPE string,
l_usract TYPE i.
CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
EXPORTING
WINDOW_TITLE = 'Explorardor de windows'
DEFAULT_EXTENSION = 'txt'
DEFAULT_FILE_NAME = 'Prueba'
IMPORTING
FULLPATH = fullpath
USER_ACTION = l_usract
.
if l_usract <> 9.
p_f1 = fullpath.
endif.
ENDFORM. " SET_filepath
PD: lo siento , pero no me deja incluir las etiquetas de código....
|