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.
