SAPABAPDMS文档管理开发Word格式.docx
- 文档编号:16380607
- 上传时间:2022-11-23
- 格式:DOCX
- 页数:10
- 大小:103.22KB
SAPABAPDMS文档管理开发Word格式.docx
《SAPABAPDMS文档管理开发Word格式.docx》由会员分享,可在线阅读,更多相关《SAPABAPDMS文档管理开发Word格式.docx(10页珍藏版)》请在冰豆网上搜索。
frm_creat_file.
DATA:
lv_rc
TYPE
i,
lt_filetable
filetable
WITH
HEADER
LINE.
lv_filename
filep,
lv_path
filep.
lv_docnumber
bapi_doc_aux-docnumber.
ls_documentdata
bapi_doc_draw2,
ls_documentdatax
bapi_doc_drawx2,
"
bapi_doc_draw2x,
lt_objectlinks
TABLE
OF
bapi_doc_drad
LINE,
lt_documentfiles
bapi_doc_files2
ls_return
bapiret2.
t_tdwp
tdwp
name
draw-filep,
ext(64)
c.
CALL
METHOD
cl_gui_frontend_services=>
file_open_dialog
EXPORTING
window_title
=
选择文件'
default_extension
*'
CHANGING
file_table
lt_filetable[]
rc
lv_rc
EXCEPTIONS
file_open_dialog_failed
1
cntl_error
2
error_no_gui
3
not_supported_by_gui
4
OTHERS
9.
IF
lt_filetable[]
IS
INITIAL.
EXIT.
ENDIF.
READ
INDEX
1.
*解析路径文件
PERFORM
frm_split_path_file
USING
lt_filetable-filename
CHANGING
lv_path.
lv_filename.
WHILE
CA
.'
SPLIT
AT
INTO
ext
name.
ENDWHILE.
CONCATENATE
TRANSLATE
TO
LOWER
CASE.
FUNCTION
CV120_DOC_GET_APPL'
pf_file
name
TABLES
ptx_tdwp
t_tdwp.
t_tdwp[]
MESSAGE
s001
不支持此类型文件'
ls_documentdata-documenttype
con_dokar.
ls_documentdata-documentversion
00'
ls_documentdata-documentpart
000'
ls_documentdata-description
凭证描述'
ls_documentdata-username
sy-uname.
ls_documentdata-ecnumber
123'
lt_documentfiles-documenttype
lt_documentfiles-storagecategory
con_storage_cat.
lt_documentfiles-wsapplication
t_tdwp-dappl.
lt_documentfiles-docpath
lt_documentfiles-docfile
lt_documentfiles-checkedin
X'
APPEND
lt_documentfiles.
BAPI_DOCUMENT_CREATE2'
documentdata
ls_documentdata
IMPORTING
documentnumber
lv_docnumber
return
ls_return
objectlinks
lt_objectlinks
documentfiles
ls_return-type
E'
OR
e001
上传文件出错,请联系管理员'
ID
ls_return-id
NUMBER
ls_return-number
ls_return-message_v1
ls_return-message_v2
ls_return-message_v3
ls_return-message_v4.
ELSE.
BAPI_TRANSACTION_COMMIT'
上传成功'
wa_file-doc_id
lv_docnumber.
wa_file-dname
wa_file-yk_planno
wa_xqjh_h-yk_planno.
wa_file-dtype
wa_file-credat
sy-datum.
wa_file-ctime
sy-uzeit.
wa_file-cname
wa_file
it_file.
wa_xqjh_h-yk_planno
NOT
MODIFY
ztmm_xqjh_file
FROM
wa_file.
COMMIT
WORK
AND
WAIT.
ENDFORM.
FRM_UPLOAD_FILE
*&
---------------------------------------------------------------------*
Form
frm_split_path_file
text拆分路径和文档名
*----------------------------------------------------------------------*
-->
p1
text
<
--
p2
uv_fullname
cv_filename
cv_pathname.
lt_match
match_result_tab,
ls_match
LIKE
LINE
lt_match.
FIND
ALL
OCCURRENCES
\'
IN
CHARACTER
MODE
RESULTS
LOOP
ls_match.
ENDLOOP.
ADD
1
ls_match-offset.
cv_pathname
uv_fullname(ls_match-offset).
uv_fullname+ls_match-offset.
ENDFORM.
FRM_READ_FILE
frm_read_file
lv_file
string
C:
\XQJH1'
string.
lv_result
abap_bool.
i.
lv_line
lv_originalpath
bapi_doc_aux-filename,
lv_orfilename
bapi_doc_aux-filename.
ls_documentfile
bapi_doc_files2,
directory_exist(
directory
).
>
directory_create
lv_file
directory_create_failed
directory_access_denied
directory_already_exists
5
path_not_found
6
unknown_error
7
8
wrong_parameter
9
10.
0
sy-subrc
0.
文件路径拒绝访问'
GET
CURSOR
lv_line.
it_file
lv_originalpath.
wa_file-dname.
ZBAPI_DOCUMENT_CHECKOUTVIEW2'
documenttype
con_dokar
wa_file-doc_id
documentpart
documentversion
documentfile
ls_documentfile
originalpath
lv_originalpath
orfilename
lv_orfilename
ls_return.
execute
document
lv_path
synchronous
bad_parameter
file_not_found
file_extension_unknown
error_execute_failed
synchronous_failed
Implement
suitable
error
handling
here
打开文档失败'
DISPLAY
FRM_DOWN_FILE
frm_down_file
lv_path_c(100)
lv_fullpath
file_save_dialog
选择位置'
=
default_file_name
lv_filename
with_encoding
file_filter
initial_directory
prompt_on_overwrite
filename
path
fullpath
lv_fullpath
invalid_default_file_name
5.
文件路径不存在'
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SAPABAPDMS 文档 管理 开发