1、最新資料推SAP ABAPDMS文檔開發1 . 用至lj 的 BAPI： BAPI_D0CUMENT_CREATE2 , ZBAPI_D0CUMENT_CHECK0UTVIEW2 ,BAPI_DOCUMENT_DELETE_DIRECT2. 其中 ZBAPI_D0CUMENT_CHECK0UTVIEW2 是從標準的BAPI_D0CUMENT_CHECK0LTVIEW2改寫(標準的在導出文檔時，會口定義一個文檔 名稱)；改動代碼如下：a) 新增函數組ZMMCVBAPIb) 將LCVBAPITOP的定義對象拷貝到LZMNLCVBAPITOPc) 在LZMM_CVBAPITOP最后添加如下：INCL

2、UDE lcvbapifOl. INCLUDE lcvbapif02. INCLUDE lcvbapif03. INCLUDE lcvbapif04. INCLUDE lcvbapifOS. INCLUDE lcvbapif06. INCLUDE lcvbapif07d)拷 貝 函 數 BAPI_DOCUMENT_CHECKOUTVIEW2 到 新 ZBAPI_DOCUMET_CHECKOl：TVIEW2,添加 IMPORT 參 ORFILENAME,并修改代碼。型誡塊ZEAFi.DtrirHErrr.CHECKOtrniE/s 矽禹性験與出正砸改姦砂卜悔II創玳|也紈省值可選ft.短文巒總I

3、XXOHEHTTYPE XCOlEnTmJFfEERLIKE BAPI_DOC_A11X-D. LIKE EAPI DOS AEX-D.DXUJ1BHTPARTLIKBBAFIJ)CC_AUXD.0Document Part of Header DocumentIXXOHEIITVERSIOXLIEBEAPIJ(K?_AUX-D.0Document Version of Header DocumentXCCfflEnTFTLELIKEEAPI_DCC_FILES20OriginalOSGETSTRUCTURELIKEEAPI_DO7_AUX-F.r0Document Hierarchy (Se

4、veral Vanants Possj.8GETcoNTonscrrsLIKBBAFI_DW_&UX-F.0EAddit. FitesORIGINALPATHLIKEBAPI DOC AUX-FSPACE171plPath where Yoo Want to Check n OrtohahL5LRFILEDANEllKEEAPr_DCC_AUX-F.SPACE00文曲稱IZ Document Type of Header Docurrent Document Hurrber of Header DocumentKvj JUiduiLlhc DHL L Lfile_open_dialog文 檔

5、類 型 CONSTANTS: con_dokar(3) VALUE ZQX酬存儲CONSTANTS:con_storage_cat(10) VALUE DMS_C1_ST FORM frm_.creat_f ile.DATA:lv_rcTYPE i,lt_filetableTYPE filetable WITH HEADERLINE.DATA:lv_filename TYPEfilep,lv_pathTYPE filep.DATA:lv_docnumberTYPE bap i_doc_aux-docnumberDATA:ls_documentdataTYPE bap i_doc_draw2,I

6、s documentdatax2x,類別TYPE bapi_doc_drawx2, bapi_ doc_ drawEXPORTING最新資料推二選擇文件= lt_filetableLl=lv_rc=2=3=9.SPLIT nameATINTO extname.window_titledefault_extension CHANGINGfile_tablercEXCEPTIONSfile_open_dialog_failed = cntl_errorerror_no_gui not_supported_by_gui OTHERSIF lt_filetable IS INITIALEXIT.END

7、IF.READ TABLE lt.filetable INDEX 1. *解析路徑文件PERFORM frm_split_path_f ile USING lt_filetable-filenameCHANGING lv.filename lv filenameWHILE name CAENDWHILE.CONCATENATEname INTOname.TRANSLATEnameCALL FUNCTIONTO LOWER CASE.CV12O DOC GET APPL，EXPORTINGPf.fileTABLESnameptx_tdwp = t_tdwp.IF t_tdw

8、p IS INITIALMESSAGE sOOl WITH 不支持此類型文件ENDIF.READ TABLE t.tdwp INDEX 1. ls_documentdata-documenttyp己二 con_dokarls_documentdata-documentversion =00 ls_documentdata-documentpQrt二000 ls_documentdata-descrip tion=憑 iil:描ls_documentdat&-username= sy_uname * ls_documen tda ta ecnumber=123 READ TABLE t.tdwp

9、 INDEX 1.lt_documentfil亡s-documenttype= ZQXlt_documentf iles_storagecategory = con_storage_cat lt_documentfilesrrsapplicbtion二 t_tdwpdapp1.lt_documentfiles-docpath= lv_pathIt documentfiles一docfile= lv filename.lt_documentfiles-checkedin= APPEND 11 -.document files.CALL FUNCTION BAPI_DOCUMENT_CREATE2

10、EXPORTINGdocumentdata=1s_documentdataIMPORTINGdocumentnumber 二 lv_docnumberreturn= ls_returnTABLESobjectlinks二 It_objectlinksdocumentfiles =1t_documentfilesIF ls_return一type = 三OR lv_docnumber IS INITIAL *MESSAGE eOOl WITH 上傳文件出錯,請聯系管理員.MESSAGE ID ls_returnid TYPE ls_return_type NUMBER ls_retu rn-nu

11、mberWITH ls_returnmessage_vl 1s_re t urn_me s s age_v2 ls_return- message_v3 ls_return-message_v4ELSE.CALL FUNCTION BAPTRANSACT 10丄COMM ITMESSAGE sOOlENDIF.WITH 上傳成功wa_filedoc_id =lv_docnumberwa_filedname 二lv_filenamewa_fi1e-yk_p1anno二 wa_xqj h_h- yk_p1anno.wa_file-dtype 二name wa_.fi le-credat =syda

12、tum wa_.fi le-ctime =sy-uzeitwa_filecname =syunameAPPEND wa.file TO it.fileIF wa_xqjh_h-yk_planno IS NOT INITIAL.MODIFY ztmm_xqjh_file FROM wa_fileCOMMIT WORK AND WAIT.ENDIF. ENDFORM. FRM_UPLOAD_FILE*&*&Form frm_spli t_path_file*& *text 拆分路 徑和文檔名text* pltext*directory_exist( directory =lv.file ).IF

13、lv_result X*.CALL METHOD cguifrontendservices/directoryreate EXPORTINGdirectory= lv_fileCHANGING=1二 2=3二 4=5=6=7=8二 910.rcEXCEPTIONSdirectory_create_failed cntl_error error_no_gui directory_access_denied directory_already_exists path_not_found unknown_error not_supported_by_gui wrong_parameterOTHERS

14、IF lv_rc 0 OR sysubrc 0.MESSAGE eOOl WITH 文件路徑拒絕訪問ENDIF.ENDIF.GET CURSORLINE lv.line.READ TABLEit.fileCONCATENATElv.fileINTO wa.file INDEX lv.line.INTO lv_originalpathlv_orfilename = wa_filednameCALL FUNCTION ZBAPI_DOCUMET_CHECKOUTVIEW2EXPORTINGdocumenttype二 con_dokardocumentnumber 二 wa_filedoc_iddo

15、cumentpart=000documentvers ion =00document f i1e=1s_documentfileoriginalpath=lv_originalpathorfilename= lv_orfilenameIMPORTINGreturn= ls_return.IF ls.return IS NOT INITIALMESSAGE ID ls_returnid TYPE ls_return_type NUMBER ls_retu rn-numberWITH ls_return-message_vl ls_return-message_v2 ls_return messa

16、ge_v3 ls_return-message_v4ENDIF.CONCATENATE lv_originalpath lv_orfilename INTO lv_pathCALL METHOD cl_gui_frontend_services:=executeEXPORTING=lv_pathdocument synchronous EXCEPTIONScntl_error error_no_gui bad_parameter file_not_found pth_not_found file_extension_unknown error_execute_failed synchronou

17、s_failed not_supported_by_gu i OTHERSIF sy-subrc 0 * ImplemMESSAGE sOOl WITHENDIF. ENDFORM.=1=2=3=4二 5=6=7=8=9suitable error 打開文檔失血 DISPLAY10.handl ing hereLIKE E FRM READ FILE*&-*&FormFRM_DOWN_FILE*&text*text*f ile_save_dialog二選擇位置=lv_f ilename*=*file_fil terini tial_direc tory=*=fxfCHANGING=lv_fil

18、ename=lv_path=lv_fullpathfilename path fullpath EXCEPTIONScntl_error= 1error_no_gui=2not_supported_by_gui=3inva1id_defau1t_fi1e_name =OTHERS= 5.IF sysubrc 0EXIT.ENDIF.lv_resuIt 二 cl_gui_frontend_services:z/directory_exist ( directory =lv_path )IF lv_result X .MESSAGE eOOl WITH 文件路徑不存在ENDIF.lv_origin

19、alpath = lv_pathlv_orfilename = lv_filenameCALL FUNCTION 1 ZBAPI_DOCD1ENT_CHECKOUTVIEW2*EXPORTINGdocumenttype=con_dokardocumentnumber= wa_fi1edoc_iddocumentpart=000documentversion =00documentf ile=1s_documentf ileoriginalpath二 lv_originalpathorfilename= lv_orfilenameIMPORTINGreturn= ls_returnIF ls.r

20、eturn IS NOT INITIALMESSAGE ID ls_returnid TYPE ls_return_type NUMBER ls_retu rn-numberWITH ls_returnmessage_vl 1s_re t urn_me s s age_v2 ls_return- message_v3 ls_return-message_v4ELSE.MESSAGE sOOl WITH 下載成功ENDIF. ENDFORM. FRyU)OWN_FI一啦LE*&FormFRH_DELETE_FILE*& -text*-*text*text*FORM frm delete file

21、DATA:CALLTYPE i,ls_return TYPE bapiret2 FUNCTION POPUP TO CONFIRMlv lineEXPORTINGtitlebartext_questiontext button 1text button 2default button二 F是否刪除文檔是否idisplay_cancel_but ton二 25start columnstart row6*popuptype=ICON MESSAGE ERRORIMPORTINGanswerlv answerEXCEPTIONStext not foundIF lv_answer iMESSAGE

22、sOOlWITH ：八取DISPLAY LIKEEXIT.ENDIF.GET CURSORLINElv.lineREAD TABLEit.file INTO wa.file INDEX lv.lineOTHERS=2.CALL FUNCTION BAPI_DOCUMET_EQl；El；EEXPORTINGEdocumenttype documentnumber documentpart documentvers ion IMPORTING二 con_dokar=wa_filedoc_id=000=00return= ls_returnIF ls.return IS NOT INITIALMES

23、SAGE ID ls_returnid TYPE ls_returntype NUMBER ls_retu rn-numberWITH ls_return-message_vl ls_return-message_v2 ls_return* message_v3 ls_returnmessage_v4ENDIF.CALL FUNCTION BAPI_DOaMET_DELETE_DIRECTEXPORTINGdocumenttype= con_dokardocumentnumber 二 wa_filedoc_id documentpart二000documentvers ion =00IMPORTINGreturn= ls_returnCALL FUNCTION，BAPI_DOCl；MET_DEQUEUE，EXPORTINGdocumenttype= con_dokardocumentnumber