ABAP_SCDO文檔變更歷史

1、®一1 l e©©|effi：ja|cnee|ElE|0更改文檔對象：總覽空改 創(chuàng)建 生成更新程序 生成信息對象文本/1BS/RBCDKT0RBD;主數(shù)據(jù)帳戶/IBS/RBCDKTODRBD： RBD帳戶的帳戶關(guān)鍵日期/ISDFPS/EX BUULSDP-BW: External Bateh&s for Batch Where-Used List/ISDFPS/FLrGHTMission/ISDFPS/FORCEForce Element/ISDFPS/FQRCERReference Force Element/ISDFPS/FOREPAForce Ele

2、ment - EquipmentPckge Relationship/ISDFPS/FOfttICFcirce Element - Material Container Relationship/ISDFPS/FORMCHHR - Material Container Relationship/ISDFPS/FORMPHHR - Material! Flaming Object Relationship/ISDFPS/FORMPOForce Element - Material Planning Object Relationship/JSDFPS/FORfiiCForce Element -

3、 Reportable Item Code Relationship/ISDFPS/FORUPftFcirce Element - Prov is lions Package Relationship/ISDFPS/ORCHDTask Organization/ISDFPS/ORMNTMahtenanre Relationships/ISDFPS/OROTHAdditional Relationships/ISDFPS/ORSUPSupply Relatianships/ISDFPS/ORTOBTechnical Objects/ISDFPS/PPEEPftNEquipment Package

4、/ISDFPS/PPEHCNMaterial Container/ISDFPS/PPEMCRMateria 1 Container - Material Planning Object Relationships對象 1/ 96點擊創(chuàng)建更改文檔對象，總覽【(a ®圓隈 SOA3S mm©a更改文檔對象，總覽更改 創(chuàng)建 生成更新程序 生成信息對象/IBS/RB CD KTO/IBS/RB CD KTOD文本RBD:主數(shù)據(jù)帳戶RBD:RBD帳戶的帳戶關(guān)鍵日期/ISDFPS/EX BUULSDP-BW: External Batches for Batch Where-Used

5、List/ISDFPS/FLIGHTMission/ISDFPS/FORCEForce Element/ISDFPS/FORCERReference Force Element/ISDFPS/FOREPAForce Element - Equipment Package Relationship/ISDFPS/FORMC |二/ISDFPS/FORMCH/ISDFPS/FORMPH名字空間口果要求）更改無名稱空間前級的憑證對象/ISDFPS/FORMPC/ISDFPS/FORRIC繼續(xù)取消/ISDFPS/FORUPA/ISDFPS/ORCMD/ISDFPS/ORMNT/ISDFPS/OROTH

6、/ISDFPS/ORSUP/ISDFPS/ORTOB/ISDFPS/PPEEPAN“SD 卜 PS/PPEMCNForce Element - Provisions Package RelationshipTask OrganizationMaintenance RelationshipsAdditional RelationshipsSupply RelationshipsTechnical ObjectsEquipment PackageMaterial Container/ISDFPS/PPEMCRMaterial Container - Material Planning Object

7、 Relationships對象 1/ 96I©二寸象:創(chuàng)登名字空間果要求）更改無名稱空間前綴的憑證對象繼續(xù)取消ORMCZPMDfiTAOREPA Force ElerrForce ElerrORMCH HR - MaterORMPH HR - Mater根據(jù)需要保存到本地或者使用一個傳輸請求號更改文檔對象，總叱& <1國 © © ® 國用圈給的他©國I團 © 更改文檔對象，總覽一更改 創(chuàng)建 生成更新程序 生成信息對象文本/IBS/RB CD KTO RBD:主數(shù)據(jù)帳戶|叵更改文檔對象：創(chuàng)建區(qū)/對象ZPMDATA文本 所

8、 為表dj- TJ第鼠復(fù)內(nèi)單獨的文檔名稱I日名稱刪除的字段參考表字段字符串 插入條目刪除行取消/ISDFPS/PPEMCRMaterial Container - Material Planning Object Relationships輸入相關(guān)數(shù)據(jù)&網(wǎng) B冷 曰船角電的就團 固/酌困更改文檔對象：息覽更改網(wǎng)建生成更新程序生成信息對象文本/IBS/RB CDKTD RBD:主數(shù)據(jù)帳戶/ISDFPS/PPlEMCR Material ContariBr - Material Planning Object Relatiqnships回車進入全屏編輯43 qQ4生_曰后處 囪因 劭史就文

9、檔對象：更改 新條目擊畫國麻片廣對PWAIA文本官合蟾習(xí)時對6城乘效虜遵斤防克女粕青潼名林參考表口名款字挑字特界«名林最第為單獨的文檔«內(nèi)都表*部的字帙PH_1 TtH|03PH_TAILE回回擰 1 ft審f*O)apd f/ovb1號。佳于CUSTOMER二拿名空間.無法在您的命名空間中更改憑證對象ZPMDATA j 是否仍想生成對象？是否X 取消J選擇是繼續(xù)功能組根據(jù)開發(fā)的命名或者需要填入合適的，以便生成文檔對象更新函數(shù)其他的例如處理類型，是否生成面向?qū)ο蟮臄?shù)據(jù)（ ABAP OO DATA自己根據(jù)實際需要選擇，這里就簡單得填入功能組點生成如果函數(shù)組不存在回提示生成函數(shù)

10、組點是繼續(xù)，生成下列信息&k日 ©。磁 口聞吃爸七口料圖F1艙里生成更新程序.注意，這個時候仍未真正生成，需要保存才能開始真正生成，我們這里從開發(fā)角度只關(guān)心會生成的函數(shù)模塊，這個函數(shù)名將是我們代碼中會用到的保存>6 Dia圜 口召右幻圖回。晅生成更新程序.£)t 二 t j ±二 ±二 4= ±= ±= Tr- 便腐健對洋理理11便 仔包包包卸創(chuàng)包包包 已已己己己己己己己t J ti I ± 二R-= 腐博13鷹揖 創(chuàng)包曾包包 已已己己己更新程序注成的日志用于創(chuàng)建更改文檔的功能模塊對辣ZPHDfiTfii痂入?yún)?/p>

11、數(shù)includir 名稱PHDATW功能組a$TNPDDIC時象的前馨y應(yīng)用區(qū)域CD錯誤號600包括文本更改X處理關(guān)型2口"A生感激活生成的源戴據(jù)聲明，rnpFZPNDRTACOT由依成FZPMDITACDF和FZPMDATACQU更新函數(shù)模塊2PHDm URITE DDCUMEHT調(diào)用更新功能模塊FZPMDfiTfliCDC已生成的DMC對象V2PM_ITEH己創(chuàng)建井被激活的y2PH_TftBLE己創(chuàng)建并被檄活的無變化的MIC對建W 生就全部對靠 ZFRDA1 片 . .>o ST (3)200 0 Brp WR注意界面信息沒什么變化，只是提示信息有所改變YZPM_ITEMi

12、口 YZPM_TABLE個結(jié)構(gòu)按需要產(chǎn)生，前綴由之前輸入的信息決定函數(shù)ZPMDATA_WRITE_DOCUMENT以被我們使用了返回上一屏幕，這里可以點生成信息，也可以看到部分生成的信息檔對象t生成信息e©© aooae 國團（修改文檔對象，生成信息修改文檔:顯示關(guān)于生成的資源的信息更改文檔對象ZPMDfiTA生成在2007-07-23的：貼：11oF I1IA0VH包括程序和函數(shù)模塊數(shù)據(jù)聲明,TOP F2PMDflTACDT組應(yīng) F2PMDATftCDF木口 FZPMDATACDU更新函數(shù)3基塊 ZPMDATA WRITEDOCUMENT調(diào)用更新功能模塊 F?PMDATf

13、iCDC"詞典結(jié)構(gòu)Y2PM_ITENV2PM_TABLE退出后就可以開始測試函數(shù)其他系統(tǒng)函數(shù)如下：（如果不使用生成的函數(shù)，可以考慮用下面這些程序自己寫一個類似的功能）CHANGEDOCUMENT_CLOSE CHANGEDOCUMENT_DELETE CHANGEDOCUMENT_DELETE_V2 CHANGEDOCUMENT_DISPLAY CHANGEDOCUMENT DISPLAY ALL完成具有對象特征的文檔創(chuàng)建的更改刪除修改的文檔（不依賴客戶，不注冊）Display change documentsBOCHANGEDOCUMENT_DISPLAY_LOANCHANGEDO

14、CUMENT_INSERT_NUMBERCHANGEDOCUMENT_OPEN啟動為對象特性創(chuàng)建更改文件CHANGEDOCUMENT_READ讀取并編輯更改的文檔CHANGEDOCUMENT_READ_HDRS_ONLYCHANGEDOCUMENT_READ_HEADERS Change document: Read change document headerCHANGEDOCUMENT_READ_HEADERS_NCHANGEDOCUMENT_READ_WITHOUT_EDCHANGEDOCUMENT_UNICODE_CHECKCHANGEDOCU_ARCHIVE_OBJECT 改變文檔/

15、存檔：向存檔傳送對象代碼如下：REPORT ZTEST9999.TABLES:ZPM_TABLE, " 頭數(shù)據(jù)表ZPM_ITEM. " 行項目表DATA:XZPM_ITEM LIKE YZPM_ITEM OCCURS 0 WITH HEADER LINE.DATA:YZPM_ITEM LIKE YZPM_ITEM OCCURS 0 WITH HEADER LINE.DATA:XZPM_TABLE LIKE YZPM_TABLE OCCURS 0 WITH HEADER LINE.DATA:YZPM_TABLE LIKE YZPM_TABLE OCCURS 0 WITH HE

16、ADER LINE. DATA:OBJ LIKE CDHDR-OBJECTID.DATA:CDTXT LIKE CDTXT OCCURS 0 WITH HEADER LINE.SORT內(nèi)表（頭數(shù)據(jù)表）BY ZPMNO.LOOP AT內(nèi)表（頭數(shù)據(jù)表）.AT NEW ZPMNO.REFRESH:YZPM_ITEM,XZPM_ITEM.REFRESH:YZPM_TABLE,XZPM_TABLE.ENDAT.*存放當(dāng)前內(nèi)表中的數(shù)據(jù)值MOVE-CORRESPONDING （頭數(shù)據(jù)表）TO XZPM_TABLE.APPEND XZPM_TABLE.LOOP AT 內(nèi)表 （行項目表） WEHRE ZPMNO

17、 =內(nèi)表 （頭數(shù)據(jù)表）-ZPMNO.MOVE-CORRESPONDING 表（行項目表）TO XZPM_ITEM.APPEND XZPM_ITEM.ENDLOOP.* 存放數(shù)據(jù)庫表中與上面內(nèi)表存放數(shù)據(jù)關(guān)鍵字一致的數(shù)據(jù)值SELECT * INTO CORRESPONDINGFIELDS OF YZPM_TABLE FROM ZPM_TABLE WHERE ZPMNO = 內(nèi)表 （頭數(shù)據(jù)表）-ZPMNO.SELECT * INTO CORRESPONDINGFIELDS OF YZPM_ITEM FROM ZPM_ITEMWHERE ZPMNO = 內(nèi)表 （頭數(shù)據(jù)表 ）-ZPMNO.AT END

18、OF ZPMNO.CALL FUNCTION 'ZPMDATAWRITEDOCUMENT'EXPORTING OBJECTID TCODE UTIME UDATE USERNAME= OBJ "= SY-TCODE= SY-UZEIT= SY-DATUM= SY-UNAME如果參照ZPM TABLE-ZPMNO就把這個字段值賦到這里*OBJECT_CHANGE_INDICATOR= 'U' "U更新 I插入E刪除 （ 單字段文檔 ）D刪除 J插入 （ 單字段文檔 ）*PLANNED_OR_REAL_CHANGES= ' ' &

19、quot;U更新 I插入E刪除 （ 單字段文檔 ）D刪除 J插入 （ 單字段文檔 ）*NO_CHANGE_POINTERS= '' "U更新 I插入E刪除 （ 單字段文檔 ）D刪除 J插入 （ 單字段文檔 ）*UPD_ICDTXT_ZPMDATA= ' '"U更新 I插入E刪除 （ 單字段文檔 ）D刪除 J插入 （ 單字段文檔 ）UPD_ZPM_ITEM= 'U' "U更新 I插入E刪除 （ 單字段文檔 ）D刪除 J插入 （ 單字段文檔 ）UPD_ZPM_TABLE= 'U' "U更新 I插

20、入E刪除 （ 單字段文檔 ）D刪除 J插入 （ 單字段文檔 ）PLANNEDCHANGENUMBER*= CDTXT通過比對X和Y這2個不同字母開始內(nèi)表的數(shù)據(jù)值來做更新TABLESICDTXT_ZPMDATAXZPM_ITEMYZPM_ITEM XZPM_TABLE YZPMTABLE= XZPM_ITEM "= YZPM_ITEM "= XZPM_TABLE "= YZPMTABLE "存放當(dāng)前內(nèi)表中的數(shù)據(jù)值 存放數(shù)據(jù)庫表中與上面內(nèi)表存放數(shù)據(jù)關(guān)鍵字一致的數(shù)據(jù)值 存放當(dāng)前內(nèi)表中的數(shù)據(jù)值 存放數(shù)據(jù)庫表中與上面內(nèi)表存放數(shù)據(jù)關(guān)鍵字一致的數(shù)據(jù)值ENDAT.END

21、LOOP.下面的代碼是顯示修改歷史的代碼：REPORT ZTEST9999.* 這里只考慮Head line 表的文檔變更歷史TABLES:ZPM_TABLE, " 頭數(shù)據(jù)表ZPM_ITEM. " 行項目表DATA:EDITPOS LIKE CDRED OCCURS 0 WITH HEADER LINE.DATA:OBJ LIKE CDHDR-OBJECTID.DATA:WK_REPID TYPE REPID.PARAMETERS:P_ZPMNO LIKE ZPM_TABLE-ZPMNO OBLIGATORY.PARAMETERS:P_OBJCL LIKE CDHDR-OB

22、JECTCLAS OBLIGATORY DEFAULT 'ZPM DATA'，建的對象號 PARAMETERS:P_TABKEY LIKE CDPOS-TABKEY.SELECT SINGLE * FROM ZPM_TABLE WHERE ZPMNO = P_ZPMNO.CHECK SY-SUBRC = 0.OBJ = P_ZPMNO.CONCATENATE SY-MANDT ZPM_TABLE-ZPMNO INTO P_TABKEY.CALL FUNCTION 'CHANGEDOCUMENT_READ'EXPORTING* ARCHIVE_HANDLE= 0* CHANGENUMBER= ' '* DATE_OF_CHANGE= '00000000'OBJECTCLASS= P_OBJCLOBJECTID= OBJTABLEKEY= P_TABKEY* TABLENAME=