|
Si, yo he usado los siguientes forms para sacar la ventanita.
**************FORMS
*---------------------------------------------------------------------*
* FORM GET_FILE_OUT
*---------------------------------------------------------------------*
FORM get_file_out USING value(p_type) value(p_path)
CHANGING filename p_pc.
PERFORM get_file_in_out USING p_type p_path 'S'
CHANGING filename p_pc.
ENDFORM. " GET_FILE_OUT
*---------------------------------------------------------------------*
* FORM GET_FILE_in_out
*---------------------------------------------------------------------*
FORM get_file_in_out USING value(p_type) value(p_path) value(mode)
CHANGING filename p_pc.
DATA:
* mode VALUE 'S' , "Save mode
* mode VALUE 'O' , "Open mode
mask(120) ,
title(19).
title = 'Localizar fichero'.
IF p_type = 'ASC'.
mask = ',PDF,*.PDF.'.
"mask = ',PDF,*.pdf'.
ELSE.
* mask = ',TRACM ASC,*.ASC,TRACM SDF,*.SDF.'.
mask = ',*,*,BIN,*.bin,*.PDF.'.
"mask = ',*,*,BIN,*.bin,PDF,*.pdf.'.
ENDIF.
* WINDOW STARTING AT 1 25 ENDING AT 12 45.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
def_path = p_path
mask = mask
mode = mode
title = title
IMPORTING
filename = filename
* RC =
EXCEPTIONS
inv_winsys = 01
no_batch = 02
selection_cancel = 03
selection_error = 04.
CASE sy-subrc.
WHEN 0.
* message s899.
p_pc = 'X'. "c_ftp_marcado.
WHEN 1.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº '(915) sy-subrc
' Introduzca el nombre correcto '(916)
' No es posible ayuda selección '(917).
WHEN 2.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº '(015) sy-subrc
' Introduzca el nombre correcto '(916)
' No es posible ayuda selección '(917).
WHEN 3.
MESSAGE ID '00' TYPE 'S' NUMBER '398' WITH
'Cancelación de selección de ficheros'(918).
WHEN 4.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº'(915) sy-subrc.
ENDCASE.
ENDFORM.
Despues de todo esto, he puesto esto para llamar a la ventana.
PARAMETERS: p_fich LIKE rlgrap-filename OBLIGATORY, "Fichero de texto
p_pc AS CHECKBOX default 'X'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fich.
* Ayuda para localizar los itabs locales.
PERFORM get_file_out USING 'ASC' 'C:\*.*'
CHANGING p_fich p_pc.
|