[Ayuda] Reemplazar WS_FILENAME_GET por CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

[wittycasla]

Buenas, tengo que reemplazar la función WS_FILENAME_GET por el método CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG.

La versión original de la función es:

  [FONT="Courier New"]CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            def_path         = '\'
            mask             = ',Todos(*.*),*.*.'
            title            = 'Seleccione un Archivo'
       IMPORTING
            filename         = v_filename
       EXCEPTIONS
            inv_winsys       = 1
            no_batch         = 2
            selection_cancel = 3
            selection_error  = 4
            OTHERS           = 5.[/FONT]

Ahora bien, cómo lo reemplazo por el método?

[FONT="Courier New"]CALL METHOD cl_gui_frontend_services=>file_open_dialog
  EXPORTING
    window_title             = 
*    default_extension       = 
*    default_filename        =
    file_filter              = 
*    with_encoding           =
*    initial_directory       =
*    multiselection          =
  CHANGING
    file_table               = 
    rc                       = 
*    user_action             =
*    file_encoding           =
*  EXCEPTIONS
*    file_open_dialog_failed = 1
*    cntl_error              = 2
*    error_no_gui            = 3
*    not_supported_by_gui    = 4
*    others                  = 5[/FONT]

Gracias.-

[amane]

Hola,

Prueba así:

parameters: p_file like rlgrap-filename.
data: lt_file type filetable,
lv_i type i ,
lv_title type string.

lv_title = 'Seleccione un Archivo'
call method cl_gui_frontend_services=>file_open_dialog
exporting
window_title = lv_title
changing
file_table = lt_file
rc = lv_i.

read table lt_file index 1 into p_file.


Espero que te sirva,
Saludos