SAP生产订单修改记录代码.pdfVIP

SAP 生产工单更改记录详细教程 CO02 ======================================================== === 需求：SAP 在更改生产工单时并没有提供详细的更改记录，查看SAP 的Notes，如果强行开启FLG_DOC （控制往更改记录CDHDR，CDPOS 里写数据）标记，在批量处理组件过多的生产工单时会导致程序运 行出错，SAP 建议不开启。User 要求对保护字段进行更改记录，无奈只有使用SAP 提供的增强功能，东 西经过测试初步完成，发出来共享一下，如果大家有更好的方法，发出来讨论讨论，步骤如下： 1.CMOD 新增一项目ZCO02,增加增强PPCO0001。 2.查看、Debug SAP 源代码，了解数据流向，主要了解在变更工单组件和表头未保存前这些数据存放在 哪里？最后查到这两数据放在调用出口函数参数表：component_table,header_table。 3. 设 计 数 据 表 结 构 :ZPCO02, 记 录 更 改 ， 代码通过了 User 测试更正已传至生产系统，改善了保存时的速度，不用拿更改后的工单组件与 RESB 里 的一个个对比了。 ** * 包括 ZXCO1U01 * ** TABLES:caufv,resb. DATA: BEGIN OF old_resb OCCURS 0, aufnr LIKE resb-aufnr, posnr LIKE resb-posnr, matnr LIKE resb-matnr, rsnum LIKE resb-rsnum, rspos LIKE resb-rspos, xloek LIKE resb-xloek, bdmng LIKE resb-bdmng, objnr LIKE resb-objnr, END OF old_resb. DATA: BEGIN OF new_resb OCCURS 0. INCLUDE STRUCTURE old_resb. DATA: END OF new_resb. DATA: BEGIN OF obj_resb OCCURS 0. INCLUDE STRUCTURE old_resb. DATA: END OF obj_resb. DATA: i_zpco02 LIKE zpco02 OCCURS 0 WITH HEADER LINE. DATA: i_temp LIKE zpco02 OCCURS 0 WITH HEADER LINE. DATA: iporg LIKE msxxlist-hostadr, ipdec(16) TYPE c, host(18) TYPE c. DATA: char1(20) TYPE c, char2(20) TYPE c. DATA: inst_flg TYPE c VALUE N, chan_had TYPE c VALUE N. * teco_flg TYPE c VALUE N, * read_flg TYPE c . *BREAK-POINT. CHECK sy-tcode EQ CO02. ** Get user IP,hostname CALL FUNCTION TH_USER_INFO Get user IP,hostname EXPORTING client = sy-mandt user = sy-uname IMPORTING hostaddr = iporg terminal = host EXCEPTIONS OTHERS = 1. **Conv.IP addr to format xxx.xxx.xxx.xxx CALL FUNCTION GWY_IPADR2STRING Conv.IP addr EXPORTING ipadr = iporg IMPORTING string = ipdec. ***Common var. MOVE: sy-mandt TO i_temp-mandt, sy-uname TO i_temp-aenam, sy-datum TO i_temp-laeda, sy-uzeit TO i_temp-times, sy-tcode TO i_temp-tcode, ipdec TO i_temp-hostip, host TO i_temp-host, header_table-aufnr TO i_temp-auf