sap表修改记录查询

目录TOC\o"1-5"\h\zSAP表修改记录查询 1\o"CurrentDocument"更改记录表CDHDR和CDPOS 2\o"CurrentDocument"SAP保存操作记录CDHDR和CDPOS表 2\o"CurrentDocument"通过CDHDRCDPOS获取增量数据 7\o"CurrentDocument"其他方式 11SAP表修改记录查询SAP中修改频率较低的定制表（T001等）一般都会有修改记录存在，查看一个表有没有修改记录可以在SE11中查看他的技术设置，如果其中的LOGDATACHANGES选中则表示此表有历史修改记录存在。要查看他的修改记录可以使用Tcode：SCU3。菜单路径：工具一定制一IMG—IMGLogging参考说明：/saphelp_nw04...cfab6d/frameset.htm系统读取历史修改记录的Function:DBLOG_READ_WITH_STATISTIC转载：/blog/1317901SE16N通过&sap_edit可以修改表，修改表后如何查看呢。分两步进行。事务码SE16N,然后输入表SE16N_CD_Key,输入相应的查询条件。例如table名，查出相应的ID事务码SE16N，然后输入表SE16N_CD_DATA,输入相应的ID,就可以查询到修改的内容。其他方式：表DBTABLOGCDHDR更改日志表头CDPOS更改日志行项目查询用户的最近一次登陆日期和时间，USR02中有个上次登陆日期和登陆时间；或者用SE38跑下RSUSR200，输入用户名即可查询上次登陆日期还有个方法是ST03N，专家模式，选择时间段，选择user和userprofile，可惜，小弟权限不够没法测试更改记录表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_POSITIONSCALLFUNCTION'CHANGEDOCUMENT_READ_POSITIONS'"Changedocument:ReadchangedocumentitemsEXPORTINGarchive_handle=0ArchiveFileschangenumber=documentnumbertablekey=SPACEkeytablename=SPACEnametablekey254=SPACEinCharacter254keyguid=SPACECharacterFormatkeyguid_str=SPACEFormatIMPORTINGheader="sy-tabixEXPORTINGarchive_handle=0ArchiveFileschangenumber=documentnumbertablekey=SPACEkeytablename=SPACEnametablekey254=SPACEinCharacter254keyguid=SPACECharacterFormatkeyguid_str=SPACEFormatIMPORTINGheader="sy-tabixHandleonOpen"cdpos-changenrChange"cdpos-tabkey"cdpos-tabname"cdpos_uid-tabkeyObjectclasstableObjectclasstableTableKeyforCDPOS"cdpos_uid-keyguidUUIDin"cdpos_str-keyguidUUIDinCharacter"cdhdrChangedocumentheader(structureCDHDR)cdred_str_tabAdditionalChangecdred_str_tabAdditionalChangeet_cdred_str=Document-TableforSTRINGsTABLESeditpos=editedchangedocumentitemsEDITPOS_WITH_HEADER=EXCEPTIONS"cdshw Tablewith"CDRED 更改文档，显示结构Noitemfounincorrectaccesstotablep_cdposinp_cdhdrandNoitemfounincorrectaccesstotablep_cdposinp_cdhdrandandandand0.NO_POSITION_FOUND=1WRONG_ACCESS_TO_ARCHIVE=2archive2）使用select语句直接从表中读取。直接使用SELECT语句读取数据的示例:*提取信用额度字段修改的抬头信息 selectcdhdr~changenrcdhdr~udatecdhdr~utime intocorrespondingfieldsoftablep_cdhdr fromcdhdr wherecdhdr~objectclas='KLIM'and cdhdr~objectid=wa_customerinfo-kunnr. ifsy-subrc=0.*提取信用额度字段修改的字段值 selectcdpos~changenrcdpos~value_oldcdpos~value_new intocorrespondingfieldsoffromcdpos forallentrieswherecdpos~objectclas='KLIM'cdpos~objectid=wa_customerinfo-kunnrcdpos~changenr=p_cdhdr-changenrcdpos~tabname='KNKK'cdpos~fname='KLIMK'. ifsy-subrc=endif.endif.可以在CHANGEDOCUMENT_READ_HEADERS中设置中断获得对象类型。ex.提取有变动的Acc.changesSELECTSINGLEtabkeyvalue_newINTO(cdpos-tabkey,ikoinh)FROMcdposWHEREobjectclas='KRED'ANDobjectid=itab-lifnrANDchangenr=itab-changenrANDtabname='LFBK'ANDfname='KOINH'.提取有变动的vendor最新日期SELECTMAX(udate)INTOitab-cndateFROMcdhdrWHEREobjectclas='KRED'ANDobjectid=itab-lifnr.抓取所有有变动的程序reportztest001.TYPE-POOLSslis.DATA:cdhdrTYPEcdhdr.SELECT-OPTIONS:s_objclsFORcdhdr-objectclasOBLIGATORY,s_objtidFORcdhdr-objectid,s_chngnrFORcdhdr-changenr,s_usrnamFORcdhdr-usernameDEFAULTsy-uname,s_udate FORcdhdr-udate DEFAULTsy-datum,s_timeFORcdhdr-utime,s_tcode FORcdhdr-tcode,s_plncnrFORcdhdr-planchngnr,s_chngnoFORcdhdr-act_chngno,s_wsplndFORcdhdr-was_plannd,s_chngidFORcdhdr-change_ind.SELECTION-SCREENSKIP.PARAMETERSp_maxTYPEnumc3OBLIGATORYDEFAULT'200'. *TYPES:BEGINOFty_s_cdhdr.INCLUDESTRUCTUREcdhdr.TYPES:checkbox,ENDOFty_s_cdhdr,BEGINOFty_s_cdpos.INCLUDESTRUCTUREcdpos.TYPES:checkbox,ENDOFty_s_cdpos. *DATA:LayoutforALVgs_layoutTYPEslis_layout_alv,Changedocumentheadert_cdhdrTYPETABLEOFty_s_cdhdr. *START-OF-SELECTION.ReadChangedocumentheaderSELECT*INTOTABLEt_cdhdrUPTOp_maxROWSFROMcdhdrWHEREobjectclasINs_objclsandobjectid ins_objtidandchangenr ins_chngnrANDusername INs_usrnamANDudate INs_udateANDutime INs_timeANDtcode INs_tcodeANDplanchngnrINs_plncnrANDact_chngnoINs_chngnoANDwas_planndINs_wsplndANDchange_indINs_chngid.gs_layout-zebra='X'.gs_layout-colwidth_optimize='X'.gs_layout-box_fieldname='CHECKBOX'.*DisplayALVCALLFUNCTION'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. *FORMUSER_COMMAND* *FORMuser_commandUSINGu_ucomm TYPEsyucommus_selfieldTYPEslis_selfield. "#ECCALLEDMacrodefinitionDEFINEm_sort.add1tols_sort-spos.ls_sort-fieldname=&1.ls_sort-up='X'.appendls_sorttolt_sort.END-OF-DEFINITION.DATA:ls_cdhdrTYPEty_s_cdhdr,ls_sort TYPEslis_sortinfo_alv,lt_sort TYPEslis_t_sortinfo_alv,Changedocumentitemslt_cdposTYPETABLEOFty_s_cdpos.CASEu_ucomm.WHEN'&IC1'.PERFORMcheck_markedUSINGus_selfield.* ReadChangedocumentitemsLOOPATt_cdhdrINTOls_cdhdrWHEREcheckbox='X'.SELECT*APPENDINGTABLElt_cdposFROMcdposWHEREobjectclas=ls_cdhdr-objectclasANDobjectid =ls_cdhdr-objectidANDchangenr =ls_cdhdr-changenr.ENDLOOP.m_sort'CHANGENR'.DisplayALVCALLFUNCTION'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_structure_name='CDPOS'is_layout =gs_layoutit_sort =lt_sortTABLESt_outtab =lt_cdpos.ENDCASE.ENDFORM. "USER_COMMAND FORMcheck_markedUSINGus_selfieldTYPEslis_selfield.FIELD-SYMBOLS:<cdhdr>TYPEty_s_cdhdr.READTABLEt_cdhdrTRANSPORTINGNOFIELDSWITHKEYcheckbox='X'.IFNOTsy-subrcISINITIALANDNOTus_selfield-tabindexISINITIAL.READTABLEt_cdhdrINDEXus_selfield-tabindexASSIGNING<cdhdr>.<cdhdr>-checkbox='X'.ENDIF.ENDFORM.通过CDHDRCDPOS获取增量数据REPORTzscm_vendor2LINE-SIZE1023.DATA:BEGINOFitabOCCURS0,sprasLIKElfa1-spras,lifnrLIKElfa1-lifnr,name1LIKEadrc-name1,name3LIKEadrc-name3,regioLIKElfa1-regio,strasLIKElfa1-stras,str_suppl1LIKEadrc-str_suppl1,pstlzLIKElfa1-pstlz,telf1LIKElfa1-telf1,telfxLIKElfa1-telfx,name2LIKEknvk-name1,smtp_addrLIKEadr6-smtp_addr,buy_id(12)TYPEc,stcegLIKElfa1-stceg,bankaLIKEbnka-banka,banknLIKElfbk-bankn,vendor_type(3)TYPEc,* balance_type(4)TYPEc,ENDOFitab.DATA:BEGINOFitab_tempOCCURS0,adrnrLIKElfa1-adrnr.INCLUDESTRUCTUREitab.DATA:ENDOFitab_temp.DATA:BEGINOFitab_adrcOCCURS0,addrnumberLIKEadrc-addrnumber,name1LIKEadrc-name1,name3LIKEadrc-name3,str_suppl1LIKEadrc-str_suppl1,smtp_addrLIKEadr6-smtp_addr,ENDOFitab_adrc.DATA:BEGINOFitab_knvkOCCURS0,lifnrLIKElfa1-lifnr,name2LIKEknvk-name1,ENDOFitab_knvk.DATA:BEGINOFitab_bnkaOCCURS0,lifnrLIKElfbk-lifnr,bankaLIKEbnka-banka,banknLIKElfbk-bankn,ENDOFitab_bnka.DATA:BEGINOFitab_lfb1OCCURS0,lifnrLIKElfb1-lifnr,bukrsLIKElfb1-bukrs,ztermLIKElfb1-zterm,ENDOFitab_lfb1.DATA:changenrLIKEzcdhdr_max-changenr.PARAMETER:dateTYPEsyst-datum.DATA:BEGINOFitab_objectOCCURS0,objectidLIKElfa1Tifnr,ENDOFitab_object.PERFORMgetvendordata.*& **& Formgetvendordata*& *FORMgetvendordata.**getmaxchangenrSELECTMAX(zcdhdr_max~changenr)INTOchangenrFROMzcdhdr_maxWHEREzcdhdr_max~erdat <date.getobjectidfromcdhdrbyusingkred,maxchangenr,anddateSELECTcdhdr~objectidINTOCORRESPONDINGFIELDSOFTABLEitab_objectFROMcdhdrWHEREcdhdr~objectclas='KRED'ANDcdhdr~changenr>changenrANDcdhdr~udate=date.LOOPATitab_object.IFitab_object-objectid+0(1)='B'.“B为公司职员DELETEitab_object.ENDIF.ENDLOOP.DELETEADJACENTdataSORTitab_object.DELETEADJACENTDUPLICATESFROMitab_object.CHECKNOTitab_object[]ISINITIAL.SELECTlfa1~spraslfa1~lifnrlfa1~stceglfa1~regiolfa1~straslfa1~pstlzlfa1~telf1lfa1~telfxlfa1~adrnrlfa1~ernamASbuy_idlfa1~ktokkASvendor_typeINTOCORRESPONDINGFIELDSOFTABLEitab_tempFROMlfa1FORALLENTRIESINitab_objectWHERElfa1~lifnr=itab_object-objectid.SELECTknvk~lifnrknvk~name1ASname2INTOCORRESPONDINGFIELDSOFTABLEitab_knvkFROMknvkFORALLENTRIESINitab_objectWHEREknvk~lifnr=itab_object-objectid.SELECTlfbk~lifnrbnka~bankalfbk~banknINTOCORRESPONDINGFIELDSOFTABLEitab_bnkaFROMIfbkINNERJOINbnkaONlfbk~banks=bnka~banksANDlfbk~bankl=bnka~banklFORALLentriesINitab_objectWHERElfbk~lifnr=itab_object-objectid.CHECKNOTitab_temp[]ISINITIAL.SELECTadrc~addrnumberadrc~str_suppl1adrc