Aquí hay un práctico módulo de funciones que muestra el directorio local o del servidor según la ubicación que especifiquemos.
data: l_path type dxfields-longpath,
l_o_path type dxfields-longpath.
l_path = ch_path.
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
EXPORTING
I_LOCATION_FLAG = im_location
* I_SERVER =
I_PATH = l_path
* FILEMASK = '*.*'
* FILEOPERATION = 'R'
IMPORTING
* O_LOCATION_FLAG =
* O_SERVER =
O_PATH = l_o_path
ABEND_FLAG = ex_abend_flag
EXCEPTIONS
RFC_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ch_path = l_o_path.
l_o_path type dxfields-longpath.
l_path = ch_path.
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
EXPORTING
I_LOCATION_FLAG = im_location
* I_SERVER =
I_PATH = l_path
* FILEMASK = '*.*'
* FILEOPERATION = 'R'
IMPORTING
* O_LOCATION_FLAG =
* O_SERVER =
O_PATH = l_o_path
ABEND_FLAG = ex_abend_flag
EXCEPTIONS
RFC_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ch_path = l_o_path.
Dentro de este módulo de función, se invocan el método cl_gui_frontend_services => file_open_dialog y el módulo de funciones F4_DXFILENAME, que son los que se usan comúnmente cuando trabajamos con sistemas de archivos.
Esta publicación es cortesía de Carlos Castro.
No comments:
Post a Comment