ABAP_SCDO文档变更历史

1、®一1 l e©©|effi：ja|cnee|ElE|0更改文档对象：总览空改 创建 生成更新程序 生成信息对象文本/1BS/RBCDKT0RBD;主数据帐户/IBS/RBCDKTODRBD： RBD帐户的帐户关键日期/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点击创建更改文档对象，总览【(a ®圆隈 SOA3S mm©a更改文档对象，总览更改 创建 生成更新程序 生成信息对象/IBS/RB CD KTO/IBS/RB CD KTOD文本RBD:主数据帐户RBD:RBD帐户的帐户关键日期/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继续取消/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©二寸象:创登名字空间果要求）更改无名称空间前缀的凭证对象继续取消ORMCZPMDfiTAOREPA Force ElerrForce ElerrORMCH HR - MaterORMPH HR - Mater根据需要保存到本地或者使用一个传输请求号更改文档对象，总叱& <1国 © © ® 国用圈给的他©国I团 © 更改文档对象，总览一更改 创建 生成更新程序 生成信息对象文本/IBS/RB CD KTO RBD:主数据帐户|叵更改文档对象：创建区/对象ZPMDATA文本 所

8、 为表dj- TJ第鼠复内单独的文档名称I日名称删除的字段参考表字段字符串 插入条目删除行取消/ISDFPS/PPEMCRMaterial Container - Material Planning Object Relationships输入相关数据&网 B冷 曰船角电的就团 固/酌困更改文档对象：息览更改网建生成更新程序生成信息对象文本/IBS/RB CDKTD RBD:主数据帐户/ISDFPS/PPlEMCR Material ContariBr - Material Planning Object Relatiqnships回车进入全屏编辑43 qQ4生_曰后处 囱因 劭史就文

9、档对象：更改 新条目击画国麻片广对PWAIA文本官合蟾习时对6城乘效虏遵斤防克女粕青潼名林参考表口名款字挑字特界«名林最第为单独的文档«内都表*部的字帙PH_1 TtH|03PH_TAILE回回拧 1 ft审f*O)apd f/ovb1号。佳于CUSTOMER二拿名空间.无法在您的命名空间中更改凭证对象ZPMDATA j 是否仍想生成对象？是否X 取消J选择是继续功能组根据开发的命名或者需要填入合适的，以便生成文档对象更新函数其他的例如处理类型，是否生成面向对象的数据（ ABAP OO DATA自己根据实际需要选择，这里就简单得填入功能组点生成如果函数组不存在回提示生成函数

10、组点是继续，生成下列信息&k日 ©。磁 口闻吃爸七口料图F1舱里生成更新程序.注意，这个时候仍未真正生成，需要保存才能开始真正生成，我们这里从开发角度只关心会生成的函数模块，这个函数名将是我们代码中会用到的保存>6 Dia圜 口召右幻图回。晅生成更新程序.£)t 二 t j ±二 ±二 4= ±= ±= Tr- 便腐健对洋理理11便 仔包包包卸创包包包 已已己己己己己己己t J ti I ± 二R-= 腐博13鹰揖 创包曾包包 已已己己己更新程序注成的日志用于创建更改文档的功能模块对辣ZPHDfiTfii痂入参

11、数includir 名称PHDATW功能组a$TNPDDIC时象的前馨y应用区域CD错误号600包括文本更改X处理关型2口"A生感激活生成的源戴据声明，rnpFZPNDRTACOT由依成FZPMDITACDF和FZPMDATACQU更新函数模块2PHDm URITE DDCUMEHT调用更新功能模块FZPMDfiTfliCDC已生成的DMC对象V2PM_ITEH己创建井被激活的y2PH_TftBLE己创建并被檄活的无变化的MIC对建W 生就全部对靠 ZFRDA1 片 . .>o ST (3)200 0 Brp WR注意界面信息没什么变化，只是提示信息有所改变YZPM_ITEMi

12、口 YZPM_TABLE个结构按需要产生，前缀由之前输入的信息决定函数ZPMDATA_WRITE_DOCUMENT以被我们使用了返回上一屏幕，这里可以点生成信息，也可以看到部分生成的信息档对象t生成信息e©© aooae 国团（修改文档对象，生成信息修改文档:显示关于生成的资源的信息更改文档对象ZPMDfiTA生成在2007-07-23的：贴：11oF I1IA0VH包括程序和函数模块数据声明,TOP F2PMDflTACDT组应 F2PMDATftCDF木口 FZPMDATACDU更新函数3基块 ZPMDATA WRITEDOCUMENT调用更新功能模块 F?PMDATf

13、iCDC"词典结构Y2PM_ITENV2PM_TABLE退出后就可以开始测试函数其他系统函数如下：（如果不使用生成的函数，可以考虑用下面这些程序自己写一个类似的功能）CHANGEDOCUMENT_CLOSE CHANGEDOCUMENT_DELETE CHANGEDOCUMENT_DELETE_V2 CHANGEDOCUMENT_DISPLAY CHANGEDOCUMENT DISPLAY ALL完成具有对象特征的文档创建的更改删除修改的文档（不依赖客户，不注册）Display change documentsBOCHANGEDOCUMENT_DISPLAY_LOANCHANGEDO

14、CUMENT_INSERT_NUMBERCHANGEDOCUMENT_OPEN启动为对象特性创建更改文件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, " 头数据表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内表（头数据表）BY ZPMNO.LOOP AT内表（头数据表）.AT NEW ZPMNO.REFRESH:YZPM_ITEM,XZPM_ITEM.REFRESH:YZPM_TABLE,XZPM_TABLE.ENDAT.*存放当前内表中的数据值MOVE-CORRESPONDING （头数据表）TO XZPM_TABLE.APPEND XZPM_TABLE.LOOP AT 内表 （行项目表） WEHRE ZPMNO

17、 =内表 （头数据表）-ZPMNO.MOVE-CORRESPONDING 表（行项目表）TO XZPM_ITEM.APPEND XZPM_ITEM.ENDLOOP.* 存放数据库表中与上面内表存放数据关键字一致的数据值SELECT * INTO CORRESPONDINGFIELDS OF YZPM_TABLE FROM ZPM_TABLE WHERE ZPMNO = 内表 （头数据表）-ZPMNO.SELECT * INTO CORRESPONDINGFIELDS OF YZPM_ITEM FROM ZPM_ITEMWHERE ZPMNO = 内表 （头数据表 ）-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个不同字母开始内表的数据值来做更新TABLESICDTXT_ZPMDATAXZPM_ITEMYZPM_ITEM XZPM_TABLE YZPMTABLE= XZPM_ITEM "= YZPM_ITEM "= XZPM_TABLE "= YZPMTABLE "存放当前内表中的数据值 存放数据库表中与上面内表存放数据关键字一致的数据值 存放当前内表中的数据值 存放数据库表中与上面内表存放数据关键字一致的数据值ENDAT.END

21、LOOP.下面的代码是显示修改历史的代码：REPORT ZTEST9999.* 这里只考虑Head line 表的文档变更历史TABLES:ZPM_TABLE, " 头数据表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=