最新sap abap dms文档开发Word文档格式.docx
- 文档编号:15993205
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:14
- 大小:103.18KB
最新sap abap dms文档开发Word文档格式.docx
《最新sap abap dms文档开发Word文档格式.docx》由会员分享,可在线阅读,更多相关《最新sap abap dms文档开发Word文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
con_dokar(3)
VALUE
'
ZQX'
.
存储类别
con_storage_cat(10)
DMS_C1_ST'
FORM
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
-
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新sap abap dms文档开发 最新 sap dms 文档 开发