SAP ABAP DMS文档管理开发

页脚内容页脚内容SAPABAPDMS 文档开发BAPI_DOCUMENT_DELETE_DIRECTBAPI_DOCUMENT_DELETE_DIRECT是从标准的BAPI_DOCUMENT_CHECKOUTVIEW2BAPI_DOCUMENT_CHECKOUTVIEW2改写（标准的在导出文档时，会自定义一个文档名称；改动代码如下：ZMM_CVBAPIZMM_CVBAPILCVBAPITOPLCVBAPITOPLZMM_CVBAPITOPLZMM_CVBAPITOPLZMM_CVBAPITOP最后添加如下：INCLUDElcvbapif01.INCLUDElcvbapif02INCLUDElcvbapif01.INCLUDElcvbapif02.INCLUDElcvbapif03.INCLUDElcvbapif04.INCLUDElcvbapif05.INCLUDElcvbapif06.INCLUDElcvbapif07.d)拷贝函数BAPI_DOCUMENT_CHECKOUTVIEW2到新代码。以下为参考代码：**文档类型**存储类别FORMFORMfrm_creat_file.DATA:lv_rc TYPEi,lt_filetableTYPEfiletableWITHHEADERLINE.DATA:lv_filenameTYPEfilep,lv_path TYPEfilep.页脚内容页脚内容DATADATA:lv_docnumber DATA:ls_documentdataTYPEbapi_doc_draw2,ls_documentdataxTYPEbapi_doc_drawx2,"bapi_doc_draw2x,lt_objectlinks TYPETABLEOFbapi_doc_dradWITHHEADERLINE,lt_documentfilesTYPETABLEOFbapi_doc_files2WITHHEADERLINE,ls_return TYPEbapiret2.DATA:t_tdwpTYPETABLEOFtdwpWITHHEADERLINE.DATA:name TYPEdraw-filep,ext(64)TYPEc.CALLCALLMETHODcl_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.IFIFlt_filetable[]ISINITIAL.EXIT.ENDIF.lt_filetableINDEX1.**解析路径文件PERFORMfrm_split_path_fileUSINGlt_filetable-filenameCHANGINGlv_filenamelv_name=lv_filename.WHILEnameCA'.'.'.'INTOextname.ENDWHILE.CONCATENATE'.'nameINTOname.CALLFUNCTIONCALLFUNCTION'CV120_DOC_GET_APPL'EXPORTINGpf_file=nameTABLESTABLESptx_tdwp=t_tdwp.IFIFt_tdwp[]ISINITIAL.MESSAGEs001WITH'不支持此类型文件'.ENDIF.READTABLEt_tdwpINDEX1.ls_documentdatals_documentdata-documenttype '00'.='000'.ls_documentdata-description ='凭证描述'.ls_documentdata-username =sy-uname.*ls_documentdata-ecnumber ='123'.READTABLEt_tdwpINDEX1.lt_documentfileslt_documentfiles-documenttype ='ZQX'.=t_tdwp-dappl.lt_documentfiles-docpath =lv_path.lt_documentfiles-docfile =lv_filename.lt_documentfiles-checkedin ='X'.APPENDlt_documentfiles.CALLCALLFUNCTION'BAPI_DOCUMENT_CREATE2'EXPORTINGdocumentdata =ls_documentdataIMPORTINGdocumentnumber=lv_docnumberreturnTABLESobjectlinks=ls_return=lt_objectlinksdocumentfiles=lt_documentfiles.IFIFls_return-type='E'ORlv_docnumberISINITIAL.* MESSAGEe001WITH,'.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberls_return-message_v2ls_return-message_v3ls_return-message_v4.ELSE.CALLFUNCTION'BAPI_TRANSACTION_COMMIT'.MESSAGEs001WITH'上传成功'.=lv_docnumber.wa_file-dname=lv_filename.wa_file-yk_planno=wa_xqjh_h-yk_planno.wa_file-dtype=name.wa_file-ctime=sy-uzeit.wa_file-cname=sy-uname.APPENDwa_fileTOit_file.IFIFwa_xqjh_h-yk_plannoISNOTINITIAL.MODIFYztmm_xqjh_fileFROMwa_file.COMMITWORKANDWAIT.ENDIF.ENDFORM. "FRM_UPLOAD_FILE*&---------------------------------------------------------------------**& Formfrm_split_path_file*&---------------------------------------------------------------------*text拆分路径和文档名*----------------------------------------------------------------------*-->p1 text<--p2 text*----------------------------------------------------------------------*FORMfrm_split_path_fileUSINGuv_fullnameCHANGINGcv_filenamecv_pathname.DATA:lt_matchTYPEmatch_result_tab,ls_matchLIKELINEOFlt_match.lt_match.IFNOTlt_matchISINITIAL.ls_match.ENDLOOP.ADD1TOls_match-offset.cv_filename=uv_fullname+ls_match-offset.ENDIF.ENDFORM.*&---------------------------------------------------------------------**& FormFRM_READ_FILE*&---------------------------------------------------------------------*text*----------------------------------------------------------------------***-->p1*<--p2texttext*----------------------------------------------------------------------*FORMfrm_read_file.DATA:lv_fileTYPEstringVALUE'C:\XQJH1'.DATA:lv_pathTYPEstring.DATA:lv_rcTYPEi.DATA:lv_lineTYPEi.bapi_doc_aux-filename,lv_orfilename TYPEbapi_doc_aux-filename.DATA:ls_documentfileTYPEbapi_doc_files2,ls_return TYPEbapiret2.lv_result=cl_gui_frontend_services=>directory_exist(directory=lv_file).IFIFlv_result<>'X'.CALLMETHODcl_gui_frontend_services=>directory_createEXPORTINGdirectoryCHANGINGrcEXCEPTIONS=lv_file=lv_rcdirectory_create_failed=1cntl_error =2error_no_gui =3directory_access_denied=4=5path_not_found =6unknown_error =7not_supported_by_gui =8wrong_parameter =9OTHERS =10.IFlv_rc<>0ORsy-subrc<>0.MESSAGEe001WITH'文件路径拒绝访问'.ENDIF.ENDIF.GETGETCURSORLINElv_line.INTOwa_fileINDEXlv_line.CONCATENATECONCATENATElv_file'\'INTOlv_originalpath.lv_orfilename=wa_file-dname.CALLFUNCTION'ZBAPI_DOCUMENT_CHECKOUTVIEW2'EXPORTINGEXPORTINGdocumenttype =con_dokardocumentnumber=wa_file-doc_iddocumentpart ='000'documentversion='00'documentfile =ls_documentfileoriginalpath =lv_originalpathorfilename =lv_orfilenameIMPORTINGreturn =ls_return.IFIFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIF.CONCATENATECONCATENATElv_originalpathlv_orfilenameINTOlv_path.CALLMETHODcl_gui_frontend_services=>executeEXPORTINGdocumentsynchronousEXCEPTIONScntl_errorerror_no_guibad_parameterfile_not_foundpath_not_found=lv_path='X'=1=2=3=4=5file_extension_unknown=6error_execute_failed=7synchronous_failed =8not_supported_by_gui =9OTHERS =10.IFsy-subrc<>0.*Implementsuitableerrorhandlinghere'打开文档失败'DISPLAYLIKE'E'.ENDIF.ENDFORMENDFORM."FRM_READ_FILE*&---------------------------------------------------------------------**& FormFRM_DOWN_FILE*&---------------------------------------------------------------------** text*----------------------------------------------------------------------**----------------------------------------------------------------------*-->p1 text<--p2 text*----------------------------------------------------------------------*FORMfrm_down_file.DATA:lv_pathTYPEstring.DATA:lv_path_c(100)TYPEc.lv_fullpathTYPEstring.DATA:lv_rcTYPEi.DATA:lv_lineTYPEi.lv_orfilename TYPEbapi_doc_aux-filename.DATA:ls_documentfileTYPEbapi_doc_files2,ls_return TYPEbapiret2.GETGETCURSORLINElv_line.INTOwa_fileINDEXlv_line.lv_filenamelv_filename=wa_file-dname.CALLMETHODcl_gui_frontend_services=>file_save_dialogEXPORTING*****window_titledefault_extensiondefault_file_namewith_encoding='选择位置'==lv_filename=file_filterinitial_directory==prompt_on_overwriteCHANGING='X'filenamepathfullpathEXCEPTIONScntl_errorerror_no_gui=lv_filename=lv_path=lv_fullpath=1=2not_supported_by_gui =3=4OTHERS =5.IFsy-subrc<>0.EXIT.ENDIF.=cl_gui_frontend_services=>directory_exist(directory=lv_path).IFlv_result<>'X'.MESSAGEe001WITH'文件路径不存在'.ENDIF.lv_originalpathlv_originalpath=lv_path.lv_orfilename=lv_filename.CALLFUNCTION'ZBAPI_DOCUMENT_CHECKOUTVIEW2'EXPORTINGdocumenttype =con_dokardocumentnumber=wa_file-doc_iddocumentpart ='000'documentversion='00'documentfile =ls_documentfileoriginalpath =lv_originalpathorfilename =lv_orfilenameIMPORTINGreturn =ls_return.IFIFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberls_return-message_v2ls_return-message_v3ls_return-message_v4.ELSE.MESSAGEs001WITH'下载成功'.ENDIF.ENDFORMENDFORM."FRM_DOWN_FILE*&---------------------------------------------------------------------**& FormFRM_DELETE_FILE*&---------------------------------------------------------------------*text*----------------------------------------------------------------------*-->p1 text<--p2 text*----------------------------------------------------------------------*FORMfrm_delete_file.DATA:lv_line TYPEi,ls_returnTYPEbapiret2.CALLCALLFUNCTION'POPUP_TO_CONFIRM'EXPORTINGtitlebar ='消息提示'text_question ='是否删除文档'text_button_1 ='是'text_button_2 ='否'default_button ='1'=''start_column =25start_row =6* popup_type ='ICON_MESSAGE_ERROR'IMPORTINGanswer =lv_answerEXCEPTIONStext_not_found =1OTHERS =2.IFlv_answer<>'1'.'用户取消操作'DISPLAYLIKE'E'.EXIT.ENDIF.GETGETCURSORLINElv_line.INTOwa_fileINDEXlv_line.CALLFUNCTIONCALLFUNCTION'BAPI_DOCUMENT_ENQUEUE'EXPORTINGdocumenttype =con_dokardocumentnumber=wa_file-doc_iddocumentpart ='000'='00'IMPORTINGreturn =ls_return.IFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIF.CALLFUNCTIONCALLFUNCTION'BAPI_DOCUMENT_DELETE_DIRECT'EXPORTINGdocumenttype =con_dokardocumentnumber=wa_file-doc_iddocumentpart ='000'='00'IMPORTINGreturnreturn=ls_return.CALLFUNCTIONCALLFUNCTION'BAPI_DOCUMENT_DEQUEUE'EXPORTINGdocumenttype =con_dokardocumentnumber=wa_file-doc_iddocumentpart ='000'=