alle Kunden die in meiner Tabelle vorkommen ausgeben

Getting started ... Alles für einen gelungenen Start.
7 Beiträge • Seite 1 von 1
7 Beiträge Seite 1 von 1

alle Kunden die in meiner Tabelle vorkommen ausgeben

Beitrag von bohne (Specialist / 437 / 0 / 0 ) »
Hallo Profis!

Kann mir bitte jemand sagen wie man sowas lösen kann.
Prüfen ob Kundennummer in meiner Tabelle in KNA1 vorhanden,
WENN NEIN als Liste(Report) all die die nicht vorhandenen mit der
Kundenummer ausgeben.
Viele Grüße
bohne

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von Charadin (Specialist / 148 / 0 / 0 ) »
Hallo bohne,

das hier wäre z.B. eine Möglichkeit:

Code: Alles auswählen.

SELECT *
  FROM kna1
  INTO TABLE it_kunnr
  FOR ALL ENTRIES IN it_my_kunnr
  WHERE kunnr = it_my_kunnr-kunnr.

LOOP AT it_my_kunnr INTO wa_my_kunnr.

  READ TABLE it_kunnr
    WITH KEY kunnr = wa_my_kunnr-kunnr
    TRANSPORTING NO FIELDS.

  IF sy-subrc = 0.
    " Eintrag in KNA1 vorhanden
  ELSE.
    " Kein Eintrag in KNA1 vorhanden
    WRITE: / wa_my_kunnr-kunnr.
  ENDIF.

ENDLOOP.
Gruß,
Charadin

Beitrag von bohne (Specialist / 437 / 0 / 0 ) »
Charadin vielen Dank.

Aber mittlerweile stehe ich vor einem anderen
Problem, denn meine Tabelle hat u.a die Felder
LIFNR MATNR.
Leider ist es so das es zu einem Lieferanten mehrere Materialien
gibt. Das bedeutet bei der Ausgabe sieht es ungefähr so aus:
LIFNR MATNR.
001 2232
001 9878
001 8888
002 9696
002 3333

.. und wollte eigentlich jeden Lieferanten nur einmal ausgeben und nicht
so wie die Anzahl der Materialien.
Viele Grüße
bohne

Beitrag von Charadin (Specialist / 148 / 0 / 0 ) »
da wirst Du dann wohl eine Hilfstabelle verwenden müssen, z.B. so:

Code: Alles auswählen.

it_my_kunnr2[] = it_my_kunnr[].
SORT it_my_kunnr2 BY kunnr.
DELETE ADJACENT DUPLICATES FROM it_my_kunnr2 COMPARING kunnr.

SELECT *
  FROM kna1
  INTO TABLE it_kunnr
  FOR ALL ENTRIES IN it_my_kunnr2
  WHERE kunnr = it_my_kunnr2-kunnr.

LOOP AT it_my_kunnr2 INTO wa_my_kunnr.

  READ TABLE it_kunnr
    WITH KEY kunnr = wa_my_kunnr-kunnr
    TRANSPORTING NO FIELDS.

  IF sy-subrc = 0.
    " Eintrag in KNA1 vorhanden
  ELSE.
    " Kein Eintrag in KNA1 vorhanden
    WRITE: / wa_my_kunnr-kunnr.
  ENDIF.

ENDLOOP.
Gruß,
Charadin

Beitrag von Charadin (Specialist / 148 / 0 / 0 ) »
oder Du arbeitest mit dem AT-Befehl:

Code: Alles auswählen.

SORT it_my_kunnr BY kunnr.

LOOP AT it_my_kunnr INTO wa_my_kunnr.

  AT NEW kunnr.

    READ TABLE it_kunnr
      WITH KEY kunnr = wa_my_kunnr-kunnr
      TRANSPORTING NO FIELDS.

    IF sy-subrc = 0.
      " Eintrag in KNA1 vorhanden
    ELSE.
      " Kein Eintrag in KNA1 vorhanden
      WRITE: / wa_my_kunnr-kunnr.
    ENDIF.

  ENDAT.

ENDLOOP.
Gruß,
Charadin

Beitrag von bohne (Specialist / 437 / 0 / 0 ) »
Charadin ich weiss nicht wie ich dir danken soll?
Viele Grüße
bohne

Beitrag von Charadin (Specialist / 148 / 0 / 0 ) »
keine Ursache, gern geschehen... :wink:
Gruß,
Charadin

Seite 1 von 1

Vergleichbare Themen

5
Antw.
3036
Views
namensgleiche Felder die in Tabellen mehrfach vorkommen
von bohne » 20.02.2007 14:06 • Verfasst in ABAP® Core
3
Antw.
3528
Views
DD-Tabelle, Meldung ausgeben nach Füllen einer Tabelle
von Aggu » 13.06.2004 13:33 • Verfasst in ABAP® Core
7
Antw.
1609
Views
Funktion gesucht: Setze Leerzeichen in String für alle Zeichen die nicht in UTF8 vorkommen
von Romaniac » 11.06.2019 14:33 • Verfasst in ABAP® Core
0
Antw.
2081
Views
Tabelle in BSP Applikation als PDF ausgeben
von Chrisp83 » 28.05.2008 09:59 • Verfasst in Web-Dynpro, BSP + BHTML
1
Antw.
1176
Views
Tabelle als CSV Datei ausgeben
von Adrian » 18.04.2013 10:22 • Verfasst in ABAP® für Anfänger

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.