SAP 报工增强

我就是我 2022-04-11 07:46 300阅读 0赞

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 = 'LX32' OR P\_AUART = 'LX33' .  
  SELECT SINGLE SUM( menge ) AS menge INTO p\_menge  
    FROM mseg  
    WHERE aufnr = afrud\_imp-aufnr  
    AND bwart = '261'.  
  IF p\_menge = 0 .  
    MESSAGE '未领料，不允许报工' TYPE 'E'.  
  ENDIF.  
ENDIF.  
  
  else .  
  
    IF  p\_auart = 'LX01'  OR  p\_auart = 'LX02'  OR  p\_auart = 'LX11'  
       OR  p\_auart = 'LX07'OR  p\_auart = 'LX04'  OR  p\_auart = 'LX10'.  
      SELECT SINGLE SUM( menge ) AS menge INTO p\_menge  
        FROM mseg  
        WHERE aufnr = afrud\_imp-aufnr  
        AND bwart = '261'.  
      IF p\_menge = 0 .  
        MESSAGE '未领料，不允许报工' TYPE 'E'.  
      ENDIF.  
    ENDIF.  
endif .  
  
  
IF p\_auart = 'LX05'  OR  p\_auart = 'LX09'.  
  "领料数量  
  SELECT SINGLE SUM( menge ) AS menge INTO p\_menge  
     FROM mseg  
     WHERE aufnr = afrud\_imp-aufnr  
     AND bwart = '261'.  
  SELECT SINGLE SUM( menge ) AS menge INTO l\_menge  
     FROM mseg  
     WHERE aufnr = afrud\_imp-aufnr  
     AND bwart = '262'.  
  IF p\_menge - l\_menge = 0.  
    MESSAGE '未领料，不允许报工' TYPE 'E'."SMENG 工序总数量  
  ENDIF.  
  
  "需求数量  
  SELECT SINGLE SUM( bdmng ) AS bdmng INTO menge1  
     FROM resb  
     WHERE aufnr = afrud\_imp-aufnr  
     AND bwart = '261'  
     AND xloek = ''.  
  
  
  "报工数量  
  SELECT SINGLE SUM( lmnga ) AS lmnga INTO menge2  
     FROM afru  
     WHERE aufnr = afrud\_imp-aufnr  
     AND werks = afrud\_imp-werks  
     AND  stokz = ''  
     AND stzhl = ''.  
  
  "允许报工数量  
  IF menge1 <> 0.  
    menge3 = afrud\_imp-smeng \* ( p\_menge - l\_menge ) / menge1.  
    menge3 = ceil( menge3 ).  
  ENDIF.  
  
  IF menge3 - menge2 - afrud\_imp-lmnga < 0.  
    menge4 = menge2 + afrud\_imp-lmnga - menge3.  
  
    MESSAGE '订单报工数量大于允许报工的数量' && menge4 TYPE 'E'.  
  ENDIF.  
ENDIF.