ME21N增强

ME21N创建采购订单点击保存或者检查按钮时进入增强(首先根据EKKO-LIFNR、EKPO-MATNR、

EKPO-WERKS LINK自建表1中的供应商、物料和工厂取对应自建表1中“是否管控”字段值是否为N,

如果为N则不进入增强,否则进入增强,并进行以下判断:

1、根据EKKO-LIFNREKPO-MATNREKPO-WERKS LINK自建表1中的供应商+物料+工厂取出报告

到期日(如果取到多条数据,则只取报告到期日最早的那条数据做下面的校验),然后用报告到期日减去

采购订单的凭证日期(EKKO-BEDAT):
1)当报告到期日减去采购订单的凭证日期(EKKO-BEDAT)小于或等于自建表1中的“提醒PO周期(天)”

字段值,并且对应的自建表1中“是否提醒PO”字段不为N,则弹出警告消息:第XXXX行物料XXXX的

子材料XXXX报告编码XXXX还有多少天到期,回车可跳过消息并允许保存订单;
2)当报告到期日减去采购订单的凭证日期(EKKO-BEDAT)大于自建表1中的“控制PO周期(天)”字段

值,并且对应的自建表1中“是否控制PO”字段不为N,则弹出错误消息:第XXXX行物料XXXX的子材料

XXXX报告编码XXXX已超期XXXX天,不允许订单保存。

 

SE19 输入相应的增强BADI 创建相应的增强

 

 

 

IF sy-tcode 'ME21N' .
        DATAlv_data(6TYPE c.
        DATAgt_ztmm035 TYPE TABLE OF ztmm035,
              gs_ztmm035 type ztmm035.
        REFRESHitems.
        CLEAR header.
        CLEAR lv_num.
         header im_header->get_data( ).

        items im_header->get_items( ).

*        SELECT WERKS,MATNR,LIFNR,SFGK,JSRQ,TXPOZQ,TXPO,ZCLMC,KZPOZQ,KZPO
*          INTO TABLE @DATA(gt_ztmm035)
*          FROM ztmm035
*          FOR ALL ENTRIES IN @items
*          WHERE WERKS = @items-waers
*          and matnr = @items-matnr
*          and lifnr = @items-lifnr
*          and SFGK <> 'N'.

*          SORT gt_ztmm035 by WERKS matnr lifnr JSRQ.
*          DATA:gs_ztmm035 TYPE LINE OF gt_ztmm035.

        LOOP AT items INTO line_item.
        lv_num lv_num + 1.
        CLEARpo_line.
        po_line line_item-item->get_data( ).

          SELECT WERKS MATNR LIFNR SFGK JSRQ TXPOZQ TXPO ZCLMC KZPOZQ KZPO
          
INTO CORRESPONDING FIELDS OF TABLE gt_ztmm035
          
FROM ztmm035
          
WHERE WERKS po_line-WERKS
          
and matnr po_line-matnr
          
and lifnr header-lifnr
          
and SFGK <> 'N'.

           SORT gt_ztmm035 by WERKS matnr lifnr JSRQ.
*          DATA:gs_ztmm035 TYPE LINE OF gt_ztmm035.

        CLEAR lv_data.
        READ TABLE gt_ztmm035 INTO gs_ztmm035 WITH  KEY WERKS po_line-WERKS matnr po_line-matnr lifnr header-lifnr BINARY SEARCH.
        if sy-subrc 0.
           CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
            EXPORTING
              I_DATE_FROM    header-bedat
              I_DATE_TO      
gs_ztmm035-JSRQ
              I_FLG_SEPARATE 
' '       "是否单独计算 若有标识,则返回两日期相差的天数
            IMPORTING
              E_DAYS         lv_data.  "返回天数:638

           if lv_data <= gs_ztmm035-TXPOZQ AND gs_ztmm035-TXPO <> 'N'.
             MESSAGE '&& lv_num && '&& gs_ztmm035-matnr && '物料的子材料&& gs_ztmm035-ZCLMC && '还有&& lv_data && '天到期,回车可跳过消息并允许保存订单'
             TYPE 'I' DISPLAY LIKE 'W'.
           ENDIF.

           if lv_data > gs_ztmm035-KZPOZQ AND gs_ztmm035-KZPO <> 'N'.
             MESSAGE '&& lv_num && '&& gs_ztmm035-matnr && '物料的子材料&& gs_ztmm035-ZCLMC && '已超期&& lv_data && ',不允许订单保存'
             TYPE 'I' DISPLAY LIKE 'E'.
           ENDIF.

           ENDIF.
           CLEAR gs_ztmm035.




        ENDLOOP.
      ENDIF.

<think>好的,用户想在SAP系统中对ME21N事务代码进行采购发票过账保存增强处理。首先,我需要确认ME21N是否直接涉及发票处理。实际上,ME21N主要用于创建采购订单,而发票校验通常是在MIRO事务中完成的。因此,用户可能混淆了事务代码,需要先明确需求的具体场景。 接下来,用户提到的增强点需要对应正确的BADI或用户出口。根据SAP的标准功能,采购订单的增强通常使用BADI如ME_PROCESS_PO_CUST或用户出口,例如在程序M06BIF02中的出口。但发票过账的增强应该在MIRO中使用BADI INVOICE_UPDATE,如引用[1]提到的。因此,需要引导用户确认实际需求是处理采购订单还是发票校验。 如果用户确实需要在ME21N中增强,可能的场景是在保存采购订单时触发自定义逻辑。这时需要检查ME21N的增强点,比如使用BADI ME_PROCESS_PO_CUST的CHECK方法,或者查找相关的用户出口。此外,还要考虑隐式增强的可能性,如在保存时调用函数BAPI_PO_CREATE1后进行增强。 还需要提醒用户注意系统版本和可用增强选项,建议通过SE24检查BADI是否存在,并测试代码是否生效。最后,用户可能需要根据实际业务需求调整代码逻辑,如写入日志或更新自定义表。</think>在SAP系统中对ME21N事务代码进行采购发票过账保存增强处理,可以通过以下步骤实现: ### 一、确定增强类型 建议采用BADI增强方式,因为: 1. ME21N属于采购订单创建事务 2. 发票过账相关逻辑实际发生在MIRO事务中(如引用[1]所述) 3. 若需在采购订单保存时触发逻辑,应使用采购订单保存BADI ### 二、实施步骤 1. **查找BADI**: 通过事务代码SE18查找`ME_PROCESS_PO_CUST` BADI ```abap METHOD if_ex_me_process_po_cust~check. " 采购订单保存前校验逻辑 ENDMETHOD. ``` 2. **用户出口增强**(推荐): 使用采购订单的保存出口: ```abap ENHANCEMENT 1 ZMM_PO_ENHANCE. "版本号 " 在程序M06BIF02中找到USEREXIT_SAVE_DOCUMENT DATA: lv_ebeln TYPE ebeln. lv_ebeln = mekko-ebeln. " 添加自定义逻辑 ENDENHANCEMENT. ``` 3. **隐式增强**: 在函数组MEGUI的`SAVE_DOCUMENT`方法中添加逻辑: ```abap ENHANCEMENT 1 ZMM_PO_SAVE_ENH. "版本号 " 调用BAPI_PO_CREATE1后添加处理逻辑 CALL FUNCTION 'Z_CUSTOM_INVOICE_POSTING' EXPORTING im_ebeln = document->get_ebeln( ). ENDENHANCEMENT. ``` ### 三、注意事项 1. 采购发票校验核心逻辑在MIRO事务中实现(如引用[1]提到的`INVOICE_UPDATE` BADI) 2. 预算检查相关逻辑需结合CJI3等成本报表分析(参考引用[2]) 3. 增强前需通过事务代码SPRO确认标准配置路径: ```路径 SPRO > 物料管理 > 采购 > 采购订单 > 增强 ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值