Hola,
Usa FM en
AT selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE.
Saludos,
Sonika
Avalados por :
He definido "PARAMETERS: p_file LIKE rlgrap-filename.". Pero en mi programa quiero que en lugar de poner la dirección manualmente... debería tener la opción de navegación, para que nos lleve directamente al archivo o dato requerido.
Saludos,,,,,
Abhay...............
Hola,
Usa FM en
AT selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE.
Saludos,
Sonika
Prueba el código a continuación. Dará la ruta de tu pantalla de presentación o aplicación según sea necesario. Puedes seleccionar la opción desde la pantalla de selección.
PARAMETERS: p_ifile TYPE dxfile-filename LOWER CASE.
PARAMETERS: p_locl RADIOBUTTON GROUP g1 " archivo de escritorio
DEFAULT 'X' USER-COMMAND fil,
p_phys RADIOBUTTON GROUP g1. " archivo del servidor de aplicaciones
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ifile.
PERFORM help_input_file USING p_phys p_locl CHANGING p_ifile.
*&---------------------------------------------------------------------*
*& Form help_input_file
*&---------------------------------------------------------------------*
* texto
*----------------------------------------------------------------------*
FORM help_input_file USING p_phys_file TYPE c
p_locl_file TYPE c
CHANGING p_source_path TYPE any.
IF p_phys_file EQ 'X'.
CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
EXPORTING
dynpfield_filename = 'P_IFILE'
dyname = sy-repid
dynumb = sy-dynnr
filetype = 'P'
location = 'A'.
ELSEIF p_locl_file EQ 'X'.
PERFORM help_local_file CHANGING p_source_path.
ENDIF.
ENDFORM. " help_input_file
*&---------------------------------------------------------------------*
*& Form help_local_file
*&---------------------------------------------------------------------*
* Ruta del archivo local
*----------------------------------------------------------------------*
FORM help_local_file CHANGING p_path TYPE any .
DATA: lt_file_table TYPE filetable,
la_file_table LIKE LINE OF lt_file_table,
l_rc TYPE i,
l_pcdsn TYPE cffile-filename.
REFRESH lt_file_table.
CLEAR la_file_table.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
CHANGING
file_table = lt_file_table
rc <
Hola,
Puedes utilizar el módulo de función 'F4_FILENAME' en AT SELECTION SCREEN ON VALUE-REQUEST para tu parámetro de campo.
Saludos,
Samson Rodrigues.
Hola
Utiliza esto.
llamar método guiobj->file_save_dialog
K.Kiran.
Prueba esto:-
constantes: archivo LIKE rlgrap-filename valor SPACE,
datos: guiobj tipo ref a cl_gui_frontend_services.
crear objeto guiobj.
llamar método guiobj->file_save_dialog
exportando
WINDOW_TITLE = 'DESCARGAR ARCHIVO EN'
WITH_ENCODING = 'X'
INITIAL_DIRECTORY = 'C:\'
default_extension = 'pdf'
default_file_name = nombre_archivo "espacio
file_filter = filtro
cambiando
nombre_archivo = FILENAME
ruta = ruta
ruta_completa = ruta_completa
accion_usuario = uact.
si uact = guiobj->action_cancel.
cancelar = 'X'.
salir.
fin si.
Mensaje editado por: Kiran
Kiran K
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute