ZCMM01-11

*kelly add 20100113  for npd  misc issue /return  ,transfer must key
* comment
   IF ZCM03-DOCTYPE = '5' OR ZCM03-DOCTYPE = '6' OR ZCM03-DOCTYPE = '4'.
      IF ZCM04TAB-WERKS = 'PSC1' OR ZCM04TAB-WERKS = 'PSC2'
        OR ZCM04TAB-WERKS = 'PSK1' OR ZCM04TAB-WERKS = 'PSK2'.
        IF ZCM03-COMMENTTEXT = ''.
          MESSAGE E000 WITH 'Plese input comment information !'.
        ENDIF.
      ENDIF.
    ENDIF.
*END ADD BY KELLY 20100113

*add by yuan-yuan xiao 080519
    IF ZCM03-DOCTYPE = '5'.
      IF ZCM04WA-WERKS = 'PCFY'.
        CLEAR L_VALUE.
        SELECT SINGLE VALUE
        INTO L_VALUE
        FROM ZMM048
        WHERE WERKS = 'PCFY'
        AND BJECT = 'EXPENSIVE'
        AND VALUE = 'ACTIVE'.

        IF SY-SUBRC = 0.
          IF ZCM04WA-EBELN IS INITIAL.
            MESSAGE E000 WITH 'Please input Purchasing doc.'.
          ENDIF.

          CLEAR:L_SUM,L_ACCEPT,L_CNT.
          SELECT COUNT(*)
          INTO L_CNT
          FROM EKPO
          WHERE EBELN = ZCM04WA-EBELN
          AND MATNR = ZCM04WA-MATNR
          AND KNTTP <> 'A'.    " add by nancy 081022
          IF L_CNT > 0.

            SELECT SUM( B~WEMNG )
            INTO L_SUM
            FROM EKPO AS A
            INNER JOIN EKET AS B
            ON A~MANDT = B~MANDT
            AND A~EBELN = B~EBELN
            AND A~EBELP = B~EBELP
            WHERE A~EBELN = ZCM04WA-EBELN
            AND A~MATNR = ZCM04WA-MATNR
            AND A~KNTTP <> 'A'.  " add by nancy 081022

            SELECT SUM( ERFMG )
            INTO L_ACCEPT
            FROM ZCM04
            WHERE EBELN = ZCM04WA-EBELN
            AND MATNR = ZCM04WA-MATNR.

            L_ALLOW = L_SUM - L_ACCEPT.
*add by yuan-yuan xiao 080620
            IF NOT ZCM03-DOCNUMBER IS INITIAL.
              DATA:L_ERFMG LIKE ZCM04-ERFMG.
              CLEAR:L_ERFMG.

              SELECT SINGLE ERFMG
              INTO L_ERFMG
              FROM ZCM04
              WHERE DOCNUMBER = ZCM03-DOCNUMBER
              AND DOCITEM = ZCM04TAB-DOCITEM.
              L_ALLOW = L_ALLOW + L_ERFMG.
            ENDIF.
*
            IF ZCM04WA-ERFMG > L_ALLOW.
              MESSAGE E000 WITH
              'Requested Qty:' ZCM04WA-ERFMG ' > Delivered Qty:'
              L_ALLOW.
            ENDIF.
          ELSE.
            MESSAGE E000 WITH
              'Material no & PO doesn''tmatch OR PO Account'
                 'CATEGORY = A'.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " check_item_data

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-666162/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-666162/