CONFPP05
*&---------------------------------------------------------------------*
*& 包含 ZXCOFU15
*&---------------------------------------------------------------------*
IF SY-TCODE = 'CO13' OR SY-TCODE = 'ZPP008'.
*ZPP008报工时不触发
DATA L_MARK.
GET PARAMETER ID 'ZPP008' FIELD L_MARK.
IF L_MARK NE 'X'.
DATA L_LMNGA_SUM3 LIKE AFRU-LMNGA. "订单工序净报工数量
DATA L_WEMNG LIKE AFPO-WEMNG. "订单入库数量
LOOP AT AFRUD_TAB WHERE WERKS NE '2010'. "2010 不检查
READ TABLE CAUFVD_TAB WITH KEY AUFNR = AFRUD_TAB-AUFNR.
IF CAUFVD_TAB-FEVOR = 'P01' AND CAUFVD_TAB-AUART = 'TN01'.
SELECT SUM( LMNGA ) INTO L_LMNGA_SUM3 FROM AFRU WHERE AUFNR = AFRUD_TAB-AUFNR AND VORNR = AFRUD_TAB-VORNR AND STOKZ = SPACE AND STZHL = SPACE.
SELECT SINGLE WEMNG INTO L_WEMNG FROM AFPO WHERE AUFNR = AFRUD_TAB-AUFNR.
IF L_WEMNG IS NOT INITIAL.
IF L_LMNGA_SUM3 - AFRUD_TAB-LMNGA < L_WEMNG.
MESSAGE '订单' && AFRUD_TAB-AUFNR && '剩余报工数量小于订单入库数量' TYPE 'E'.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
SET PARAMETER ID 'ZP008' FIELD SPACE.
ENDIF.
