schnelle suche

Code: Alles auswählen.

  select      lgort umlgo matnr meins menge mblnr mjahr werks umwrk
              bwart
    into     (itab1-vo_ort, itab1-na_ort, itab1-matnr, itab1-meins,
              itab1-menge,  itab1-mblnr,  itab1-mjahr, itab1-out_werk,
              itab1-in_werk, tmp_bwart)
    from      mseg
    where     mjahr    in mjahr_tab
          and parent_id = space       "übergeordneten Zeile
          and kzbew     = ' '         "Bewegungskennzeichen
          and lgort    <> space       " von Lagerort
          and umlgo    <> space       "nach Lagerort
          and bwart    in (200, 300, 302)
          and werks    in s_vowerk
          and umwrk    in s_nawerk
          and matnr    in s_matnr
          and mblnr    in s_mblnr
          and lgort    in s_vo_ort
          and umlgo    in s_na_ort.

*   Datum
    select single budat into (tmp_budat) from mkpf
                                       where mblnr = itab1-mblnr
                                         and mjahr = itab1-mjahr
                                         and budat in s_datum.
    if sy-subrc = 0.
      concatenate tmp_budat+4(2) tmp_budat(4)
                  into itab1-monat separated by '.'.
    else.
      continue.
    endif.

*   Materialgruppe
    if s_kondm is initial.
      select single kondm into (itab1-kondm)
                          from mvke
                         where matnr  = itab1-matnr
                           and vkorg  = '0003'
                           and vtweg  = '31'.
    else.
      select single kondm into (itab1-kondm)
                      from mvke
                     where matnr  = itab1-matnr
                       and kondm in s_kondm
                       and vkorg  = '0003'
                       and vtweg  = '31'.
      if sy-subrc <> 0.
        continue.
      endif.
    endif.
    collect itab1.
  endselect.

Code: Alles auswählen.

...
from mseg
where
  mblnr in s_mblnr and
  mjahr in s_mjahr_tab and
* zeile = '3. primärschlüssel der mseg'
* weglassen, da wir diesen nicht mit einem wert versorgen können
* ab hier wird sequentiell weitergesucht,
* um mittels der weiteren suchkriterien die datensätze zu ermitteln...
...

Code: Alles auswählen.

        SELECT
        vrsio AS vrsi5 spmon AS spmo5 vkorg AS vkor5 pkunag netwr
        FROM s777
        INTO CORRESPONDING FIELDS OF TABLE is777
        FOR ALL ENTRIES IN iknvv_kunnr
        WHERE ssour = ''
          AND vrsio = 'A00'
          AND spmon in so_spmon
          AND sptag = 0
          AND spwoc = 0
          AND spbup = 0
          AND vkorg in so_vkorg
          AND pkunag = iknvv_kunnr-kunnr.

Code: Alles auswählen.

LOOP AT iso_tvko INTO xso_tvko.
    LOOP AT iso_datap INTO xso_datap.
      SELECT
        vrsio AS vrsi5 spmon AS spmo5 vkorg AS vkor5 pkunag netwr
        FROM s777
        APPENDING CORRESPONDING FIELDS OF TABLE is777
        FOR ALL ENTRIES IN iknvv_kunnr
        WHERE ssour = ''
          AND vrsio = 'A00'
          AND spmon = xso_datap-datap
          AND sptag = 0
          AND spwoc = 0
          AND spbup = 0
          AND vkorg = xso_tvko-vkorg
          AND pkunag = iknvv_kunnr-kunnr.
    ENDLOOP.
  ENDLOOP.