信息记录中的价格 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.