MIGO 增强

刺骨的言语ヽ痛彻心扉 2021-12-23 14:43 452阅读 0赞

SMOD -- MBCF0002

注： 如果自己用SE37 会报

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![2019062610064325.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3][]

*\*&---------------------------------------------------------------------\**  
*\*& **包含**               ZXMBCU02*  
*\*&---------------------------------------------------------------------\**  
DATA:lv\_zxh TYPE zppt013\-zxh.  
DATA:p\_zzmjh TYPE zmmt002\-zzmjh.  
DATA:lv\_str1 TYPE zmmt002\-zzmjh.  
DATA:lv\_str2 TYPE zmmt002\-zzmjh.  
DATA:lv\_str3 TYPE zmmt002\-zzmjh.  
DATA:lv\_str4 TYPE zmmt002\-zzmjh.  
DATA:lv\_str5 TYPE zmmt002\-zzmjh.  
DATA:p\_anln1 TYPE anla\-anln1.  
DATA:auart TYPE auart.  
DATA:l\_bdmng TYPE bdmng, *"**需求数*  
     l\_enmng TYPE enmng. *"**提货数*  
DATA:kostl LIKE usr21\-kostl.  
DATA:g\_matnr LIKE mara\-matnr.  
DATA:zyxrk TYPE menge\_d.  
*\*data:kostl like usr21-kostl.*  
DATA: l\_sgtxt LIKE mseg\-sgtxt.  
e\_sgtxt = i\_mseg\-sgtxt.  
*"**控制**CO11N**不能做计划外投料*  
IF sy\-tcode = 'CO11N'  
AND i\_mseg\-rsnum IS INITIAL.  
  
  MESSAGE e003(zhele) WITH i\_mseg\-zeile i\_mseg\-matnr.  
  
ENDIF.  
*"**控制**CO11N**不能做计划外投料*  
  
*"**控制素材收货时必须输入模具号*  
CLEAR:auart.  
CLEAR kostl.  
SELECT SINGLE kostl INTO kostl FROM usr21 WHERE bname = sy\-uname.  
IF kostl = ''.  
  SELECT SINGLE auart FROM aufk INTO auart  
    WHERE aufnr = i\_mseg\-aufnr.  
  IF sy\-subrc = 0.  
    IF ( sy\-tcode = 'MIGO'  
    OR sy\-tcode = 'MIGO\_GO' )  
    AND i\_mseg\-bwart = '101'  
    AND ( auart = 'LX03' OR auart = 'LX21' OR auart = 'LX22' OR auart = 'LX23' ).  
  
      SELECT SINGLE zzmjh INTO p\_zzmjh FROM zmmt002 WHERE matnr = i\_mseg\-matnr .  
      CONDENSE p\_zzmjh NO\-GAPS.  
      SPLIT p\_zzmjh AT '/' INTO lv\_str1 lv\_str2 lv\_str3 lv\_str4 lv\_str5.  
  
*\*      lxf start*  
*\*      IF i\_mseg-sgtxt = lv\_str1 OR i\_mseg-sgtxt = lv\_str2 OR i\_mseg-sgtxt = lv\_str3 OR i\_mseg-sgtxt = lv\_str4 OR i\_mseg-sgtxt = lv\_str5.*  
*\*        SELECT SINGLE anln1 INTO p\_anln1 FROM anla WHERE anlkl = '18010000' AND sernr = i\_mseg-sgtxt.*  
*\*        IF p\_anln1 = ''.*  
*\*          MESSAGE '**模具编号没有建立资产编号**' TYPE 'E'.*  
*\*          EXIT.*  
*\*        ENDIF.*  
*\*      ELSE .*  
*\*        MESSAGE '**没有在物料主数据里维护相应的模具号**' TYPE 'E'.*  
*\*        EXIT.*  
*\*      ENDIF.*  
*\*      lxf end*  
*\*      SELECT sernr INTO TABLE @DATA(gt\_anla)*  
*\*        FROM anla*  
*\*        WHERE anlkl = '18010000'*  
*\*        AND   sernr <> ''.*  
  
*\*      SHIFT i\_mseg-sgtxt LEFT DELETING LEADING space.*  
*\*      SELECT SINGLE zxh INTO lv\_zxh FROM zppt013 WHERE matnr = i\_mseg-matnr AND zzmjh = i\_mseg-sgtxt AND loekz = ''.*  
*\*      IF lv\_zxh = ''.*  
*\*        MESSAGE '**请输入正确的模具编号**' TYPE 'E'.*  
*\*        EXIT.*  
*\*      ENDIF.*  
    ENDIF .  
*\*      READ TABLE gt\_anla INTO DATA(gs\_anla)*  
*\*      WITH KEY sernr = i\_mseg-sgtxt.*  
*\*      IF sy-subrc <> 0.*  
*\*        MESSAGE '**请输入正确的模具编号**' TYPE 'E'.*  
*\*        EXIT.*  
*\*      ENDIF.*  
*\*    ENDIF.*  
  
  ENDIF.  
  IF ( sy\-tcode = 'MIGO'  
 OR sy\-tcode = 'MIGO\_GO' )  
 AND i\_mseg\-bwart = '102'  
 AND ( auart = 'LX03' OR auart = 'LX21' OR auart = 'LX22' OR auart = 'LX23' OR auart = 'LX31' OR auart = 'LX32' OR auart = 'LX33' ).  
    CLEAR l\_sgtxt.  
    SELECT SINGLE sgtxt INTO l\_sgtxt FROM mseg WHERE mblnr = i\_mseg\-smbln.  
  
    IF l\_sgtxt IS NOT INITIAL.  
      i\_mseg\-sgtxt = l\_sgtxt.  
    ENDIF.  
  ENDIF.  
  
  IF sy\-mandt EQ '555' OR sy\-mandt EQ '800' . *"**只有创维控制*  
    IF ( sy\-tcode = 'MIGO'OR sy\-tcode = 'MIGO\_GO' )  
      AND i\_mseg\-bwart = '101'  
      AND ( auart = 'LX01' OR auart = 'LX02' OR auart = 'LX04' OR auart = 'LX10' OR auart = 'LX11' ).  
      IF  i\_mseg\-ablad = ''.  
        MESSAGE '请输入责任人' TYPE 'E'.  
      ENDIF.  
      IF i\_mseg\-sgtxt = ''.  
        MESSAGE '请输入备注文本' TYPE 'E'.  
      ENDIF.  
      SHIFT i\_mseg\-sgtxt LEFT DELETING LEADING space.  
      IF i\_mseg\-sgtxt+0(1) = '1' OR i\_mseg\-sgtxt+0(1) = '2' .  
      ELSE.  
        MESSAGE '请输入备注文本 1 或 2' TYPE 'E'.  
      ENDIF .  
    ENDIF.  
  ENDIF .  
  
ENDIF.  
*"**控制素材收货时必须输入模具号*  
  
  
*"**控制必须先报工再入库*  
IF sy\-mandt EQ '555' OR sy\-mandt EQ '800' . *"**只有创维控*  
  IF sy\-tcode = 'MIGO' OR sy\-tcode = 'MIGO\_GO'.  
    IF i\_mseg\-bwart EQ '101' AND ( auart = 'LX01' OR auart = 'LX02' OR auart = 'LX03' OR auart = 'LX04'  
                                                   OR auart = 'LX07' OR auart = 'LX10' OR auart = 'LX11'  
                                                   OR auart = 'LX21' OR auart = 'LX22' OR auart = 'LX23'  
                                                   OR auart = 'LX31' OR auart = 'LX32' OR auart = 'LX33'  
                                                   OR auart = 'LX24' OR auart = 'LX34' ).  
      SELECT aufnr,SUM( lmnga ) AS lmnga INTO TABLE @DATA(gt\_afru) FROM afru  
                                      WHERE aufnr = @i\_mseg\-aufnr  
                                      AND  stzhl = ''  
                                      AND stokz = ''  
                                       GROUP BY aufnr.  
      SORT gt\_afru BY aufnr.  
      SELECT aufnr,wemng  INTO TABLE @DATA(gt\_afpo) FROM afpo WHERE aufnr = @i\_mseg\-aufnr  GROUP BY aufnr,wemng.  
      SORT gt\_afpo BY aufnr.  
      READ TABLE gt\_afru INTO DATA(gs\_afru) WITH KEY aufnr = i\_mseg\-aufnr.  
*\*    IF sy-subrc EQ 0.*  
      READ TABLE gt\_afpo INTO DATA(gs\_afpo) WITH KEY aufnr = i\_mseg\-aufnr.  
*\*      IF sy-subrc EQ 0.*  
      IF gs\_afru\-lmnga \- gs\_afpo\-wemng \- i\_mseg\-erfmg < 0 .  
        MESSAGE '入库数量大于已报工数量' TYPE 'E'.  
        EXIT.  
      ENDIF.  
*\*      ENDIF.*  
*\*    ENDIF.*  
    ENDIF.  
  ENDIF.  
ENDIF .  
  
*"ERFMG**录入数量*  
  
  
*"**控制不允许超领料*  
IF sy\-tcode = 'MIGO' OR sy\-tcode = 'MIGO\_GI' OR sy\-tcode = 'ZMIGO\_01' OR sy\-tcode = 'ZMIGO\_02' .  
  IF i\_mseg\-bwart EQ '261' AND i\_mseg\-rsnum NE ''.  
    SELECT SINGLE bdmng enmng INTO (l\_bdmng,l\_enmng) FROM resb WHERE rsnum = i\_mseg\-rsnum AND rspos = i\_mseg\-rspos AND rsart = i\_mseg\-rsart.  
    l\_bdmng = i\_mseg\-menge \- ( l\_bdmng \- l\_enmng ).  
    IF l\_bdmng > 0.  
      MESSAGE e000(zhele) WITH  i\_mseg\-matnr '超过可领料数量' l\_bdmng i\_mseg\-meins.  
    ENDIF.  
  ENDIF.  
ENDIF.  
*"**控制不允许超领料*  
  
  
*"**控制拆卸单副产品入库数**+**报废数不能大于需求数*  
IF sy\-tcode = 'MIGO' OR sy\-tcode = 'MIGO\_GI' OR sy\-tcode = 'ZMIGO\_01' OR sy\-tcode = 'ZMIGO\_02' .  
  IF i\_mseg\-bwart = '531' AND ( auart = 'LX05' OR auart = 'LX09' ).  
    DATA:BEGIN OF gs\_aufm,  
           aufnr LIKE aufm\-aufnr,  
           matnr LIKE aufm\-matnr,  
           menge LIKE aufm\-menge,  
*\*           shkzg LIKE aufm-shkzg,*  
         END OF gs\_aufm.  
    DATA:gt\_aufm LIKE TABLE OF gs\_aufm,  
         lt\_aufm LIKE TABLE OF gs\_aufm,  
         ls\_aufm LIKE gs\_aufm.  
    DATA:BEGIN OF gs\_zmmt003i,  
           aufnr LIKE zmmt003i\-aufnr,  
           matnr LIKE zmmt003i\-matnr,  
           zbfsl LIKE zmmt003i\-zbfsl,  
         END OF gs\_zmmt003i.  
    DATA:gt\_zmmt003i LIKE TABLE OF gs\_zmmt003i.  
    DATA:BEGIN OF ws\_resb,  
           aufnr LIKE resb\-aufnr,  
           matnr LIKE resb\-matnr,  
           bdmng LIKE resb\-bdmng,  
         END OF ws\_resb.  
    DATA wt\_resb LIKE TABLE OF ws\_resb.  
  
    CLEAR:gs\_aufm,ls\_aufm,gs\_zmmt003i,ws\_resb.  
  
    SELECT aufnr matnr SUM( menge ) AS menge INTO TABLE gt\_aufm FROM aufm WHERE aufnr = i\_mseg\-aufnr AND matnr = i\_mseg\-matnr  AND bwart = '531' GROUP BY aufnr matnr.  
    SORT gt\_aufm BY aufnr matnr.  
    SELECT aufnr matnr SUM( menge ) AS menge INTO TABLE lt\_aufm FROM aufm WHERE aufnr = i\_mseg\-aufnr AND matnr = i\_mseg\-matnr  AND  bwart = '532' GROUP BY aufnr matnr.  
    SORT lt\_aufm BY aufnr matnr.  
    SELECT aufnr matnr SUM( zbfsl ) AS zbfsl INTO TABLE gt\_zmmt003i FROM zmmt003i WHERE aufnr = i\_mseg\-aufnr AND matnr = i\_mseg\-matnr AND loekz = '' GROUP BY aufnr matnr.  
    SORT gt\_zmmt003i BY aufnr matnr.  
     *"modify lxf start*  
*\*    SELECT aufnr matnr bdmng INTO TABLE wt\_resb FROM resb WHERE aufnr = i\_mseg-aufnr AND matnr = i\_mseg-matnr  AND xloek = '' GROUP BY aufnr matnr bdmng.*  
    SELECT aufnr matnr bdmng INTO TABLE wt\_resb FROM resb WHERE aufnr = i\_mseg\-aufnr  AND matnr = i\_mseg\-matnr AND rspos = i\_mseg\-rspos   AND xloek = '' GROUP BY aufnr matnr bdmng.  
 *"modify lxf end*  
    SORT wt\_resb BY aufnr matnr.  
    READ TABLE gt\_aufm INTO gs\_aufm WITH KEY aufnr = i\_mseg\-aufnr matnr = i\_mseg\-matnr BINARY SEARCH.  
    READ TABLE lt\_aufm INTO ls\_aufm WITH KEY aufnr = i\_mseg\-aufnr matnr = i\_mseg\-matnr BINARY SEARCH.  
    READ TABLE gt\_zmmt003i INTO gs\_zmmt003i WITH KEY aufnr = i\_mseg\-aufnr matnr = i\_mseg\-matnr BINARY SEARCH.  
    READ TABLE wt\_resb INTO ws\_resb WITH KEY aufnr = i\_mseg\-aufnr matnr = i\_mseg\-matnr BINARY SEARCH.  
  
  
    IF i\_mseg\-erfmg + gs\_aufm\-menge \- ls\_aufm\-menge + gs\_zmmt003i\-zbfsl \- ws\_resb\-bdmng > 0.  
      MESSAGE '入库数与报废数之和大于需求数' TYPE 'E'.  
    ENDIF.  
    CLEAR:gs\_aufm,ls\_aufm,gs\_zmmt003i,ws\_resb.  
  ENDIF.  
ENDIF.  
*"**控制拆卸单副产品入库数**+**报废数不能大于需求数*  
  
  
*"**控制配套入库*  
  
IF sy\-mandt EQ '555' OR sy\-mandt EQ '800' . *"**只有创维控制*  
  IF i\_mseg\-bwart = '101' AND  
    ( auart = 'LX01'  
    OR auart = 'LX02'  
*\* OR auart = 'LX03'*  
   OR auart = 'LX04'  
   OR auart = 'LX07'  
   OR auart = 'LX10'  
   OR auart = 'LX11' ).  
  
    DATA:lliao  LIKE aufm\-menge, *"**对应组件的领料数量*  
         tabix  TYPE sy\-tabix,  
         psmng  LIKE afpo\-psmng,  
         dwyl   LIKE aufm\-menge, *"**单位用量*  
         yxrksl LIKE aufm\-menge,  *"**组件允许入库的数量*  
         wemng  LIKE afpo\-wemng.  
  
*\*  select aufnr,matnr,sum( bdmng ) AS bdmng,sum( ausch ) AS ausch   "**需求数**/**报废率*  
*\*    INTO TABLE @DATA(gt\_resb)*  
*\*    FROM resb*  
*\*    WHERE aufnr = @i\_mseg-aufnr*  
*\*     and bwart = '261'*  
*\*     AND xloek = ''*  
*\*     and bdmng <> 0*  
*\*    GROUP BY aufnr,matnr.*  
*\*  SORT gt\_resb BY aufnr matnr.*  
*\*  DELETE ADJACENT DUPLICATES FROM gt\_resb.*  
*\**  
*\*  SELECT aufnr,matnr,bwart,SUM( menge ) AS menge   "**提货数量*  
*\*    INTO TABLE @DATA(gt\_aufm)*  
*\*    FROM aufm*  
*\*    WHERE bwart IN ('261','262')*  
*\*    AND   aufnr = @i\_mseg-aufnr*  
*\*    GROUP BY aufnr,bwart,matnr.*  
*\*  SORT gt\_aufm BY aufnr matnr bwart.*  
*\*  DELETE ADJACENT DUPLICATES FROM gt\_aufm.*  
*\**  
*\*\*  SELECT aufnr,matnr,SUM( zbfsl ) AS zbfsl,SUM( zwssl ) AS zwssl  "**报废数量、无实物数*  
*\*\*    INTO TABLE @DATA(gt\_zmmt003i)*  
*\*\*    FROM zmmt003i*  
*\*\*    WHERE aufnr = @i\_mseg-aufnr*  
*\*\*    AND   loekz = ''*  
*\*\*    GROUP BY aufnr,matnr.*  
*\*\*  SORT gt\_zmmt003i BY aufnr matnr.*  
*\*\*  DELETE ADJACENT DUPLICATES FROM gt\_zmmt003i.*  
*\**  
*\*  CLEAR:yxrksl.*  
*\**  
*\*  READ TABLE gt\_resb INTO DATA(wa\_resb)*  
*\*  INDEX 1.*  
*\*  IF sy-subrc = 0.*  
*\*    yxrksl = wa\_resb-bdmng.*  
*\*  ENDIF.*  
*\*\*  yxrksl = 999999999.*  
*\**  
*\*  CLEAR:wa\_resb.*  
*\*  LOOP AT gt\_resb INTO wa\_resb.*  
*\**  
*\*    READ TABLE gt\_aufm INTO DATA(wa\_aufm)*  
*\*    WITH KEY   aufnr = wa\_resb-aufnr*  
*\*               matnr = wa\_resb-matnr*  
*\*               bwart = '261'*  
*\*               BINARY SEARCH.*  
*\*    IF sy-subrc = 0.*  
*\*      lliao = lliao + wa\_aufm-menge.*  
*\*    ENDIF.*  
*\*    CLEAR:wa\_aufm.*  
*\**  
*\*    READ TABLE gt\_aufm INTO wa\_aufm*  
*\*    WITH KEY   aufnr = wa\_resb-aufnr*  
*\*               matnr = wa\_resb-matnr*  
*\*               bwart = '262'*  
*\*               BINARY SEARCH.*  
*\*    IF sy-subrc = 0.*  
*\*      lliao = lliao - wa\_aufm-menge.*  
*\*    ENDIF.*  
*\*    CLEAR:wa\_aufm.*  
*\**  
*\*\*    READ TABLE gt\_zmmt003i INTO DATA(wa\_zmmt003i)*  
*\*\*    WITH KEY   aufnr = wa\_resb-aufnr*  
*\*\*               matnr = wa\_resb-matnr*  
*\*\*               BINARY SEARCH.*  
*\*\*    IF sy-subrc = 0.*  
*\*\*      lliao = lliao - wa\_zmmt003i-zbfsl - wa\_zmmt003i-zwssl.*  
*\*\*    ENDIF.*  
*\**  
*\*    CLEAR:psmng.*  
*\*    SELECT SINGLE psmng   "**订单数*  
*\*      INTO psmng*  
*\*      FROM afpo*  
*\*     WHERE aufnr = wa\_resb-aufnr.*  
*\**  
*\*    IF psmng <> 0*  
*\*    AND wa\_resb-bdmng <> 0*  
*\*    AND ( 1 + wa\_resb-ausch ) <> 0.*  
*\*      CLEAR dwyl.*  
*\*      dwyl = ( lliao / wa\_resb-bdmng ) \* psmng." / ( 1 + ( wa\_resb-ausch / 100 ) ).*  
*\*    ENDIF.*  
*\**  
*\*    IF dwyl <> 0.*  
*\*      IF dwyl < yxrksl.*  
*\*        yxrksl = ceil( dwyl ).*  
*\*        g\_matnr = wa\_resb-matnr.*  
*\*      ENDIF.*  
*\*    ENDIF.*  
*\**  
*\*    CLEAR:lliao,dwyl.*  
*\**  
*\*  ENDLOOP.*  
*\**  
*\*  SELECT SINGLE wemng*  
*\*    INTO wemng*  
*\*    FROM afpo*  
*\*    WHERE aufnr = i\_mseg-aufnr.*  
*\*  CLEAR kostl.*  
*\*  SELECT SINGLE kostl INTO kostl FROM usr21 WHERE bname = sy-uname.*  
*\*  IF kostl = ''.*  
*\*    IF ( wemng + i\_mseg-menge ) > yxrksl.*  
*\*      lliao = wemng + i\_mseg-menge - yxrksl.*  
*\*      MESSAGE '**订单收货数量大于允许入库的的数量**' && g\_matnr && lliao && i\_mseg-meins  TYPE 'E'.*  
*\*    ENDIF.*  
*\*  ENDIF.*  
*\*  CLEAR g\_matnr.*  
*\*ENDIF.*  
  
  
    *"**控制配套入库*  
*\**  
    SELECT resb~aufnr,resb~matnr, resb~bdmng ,resb~enmng,resb~ausch  *"**需求数量**/**提货数量*  
        INTO TABLE @DATA(gt\_resb)  
        FROM resb INNER JOIN mara ON resb~matnr = mara~matnr  
        WHERE resb~aufnr = @i\_mseg\-aufnr  
         AND resb~bwart = '261'  
         AND resb~xloek = ''  
         AND resb~bdmng <> 0  
         AND  mara~mtart <> 'Z011'  
         AND postp = 'L'  
        GROUP BY resb~aufnr,resb~matnr, resb~bdmng ,resb~enmng,resb~ausch.  
    SORT gt\_resb BY aufnr matnr.  
    DELETE ADJACENT DUPLICATES FROM gt\_resb.  
  
    CLEAR:yxrksl.  
    yxrksl = 99999999.  
    LOOP AT gt\_resb INTO DATA(wa\_resb).  
  
      lliao = wa\_resb\-enmng.  
      IF  lliao = 0.  
        yxrksl = 0.  
        g\_matnr = wa\_resb\-matnr.  
        EXIT.  
      ENDIF.  
      SELECT SINGLE psmng   *"**订单数*  
          INTO psmng  
          FROM afpo  
         WHERE aufnr = wa\_resb\-aufnr.  
      IF psmng <> 0  
       AND wa\_resb\-bdmng <> 0.  
        CLEAR dwyl.  
        dwyl = ( lliao / wa\_resb\-bdmng ) \* psmng.  
      ENDIF.  
  
      IF dwyl <> 0.  
        IF dwyl < yxrksl.  
          yxrksl = ceil( dwyl ).  
          g\_matnr = wa\_resb\-matnr.  
        ENDIF.  
      ELSE.  
        yxrksl = 0.  
        g\_matnr = wa\_resb\-matnr.  
        EXIT.  
      ENDIF.  
  
      CLEAR:lliao,dwyl.  
  
    ENDLOOP.  
  
    SELECT SINGLE wemng  
      INTO wemng  
      FROM afpo  
      WHERE aufnr = i\_mseg\-aufnr.  
    CLEAR kostl.  
    SELECT SINGLE kostl INTO kostl FROM usr21 WHERE bname = sy\-uname.  
    IF kostl = ''.  
      IF ( wemng + i\_mseg\-menge ) > yxrksl.  
        lliao = wemng + i\_mseg\-menge \- yxrksl.  
        MESSAGE '订单收货数量大于允许入库的的数量' && g\_matnr && lliao && i\_mseg\-meins  TYPE 'E'.  
      ENDIF.  
    ENDIF.  
    CLEAR g\_matnr.  
  ENDIF.  
  
ENDIF .  
  
*\**  
*\*"**控制委外订单配套入库*  
*\*IF ( sy-tcode = 'MIGO' OR sy-tcode = 'MIGO\_GR' )*  
*\*   AND i\_mseg-bwart = '101'*  
*\*   AND i\_mseg-ebeln+0(2) = '42'.*  
*\**  
*\*  DATA:llsl\_01  LIKE aufm-menge, "**对应组件的领料数量*  
*\*       llsl\_02  LIKE aufm-menge,*  
*\*       zllsl    LIKE aufm-menge,*  
*\*\*       tab   TYPE sy-tabix,*  
*\*       menge    LIKE ekpo-menge,*  
*\*       menge\_01 LIKE ekpo-menge,*  
*\*       menge\_02 LIKE ekpo-menge,*  
*\*       zdwyl    LIKE mseg-menge, "**单位用量*  
*\*       yxrks    LIKE ekpo-menge.  "**组件允许入库的数量*  
*\**  
*\*  DATA:BEGIN OF ls\_resb,*  
*\*         ebeln LIKE resb-ebeln,*  
*\*         ebelp LIKE resb-ebelp,*  
*\*         matnr LIKE resb-matnr,*  
*\*         bdmng LIKE resb-bdmng,*  
*\*         enmng LIKE resb-enmng,*  
*\*         ausch LIKE resb-ausch,*  
*\*       END OF ls\_resb.*  
*\**  
*\*  DATA:lt\_resb LIKE TABLE OF ls\_resb.*  
*\**  
*\*  SELECT ebeln ebelp matnr bdmng enmng ausch  "**需求数量**/**提货数量*  
*\*      INTO TABLE lt\_resb*  
*\*      FROM resb "INNER JOIN mara ON resb~matnr = mara~matnr*  
*\*      WHERE ebeln = i\_mseg-ebeln*  
*\*       AND ebelp = i\_mseg-ebelp*  
*\*       AND xloek = ''*  
*\*       AND bdmng <> 0.*  
*\**  
*\*  CLEAR:yxrks, g\_matnr.*  
*\*  yxrks = 99999999.*  
*\*  LOOP AT lt\_resb INTO ls\_resb.*  
*\*    CLEAR:menge,zllsl,llsl\_01,llsl\_02.*  
*\*    SELECT SINGLE SUM( menge ) AS menge INTO llsl\_01 FROM mseg*  
*\*          WHERE wempf = i\_mseg-ebeln*  
*\*          AND ablad = i\_mseg-ebelp*  
*\*          AND matnr = ls\_resb-matnr*  
*\*          AND bwart = '541'*  
*\*          AND shkzg = 'H'.*  
*\**  
*\*    SELECT SINGLE SUM( menge ) AS menge INTO llsl\_02 FROM mseg*  
*\*             WHERE ebeln = i\_mseg-ebeln*  
*\*             AND wempf = i\_mseg-ebelp*  
*\*             AND ablad = ls\_resb-matnr*  
*\*             AND bwart = '542'*  
*\*             AND shkzg = 'H'.*  
*\**  
*\*    zllsl = llsl\_01 - llsl\_02.*  
*\**  
*\*    IF zllsl = 0.*  
*\*      yxrksl = 0.*  
*\*      g\_matnr = ls\_resb-matnr.*  
*\*      EXIT.*  
*\*    ENDIF.*  
*\**  
*\*    SELECT SINGLE menge   "**订单数*  
*\*              INTO menge*  
*\*              FROM ekpo*  
*\*             WHERE ebeln = ls\_resb-ebeln AND ebelp = ls\_resb-ebelp.*  
*\**  
*\*    IF menge <> 0*  
*\*         AND ls\_resb-bdmng <> 0.*  
*\*      CLEAR zdwyl.*  
*\*      zdwyl = ( zllsl / ls\_resb-bdmng ) \* menge.*  
*\*    ENDIF.*  
*\**  
*\*    IF zdwyl <> 0.*  
*\*      IF zdwyl < yxrks.*  
*\*        yxrks = ceil( zdwyl ).*  
*\*        g\_matnr = ls\_resb-matnr.*  
*\*      ENDIF.*  
*\*    ELSE.*  
*\*      yxrks = 0.*  
*\*      g\_matnr = ls\_resb-matnr.*  
*\*      EXIT.*  
*\*    ENDIF.*  
*\**  
*\*    CLEAR:zllsl,zdwyl,menge.*  
*\**  
*\*  ENDLOOP.*  
*\**  
*\*  SELECT SINGLE SUM( menge ) AS menge*  
*\*     INTO menge\_01*  
*\*     FROM mseg*  
*\*     WHERE ebeln = i\_mseg-ebeln*  
*\*     AND ebelp = i\_mseg-ebelp*  
*\*     AND bwart = '101'*  
*\*     AND shkzg = 'S'.*  
*\**  
*\*  SELECT SINGLE SUM( menge ) AS menge*  
*\*      INTO menge\_02*  
*\*      FROM mseg*  
*\*      WHERE ebeln = i\_mseg-ebeln*  
*\*      AND ebelp = i\_mseg-ebelp*  
*\*      AND bwart = '102'*  
*\*      AND shkzg = 'H'.*  
*\**  
*\*  CLEAR kostl.*  
*\*  SELECT SINGLE kostl INTO kostl FROM usr21 WHERE bname = sy-uname.*  
*\*  IF kostl = ''.*  
*\*    IF ( menge\_01 - menge\_02 + i\_mseg-menge ) > yxrksl.*  
*\*      zllsl = menge\_01 - menge\_02 + i\_mseg-menge - yxrks.*  
*\*      MESSAGE '**收货数量大于允许入库的的数量**' && g\_matnr && zllsl && i\_mseg-meins  TYPE 'E'.*  
*\*    ENDIF.*  
*\*  ENDIF.*  
*\*  CLEAR g\_matnr.*  
*\*ENDIF.*

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20211223/7b28032323074223af7ee29b4cb29406.png
[2019062610064325.png]: /images/20211223/e22950dd86aa421791b7da095e5f853d.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20211223/98a2e37292b04dc3a22060b0942c1cb5.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2]: /images/20211223/eed1bb8265564ba2a69bc6cdfd677bd2.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3]: /images/20211223/3fa1746f71364bb8b93966afa3125b22.png