ABAP 更改凭证表

CDPOS：更改凭证项目
CDHDR：更改凭证抬头
SELECT
OBJECTCLAS "对象类
OBJECTID "对象值
CHANGENR "文档更改编号
USERNAME "修改文档中的个人负责的用户名
UDATE "创建修改文档的数据
UTIME "时间已更改
TCODE "从中已做修改的事务
PLANCHNGNR "计划更改号码
ACT_CHNGNO "修改本次修改所创建文档的数量
WAS_PLANND "标志由计划的修改生成的修改
CHANGE_IND "应用对象变更类型 (U, I, E, D)

FROM CDHDR

INTO CORRESPONDING FIELDS OF TABLE TAB3
WHERE
OBJECTCLAS = ‘BANF’
AND OBJECTID = TAB1-BANFN .

  SELECT
  OBJECTCLAS "对象类
  OBJECTID   "对象值
    CHANGENR   "文档更改编号
  TABNAME   "表名
  TABKEY     "已更改的表记录码
  FNAME      "字段名修
  CHNGIND   "修改类型 (U, I, E, D)
  TEXT_CASE  "标识：X=文本更改
   CUKY_OLD "更改文档，旧参照货币
  CUKY_NEW "更改文档，新参照货币
  VALUE_NEW "更改字段的新内容
  VALUE_OLD "更改字段旧的内容

FROM CDPOS
INTO CORRESPONDING FIELDS OF TABLE TAB4 FOR ALL ENTRIES IN TAB3
WHERE OBJECTCLAS = ‘BANF’
AND OBJECTID = TAB3-OBJECTID.

LOOP AT TAB4.

READ TABLE TAB3 WITH KEY CHANGENR = TAB4-CHANGENR OBJECTCLAS = TAB4-OBJECTCLAS OBJECTID = TAB4-OBJECTID.

IF SY-SUBRC = 0.
  TAB4-USERNAME   =  TAB3-USERNAME .  "修改文档中的个人负责的用户名
  TAB4-UDATE      =  TAB3-UDATE.      "创建修改文档的数据
  TAB4-UTIME      =  TAB3-UTIME .     "时间已更改
  TAB4-TCODE      =  TAB3-TCODE  .    "从中已做修改的事务
  TAB4-PLANCHNGNR =  TAB3-PLANCHNGNR. "计划更改号码
  TAB4-ACT_CHNGNO =  TAB3-ACT_CHNGNO ."修改本次修改所创建文档的数量
  TAB4-WAS_PLANND =  TAB3-WAS_PLANND ."标志由计划的修改生成的修改
  TAB4-CHANGE_IND =  TAB3-CHANGE_IND ."应用对象变更类型 (U, I, E, D)
ENDIF.