性能改善

*  LOOP AT IT_STLNR.
*    LOOP AT IT_SKDRULE
*      WHERE WERKS = IT_STLNR-WERKS AND
*            MTART = IT_STLNR-MTART.
*        IF IT_STLNR-MATNR CP IT_SKDRULE-MATNR.
*
*          DELETE IT_STLNR.
*          CONTINUE.
*        ENDIF.
*    ENDLOOP.
*  ENDLOOP.
**---符合SKD机种不走规则表,故删除BY EASY IN 20090909---------------**
  LOOP AT IT_SKDRULE.
    DELETE IT_STLNR WHERE  WERKS = IT_SKDRULE-WERKS
                      AND  MTART = IT_SKDRULE-MTART
                      AND  MATNR CP IT_SKDRULE-MATNR.
  ENDLOOP.

**----------------------------------------------------------------**
*  LOOP AT IT_RULE.
*    LOOP AT IT_STLNR WHERE WERKS = IT_RULE-WERKS
*                       AND MTART = IT_RULE-MTART
*                       AND MATNR CP IT_RULE-MATNR
*                       AND CFLAG <> 'X'.
*      LV_TABIX = SY-TABIX.
*      IF IT_STLNR-IDNRK+1(2) = '26' OR IT_STLNR-IDNRK+1(2) = '40'.
*        READ TABLE IT_ERULE WITH KEY WERKS = IT_STLNR-WERKS
*                                     MATNR = IT_STLNR-IDNRK.
*        IF SY-SUBRC = 0.
*          IT_STLNR-NPOSN = IT_ERULE-POSNR.
*        ELSE.
*          IT_STLNR-NPOSN = IT_RULE-POSNR.
*        ENDIF.
*      ELSE.
*        IT_STLNR-NPOSN = IT_RULE-POSNR.
*      ENDIF.
*      IT_STLNR-CFLAG = 'X'.
*      MODIFY IT_STLNR INDEX LV_TABIX TRANSPORTING NPOSN CFLAG.
*    ENDLOOP.
*  ENDLOOP.

 


  LOOP AT IT_RULE.
    LOOP AT IT_STLNR WHERE WERKS = IT_RULE-WERKS
                       AND MTART = IT_RULE-MTART
                       AND MATNR CP IT_RULE-MATNR
                       AND CFLAG <> 'X'.
      IT_STLNR-CFLAG = 'X'.
      IT_STLNR-NPOSN = IT_RULE-POSNR.
      MODIFY IT_STLNR  TRANSPORTING NPOSN CFLAG
                       WHERE WERKS = IT_RULE-WERKS
                         AND MTART = IT_RULE-MTART
                         AND MATNR CP IT_RULE-MATNR.
        EXIT.
    ENDLOOP.
  ENDLOOP.


  LOOP AT IT_ERULE.
    IT_STLNR-NPOSN = IT_ERULE-POSNR.
    MODIFY IT_STLNR TRANSPORTING NPOSN
                    WHERE  WERKS = IT_ERULE-WERKS
                      AND  IDNRK = IT_ERULE-MATNR
                      AND  CFLAG = 'X'.
  ENDLOOP.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值