CMOD: CONFPP04 PP定单确认:客户特殊输入检查2
EXIT_SAPLCORF_104
INCLUDE ZXCOFU14
*&---------------------------------------------------------------------*
*& 包含 ZXCOFU14
*&---------------------------------------------------------------------*
DATA:p_menge TYPE mseg-menge.
DATA:p_auart TYPE aufk-auart.
DATA:menge1 TYPE mseg-menge.
DATA:menge2 TYPE afru-lmnga.
DATA:l_menge TYPE mseg-menge.
DATA:menge3 TYPE mseg-menge.
DATA:menge4 TYPE mseg-menge.
CLEAR:p_menge,p_auart.
SELECT SINGLE auart INTO p_auart
FROM aufk
WHERE aufnr = afrud_imp-aufnr
AND werks = afrud_imp-werks.
if SY-MANDT eq '601' or SY-MANDT eq '801'.
IF p_auart = 'LX21'
OR p_auart = 'LX22'OR p_auart = 'LX23' OR p_auart = 'LX31'
or p_auart = &