




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、目录SAP表修改记录查询1更改记录表CDHDR和CDPOS2SAP保存操作记录CDHDR和CDPOS表2通过CDHDR CDPOS获取增量数据7其他方式11SAP表修改记录查询SAP中修改频率较低的定制表(T001等)一般都会有修改记录存在,查看一个表有没有修改记录可以在SE11中查看他的技术设置,如果其中的LOG DATA CHANGES选中则表示此表有历史修改记录存在。要查看他的修改记录可以使用Tcode:SCU3 。菜单路径:工具定制IMGIMG Logging参考说明: . cfab6d/frameset.htm系统读取历史修改记录的Function : DBLOG_READ_WITH
2、_STATISTIC转载:SE16N 通过&sap_edit 可以修改表,修改表后如何查看呢。 分两步进行。1. 事务码 SE16N, 然后输入表SE16N_CD_Key, 输入相应的查询条件。例如 table 名,查出相应的ID2. 事务码 SE16N,然后输入表 SE16N_CD_DATA, 输入相应的ID,就可以查询到修改的内容。其他方式: 表DBTABLOGCDHDR更改日志表头CDPOS更改日志行项目查询用户的最近一次登陆日期和时间,USR02中有个上次登陆日期和登陆时间;或者用SE38跑下RSUSR200,输入用户名即可查询上次登陆日期还有个方法是ST03N,专家模式,选择时间段,
3、选择user和user profile,可惜,小弟权限不够没法测试更改记录表CDHDR和CDPOSSE16N查询CDPOS表,在字段OBJECTCLAS(更改文档对象,VERKBELEG表示销售凭证,不同的凭证类别代码不同的文档对象,如需查看文档对象,可使用事务代码SCDO,相关表为TCDOB/TCDOBT)中输入:VERKBELEG,TABNAME(表名)输入:VBAK/VBAP(VBAK查询整张订单、VBAP查询订单行项目),CHNGIND(修改标识符)输入:D(U表示更新,I表示插入,E表示删除单个字段,D表示删除整行或整个单据),执行后,字段OBJECTID(对象价值)表示订单号码,字
4、段TABKEY(表键)中的最后两位表示订单行号,同理,我们可查看其他删除或修改的各种单据和凭证。SAP保存操作记录CDHDR和CDPOS表转载自sap的字段和对象的修改都会保存旧值,数据保存在CDHDR和CDPOS表中,提取旧值可以采用两种方法1)使用sap的标准函数CHANGEDOCUMENT_READ_HEADERS和CHANGEDOCUMENT_READ_POSITIONSCALL FUNCTION CHANGEDOCUMENT_READ_POSITIONS Change document: Read change document itemsEXPORTING*archive_hand
5、le = 0 sy-tabixHandle on Open Archive Fileschangenumber = cdpos-changenrChange document number*tablekey = SPACE cdpos-tabkeyObject class table key*tablename = SPACE cdpos-tabnameObject class table name*tablekey254 = SPACE cdpos_uid-tabkeyTable Key for CDPOS in Character 254*keyguid = SPACE cdpos_uid
6、-keyguidUUID in Character Format*keyguid_str = SPACE cdpos_str-keyguidUUID in Character FormatIMPORTINGheader = cdhdrChange document header (structure CDHDR)et_cdred_str = cdred_str_tabAdditional Change Document - Table for STRINGs* TABLES*editpos = cdshwTable with edited change document itemsEDITPO
7、S_WITH_HEADER=CDRED更改文档,显示结构EXCEPTIONSNO_POSITION_FOUND = 1No item founWRONG_ACCESS_TO_ARCHIVE = 2incorrect access to archive2)使用select语句直接从表中读取。直接使用SELECT语句读取数据的示例:*提取信用额度字段修改的抬头信息select cdhdrchangenr cdhdrudate cdhdrutime into corresponding fields of table p_cdhdr from cdhdr where cdhdrobjectclas
8、= KLIM and cdhdrobjectid = wa_customerinfo-kunnr. if sy-subrc = 0. *提取信用额度字段修改的字段值select cdposchangenr cdposvalue_old cdposvalue_new into corresponding fields of table p_cdpos from cdpos for all entries in p_cdhdr where cdposobjectclas = KLIM and cdposobjectid = wa_customerinfo-kunnr and cdposchange
9、nr = p_cdhdr-changenr and cdpostabname = KNKK and cdposfname = KLIMK. if sy-subrc = 0. endif. endif.可以在CHANGEDOCUMENT_READ_HEADERS中设置中断获得对象类型。ex.提取有变动的Acc. changesSELECT SINGLE tabkey value_newINTO (cdpos-tabkey,ikoinh)FROM cdposWHEREobjectclas = KREDAND objectid = itab-lifnrAND changenr = itab-chan
10、genrAND tabname = LFBKAND 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-obje
11、ctid,s_chngnr FOR cdhdr-changenr,s_usrnam FOR cdhdr-username DEFAULT sy-uname,s_udateFOR cdhdr-udateDEFAULT sy-datum,s_timeFOR cdhdr-utime,s_tcodeFOR 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 S
12、KIP.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 hea
13、dert_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 objectidin s_objtidand changenrin s_chngnrAND usernameIN s_usrnamAND udateIN s_udateAND utimeIN s_timeAND tcodeIN s_tcodeAND pla
14、nchngnr 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_DISPLAYEXPORTINGi_callback_program= sy-cprogi_callback_user_command = USE
15、R_COMMANDi_structure_name= CDHDRis_layout= gs_layoutTABLESt_outtab= t_cdhdr.*-*FORM USER_COMMAND*-*FORM user_command USING u_ucommTYPE 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
16、.END-OF-DEFINITION.DATA :ls_cdhdr TYPE ty_s_cdhdr,ls_sortTYPE slis_sortinfo_alv,lt_sortTYPE 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 checkbo
17、x = 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_DISPLAYEXPORTINGi_structure_name = CDPOSis_layout= gs_layoutit_sort= lt_sortTABLESt_o
18、uttab= lt_cdpos.ENDCASE.ENDFORM. USER_COMMAND*-FORM check_marked USING us_selfield TYPE slis_selfield.FIELD-SYMBOLS : 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
19、-tabindex ASSIGNING .-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_supp
20、l1, 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 O
21、CCURS 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
22、 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 i
23、tab_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_maxchangenr )* INTO changenr
24、* FROM zcdhdr_max* WHERE zcdhdr_maxerdat changenr AND cdhdrudate = date . LOOP AT itab_object. IF itab_object-objectid+0(1) = B.“B为公司职员 DELETE itab_object. ENDIF. ENDLOOP.* DELETE ADJACENT data SORT itab_object. DELETE ADJACENT DUPLICATES FROM itab_object. CHECK NOT itab_object IS INITIAL. SELECT lf
25、a1spras lfa1lifnr lfa1stceg lfa1regio lfa1stras lfa1pstlz lfa1telf1 lfa1telfx lfa1adrnr lfa1ernam AS buy_id lfa1ktokk AS vendor_type INTO CORRESPONDING FIELDS OF TABLE itab_temp FROM lfa1 FOR ALL ENTRIES IN itab_object WHERE lfa1lifnr = itab_object-objectid. SELECT knvklifnr knvkname1 AS name2 INTO
26、CORRESPONDING FIELDS OF TABLE itab_knvk FROM knvk FOR ALL ENTRIES IN itab_object WHERE knvklifnr = itab_object-objectid. SELECT lfbklifnr bnkabanka lfbkbankn INTO CORRESPONDING FIELDS OF TABLE itab_bnka FROM lfbk INNER JOIN bnka ON lfbkbanks = bnkabanks AND lfbkbankl = bnkabankl FOR ALL entries IN itab_object WHERE lfbklifnr = itab_object-objectid. CHECK NOT itab_temp IS INITIAL. SELECT adrcaddrnumber adrcstr_suppl1 adrcname1 adrcname3 adr6smtp_addr INTO CORRESPONDING FIELDS OF TABLE itab_adrc FROM adrc LEFT JOIN adr6 ON adrcaddrnumber = adr6addrnumber FOR ALL entries I
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 二手房过户法律服务合同
- 住房房屋购房合同范例
- 蔬菜供应合同范本
- 医疗耗材供应合同范本
- 个人之间房屋租赁合同范例
- 销售提成协议合同样本
- 冷库购销安装合同标准文本
- 出租车与货车运输合同范例
- 中招联盟合同标准文本
- 农村搅拌混凝土出售合同范例
- 医院不良事件管理质量评价标准
- 手工滴胶课件完整版
- 高中数学必修5《正弦定理与余弦定理》集体备课2课时表格式教案
- 初三数学竞赛试题及答案解析
- GB/T 32854.4-2020自动化系统与集成制造系统先进控制与优化软件集成第4部分:信息交互和使用
- GB/T 21010-2017土地利用现状分类
- 小学劳动 包饺子课件
- 农业社会化服务体课件
- 崩塌教学讲解课件
- 火力发电的基本知识课件
- 大班科学《动物之间怎样联络》课件
评论
0/150
提交评论