sap 表修改记录查询

目录SAP表修改记录查询 (1)更改记录表CDHDR和CDPOS (2)SAP保存操作记录CDHDR和CDPOS表 (2)通过CDHDR CDPOS获取增量数据 (7)其他方式 (11)SAP表修改记录查询SAP中修改频率较低的定制表（T001等）一般都会有修改记录存在，查看一个表有没有修改记录可以在SE11中查看他的技术设置，如果其中的LOG DATA CHANGES选中则表示此表有历史修改记录存在。

要查看他的修改记录可以使用Tcode：SCU3 。

菜单路径：工具－定制－IMG－IMG Logging参考说明：/saphelp_nw04 ... cfab6d/frameset.htm系统读取历史修改记录的Function ：DBLOG_READ_WITH_STATISTIC转载：/blog/1317901SE16N 通过&sap_edit 可以修改表，修改表后如何查看呢。

分两步进行。

1. 事务码SE16N, 然后输入表SE16N_CD_Key，输入相应的查询条件。

例如table 名,查出相应的ID2. 事务码SE16N，然后输入表SE16N_CD_DATA, 输入相应的ID，就可以查询到修改的内容。

其他方式：表DBTABLOGCDHDR更改日志表头CDPOS更改日志行项目查询用户的最近一次登陆日期和时间，USR02中有个上次登陆日期和登陆时间；或者用SE38跑下RSUSR200，输入用户名即可查询上次登陆日期还有个方法是ST03N,专家模式，选择时间段，选择user和user profile，可惜，小弟权限不够没法测试更改记录表CDHDR和CDPOSSE16N查询CDPOS表，在字段OBJECTCLAS（更改文档对象，VERKBELEG表示销售凭证，不同的凭证类别代码不同的文档对象，如需查看文档对象，可使用事务代码SCDO，相关表为TCDOB/TCDOBT）中输入：VERKBELEG，TABNAME（表名）输入：VBAK/VBAP（VBAK 查询整张订单、VBAP查询订单行项目），CHNGIND（修改标识符）输入：D（U表示更新，I 表示插入，E表示删除单个字段，D表示删除整行或整个单据），执行后，字段OBJECTID（对象价值）表示订单号码，字段TABKEY（表键）中的最后两位表示订单行号，同理，我们可查看其他删除或修改的各种单据和凭证。

SAP保存操作记录CDHDR和CDPOS表转载自/derrial/item/4eb7c5da614ed83c49e1dd0b（在此基础上做了修改）sap的字段和对象的修改都会保存旧值，数据保存在CDHDR和CDPOS表中，提取旧值可以采用两种方法1)使用sap的标准函数CHANGEDOCUMENT_READ_HEADERS和CHANGEDOCUMENT_READ_POSITIONSCALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS' "Change document: Read change document itemsEXPORTING*archive_handle = 0" sy-tabix Handle on Open Archive Fileschangenumber =" cdpos-changenr Change document number*tablekey = SPACE" cdpos-tabkey Object class table key*tablename = SPACE" cdpos-tabname Object class table name*tablekey254 = SPACE" cdpos_uid-tabkey Table Key for CDPOS in Character 254*keyguid = SPACE" cdpos_uid-keyguid UUID in Character Format*keyguid_str = SPACE" cdpos_str-keyguid UUID in Character FormatIMPORTINGheader =" cdhdr Change document header (structure CDHDR)et_cdred_str =" cdred_str_tab Additional Change Document - Table for STRINGs * TABLES*editpos =" cdshw Table with edited change document itemsEDITPOS_WITH_HEADER="CDRED更改文档,显示结构EXCEPTIONSNO_POSITION_FOUND = 1"No item founWRONG_ACCESS_TO_ARCHIVE = 2"incorrect access to archive2)使用select语句直接从表中读取。

直接使用SELECT语句读取数据的示例：*提取信用额度字段修改的抬头信息select cdhdr~changenr cdhdr~udatecdhdr~utime into corresponding fields of table p_cdhdr from cdhdr where cdhdr~objectclas = 'KLIM' and cdhdr~objectid = wa_customerinfo-kunnr. if sy-subrc = 0. *提取信用额度字段修改的字段值select cdpos~changenr cdpos~value_oldcdpos~value_new into corresponding fields of table p_cdpos fromcdpos for all entries in p_cdhdr where cdpos~objectclas = 'KLIM'and cdpos~objectid = wa_customerinfo-kunnr and cdpos~changenr =p_cdhdr-changenr and cdpos~tabname = 'KNKK' and cdpos~fname ='KLIMK'. if sy-subrc = 0. endif. endif.可以在CHANGEDOCUMENT_READ_HEADERS中设置中断获得对象类型。

ex.提取有变动的Acc. changesSELECT SINGLE tabkey value_new INTO (cdpos-tabkey,ikoinh)FROM cdposWHERE objectclas = 'KRED'AND objectid = itab-lifnrAND changenr = itab-changenrAND tabname = 'LFBK'AND fname = 'KOINH'.提取有变动的vendor最新日期SELECT MAX( udate ) INTO itab-cndate FROM cdhdrWHERE objectclas = 'KRED' AND objectid = itab-lifnr.--------------------------------------------------------------------------------抓取所有有变动的程序report ztest001.TYPE-POOLS slis.DATA : cdhdr TYPE cdhdr.SELECT-OPTIONS :s_objcls FOR cdhdr-objectclas OBLIGATORY,s_objtid FOR cdhdr-objectid,s_chngnr FOR cdhdr-changenr,s_usrnam FOR cdhdr-username DEFAULT sy-uname,s_udate FOR cdhdr-udate DEFAULT sy-datum,s_time FOR cdhdr-utime,s_tcode FOR cdhdr-tcode,s_plncnr FOR cdhdr-planchngnr,s_chngno FOR cdhdr-act_chngno,s_wsplnd FOR cdhdr-was_plannd,s_chngid FOR cdhdr-change_ind.SELECTION-SCREEN SKIP.PARAMETERS p_max TYPE numc3 OBLIGATORY DEFAULT '200'.*---------------------------------------------------------------------*TYPES :BEGIN OF ty_s_cdhdr.INCLUDE STRUCTURE cdhdr.TYPES : checkbox,END OF ty_s_cdhdr,BEGIN OF ty_s_cdpos.INCLUDE STRUCTURE cdpos.TYPES : checkbox,END OF ty_s_cdpos.*---------------------------------------------------------------------*DATA :* Layout for ALVgs_layout TYPE slis_layout_alv,* Change document headert_cdhdr TYPE TABLE OF ty_s_cdhdr.*---------------------------------------------------------------------*START-OF-SELECTION.* Read Change document headerSELECT * INTO TABLE t_cdhdrUP TO p_max ROWSFROM cdhdrWHERE objectclas IN s_objclsand objectid in s_objtidand changenr in s_chngnrAND username IN s_usrnamAND udate IN s_udateAND utime IN s_timeAND tcode IN s_tcodeAND planchngnr IN s_plncnrAND act_chngno IN s_chngnoAND was_plannd IN s_wsplndAND change_ind IN s_chngid.gs_layout-zebra = 'X'.gs_layout-colwidth_optimize = 'X'.gs_layout-box_fieldname = 'CHECKBOX'.* Display ALVCALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_callback_program= sy-cprogi_callback_user_command = 'USER_COMMAND'i_structure_name= 'CDHDR'is_layout= gs_layoutTABLESt_outtab= t_cdhdr.*---------------------------------------------------------------------**FORM USER_COMMAND* *---------------------------------------------------------------------*FORM user_command USING u_ucomm TYPE syucommus_selfield TYPE slis_selfield."#EC CALLED* Macro definitionDEFINE m_sort.add 1 to ls_sort-spos.ls_sort-fieldname = &1.ls_sort-up = 'X'.append ls_sort to lt_sort.END-OF-DEFINITION.DATA :ls_cdhdr TYPE ty_s_cdhdr,ls_sort TYPE slis_sortinfo_alv,lt_sort TYPE slis_t_sortinfo_alv,*Change document itemslt_cdpos TYPE TABLE OF ty_s_cdpos.CASE u_ucomm.WHEN '&IC1'.PERFORM check_marked USING us_selfield.*Read Change document itemsLOOP AT t_cdhdr INTO ls_cdhdr WHERE checkbox = 'X'.SELECT * APPENDING TABLE lt_cdposFROM cdposWHERE objectclas = ls_cdhdr-objectclasAND objectid= ls_cdhdr-objectidAND changenr= ls_cdhdr-changenr.ENDLOOP.m_sort 'CHANGENR'.*Display ALVCALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_structure_name = 'CDPOS'is_layout= gs_layoutit_sort= lt_sortTABLESt_outtab= lt_cdpos.ENDCASE.ENDFORM." USER_COMMAND*--------------------------------------------------------------------FORM check_marked USING us_selfield TYPE slis_selfield.FIELD-SYMBOLS :<cdhdr> TYPE ty_s_cdhdr.READ TABLE t_cdhdr TRANSPORTING NO FIELDS WITH KEY checkbox = 'X'.IF NOT sy-subrc IS INITIAL ANDNOT us_selfield-tabindex IS INITIAL.READ TABLE t_cdhdr INDEX us_selfield-tabindex ASSIGNING <cdhdr>.<cdhdr>-checkbox = 'X'.ENDIF.ENDFORM.通过CDHDR CDPOS获取增量数据REPORT zscm_vendor2 LINE-SIZE 1023.DATA: BEGIN OF itab OCCURS 0,spras LIKE lfa1-spras,lifnr LIKE lfa1-lifnr,name1 LIKE adrc-name1,name3 LIKE adrc-name3,regio LIKE lfa1-regio,stras LIKE lfa1-stras,str_suppl1 LIKE adrc-str_suppl1,pstlz LIKE lfa1-pstlz,telf1 LIKE lfa1-telf1,telfx LIKE lfa1-telfx,name2 LIKE knvk-name1,smtp_addr LIKE adr6-smtp_addr,buy_id(12) TYPE c,stceg LIKE lfa1-stceg,banka LIKE bnka-banka,bankn LIKE lfbk-bankn,vendor_type(3) TYPE c,*balance_type(4) TYPE c,END OF itab.DATA: BEGIN OF itab_temp OCCURS 0 , adrnr LIKE lfa1-adrnr.INCLUDE STRUCTURE itab. DATA: END OF itab_temp.DATA: BEGIN OF itab_adrc OCCURS 0, addrnumber LIKE adrc-addrnumber,name1 LIKE adrc-name1,name3 LIKE adrc-name3,str_suppl1 LIKE adrc-str_suppl1,smtp_addr LIKE adr6-smtp_addr,END OF itab_adrc.DATA: BEGIN OF itab_knvk OCCURS 0, lifnr LIKE lfa1-lifnr,name2 LIKE knvk-name1,END OF itab_knvk.DATA: BEGIN OF itab_bnka OCCURS 0,lifnr LIKE lfbk-lifnr,banka LIKE bnka-banka,bankn LIKE lfbk-bankn,END OF itab_bnka.DATA: BEGIN OF itab_lfb1 OCCURS 0,lifnr LIKE lfb1-lifnr,bukrs LIKE lfb1-bukrs,zterm LIKE lfb1-zterm,END OF itab_lfb1.DATA: changenr LIKE zcdhdr_max-changenr. PARAMETER: date TYPE syst-datum.DATA: BEGIN OF itab_object OCCURS 0,objectid LIKE lfa1-lifnr ,END OF itab_object.PERFORM getvendordata.*&---------------------------------------------------------------------**&Form getvendordata*&---------------------------------------------------------------------*FORM getvendordata.** get max changenr*SELECT MAX( zcdhdr_max~changenr )*INTO changenr*FROM zcdhdr_max*WHERE zcdhdr_max~erdat < date .* get objectid from cdhdr by using kred, max changenr, and dateSELECT cdhdr~objectidINTO CORRESPONDING FIELDS OF TABLE itab_object FROM cdhdrWHERE cdhdr~objectclas = 'KRED' AND*cdhdr~changenr > changenr ANDcdhdr~udate = date .LOOP AT itab_object.IF itab_object-objectid+0(1) = 'B'.“B为公司职员DELETE itab_object.ENDIF.ENDLOOP.* DELETE ADJACENT dataSORT itab_object.DELETE ADJACENT DUPLICATES FROM itab_object. CHECK NOT itab_object[] IS INITIAL.SELECT lfa1~spraslfa1~lifnrlfa1~stceglfa1~regiolfa1~straslfa1~pstlzlfa1~telf1lfa1~telfxlfa1~adrnrlfa1~ernam AS buy_idlfa1~ktokk AS vendor_typeINTO CORRESPONDING FIELDS OF TABLE itab_temp FROM lfa1FOR ALL ENTRIES IN itab_objectWHERE lfa1~lifnr = itab_object-objectid.SELECTknvk~lifnrknvk~name1 AS name2INTO CORRESPONDING FIELDS OF TABLE itab_knvk FROM knvkFOR ALL ENTRIES IN itab_objectWHERE knvk~lifnr = itab_object-objectid.SELECT lfbk~lifnrbnka~bankalfbk~banknINTO CORRESPONDING FIELDS OF TABLE itab_bnka FROM lfbk INNER JOIN bnkaON lfbk~banks = bnka~banks ANDlfbk~bankl = bnka~banklFOR ALL entries IN itab_objectWHERE lfbk~lifnr = itab_object-objectid.CHECK NOT itab_temp[] IS INITIAL.SELECT adrc~addrnumberadrc~str_suppl1adrc~name1adrc~name3adr6~smtp_addrINTO CORRESPONDING FIELDS OF TABLE itab_adrcFROM adrc LEFT JOIN adr6 ON adrc~addrnumber = adr6~addrnumber FOR ALL entries IN itab_tempWHERE adrc~addrnumber = itab_temp-adrnr .LOOP AT itab_temp.READ TABLE itab_knvk WITH KEY lifnr = itab_temp-lifnr.IF sy-subrc = 0.itab_temp-name2 = itab_knvk-name2.ENDIF.READ TABLE itab_bnka WITH KEY lifnr = itab_temp-lifnr.IF sy-subrc = 0.itab_temp-banka = itab_bnka-banka.itab_temp-bankn = itab_bnka-bankn.ENDIF.READ TABLE itab_adrc WITH KEY addrnumber = itab_temp-adrnr.IF sy-subrc = 0.itab_temp-name1 = itab_adrc-name1.itab_temp-name3 = itab_adrc-name3.itab_temp-str_suppl1 = itab_adrc-str_suppl1.itab_temp-smtp_addr = itab_adrc-smtp_addr.ENDIF.MODIFY itab_temp.MOVE-CORRESPONDING itab_temp TO itab.APPEND itab TO itab[] .CLEAR itab_temp.ENDLOOP.LOOP AT itab.WRITE:/ itab.ENDLOOP.*CALL FUNCTION 'WS_DOWNLOAD' *EXPORTING*filename = 'c:\vendor.txt'*filetype = 'DAT'*TABLES*data_tab = itab[]. ENDFORM.其他方式Tcode：STAD，SCU3，T03N。