SAP ABAP DMS文档管理开发.doc

《SAP ABAP DMS文档管理开发.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、SAPABAPDMS文档开发1.用到的BAPI：BAPI_DOCUMENT_CREATE2，ZBAPI_DOCUMENT_CHECKOUTVIEW2，BAPI_DOCUMENT_DELETE_DIRECT2.其中ZBAPI_DOCUMENT_CHECKOUTVIEW2是从标准的BAPI_DOCUMENT_CHECKOUTVIEW2改写（标准的在导出文档时，会自定义一个文档名称）；改动代码如下：a)新增函数组ZMM_CVBAPIb)将LCVBAPITOP的定义对象拷贝到LZMM_CVBAPITOPc)在LZMM_CVBAPITOP最后添加如下：INCLUDE lcvbapif

2、01.INCLUDE lcvbapif02.INCLUDE lcvbapif03.INCLUDE lcvbapif04.INCLUDE lcvbapif05.INCLUDE lcvbapif06.INCLUDE lcvbapif07.d)拷贝函数BAPI_DOCUMENT_CHECKOUTVIEW2到新ZBAPI_DOCUMENT_CHECKOUTVIEW2，添加IMPORT参ORFILENAME，并修改代码。1.以下为参考代码：* 文档类型CONSTANTS: con_dokar(3) VALUE 'ZQX'.* 存储类别CONSTANTS: con_storage_ca

3、t(10) VALUE 'DMS_C1_ST'.FORM frm_creat_file.  DATA: lv_rc        TYPE i,        lt_filetable TYPE filetable WITH HEADER LINE.  DATA: lv_filename TYPE filep,        lv_path     TYPE filep.  DATA: lv_docnumber     TYPE bapi_doc_aux-docnumber.  DATA: ls_documentdata  TYPE bapi_doc_draw2,     

4、   ls_documentdatax TYPE bapi_doc_drawx2, "bapi_doc_draw2x,        lt_objectlinks   TYPE TABLE OF bapi_doc_drad WITH HEADER LINE,        lt_documentfiles TYPE TABLE OF bapi_doc_files2 WITH HEADER LINE,        ls_return        TYPE bapiret2.  DATA: t_tdwp TYPE TABLE OF tdwp WITH HEADER LINE

5、.  DATA: name    TYPE draw-filep,        ext(64) TYPE c.  CALL METHOD cl_gui_frontend_services=>file_open_dialog    EXPORTING      window_title            = '选择文件'      default_extension       = '*'    CHANGING      file_table              = lt_filetable[]      rc                      = lv

6、_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 TABLE lt_filetable INDEX 1.*解析路径文件  PERFORM frm_spli

7、t_path_file USING lt_filetable-filename        CHANGING lv_filename lv_path.  name = lv_filename.  WHILE name CA '.'.    SPLIT name AT '.' INTO ext name.  ENDWHILE.  CONCATENATE '.' name INTO name.  TRANSLATE name TO LOWER CASE.  CALL FUNCTION 'CV120_DOC_GET_A