ABAPSCDO文档变更历史.docx
《ABAPSCDO文档变更历史.docx》由会员分享,可在线阅读,更多相关《ABAPSCDO文档变更历史.docx(19页珍藏版)》请在冰点文库上搜索。
ABAPSCDO文档变更历史
点击创建
根据需要保存到本地或者使用一个传输请求号
输入相关数据
回车进入全屏编辑
选择是继续
功能组根据开发的命名或者需要填入合适的,以便生成文档对象更新函数
其他的例如处理类型,是否生成面向对象的数据(ABAPOODATA)自己根据实际需要选择,这里就简单得填入功能组
点生成
如果函数组不存在回提示生成函数组
点是继续,生成下列信息
注意,这个时候仍未真正生成,需要保存才能开始真正生成,我们这里从开发角度只关心会生成的函数模块,这个函数名将是我们代码中会用到的。
保存
注意界面信息没什么变化,只是提示信息有所改变
YZPM_ITEM和YZPM_TABLE两个结构按需要产生,前缀由之前输入的信息决定
函数ZPMDATA_WRITE_DOCUMENT已经可以被我们使用了
返回上一屏幕,这里可以点生成信息,也可以看到部分生成的信息
退出后就可以开始测试函数
其他系统函数如下:
(如果不使用生成的函数,可以考虑用下面这些程序自己写一个类似的功能)
CHANGEDOCUMENT_CLOSE完成具有对象特征的文档创建的更改
CHANGEDOCUMENT_DELETE删除修改的文档(不依赖客户,不注册)
CHANGEDOCUMENT_DELETE_V2
CHANGEDOCUMENT_DISPLAYDisplaychangedocuments
CHANGEDOCUMENT_DISPLAY_ALL_BO
CHANGEDOCUMENT_DISPLAY_LOAN
CHANGEDOCUMENT_INSERT_NUMBER
CHANGEDOCUMENT_OPEN启动为对象特性创建更改文件
CHANGEDOCUMENT_READ读取并编辑更改的文档
CHANGEDOCUMENT_READ_HDRS_ONLY
CHANGEDOCUMENT_READ_HEADERSChangedocument:
Readchangedocumentheader
CHANGEDOCUMENT_READ_HEADERS_N
CHANGEDOCUMENT_READ_WITHOUT_ED
CHANGEDOCUMENT_UNICODE_CHECK
CHANGEDOCU_ARCHIVE_OBJECT改变文档/存档:
向存档传送对象
代码如下:
REPORTZTEST9999.
TABLES:
ZPM_TABLE,"头数据表
ZPM_ITEM."行项目表
DATA:
XZPM_ITEMLIKEYZPM_ITEMOCCURS0WITHHEADERLINE.
DATA:
YZPM_ITEMLIKEYZPM_ITEMOCCURS0WITHHEADERLINE.
DATA:
XZPM_TABLELIKEYZPM_TABLEOCCURS0WITHHEADERLINE.
DATA:
YZPM_TABLELIKEYZPM_TABLEOCCURS0WITHHEADERLINE.
DATA:
OBJLIKECDHDR-OBJECTID.
DATA:
CDTXTLIKECDTXTOCCURS0WITHHEADERLINE.
SORT内表(头数据表)BYZPMNO.
LOOPAT内表(头数据表).
ATNEWZPMNO.
REFRESH:
YZPM_ITEM,XZPM_ITEM.
REFRESH:
YZPM_TABLE,XZPM_TABLE.
ENDAT.
*存放当前内表中的数据值
MOVE-CORRESPONDING内表(头数据表)TOXZPM_TABLE.
APPENDXZPM_TABLE.
LOOPAT内表(行项目表)WEHREZPMNO=内表(头数据表)-ZPMNO.
MOVE-CORRESPONDING内表(行项目表)TOXZPM_ITEM.
APPENDXZPM_ITEM.
ENDLOOP.
*存放数据库表中与上面内表存放数据关键字一致的数据值
SELECT*INTOCORRESPONDINGFIELDSOFYZPM_TABLEFROMZPM_TABLE
WHEREZPMNO=内表(头数据表)-ZPMNO.
SELECT*INTOCORRESPONDINGFIELDSOFYZPM_ITEMFROMZPM_ITEM
WHEREZPMNO=内表(头数据表)-ZPMNO.
ATENDOFZPMNO.
CALLFUNCTION'ZPMDATA_WRITE_DOCUMENT'
EXPORTING
OBJECTID=OBJ"如果参照ZPM_TABLE-ZPMNO更新就把这个字段值赋到这里
TCODE=SY-TCODE
UTIME=SY-UZEIT
UDATE=SY-DATUM
USERNAME=SY-UNAME
*PLANNED_CHANGE_NUMBER=''
*OBJECT_CHANGE_INDICATOR='U'"U更新I插入E删除(单字段文档)D删除J插入(单字段文档)
*PLANNED_OR_REAL_CHANGES=''"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插入E删除(单字段文档)D删除J插入(单字段文档)
TABLES
ICDTXT_ZPMDATA=CDTXT
*通过比对X和Y这2个不同字母开始内表的数据值来做更新
XZPM_ITEM=XZPM_ITEM"存放当前内表中的数据值
YZPM_ITEM=YZPM_ITEM"存放数据库表中与上面内表存放数据关键字一致的数据值
XZPM_TABLE=XZPM_TABLE"存放当前内表中的数据值
YZPM_TABLE=YZPM_TABLE"存放数据库表中与上面内表存放数据关键字一致的数据值
.
ENDAT.
ENDLOOP.
下面的代码是显示修改历史的代码:
REPORTZTEST9999.
*这里只考虑Headline表的文档变更历史
TABLES:
ZPM_TABLE,"头数据表
ZPM_ITEM."行项目表
DATA:
EDITPOSLIKECDREDOCCURS0WITHHEADERLINE.
DATA:
OBJLIKECDHDR-OBJECTID.
DATA:
WK_REPIDTYPEREPID.
PARAMETERS:
P_ZPMNOLIKEZPM_TABLE-ZPMNOOBLIGATORY.
PARAMETERS:
P_OBJCLLIKECDHDR-OBJECTCLASOBLIGATORYDEFAULT'ZPMDATA'."输入创建的对象号
PARAMETERS:
P_TABKEYLIKECDPOS-TABKEY.
SELECTSINGLE*FROMZPM_TABLEWHEREZPMNO=P_ZPMNO.
CHECKSY-SUBRC=0.
OBJ=P_ZPMNO.
CONCATENATESY-MANDTZPM_TABLE-ZPMNOINTOP_TABKEY.
CALLFUNCTION'CHANGEDOCUMENT_READ'
EXPORTING
*ARCHIVE_HANDLE=0
*CHANGENUMBER=''
*DATE_OF_CHANGE='00000000'
OBJECTCLASS=P_OBJCL
OBJECTID=OBJ
TABLEKEY=P_TABKEY
*TABLENAME=''
*TIME_OF_CHANGE='000000'
*USERNAME=''
*LOCAL_TIME=''
*TABLEKEY254=''
*KEYGUID=''
*DATE_UNTIL='99991231'
*TIME_UNTIL='235959'
*KEYGUID_STR=''
*READ_CHANGEDOCU=''
*IMPORTING
*ET_CDRED_STR=
TABLES
EDITPOS=EDITPOS
EXCEPTIONS
NO_POSITION_FOUND=1
WRONG_ACCESS_TO_ARCHIVE=2
TIME_ZONE_CONVERSION_ERROR=3
OTHERS=4.
IFSY-SUBRC<>0.
EXIT.
ENDIF.
WK_REPID=P_OBJCL.
CALLFUNCTION'CHANGEDOCUMENT_DISPLAY'
EXPORTING
I_APPLICATIONID=WK_REPID
*IS_LAYOUT=
*IS_VARIANT=
*FLG_AUTOCONDENSE=''
*I_CB_PROGRAM=
I_OBJECTCLAS=P_OBJCL
*IS_SEL_HIDE=
*I_SCREEN_START_LINE=0
*I_SCREEN_START_COLUMN=0
*I_SCREEN_END_LINE=0
*I_SCREEN_END_COLUMN=0
*I_CALLBACK_PF_STATUS_SET=''
*IT_EVENTS=
*IT_CDRED_STR=
TABLES
I_CDRED=EDITPOS.