ENHANCEMENT   ZCO15_ENHS.    "active version

IF SY-TCODE = 'CO15'.

  no_dialog = 'X'.

ENDIF.

ENDENHANCEMENT.

ENHANCEMENT   ZCO15_ENH.    "active version

"循环内表处理

  DATA:GV_LINE TYPE I."重新生成的两表对应序列

  DATA:VT_MCHB TYPE TABLE OF MCHB.

  DATA:VS_MCHB TYPE MCHB.

  DATA:LV_ERFMG TYPE MB_ERFMG."需求数量

  DATA:LV_LINE TYPE I.

  DATA:LV_FLAG TYPE C.

  CLEAR:GV_LINE,VT_MCHB[],VS_MCHB,LV_ERFMG,LV_LINE."情况临时变量\

  DESCRIBE TABLE GT_CONTROL_TAB LINES LV_LINE.

  IF SY-TCODE = 'CO15'.

    SORT GT_COMP BY MATNR ASCENDING.

    LOOP AT GT_COMP." WHERE MARK = 'X'.

      GV_LINE = GV_LINE + ."初始化次数

      AT NEW MATNR.

        LV_FLAG = 'X'.

        CLEAR:VT_MCHB[].

        ENDAT.

        LV_ERFMG = GT_COMP-ERFMG."将数量存入变量，后续判断使用

*

*        IF GT_COMP-CHARG IS NOT INITIAL."排出已经确定的批次

*          LV_ERFMG = LV_ERFMG - GT_COMP-ERFMG.

*        ENDIF.

      IF GT_COMP-MARK EQ 'X' AND GT_COMP-LGORT IS NOT INITIAL

        AND GT_COMP-WERKS IS NOT INITIAL AND GT_COMP-CHARG IS INITIAL.

        "查询所有物料，工厂，库位级别的批次库存

        IF LV_FLAG = 'X'.

          SELECT MATNR WERKS LGORT CHARG CLABS INTO CORRESPONDING FIELDS OF TABLE VT_MCHB

          FROM MCHB WHERE MATNR = GT_COMP-MATNR

            AND WERKS = GT_COMP-WERKS

            AND LGORT = GT_COMP-LGORT

            AND LVORM = ''

            AND CLABS <> .

        ENDIF.

          SORT VT_MCHB BY CHARG ASCENDING.

          LOOP AT VT_MCHB INTO VS_MCHB WHERE CLABS <> .

            IF LV_ERFMG > ."判断是否数量已满足

              IF VS_MCHB-CLABS >= LV_ERFMG."满足数量要求，选择批次，并把数量置0

                GT_COMP-CHARG = VS_MCHB-CHARG.

                VS_MCHB-CLABS = VS_MCHB-CLABS - LV_ERFMG."更新批次剩余数量

                LV_ERFMG = .

              ELSE."数量不足，使用全部本批次，不足数量循环下一批,并插入行

                GT_COMP-CHARG = VS_MCHB-CHARG.

                LV_ERFMG = LV_ERFMG - VS_MCHB-CLABS.

                GT_COMP-ERFMG = VS_MCHB-CLABS.

                VS_MCHB-CLABS = VS_MCHB-CLABS - LV_ERFMG."更新批次剩余数量

                IF VS_MCHB-CLABS < .

                  VS_MCHB-CLABS = .

                ENDIF.

                GT_COMP-IND_ST = GV_LINE.

                INSERT GT_COMP.

                CLEAR:GT_COMP-CHARG.

                GT_COMP-ERFMG = LV_ERFMG.

                GV_LINE = GV_LINE + ."自增一位

                LV_LINE = LV_LINE + ."自增一位

                GT_CONTROL_TAB-IND_TO_TABLE = LV_LINE.

                GT_CONTROL_TAB-IND_FOR_START_SORT = LV_LINE.

                APPEND GT_CONTROL_TAB.

              ENDIF.

              MODIFY VT_MCHB FROM VS_MCHB.

            ENDIF.

          ENDLOOP.

      ENDIF.

      GT_COMP-IND_ST = GV_LINE.

      MODIFY GT_COMP.

      CLEAR:LV_FLAG.

   ENDLOOP.

  ENDIF.

ENDENHANCEMENT.