自建表数据修改记.docVIP

一、研究背景: 现在自建表建的对外维护程序渐增,有些关键字段的修改历史需要记录.比如:ZFI16的退税率维护更改历史. 就可以通过以下配置和程序来实现对此ZFI16表(维护TCODE:ZS69)的修改历史. 二、实施 1.配置: ①对自建表中所有要记录其修改记录的字段的数据元素中的Further characteristics视图中的更改文档改打. ② TCODE: SCDO 保存后上面的所有参数函数等都会自动生成。 2.程序： FORM CHANGE_DOCUMENT_CREATE. DATA: UPD_ICDTXT_ZFI16 TYPE C. DATA: BEGIN OF ICDTXT_ZFI16 OCCURS 1. INCLUDE STRUCTURE CDTXT. DATA: END OF ICDTXT_ZFI16 . DATA: DA_OBJECTID LIKE CDHDR-OBJECTID. YZFI16[] = IT_ZSD01_1[]. 修改前的字段旧值 XZFI16[] = IT_ZSD01[]. 修改前的字段新值 READ TABLE XZFI16 INDEX 1 . MOVE XZFI16-ZHGNO TO DA_OBJECTID. CALL FUNCTION ZFI16_WRITE_DOCUMENT EXPORTING OBJECTID = DA_OBJECTID TCODE = ZS69 UTIME = SY-UZEIT UDATE = SY-DATUM USERNAME = SY-UNAME * PLANNED_CHANGE_NUMBER = OBJECT_CHANGE_INDICATOR = U * PLANNED_OR_REAL_CHANGES = * NO_CHANGE_POINTERS = * UPD_ICDTXT_ZYW8 = UPD_ZFI16 = U TABLES ICDTXT_ZFI16 = ICDTXT_ZFI16 XZFI16 = XZFI16 YZFI16 = YZFI16 . ENDFORM. CHANGE_DOCUMENT_CREATE 在保存的时候调用以上FORM WHEN SAVE. PERFORM CHANGE_DOCUMENT_CREATE. 三、参考文档 BC414的P220－P227 创建更改凭证(change document) /u2/66669/showart_1793208.html 使用事务代码SCDO进入,点创建，输入更改凭证对象的名字，以Z或者Y打头，如ZBOOK。继续，创建一个change request，保存。然后输入更改凭证对象的描述，以及Tables的相关信息。 ? Tables这个框里有几列内容： name of table：表名（可以是表，也可以是结构） copy as internal table：如果属于一个业务对象的几个对象（如一个订单的抬头和几个行项目）都被改变，可以把这些改变都传输到一个内表，然后再传给更新函数来创建更改记录。如果打钩，改变的数据会被输出到一个内表（multiple case）；如果不打钩，改变的数据会传输到一个工作区（结构，single case）。 Doc. for individual fields at delete：如果你想把字段的删除分多个行项目来记录，就打钩；如果不打钩，说明多个字段的删除会放进一个行项目中记录。 Name of Ref. tab.：这个地方填一个结构，结构的字段是当前表名里面数量和货币字段参照用的UNIT和CURRENCY字段。 Name of old field string：只对single case的情况有效（举个例子，*sbook代表未更新前的工作区 OLD RECORD，sbook代表要更新的工作