ME_PROCESS_PO_CUST详细介绍

最新推荐文章于 2024-08-02 16:23:01 发布
最新推荐文章于 2024-08-02 16:23:01 发布
阅读量5.1k 收藏 16
点赞数 2
分类专栏： ABAP 文章标签： sap abap
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Summer_duan/article/details/112575167
版权

BADI：ME_PROCESS_PO_CUST      采购订单处理增强：客户

业务加载项（BAdI）ME_PROCESS_PO_CUST使您可以分别扩展“享受”采购订单的业务逻辑。 因此，您可以影响对话框事务ME21N，ME22N，ME23N和ME29N，以及BAPI BAPI_PO_CREATE1和BAPI_PO_CHANGE。

该BAdI的典型应用包括：

      •处理自己的对象

      •处理标准对象上的附加数据

      •实施额外的检查和派生

      •更改标准字段中的数据     (注意：确保保证数据完整性 )

      •更改字段选择

通过其方法，BAdI涵盖了采购订单的整个交易周期。因此，您可以在处理的每个步骤中干预自己的实现：

      1.开始交易

         BADI方法INITIALIZE的文档

      2.打开采购订单

         BAdI方法OPEN的文档

      3.数据检查

                ◦PO的抬头数据

                 BAdI方法PROCESS_HEADER的文档

                ◦PO的项目数据

                 BAdI方法PROCESS_ITEM的文档

                ◦PO的交货计划行

                 BAdI方法PROCESS_SCHEDULE的文档

                ◦采购订单中的帐户分配

                 BAdI方法PROCESS_ACCOUNT的文档

      4.字段选择

               ◦在标题级别

                BAdI方法FIELDSELECTION_HEADER_REFKEYS的文档

               ◦在物品级别

                BAdI方法FIELDSELECTION_ITEM_REFKEYS的文档

               ◦标头级别的特殊规则

                BAdI方法FIELDSELECTION_HEADER的文档

               ◦项目级别的特殊规则

                BAdI方法FIELDSELECTION_ITEM的文档

      5.整体检查

         BAdI方法CHECK的文档

      6.发布

         BAdI方法POST的文档

      7.总结工作

         BAdI方法的CLOSE文档

要求

要实现这些BAdI，您需要ABAP OO的高级知识。

标准设定

       •在标准系统中，业务加载项未激活。

       •BAdI与过滤器无关。

       •BAdI不能多次使用。

示例

您将在Goto-> Code Example下找到一个示例实现。

进一步说明

BAdI接口IF_EX_ME_PROCESS_PO_CUST的文档

 

 

以下以CHECK方法简单说明一下消息处理：

整体检查（CHECK方法）

在CHECK方法中，您可以执行整体检查或您自己的采购订单整体检查的增强功能。

对于不合规的数据，需要Message提醒用户，系统在Include:MM_MESSAGES_MAC中 提供了一系列的 宏，用来处理message。

简单介绍几个宏。

1、mmpur_business_obj  用来指定后续消息的业务对象(抬头，行，计划行，科目分配等)

2、mmpur_business_obj_id 用来指定到后续消息的具体行

3、mmpur_metafield 用来指定光标到具体的元字段

4、mmpur_message_forced 消息收集，统一显示

例如如下Code：可以提示错误消息到具体PO行

METHOD if_ex_me_process_po_cust~check .
  DATA: ls_mepoheader TYPE mepoheader,
        r_items       TYPE purchase_order_items,
        r_item        TYPE purchase_order_item,
        lt_item       TYPE STANDARD TABLE OF mepoitem,
        ls_item       TYPE mepoitem,
        lv_dummy      TYPE c LENGTH 128.

  INCLUDE mm_messages_mac. "useful macros for message handling

*获取头和行项目
  CLEAR:ls_mepoheader,r_items.
  ls_mepoheader = im_header->get_data( ).
  r_items       = im_header->get_items( ).
*检查1、T01的采购组，生产商必输
  IF ls_mepoheader-ekgrp = 'T01'.
    LOOP AT r_items INTO r_item .
      ls_item = r_item-item->get_data( ).
      IF ls_item-loekz NE 'D' AND ls_item-producer IS INITIAL.
        ch_failed = 'X'.
        mmpur_business_obj_id  ls_item-id.                      “指定后续消息的具体行
        mmpur_metafield        mmmfd_cust_01.                   “指定后续的光标的元字段
        MESSAGE e083(me) WITH '生产商' space INTO lv_dummy.
        mmpur_message_forced sy-msgty sy-msgid sy-msgno         "收集消息
                             sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      CLEAR: r_item,ls_item.
    ENDLOOP.
  ENDIF.
ENDMETHOD.                    "IF_EX_ME_PROCESS_PO_CUST~CHECK

 

段蕾
关注
专栏目录
SAP_ABAP_MM_BADI清单案例教程——PO采购订单创建_ME_PROCESS_PO_CUST_ME21N
java_zhong1990的专栏
10-07 993
SAP BADI（Business Application Development Interface）是SAP在标准程序中为客户自定义逻辑所。（属于第三代增强），在技术本质上是一个interface，通过实现类的向上继承，完成用户逻辑的调用。
PT项目--采购订单BADI增强-ME_PROCESS_PO_CUST
星辰大海的博客
07-06 1万+
采购订单BADI增强-ME_PROCESS_PO_CUST
ABAP-增强 BADI ME_PROCESS_PO_CUST OPEN/POST
敗者食尘
12-18 2312
通过ME_PROCESS_PO_CUST~OPEN的事务类型参数im_trtyp对采购订单进行处理。
SAP ME21/22/23N 创建增强ME_PROCESS_PO_CUST
SAP ABAP开发技能记录分享
12-26 1404
第一步：执行事务码se19,在BAdI Name处输入：ME_PROCESS_PO_CUST，然后点“Create Impl”按钮。二、实现方式：实现的方式可以有很多种，这里讲一下用BADI增强ME_PROCESS_PO_CUST实现的方式。第二步：在Implementation Name输入ZME_PROCESS_PO_CUST,点OK按钮。第四步：在METHOD里编写代码，就可以实现需求的功能了。第三步：双击“PROCESS_HEADER”增强ME_PROCESS_PO_CUST。
SAP 创建修改采购订单，屏幕字段不可编辑增强
最新发布
Wuuuf的博客
08-02 737
SAP ME21N屏幕字段不可编辑增强
ABAP ME_PROCESS_PO_CUST消息异常
谁的博客来着？
12-14 819
业务顾问要求根据物料组校验增强字段必填，一开始放在行项目的IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM里面做校验，但是如果只修改增强字段，则无法进入该函数所以最后放到IF_EX_ME_PROCESS_PO_CUST~CHECK里面做检查。
ME_PROCESS_PO_CUST
Gangelwn
11-30 4610
method IF_EX_ME_PROCESS_PO_CUST~CHECK.      data im_item  TYPE REF TO if_longtexts_mm.      data ld_formatted type mmpur_bool.      data lt_line type table of mmpur_textlines .      data wa_line l
SAP ABAP ME_PROCESS_PO_CUST 采购订单增强CHECK
SAP小趴菜
06-14 961
SAP ABAP
SAP ME21N 增强ME_PROCESS_PO_CUST 检查报错demo
王佐儿z的博客
09-06 600
【代码】SAP ME21N 增强ME_PROCESS_PO_CUST 检查报错demo。
采购订单限价(包含阶梯价)ME_PROCESS_PO_CUST
weixin_30521649的博客
06-08 399
为了能管控到钱财的每个环节，公司要求采购订单需要使用物料限价，当有报价低于先前的价格时，在采购订单保存时，更新最低限价 BADI:ME_PROCESS_PO_CUST process~item里做限价检查 post里更新限价 METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM. INCLUDE MM_MESSAGES_MAC...
SAP_ABAP_MM_BADI清单案例教程——PR采购申请创建_ME_PROCESS_REQ_CUST_ME51N
java_zhong1990的专栏
10-08 658
SAP ABAP 顾问（开发工程师）能力模型_Terry谈企业数字化的博客-CSDN博客目标：基于对SAP abap 顾问能力模型的梳理，给一年左右经验的abaper 快速成长为三年经验提参考ALV/REPORT|SMARTFROM|SCREEN|OLE|BAPI|BDC|PI|IDOC|RFC|API|WEBSERVICE|Enhancement|UserExits|Badi|Debug。
SAP_ABAP_MM_ME21N 采购订单创建 提出错误：MEPO151 没有采用附加业务 ME_PROCESS_PO_CUST 的数据
java_zhong1990的专栏
11-14 840
MEPO151 没有采用附加业务 ME_PROCESS_PO_CUST 的数据。
关于BADI:ME_PROCESS_PO_CUST消息的处理
qq_41900124的博客
05-07 3169
关于BADI:ME_PROCESS_PO_CUST消息的处理前言取数逻辑问题截图源代码 前言 最近做了一个价格参数增强，没有相应的二代增强点，要使用到BADI：ME_PROCESS_PO_CUST。增强逻辑也并不复杂，只是单纯的对输入价格参数做一个校验，然后提示错误消息。不过问题就来了，在实际测试的过程中，错误消息也出现了，也保存在了上面的消息池里，但是当我们第二次输入正确的消息时候，系统并没有...
ME21N/ME22N/ME23N屏幕增强BADI ME_GUI_PO_CUST
热门推荐
ABAPer ZeroLi
03-22 1万+
最近想更深入学习下classic BADI, 以前没玩过BADI屏幕增强, 所以决定玩一下. 这次的屏幕增强主要用到两个BADI: ME_GUI_PO_CUST和ME_PROCESS_PO_CUST 这两个BADI都是有例子的, 可以在se18那里按GoTo->Sample code->Display来查看, 也可以直接在SE24查看类CL_EXM_IM_ME_GUI_PO_C
ME_PROCESS_PO_CUST修改行项目中净价为物料主数据中标准价格
少年休闲海
09-05 4536
METHOD if_ex_me_process_po_cust~process_item.   DATA: obj_header TYPE REF TO if_purchase_order_mm,          re_header TYPE mepoheader,          re_item TYPE mepoitem.   DATA: wa_werks TYPE werks_d
ME21N,ME22N,ME23N之BADI增强ME_PROCESS_PO_CUST
huling_1997的博客
12-13 4105
一、需求背景：采购订单创建、修改时，根据所选订单类型不同，给抬头附加数据里的字段赋默认值。如下图所示： 二、实现方式：实现的方式可以有很多种，这里讲一下用BADI增强ME_PROCESS_PO_CUST实现的方式 第一步：执行事务码se19,在BAdI Name处输入：ME_PROCESS_PO_CUST，然后点“Create Impl”按钮 第二步：在I
ME_PROCESS_PO_CUST方法CLOSE的文档
段小楼的博客
01-14 448
结算处理 功能性 CLOSE方法使您可以重置自己的程序。 在发布后（POST方法）或打开下一个文档之前（OPEN方法）直接调用此方法。 参数 可以使用以下参数： •IM_HEADER-文档标题 接口引用的类型为IF_PURCHASE_ORDER_MM。 笔记 在任何情况下，均不得在此方法内对数据库进行任何更改。 决不使用Commits。 ...
ME_PROCESS_PO_CUST方法PROCESS_ACCOUNT的文档
段小楼的博客
01-14 638
处理帐户分配数据 功能性 PROCESS_ACCOUNT方法使您可以更改帐户分配数据并检查其正确性。 参数 可以使用以下参数： •IM_ACCOUNT-帐户分配 接口引用的类型为IF_PURCHASE_ORDER_ACCOUNT_MM。 您可以使用在那里定义的所有方法。 注意 请注意有关错误处理的一般提示。 如果希望将帐户分配数据标记为无效，请使用IF_PURCHASE_ORDER_ACCOUNT_MM接口的方法INVALIDATE（）。 笔记...
ME_PROCESS_PO_CUST 实现采购订单行项目增强
anchangong3418的博客
05-13 1834
转自：https://www.cnblogs.com/jinyin/p/10598124.html 用户希望创建采购订单时，输入行项目时，能根据采购订单类型，自动带出科目分类类别。 业务顾问看了一下配置，不能实现这个功能，所以用增强实现。 采购订单BADI增强：ME_PROCESS_PO_CUST。SE19创建BADI实现，进入实施类方法：IF_EX_ME_PRO...
请将这个存储过程修改为触发器，当其余四个表插入新数据时，t_pcm_prod_own能够修改更新数据 CREATE DEFINER=root@% PROCEDURE test03() BEGIN -- 是否持有活期 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_DEP_CURR)) THEN UPDATE T_PCM_PROD_OWN SET IS_DEP = '1' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_DEP_CURR); ELSE UPDATE T_PCM_PROD_OWN SET IS_DEP = '0' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_DEP_CURR); END IF; -- 是否持有定期 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_DEP_FIXED)) THEN UPDATE T_PCM_PROD_OWN SET IS_FIXED_DEP = '1' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_DEP_FIXED); ELSE UPDATE T_PCM_PROD_OWN SET IS_FIXED_DEP = '0' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_DEP_FIXED); END IF; -- 是否持有贷款 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_LOAN)) THEN UPDATE T_PCM_PROD_OWN SET IS_LOAN = '1' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_LOAN); ELSE UPDATE T_PCM_PROD_OWN SET IS_LOAN = '0' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_LOAN); END IF; -- 是否持有理财 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_WEALTH)) THEN UPDATE T_PCM_PROD_OWN SET IS_WEALTH = '1' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_WEALTH); ELSE UPDATE T_PCM_PROD_OWN SET IS_WEALTH = '0' WHERE CUST_ID IN (SELECT CUST_ID FROM T_PCM_WEALTH); END IF; INSERT INTO T_PCM_PROD_OWN SELECT REPLACE(UUID(),'-','') ,T_PCM_CUST.CUST_ID ,T_PCM_CUST.LAW_ORG_ID ,T_PCM_CUST.ECIF_CUST_ID ,T_PCM_PROD_OWN.IS_DEP ,T_PCM_PROD_OWN.IS_FIXED_DEP ,T_PCM_PROD_OWN.IS_LOAN ,T_PCM_PROD_OWN.IS_WEALTH ,T_PCM_DEP_CURR.CURRENT_BAL ,T_PCM_DEP_FIXED.BAL ,T_PCM_LOAN.LOAN_MON ,T_PCM_WEALTH.CURRENT_BAL FROM T_PCM_CUST LEFT JOIN T_PCM_DEP_CURR ON T_PCM_CUST.CUST_ID = T_PCM_DEP_CURR.CUST_ID LEFT JOIN T_PCM_DEP_FIXED ON T_PCM_CUST.CUST_ID = T_PCM_DEP_FIXED.CUST_ID LEFT JOIN T_PCM_LOAN ON T_PCM_CUST.CUST_ID = T_PCM_LOAN.CUST_ID LEFT JOIN T_PCM_WEALTH ON T_PCM_CUST.CUST_ID = T_PCM_WEALTH.CUST_ID LEFT JOIN T_PCM_PROD_OWN ON T_PCM_CUST.CUST_ID = T_PCM_PROD_OWN.CUST_ID; END
07-15
您好！根据您的要求，将存储过程修改为触发器，当其余四个表插入新数据时，t_pcm_prod_own将能够修改更新数据。以下是修改后的触发器代码： ```mysql CREATE DEFINER=root@% TRIGGER trg_test03 AFTER INSERT ON T_PCM_DEP_CURR FOR EACH ROW BEGIN -- 是否持有活期 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID = NEW.CUST_ID) THEN UPDATE T_PCM_PROD_OWN SET IS_DEP = '1' WHERE CUST_ID = NEW.CUST_ID; ELSE UPDATE T_PCM_PROD_OWN SET IS_DEP = '0' WHERE CUST_ID = NEW.CUST_ID; END IF; END; CREATE DEFINER=root@% TRIGGER trg_test03_2 AFTER INSERT ON T_PCM_DEP_FIXED FOR EACH ROW BEGIN -- 是否持有定期 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID = NEW.CUST_ID) THEN UPDATE T_PCM_PROD_OWN SET IS_FIXED_DEP = '1' WHERE CUST_ID = NEW.CUST_ID; ELSE UPDATE T_PCM_PROD_OWN SET IS_FIXED_DEP = '0' WHERE CUST_ID = NEW.CUST_ID; END IF; END; CREATE DEFINER=root@% TRIGGER trg_test03_3 AFTER INSERT ON T_PCM_LOAN FOR EACH ROW BEGIN -- 是否持有贷款 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID = NEW.CUST_ID) THEN UPDATE T_PCM_PROD_OWN SET IS_LOAN = '1' WHERE CUST_ID = NEW.CUST_ID; ELSE UPDATE T_PCM_PROD_OWN SET IS_LOAN = '0' WHERE CUST_ID = NEW.CUST_ID; END IF; END; CREATE DEFINER=root@% TRIGGER trg_test03_4 AFTER INSERT ON T_PCM_WEALTH FOR EACH ROW BEGIN -- 是否持有理财 IF EXISTS(SELECT CUST_ID FROM T_PCM_PROD_OWN WHERE CUST_ID = NEW.CUST_ID) THEN UPDATE T_PCM_PROD_OWN SET IS_WEALTH = '1' WHERE CUST_ID = NEW.CUST_ID; ELSE UPDATE T_PCM_PROD_OWN SET IS_WEALTH = '0' WHERE CUST_ID = NEW.CUST_ID; END IF; END; ``` 请注意，每个表都有一个单独的触发器，以确保在插入新数据时更新相应的列。触发器将根据新插入的数据的CUST_ID值来更新t_pcm_prod_own表中的相关列。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值