先说一下优化过滤的必要性。
CRM物料主数据一百多万。
感谢MDM或者相关的系统,每天通过接口更新的不知道什么东西,每天数百万的物料更新队列进入CRM。
CRM系统被搞死了好几次。
然后各种优化报表,程序。。。
最后有几个链接缓慢的自开发接口,背锅了。。。
好吧,先不管那些了。现在在ERP做一个过滤设置,只有某些修改的物料主数据才允许传到CRM。
1,查看SM30(TBE24找对增强ID,TPS34找到增强函数或自己写)
2,做配置表,表+字段,控制哪些表检查哪些字段
3,增强
"物料数据库同步过滤MARA,MAKT,MARM,MVKE IF I_OBJ_NAME = C_MATERIAL."物料bdoc DATA:GW_MARA TYPE MARA, GW_MAKT TYPE MAKT, GW_MARM TYPE MARM, GW_MVKE TYPE MVKE, GT_006 TYPE TABLE OF ZCRMT0006, GW_006 LIKE LINE OF GT_006. FIELD-SYMBOLS:<OLD> TYPE ANY, <NEW> TYPE ANY, <MAKT> TYPE MAKT, <MVKE> TYPE MVKE, <MARM> TYPE MARM. E_DO_NOT_SEND = 'X'."清除发送标记 SELECT * INTO TABLE GT_006 FROM ZCRMT0006. LOOP AT T_INT_TABLES INTO LS_INT_TABLES. CHECK E_DO_NOT_SEND IS NOT INITIAL. CASE LS_INT_TABLES-TABNAME. WHEN 'MARA'. ASSIGN LS_INT_TABLES-DATA TO <FS_MARA> CASTING. SELECT SINGLE * INTO GW_MARA FROM MARA WHERE MATNR = <FS_MARA>-MATNR. IF SY-SUBRC = 0. LOOP AT GT_006 INTO GW_006 WHERE TABNAME = LS_INT_TABLES-TABNAME. IF E_DO_NOT_SEND IS NOT INITIAL. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE <FS_MARA> TO <NEW>. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE GW_MARA TO <OLD>. IF <NEW> <> <OLD>. E_DO_NOT_SEND = ''. ENDIF. ENDIF. ENDLOOP. ELSE. E_DO_NOT_SEND = ''. ENDIF. CLEAR:GW_MARA. WHEN 'MARC'. WHEN 'MAKT'. ASSIGN LS_INT_TABLES-DATA TO <MAKT> CASTING. SELECT SINGLE * INTO GW_MAKT FROM MAKT WHERE MATNR = <MAKT>-MATNR AND SPRAS = <MAKT>-SPRAS. IF SY-SUBRC = 0. LOOP AT GT_006 INTO GW_006 WHERE TABNAME = LS_INT_TABLES-TABNAME. IF E_DO_NOT_SEND IS NOT INITIAL. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE <MAKT> TO <NEW>. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE GW_MAKT TO <OLD>. IF <NEW> <> <OLD>. E_DO_NOT_SEND = ''. ENDIF. ENDIF. ENDLOOP. ELSE. E_DO_NOT_SEND = ''. ENDIF. CLEAR:GW_MAKT. WHEN 'MARM'. ASSIGN LS_INT_TABLES-DATA TO <MARM> CASTING. SELECT SINGLE * INTO GW_MARM FROM MARM WHERE MATNR = <MARM>-MATNR AND MEINH = <MARM>-MEINH. IF SY-SUBRC = 0. LOOP AT GT_006 INTO GW_006 WHERE TABNAME = LS_INT_TABLES-TABNAME. IF E_DO_NOT_SEND IS NOT INITIAL. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE <MARM> TO <NEW>. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE GW_MARM TO <OLD>. IF <NEW> <> <OLD>. E_DO_NOT_SEND = ''. ENDIF. ENDIF. ENDLOOP. ELSE. E_DO_NOT_SEND = ''. ENDIF. CLEAR:GW_MARM. WHEN 'MVKE'. ASSIGN LS_INT_TABLES-DATA TO <MVKE> CASTING. SELECT SINGLE * INTO GW_MVKE FROM MVKE WHERE MATNR = <MVKE>-MATNR AND VKORG = <MVKE>-VKORG AND VTWEG = <MVKE>-VTWEG. IF SY-SUBRC = 0. LOOP AT GT_006 INTO GW_006 WHERE TABNAME = LS_INT_TABLES-TABNAME. IF E_DO_NOT_SEND IS NOT INITIAL. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE <MVKE> TO <NEW>. ASSIGN COMPONENT GW_006-FIELDNAME OF STRUCTURE GW_MVKE TO <OLD>. IF <NEW> <> <OLD>. E_DO_NOT_SEND = ''. ENDIF. ENDIF. ENDLOOP. ELSE. E_DO_NOT_SEND = ''. ENDIF. CLEAR:GW_MVKE. WHEN OTHERS. ENDCASE. ENDLOOP. ENDIF.
标签:GW,DO,传往,ERP,Middleware,SEND,006,ENDIF,ASSIGN From: https://www.cnblogs.com/sapSB/p/18028925