SAP-ABAP-DMS文档管理开发

《SAP-ABAP-DMS文档管理开发》由会员分享，可在线阅读，更多相关《SAP-ABAP-DMS文档管理开发（13页珍藏版）》请在装配图网上搜索。

1、SAP-ABAP-DM文档管理开发SAPABAPDMS文档开发1.用至U的BAPI:BAPI_D0CUMENT_CREATE2,ZBAPI_DOCUMENT_CHECKOUTVJEWBAPI_DOCUMENT_DELETE_DIRECT2.a)b)c)其中ZBAPI_DOCUMENT_CHECKOUTVEW标准的BAPI_DOCUMENT_CHECKOUTVEW2(标准的在导出文档时，会自定义一个文档名称)；改动代码如下：新增函数组ZMM_CVBAPI将LCVBAPITO的定义对象拷贝到LZMM_CVBAPITOP在LZMM_CVBAPITO最后添加如下：NCLUDElcvbapifO1.NC

2、LUDElcvbapif02.NCLUDElcvbapif03.NCLUDElcvbapif04.NCLUDElcvbapif05.NCLUDElcvbapif06.NCLUDElcvbapif07.d)拷贝函数BAPI_DOCUMENT_CHECKOUTVIEW2至9新ZBAPI_DOCUMENT_CHECKOUTVIEW加IMPORT参ORFILENAM,并修改代码。鲫腮？-ZEAPI_COCrKE!TT_CB3CED1jTJIEV2:詞隹性止厶虽改夷*需申吉科戋宓壬联兴空新5陌可迭倩“，拒曲长-“DOCimEEITTTFfLIKEBAPI._DOCJlJX-=D,0DocurnentTr

3、eeMHeac-rDocLmert二rrxrjFFnTrniWEEEtI.TOBAPlDOCAOI-li凰cKumentNLmberofHeader口cumentIXXUMETTFAKTL1K1BAFurecm-i.Dwumsnt，PjftimH田Dc-cunen：二曲MFFtlTVFRHOULIKE7DiKuiTwntWileerfH柑dMDiKurrenr二XrmmFLFLTOBfcPi.xcraGnSTKQCRJRBLUIB*PE_K)C_A(n-F.1冈DxurmntHit用咄(5會理FP?ssBGETEJtE肚KT3LIKEBAn=DOC_JlQ-pXIT)足1AxMLHrOROEI

4、CIMALPTHLIKEfiAPlDOCSCEj1俐fti.i：it伽V?：.(CmLLClCill01-jiPFTi.FnAin1BAPT_roC_JtOI-F5PAITSrnjTarnon-：sno5GFTftmDFRLIKESAPr_DOCAm-PSJrr?directory_exist(directory=lv_file).IFlvresultX.CALLMETHODcl_gui_frontend_services=directory_createEXPORTINGdirectory=lvfileCHANGINGrc=lvrcEXCEPTIONSdirectorycreatefaile

5、d=1cntl_error=2errornoguidirectory_access_denied=4directoryalreadyexists=5pathnotfound=6unknown_error=7notsupportedbygui=8wrong_parameter=9OTHERS=10.IFlv_rc0ORsy-subrc0.MESSAGEe001WITH文件路径拒绝访问.ENDIFENDIFGETCURSORLINElvlineREADTABLEit_fileINTOwa_fileINDEXlv_line.CONCATENATEv_fileINTOlv_originalpathlv

6、_orfilename=wa_file-dnameCALLFUNCTIONZBAPI_DOCUMENT_CHECKOUTVIEW2EXPORTINGdocumenttype=con_dokardocumentnumber=wafile-dociddocumentpart=000documentversion=00documentfile=lsdocumentfileoriginalpath=lv_originalpathorfilename=lvorfilenameIMPORTINGreturn=ls_return.IFls_returnISNOTINITIAL.MESSAGEIDls_ret

7、urn-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIFCONCATENATEv_originalpathlv_orfilenameINTO)lv_path.CALLMETHODcl_gui_frontend_.services=executeEXPORTINGdocument=lvpathsynchronous=XEXCEPTIONScntlerror=1errornogui=2

8、badparameter=3file_not_found=4pathnotfound=5fileextensionunknowr=6errorexecutefailed=7synchronousfailed=8not_supported_by_gui=9OTHERS=10.IFsy-subrc0.*ImplementsuitableerrorhandlinghereMESSAGEs001WITH打开文档失败DISPLAYLIKEEENDIFENDFORMFRM_READ_FILE*&*&FormFRM_DOWN_FILE-pltextfile_save_dialogEXPORTINGwindo

9、wtitle=选择位置*defaultextension=defaultfilename=lvfilename*with_encoding=*filefilter=*initialdirectory=*promptonoverwrite=XCHANGINGfilename=lv_filenamepath=lvpathfullpathlv_fullpathEXCEPTIONScntl_error=1errornogui=2notsupportedbygui=3invaliddefaultfilename=4OTHERS=5.IFsy-subrc0.EXIT.ENDIFlv_result=cl_g

10、ui_frontend_services=directory_exist(directory=lv_path).IFlv_resultX.MESSAGEe001WITH文件路径不存在.ENDIFlvoriginalpath=lvpath.lv_orfilename=lv_filenameCALLFUNCTIONZBAPI_DOCUMENT_CHECKOUTVIEW2EXPORTINGdocumenttype=con_dokardocumentnumber=wafile-dociddocumentpart=000documentversion=00documentfile=ls_document

11、fileoriginalpath=lv_originalpathorfilename=lvorfilenameIMPORTINGreturn=ls_returnIFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ELSEMESSAGEs001WITH下载成功.ENDIFENDFORMFRMDOWNFZILE*&

12、*&FormFRMDELETEFILE*&text*-pltext-p2text*FORMfrm_delete_fileDATAlv_lineTYPEi,ls_returnTYPEbapiret2.titlebar=消息提示text_question=是否删除文档CALLFUNCTIONPOPUPTOCONFIRMtext_button_1=是textbutton2=否default_button=1display_cancel_buttonIIstartcolumn=25start_row=6*popuptypeIMPORTINGICONMESSAGEERRORanswerlvanswerE

13、XCEPTIONStextnotfoundOTHERS2.IFlvanswer1.MESSAGEs001WITH用户取消操作DISPLAYLIKEE.EXIT.GETCURSORLINElvlineREADTABLEit_fileINTOwa_fileINDEXlv_line.ENDIFdocumenttype=condokardocumentnumber=wafile-dociddocumentpart=000documentversion=00CALLFUNCTIONBAPI_DOCUMENT_ENQUEUEEXPORTINGIMPORTINGreturnls_returnIFls_ret

14、urnISNOTINITIAL.MESSAGEIDlsreturn-idTYPElsreturn-typeNUMBERlsreturn-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIFCALLFUNCTIONBAPI_DOCUMENT_DELETE_DIRECTEXPORTINGdocumenttype=con_dokardocumentnumber=wafile-dociddocumentpart=000documentversion=00IMPOR

15、TINiGreturn=ls_return.CALLFUNCTIONBAPI_DOCUMENT_DEQUEUEEXPORTINGdocumenttype=con_dokardocumentnumber=wa_file-doc_iddocumentpart=000documentversion=00.IFlsreturn-typeE.CALLFUNCTIONBAPI_TRANSACTION_COMMITDELETEitfileINDEXlvlineDELETEFROMztmm_xqjh_fileWHEREdoc_id=wa_file-doc_id.MESSAGEs001WITH删除成功.ELSE

16、MESSAGEIDlsreturn-idTYPElsreturn-typeNUMBERlsreturn-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIFENDFORMFRM_DELETE_FILE*&-pltext-p2text*FORMfrm_double_clickDATAfiledTYPEchar20.GETCURSORFIELDfiled.IFfiled=IT_FILE-DOC_ID.GETCURSORLINEline.READTABLEit_fileINDEXlineSETPARAMETERIDCV1FIELDit_file-doc_id.SETPARAMETERIDCV2FIELDcon_dokar.SETPARAMETERIDCV3FIELD00.SETPARAMETERIDCV4FIELD000.CALLTRANSACTIONCVO3NANDSKIPFIRSTSCREENENDIFENDFORMIIFRMDOUBLECLICK