信息记录中的价格 a017

去年读取过一下  今天遇到读取问题

又回顾了一下

 

  select  EKORG
            ESOKZ
            EINA~INFNR
            LIFNR
            MATKL
            MATNR
            WERKS
            VABME
            MEINS

      into CORRESPONDING FIELDS OF TABLE it_eine
      from EINA
        INNER JOIN EINE ON EINA~INFNR = EINE~INFNR
      FOR ALL ENTRIES IN matlist
      where matnr eq matlist-matnr
      and EINA~LOEKZ ne 'X'
      and netpr > 0.

      LOOP AT IT_EINE.
        CLEAR:IT_KONP,IT_KONP[].
        CALL FUNCTION 'ME_GET_INFORECORD_CONDITIONS_1'
          EXPORTING
           I_EKORG = IT_EINE-EKORG
           I_ESOKZ = IT_EINE-ESOKZ
           I_INFNR = IT_EINE-INFNR
           I_LIFNR = IT_EINE-LIFNR
           I_MATKL = IT_EINE-MATKL
           I_MATNR = IT_EINE-MATNR
           I_WERKS = IT_EINE-WERKS
           I_VABME = IT_EINE-VABME

          TABLES
            TKONP         = IT_KONP
                  .
        READ TABLE IT_KONP INDEX 1.
        IF SY-SUBRC = 0.
          IT_EINE-NETPR = IT_KONP-KBETR.
          MODIFY IT_EINE TRANSPORTING NETPR.
        ENDIF.
      ENDLOOP.
      DELETE IT_EINE WHERE NETPR <= 0.

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值