SAP CO02 User Exit

最新推荐文章于 2023-04-06 23:52:50 发布

yong325

最新推荐文章于 2023-04-06 23:52:50 发布

阅读量421

点赞数

分类专栏： User exit SAP 文章标签： CO02

本文链接：https://blog.csdn.net/yong325/article/details/8797168

版权

SAP 同时被 2 个专栏收录

433 篇文章 4 订阅

订阅专栏

User exit

58 篇文章 0 订阅

订阅专栏

*&---------------------------------------------------------------------*
*&  Include           ZXCO1U18
*&---------------------------------------------------------------------*
* Add control to production order changed , Lisa wong 02/05/2013
*

IF SY-BINPT = ''.
  DATA:BEGIN OF T_AFVV OCCURS 0,
      LMNGA LIKE AFVV-LMNGA,
      XMNGA LIKE AFVV-XMNGA,
    END OF T_AFVV.
  DATA: L_LMNGA1 LIKE AFVV-LMNGA,
        L_LMNGA_MAX LIKE AFVV-LMNGA.
  SELECT LMNGA XMNGA INTO TABLE T_AFVV
    FROM AFVV
    WHERE AFVV~AUFPL = IS_HEADER_OLD-AUFPL.
  LOOP AT T_AFVV.
    L_LMNGA1 = T_AFVV-LMNGA + T_AFVV-XMNGA.
    IF L_LMNGA_MAX < L_LMNGA1.
      L_LMNGA_MAX = L_LMNGA1.
    ENDIF.
  ENDLOOP.
  IF IS_HEADER_OLD-AUART+3(1) = '1' AND  IS_HEADER_NEW-GAMNG < L_LMNGA_MAX.
    IF NOT IS_HEADER_OLD-FTRMI IS INITIAL.
      MESSAGE E007(BS) WITH 'Released order' 'change'.
      RAISE NO_CHANGES_ALLOWED.
    ENDIF.
  ENDIF.
  ENDIF.

*&---------------------------------------------------------------------*
*&  Include           ZXCO1U23
*&---------------------------------------------------------------------*
* Add control to production order changed Add by Lisa wong 02/05/2013
* Order type = PPX1,if status is released,not allowed to change component
* Order type <> PPX1, require qty could not smaller than withdraw qty

check sy-uname+(1) = 'M'.
IF SY-BINPT = ''.             "Skip BDC program
  IF IS_HEADER-AUART+3(1) = '1'.
    IF NOT IS_HEADER-FTRMI IS INITIAL.
      MESSAGE E007(BS) WITH 'Released order' 'change'.
      RAISE NO_CHANGES_ALLOWED.
    ENDIF.
  ENDIF.
  IF IS_COMPONENT-BDMNG < IS_COMPONENT-ENMNG.
    MESSAGE E752(CN) WITH IS_COMPONENT-MATNR IS_COMPONENT-BDMNG IS_COMPONENT-ENMNG.
    RAISE NO_CHANGES_ALLOWED.
  ENDIF.
ENDIF.