IF l_filename_1 <> ''.
CONCATENATE '.' l_filename_1 INTO l_filename_1.
ENDIF.
REPLACE l_filename_1 WITH '' INTO downloadfile-l_filename.
CONCATENATE gd_path '\' t_zmmqrcgcl-pspid '\' downloadfile-l_filename '-' l_objky1 l_filename_1 INTO filename.
"--------------------------------------------
* IF FILEINDEX > 1.
* L_FILEINDEX = FILEINDEX.
* IF DOWNLOADFILE-L_DAPPL = 'XLS'.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY L_FILEINDEX '.XLS' INTO FILENAME.
* ELSE.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY L_FILEINDEX '.DOC' INTO FILENAME.
* ENDIF.
* ELSE.
* IF DOWNLOADFILE-L_DAPPL = 'XLS'.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY '.XLS' INTO FILENAME.
* ELSE.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY '.DOC' INTO FILENAME.
* ENDIF.
* ENDIF.
"读取DMS的文件
CALL FUNCTION 'SCMS_DOC_READ_FILE'
EXPORTING
* MANDT = SY-MANDT
stor_cat = 'DMS_C1_ST'
* CREP_ID = ' '
doc_id = downloadfile-l_phio_id
* PHIO_ID =
comp_id = c_comp_id
path = filename
EXCEPTIONS
not_found = 1
unauthorized = 2
internal_server_error = 3.
CONCATENATE '.' l_filename_1 INTO l_filename_1.
ENDIF.
REPLACE l_filename_1 WITH '' INTO downloadfile-l_filename.
CONCATENATE gd_path '\' t_zmmqrcgcl-pspid '\' downloadfile-l_filename '-' l_objky1 l_filename_1 INTO filename.
"--------------------------------------------
* IF FILEINDEX > 1.
* L_FILEINDEX = FILEINDEX.
* IF DOWNLOADFILE-L_DAPPL = 'XLS'.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY L_FILEINDEX '.XLS' INTO FILENAME.
* ELSE.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY L_FILEINDEX '.DOC' INTO FILENAME.
* ENDIF.
* ELSE.
* IF DOWNLOADFILE-L_DAPPL = 'XLS'.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY '.XLS' INTO FILENAME.
* ELSE.
* CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY '.DOC' INTO FILENAME.
* ENDIF.
* ENDIF.
"读取DMS的文件
CALL FUNCTION 'SCMS_DOC_READ_FILE'
EXPORTING
* MANDT = SY-MANDT
stor_cat = 'DMS_C1_ST'
* CREP_ID = ' '
doc_id = downloadfile-l_phio_id
* PHIO_ID =
comp_id = c_comp_id
path = filename
EXCEPTIONS
not_found = 1
unauthorized = 2
internal_server_error = 3.