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

最新推荐文章于 2024-04-06 21:09:14 发布

SAP剑客

最新推荐文章于 2024-04-06 21:09:14 发布

阅读量3k

点赞数 1

分类专栏：程序人生 ABAPer

本文链接：https://blog.csdn.net/zhongguomao/article/details/78613859

版权

程序人生 ABAPer 专栏收录该内容

1330 篇文章 170 订阅

订阅专栏

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

增强名：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.