SAP ABAP DMS文檔管理開發(fā)

1、.SAP ABAP DMS文檔開發(fā)1. 用到的BAPI：BAPI_DOCUMENT_CREATE2 ，ZBAPI_DOCUMENT_CHECKOUTVIEW2，BAPI_DOCUMENT_DELETE_DIRECT2. 其中ZBAPI_DOCUMENT_CHECKOUTVIEW2是從標(biāo)準(zhǔn)的BAPI_DOCUMENT_CHECKOUTVIEW2改寫（標(biāo)準(zhǔn)的在導(dǎo)出文檔時，會自定義一個文檔名稱）；改動代碼如下：a) 新增函數(shù)組ZMM_CVBAPIb) 將LCVBAPITOP的定義對象拷貝到LZMM_CVBAPITOPc) 在LZMM_CVBAPITOP最后添加如下：INCLUDElcvbapif01

2、.INCLUDElcvbapif02.INCLUDElcvbapif03.INCLUDElcvbapif04.INCLUDElcvbapif05.INCLUDElcvbapif06.INCLUDElcvbapif07.d) 拷貝函數(shù)BAPI_DOCUMENT_CHECKOUTVIEW2到新ZBAPI_DOCUMENT_CHECKOUTVIEW2，添加IMPORT參OR，并修改代碼。3. 以下為參考代碼：*文檔類型CONSTANTS:con_dokar(3)VALUEZQX.*存儲類別CONSTANTS:con_storage_cat(10)VALUEDMS_C1_ST.FORMfrm_crea

3、t_file.DATA:lv_rcTYPEi,lt_TYPEWITHHEADERLINE.DATA:lv_TYPEfilep,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_

4、doc_files2WITHHEADERLINE,ls_returnTYPEbapiret2.DATA:t_tdwpTYPETABLEOFtdwpWITHHEADERLINE.DATA:nameTYPEdraw-filep,ext(64)TYPEc.CALLMETHODcl_gui_frontend_services=EXPORTINGwindow_title=選擇文件default_extension=*CHANGING=lt_rc=lv_rcEXCEPTIONSiled=1cntl_error=2error_no_gui=3not_supported_by_gui=4OTHERS=9.IF

5、lt_ISINITIAL.EXIT.ENDIF.READTABLElt_INDEX1.*解析路徑文件PERFORMfrm_split_path_lt_-CHANGINGlv_lv_=lv_.WHILEnameCA.SPLITnameAT.INTOextname.ENDWHILE.CONCATENATE.nameINTOname.TRANSLATEnameTOLOWERCASE.CALLFUNCTIONCV120_DOC_GET_APPLEXPORTINGpf_file=nameTABLESptx_tdwp=t_tdwp.IFt_tdwpISINITIAL.MESSAGEs00

6、1WITH不支持此類型文件.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_document=ZQX.lt_document=con_

7、storage_cat.lt_document=t_tdwp-dappl.lt_document=lv_path.lt_document=lv_.lt_document=X.APPENDlt_documentfiles.CALLFUNCTIONBAPI_DOCUMENT_CREATE2EXPORTINGdocumentdata=ls_documentdataIMPORTINGdocumentnumber=lv_docnumberreturn=ls_returnTABLESobjectlinks=lt_objectlinksdocumentfiles=lt_documentfiles.IFls_

8、return-type=EORlv_docnumberISINITIAL.*MESSAGEe001WITH上傳文件出錯,請聯(lián)系管理員.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ELSE.CALLFUNCTIONBAPI_TRANSACTION_COMMIT.MESSAGEs001WITH上傳成功.ENDIF.wa_=lv_docnumber.wa_

9、=lv_.wa_=wa_xqjh_h-yk_planno.wa_=name.wa_=sy-datum.wa_=sy-uzeit.wa_=sy-uname.APPENDwa_it_file.IFwa_xqjh_h-yk_plannoISNOTINITIAL.MODIFYztmm_xqjh_wa_file.COMMITWORKANDWAIT.ENDIF.ENDFORM.FRM_UPLOAD_FILE*&-*&Formfrm_split_path_file*&-*text拆分路徑和文檔名*-*-p1text*p1text*directory_exist(directory=lv_file).IFlv

10、_resultX.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_r

11、c0ORsy-subrc0.MESSAGEe001WITH文件路徑拒絕訪問.ENDIF.ENDIF.GETCURSORLINElv_line.READTABLEit_wa_lv_line.CONCATENATElv_fileINTOlv_originalpath.lv_or=wa_.CALLFUNCTIONZBAPI_DOCUMENT_CHECKOUTVIEW2EXPORTINGdocumenttype=con_dokardocumentnumber=wa_documentpart=000documentversion=00documentfile=ls_documentfileorigina

12、lpath=lv_originalpathor=lv_orIMPORTINGreturn=ls_return.IFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIF.CONCATENATElv_originalpathlv_orINTOlv_path.CALLMETHODcl_gui_frontend_

13、services=executeEXPORTINGdocument=lv_pathsynchronous=XEXCEPTIONScntl_error=1error_no_gui=2bad_parameter=3=4path_not_found=5=6error_execute_failed=7synchronous_failed=8not_supported_by_gui=9OTHERS=10.IFsy-subrc0.*ImplementsuitableerrorhandlinghereMESSAGEs001WITH打開文檔失敗DISPLAYLIKEE.ENDIF.ENDFORM.FRM_RE

14、AD_FILE*&-*&FormFRM_DOWN_FILE*&-*text*-*-p1text*EXPORTINGwindow_title=選擇位置*default_extension=default_=lv_*with_encoding=*=*initial_directory=*prompt_on_overwrite=XCHANGING=lv_path=lv_pathfullpath=lv_fullpathEXCEPTIONScntl_error=1error_no_gui=2not_supported_by_gui=3invalid_default_=4OTHERS=5.IFsy-sub

15、rc0.EXIT.ENDIF.lv_result=cl_gui_frontend_services=directory_exist(directory=lv_path).IFlv_resultX.MESSAGEe001WITH文件路徑不存在.ENDIF.lv_originalpath=lv_path.lv_or=lv_.CALLFUNCTIONZBAPI_DOCUMENT_CHECKOUTVIEW2EXPORTINGdocumenttype=con_dokardocumentnumber=wa_documentpart=000documentversion=00documentfile=ls_

16、documentfileoriginalpath=lv_originalpathor=lv_orIMPORTINGreturn=ls_return.IFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ELSE.MESSAGEs001WITH下載成功.ENDIF.ENDFORM.FRM_DOWN_FILE*&-*

17、&FormFRM_DELETE_FILE*&-*text*-*-p1text*-p2text*-*FORMfrm_delete_file.DATA:lv_lineTYPEi,ls_returnTYPEbapiret2.CALLFUNCTIONPOPUP_TO_CONFIRMEXPORTINGtitlebar=消息提示text_question=是否刪除文檔text_button_1=是text_button_2=否default_button=1display_cancel_button=start_column=25start_row=6*popup_type=ICON_MESSAGE_ER

18、RORIMPORTINGanswer=lv_answerEXCEPTIONStext_not_found=1OTHERS=2.IFlv_answer1.MESSAGEs001WITH用戶取消操作DISPLAYLIKEE.EXIT.ENDIF.GETCURSORLINElv_line.READTABLEit_wa_lv_line.CALLFUNCTIONBAPI_DOCUMENT_ENQUEUEEXPORTINGdocumenttype=con_dokardocumentnumber=wa_documentpart=000documentversion=00IMPORTINGreturn=ls_

19、return.IFls_returnISNOTINITIAL.MESSAGEIDls_return-idTYPEls_return-typeNUMBERls_return-numberWITHls_return-message_v1ls_return-message_v2ls_return-message_v3ls_return-message_v4.ENDIF.CALLFUNCTIONBAPI_DOCUMENT_DELETE_DIRECTEXPORTINGdocumenttype=con_dokardocumentnumber=wa_documentpart=000documentversion=00IMPORTINGreturn=ls_return.CALLFUNCTIONBAPI_DOCUMENT_DEQUEUEEXPORTINGdocumenttype=con_dokardocumentnumber=wa_documentpart=000documentversio