SAP 采购订单收货后不能修改价格的增强

最新推荐文章于 2024-12-12 22:22:21 发布

SAPmatinal

最新推荐文章于 2024-12-12 22:22:21 发布

阅读量1.8k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： ABAP技术 MM模块文章标签： MM SAP SAP MM ERP PO

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/83816586

ABAP技术同时被 2 个专栏收录

1038 篇文章

订阅专栏

MM模块

193 篇文章

订阅专栏

本文介绍了一个增强功能MM06E005，该功能限制了在采购订单部分收货后修改价格的能力。通过检查收货状态和价格变动，确保业务流程的准确性与合规性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

采购订单收货后不能修改价格的增强

增强名：MM06E005

出口：EXIT_SAPMM06E_012

  IF SY-TCODE <> 'ME22N' AND SY-TCODE  <> 'ME22' AND  SY-TCODE <> 'ME23N' AND SY-TCODE  <> 'ME23'.
  EXIT.
ENDIF.
DATA T_NETPR TYPE EKPO-NETPR.
DATA TT_SUM   TYPE EKBE-BPMNG.
DATA T_SUM    TYPE EKBE-BPMNG.
DATA T_SHKZG  TYPE EKBE-SHKZG.
LOOP AT TEKPO.

SELECT SINGLE NETPR INTO T_NETPR FROM EKPO WHERE EBELN = TEKPO-EBELN
AND EBELP = TEKPO-EBELP.

  IF TEKPO-NETPR <> T_NETPR.
    SELECT BPMNG SHKZG INTO (T_SUM,T_SHKZG) FROM EKBE WHERE EBELN = TEKPO-EBELN
                                      AND   EBELP = TEKPO-EBELP
                                      AND   BEWTP = 'E'.
      IF T_SHKZG = 'S'.
        TT_SUM = TT_SUM + T_SUM.
      ELSE.
        TT_SUM = TT_SUM - T_SUM.
      ENDIF.

    ENDSELECT.
    IF TT_SUM <> 0.
      MESSAGE E899(MM) WITH TEKPO-EBELN TEKPO-EBELP '由于已收货，不允许修改价格'.
    ENDIF.
  ENDIF.

  CLEAR T_NETPR.
  CLEAR TT_SUM.
  CLEAR T_SUM.
ENDLOOP.