SAP ABAP DMS文档管理开发

SAP ABAP DMS文档开发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 lcvbapif01.INCLUDE lcvbapif02.INCLUDE lcvbapif03.INCLUDE lcvbapif04.INCLUDE lcvbapif05.INCLUDE lcvbapif06.INCLUDE lcvbapif07.d)拷贝函数BAPI_DOCUMENT_CHECKOUTVIEW2到新ZBAPI_DOCUMENT_CHECKOUTVIEW2，添加IMPORT参ORFILENAME，并修改代码。

3.以下为参考代码：* 文档类型CONSTANTS: con_dokar(3) VALUE 'ZQX'.* 存储类别CONSTANTS: con_storage_cat(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,ls_documentdatax TYPE bapi_doc_drawx2, "bapi_doc_draw 2x,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.DATA: name TYPE draw-filep,ext(64) TYPE c.CALL METHOD cl_gui_frontend_services=>file_open_dialogEXPORTINGwindow_title = '选择文件'default_extension = '*'CHANGINGfile_table = lt_filetable[]rc = lv_rc EXCEPTIONSfile_open_dialog_failed = 1cntl_error = 2error_no_gui = 3not_supported_by_gui = 4OTHERS = 9.IF lt_filetable[] IS INITIAL.EXIT.ENDIF.READ TABLE lt_filetable INDEX 1.*解析路径文件PERFORM frm_split_path_file USING lt_filetable-filenameCHANGING 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_APPL'EXPORTINGpf_file = nameTABLESptx_tdwp = t_tdwp.IF t_tdwp[] IS INITIAL.MESSAGE s001 WITH '不支持此类型文件'.ENDIF.READ TABLE t_tdwp INDEX 1.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'.READ TABLE t_tdwp INDEX 1.lt_documentfiles-documenttype = 'ZQX'.lt_documentfiles-storagecategory = con_storage_cat.lt_documentfiles-wsapplication = t_tdwp-dappl.lt_documentfiles-docpath = lv_path.lt_documentfiles-docfile = lv_filename.lt_documentfiles-checkedin = 'X'.APPEND lt_documentfiles.CALL FUNCTION 'BAPI_DOCUMENT_CREATE2'EXPORTINGdocumentdata = ls_documentdataIMPORTINGdocumentnumber = lv_docnumberreturn = ls_returnTABLESobjectlinks = lt_objectlinksdocumentfiles = lt_documentfiles.IF ls_return-type = 'E' OR lv_docnumber IS INITIAL.* MESSAGE e001 WITH '上传文件出错,请联系管理员'.MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_retu rn-numberWITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.MESSAGE s001 WITH '上传成功'.ENDIF.wa_file-doc_id = lv_docnumber.wa_file-dname = lv_filename.wa_file-yk_planno = wa_xqjh_h-yk_planno.wa_file-dtype = name.wa_file-credat = sy-datum.wa_file-ctime = sy-uzeit.wa_file-cname = sy-uname.APPEND wa_file TO it_file.IF wa_xqjh_h-yk_planno IS NOT INITIAL.MODIFY ztmm_xqjh_file FROM wa_file.COMMIT WORK AND WAIT.ENDIF.ENDFORM. " FRM_UPLOAD_FILE*&---------------------------------------------------------------------* *& Form frm_split_path_file*&---------------------------------------------------------------------* * text拆分路径和文档名*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM frm_split_path_file USING uv_fullname CHANGING cv_filename cv_pathname.DATA: lt_match TYPE match_result_tab,ls_match LIKE LINE OF lt_match.FIND ALL OCCURRENCES OF '\' IN uv_fullname IN CHARACTER MOD E RESULTS lt_match.IF NOT lt_match IS INITIAL.LOOP AT lt_match INTO ls_match.ENDLOOP.ADD 1 TO ls_match-offset.cv_pathname = uv_fullname(ls_match-offset).cv_filename = uv_fullname+ls_match-offset.ENDIF.ENDFORM.*&---------------------------------------------------------------------* *& Form FRM_READ_FILE*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM frm_read_file .DATA: lv_file TYPE string VALUE 'C:\XQJH1'.DATA: lv_path TYPE string.DATA: lv_result TYPE abap_bool.DATA: lv_rc TYPE i.DATA: lv_line TYPE i.DATA: lv_originalpath TYPE bapi_doc_aux-filename,lv_orfilename TYPE bapi_doc_aux-filename.DATA: ls_documentfile TYPE bapi_doc_files2,ls_return TYPE bapiret2.lv_result = cl_gui_frontend_services=>directory_exist( directory = lv_file ).IF lv_result <> 'X'.CALL METHOD cl_gui_frontend_services=>directory_createEXPORTINGdirectory = lv_file CHANGINGrc = lv_rc EXCEPTIONSdirectory_create_failed = 1cntl_error = 2error_no_gui = 3directory_access_denied = 4directory_already_exists = 5path_not_found = 6unknown_error = 7not_supported_by_gui = 8wrong_parameter = 9OTHERS = 10.IF lv_rc <> 0 OR sy-subrc <> 0.MESSAGE e001 WITH '文件路径拒绝访问'.ENDIF.ENDIF.GET CURSOR LINE lv_line.READ TABLE it_file INTO wa_file INDEX lv_line.CONCATENATE lv_file '\' INTO lv_originalpath.lv_orfilename = wa_file-dname.CALL FUNCTION 'ZBAPI_DOCUMENT_CHECKOUTVIEW2'EXPORTINGdocumenttype = con_dokardocumentnumber = wa_file-doc_iddocumentpart = '000'documentversion = '00'documentfile = ls_documentfileoriginalpath = lv_originalpathorfilename = lv_orfilenameIMPORTINGreturn = ls_return.IF ls_return IS NOT INITIAL.MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_retu rn-numberWITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4.ENDIF.CONCATENATE lv_originalpath lv_orfilename INTO lv_path.CALL METHOD cl_gui_frontend_services=>executeEXPORTINGdocument = lv_pathsynchronous = 'X'EXCEPTIONScntl_error = 1error_no_gui = 2bad_parameter = 3file_not_found = 4path_not_found = 5file_extension_unknown = 6error_execute_failed = 7synchronous_failed = 8not_supported_by_gui = 9OTHERS = 10.IF sy-subrc <> 0.* Implement suitable error handling hereMESSAGE s001 WITH '打开文档失败' DISPLAY LIKE 'E'.ENDIF.ENDFORM. " FRM_READ_FILE*&---------------------------------------------------------------------* *& Form FRM_DOWN_FILE*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM frm_down_file .DATA: lv_filename TYPE string.DATA: lv_path TYPE string.DATA: lv_path_c(100) TYPE c.DATA: lv_fullpath TYPE string.DATA: lv_result TYPE abap_bool.DATA: lv_rc TYPE i.DATA: lv_line TYPE i.DATA: lv_originalpath TYPE bapi_doc_aux-filename,lv_orfilename TYPE bapi_doc_aux-filename.DATA: ls_documentfile TYPE bapi_doc_files2,ls_return TYPE bapiret2.GET CURSOR LINE lv_line.READ TABLE it_file INTO wa_file INDEX lv_line.lv_filename = wa_file-dname.CALL METHOD cl_gui_frontend_services=>file_save_dialogEXPORTINGwindow_title = '选择位置'* default_extension =default_file_name = lv_filename* with_encoding =* file_filter =* initial_directory =* prompt_on_overwrite = 'X'CHANGINGfilename = lv_filenamepath = lv_pathfullpath = lv_fullpath EXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3invalid_default_file_name = 4OTHERS = 5.IF sy-subrc <> 0.EXIT.ENDIF.lv_result = cl_gui_frontend_services=>directory_exist( directory = lv_path ).IF lv_result <> 'X'.MESSAGE e001 WITH '文件路径不存在'.ENDIF.lv_originalpath = lv_path.lv_orfilename = lv_filename.CALL FUNCTION 'ZBAPI_DOCUMENT_CHECKOUTVIEW2'EXPORTINGdocumenttype = con_dokardocumentnumber = wa_file-doc_iddocumentpart = '000'documentversion = '00'documentfile = ls_documentfileoriginalpath = lv_originalpathorfilename = lv_orfilenameIMPORTINGreturn = ls_return.IF ls_return IS NOT INITIAL.MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_retu rn-numberWITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4.ELSE.MESSAGE s001 WITH '下载成功'.ENDIF.ENDFORM. " FRM_DOWN_FILE*&---------------------------------------------------------------------* *& Form FRM_DELETE_FILE*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM frm_delete_file .DATA: lv_line TYPE i,ls_return TYPE bapiret2.CALL FUNCTION 'POPUP_TO_CONFIRM'EXPORTINGtitlebar = '消息提示'text_question = '是否删除文档'text_button_1 = '是'text_button_2 = '否'default_button = '1'display_cancel_button = ''start_column = 25start_row = 6* popup_type = 'ICON_MESSAGE_ERROR' IMPORTINGanswer = lv_answer EXCEPTIONStext_not_found = 1OTHERS = 2.IF lv_answer <> '1'.MESSAGE s001 WITH '用户取消操作' DISPLAY LIKE 'E'.EXIT.ENDIF.GET CURSOR LINE lv_line.READ TABLE it_file INTO wa_file INDEX lv_line.CALL FUNCTION 'BAPI_DOCUMENT_ENQUEUE'EXPORTINGdocumenttype = con_dokardocumentnumber = wa_file-doc_iddocumentpart = '000'documentversion = '00'IMPORTINGreturn = ls_return.IF ls_return IS NOT INITIAL.MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_retu rn-numberWITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4.ENDIF.CALL FUNCTION 'BAPI_DOCUMENT_DELETE_DIRECT'EXPORTINGdocumenttype = con_dokardocumentnumber = wa_file-doc_iddocumentpart = '000'documentversion = '00'IMPORTINGreturn = ls_return.CALL FUNCTION 'BAPI_DOCUMENT_DEQUEUE'EXPORTINGdocumenttype = con_dokardocumentnumber = wa_file-doc_iddocumentpart = '000'documentversion = '00'.IF ls_return-type <> 'E'.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.DELETE it_file INDEX lv_line.DELETE FROM ztmm_xqjh_file WHERE doc_id = wa_file-doc_id.MESSAGE s001 WITH '删除成功'.ELSE.MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_retu rn-numberWITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4.ENDIF.ENDFORM. " FRM_DELETE_FILE*&---------------------------------------------------------------------* *& Form FRM_DOUBLE_CLICK*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM frm_double_click .DATA: filed TYPE char20.GET CURSOR FIELD filed.IF filed = 'IT_FILE-DOC_ID'.GET CURSOR LINE line.READ TABLE it_file INDEX line.SET PARAMETER ID 'CV1' FIELD it_file-doc_id.SET PARAMETER ID 'CV2' FIELD con_dokar.SET PARAMETER ID 'CV3' FIELD '00'.SET PARAMETER ID 'CV4' FIELD '000'.CALL TRANSACTION 'CV03N' AND SKIP FIRST SCREEN.ENDIF.ENDFORM. " FRM_DOUBLE_CLICK（范文素材和资料部分来自网络，供参考。