SAP ABAP DMS文档管理开发

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最后添加如下：INCLUDElcvbapif01.INCLUDElcvbapif02.INCLUDElcvbapif03.INCLUDElcvbapif04.INCLUDElcvbapif05.INCLUDElcvbapif06.INCLUDElcvbapif07.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'.FORMfrm_creat_file.DATA:lv_rcTYPEi,lt_filetableTYPEfiletableWITHHEADERLINE.DATA:lv_filenameTYPEfilep,lv_pathTYPEfilep.DATA:lv_docnumberTYPEbapi_doc_aux-docnumber.DATA:ls_documentdataTYPEbapi_doc_draw2,ls_documentdataxTYPEbapi_doc_drawx2,bapi_doc_draw2x,lt_objectlinksTYPETABLEOFbapi_doc_dradWITHHEADERLINE,lt_documentfilesTYPETABLEOFbapi_doc_files2WITHHEADERLINE,ls_returnTYPEbapiret2.DATA:t_tdwpTYPETABLEOFtdwpWITHHEADERLINE.DATA:nameTYPEdraw-filep,ext(64)TYPEc.CALLMETHODcl_gui_frontend_services=file_open_dialogEXPORTINGwindow_title='选择文件'default_extension='*'CHANGINGfile_table=lt_filetable[]rc=lv_rcEXCEPTIONSfile_open_dialog_failed=1cntl_error=2error_no_gui=3not_supported_by_gui=4OTHERS=9.IFlt_filetable[]ISINITIAL.EXIT.ENDIF.READTABLElt_filetableINDEX1.*解析路径文件PERFORMfrm_split_path_fileUSINGlt_filetable-filenameCHANGINGlv_filenamelv_path.name=lv_filename.WHILEnameCA'.'.SPLITnameAT'.'INTOextname.ENDWHILE.CONCATENATE'.'nameINTOname.TRANSLATEnameTOLOWERCASE.CALLFUNCTION'CV120_DOC_GET_APPL'EXPORTINGpf_file=nameTABLESptx_tdwp=t_tdwp.IFt_tdwp[]ISINITIAL.MESSAGEs001WITH'不支持此类型文件'.ENDIF.READTABLEt_tdwpINDEX1.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'.READTABLEt_tdwpINDEX1.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'.APPENDlt_documentfiles.CALLFUNCTION'BAPI_DOCUMENT_CREATE2'EXPORTINGdocumentdata=ls_documentdataIMPORTINGdocumentnumber=lv_docnumberreturn=ls_returnTABLESobjectlinks=lt_objectlinksdocumentfiles=lt_documentfiles.IFls_return-type='E'ORlv_docnumberISINITIAL.*MESSAGEe001WITH'上传文件出错,请联系管理员'.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ELSE.CALLFUNCTION'BAPI_TRANSACTION_COMMIT'.MESSAGEs001WITH'上传成功'.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.APPENDwa_fileTOit_file.IFwa_xqjh_h-yk_plannoISNOTINITIAL.MODIFYztmm_xqjh_fileFROMwa_file.COMMITWORKANDWAIT.ENDIF.ENDFORM.FRM_UPLOAD_FILE*&---------------------------------------------------------------------**&Formfrm_split_path_file*&---------------------------------------------------------------------**text拆分路径和文档名*----------------------------------------------------------------------**--p1text*--p2text*----------------------------------------------------------------------*FORMfrm_split_path_fileUSINGuv_fullnameCHANGINGcv_filenamecv_pathname.DATA:lt_matchTYPEmatch_result_tab,ls_matchLIKELINEOFlt_match.FINDALLOCCURRENCESOF'\'INuv_fullnameINCHARACTERMODERESULTSlt_match.IFNOTlt_matchISINITIAL.LOOPATlt_matchINTOls_match.ENDLOOP.ADD1TOls_match-offset.cv_pathname=uv_fullname(ls_match-offset).cv_filename=uv_fullname+ls_match-offset.ENDIF.ENDFORM.*&---------------------------------------------------------------------**&FormFRM_READ_FILE*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**--p1text*--p2text*----------------------------------------------------------------------*FORMfrm_read_file.DATA:lv_fileTYPEstringVALUE'C:\XQJH1'.DATA:lv_pathTYPEstring.DATA:lv_resultTYPEabap_bool.DATA:lv_rcTYPEi.DATA:lv_lineTYPEi.DATA:lv_originalpathTYPEbapi_doc_aux-filename,lv_orfilenameTYPEbapi_doc_aux-filename.DATA:ls_documentfileTYPEbapi_doc_files2,ls_returnTYPEbapiret2.lv_result=cl_gui_frontend_services=directory_exist(directory=lv_file).IFlv_result'X'.CALLMETHODcl_gui_frontend_services=directory_createEXPORTINGdirectory=lv_fileCHANGINGrc=lv_rcEXCEPTIONSdirectory_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.IFlv_rc0ORsy-subrc0.MESSAGEe001WITH'文件路径拒绝访问'.ENDIF.ENDIF.GETCURSORLINElv_line.READTABLEit_fileINTOwa_fileINDEXlv_line.CONCATENATElv_file'\'INTOlv_originalpath.lv_orfilename=wa_file-dname.CALLFUNCTION'ZBAPI_DOCUMENT_CHECKOUTVIEW2'EXPORTINGdocumenttype=con_dokardocumentnumber=wa_file-doc_iddocu