生产入库增强

小咪咪 2022-04-11 08:10 203阅读 0赞

CMOD   MBCF0002

EXIT  EXIT\_SAPMM07M\_001

INCLUDE ZXMBCU02.

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