未领料不能报工控制 CONFPP04

朱雀 2021-12-20 11:23 193阅读 0赞

未领料不能那报工控制

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

*\*&---------------------------------------------------------------------\**  
*\*& **包含**               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.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20211220/0dd8f22fda2c4314904d7b18a6e6f6bc.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20211220/482818f17f8f410ab017f2278ea7f258.png