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.
3034
Views
namensgleiche Felder die in Tabellen mehrfach vorkommen
von bohne » 20.02.2007 14:06 • Verfasst in ABAP® Core
3
Antw.
3525
Views
DD-Tabelle, Meldung ausgeben nach Füllen einer Tabelle
von Aggu » 13.06.2004 13:33 • Verfasst in ABAP® Core
7
Antw.
1595
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
1
Antw.
1176
Views
Tabelle als CSV Datei ausgeben
von Adrian » 18.04.2013 10:22 • Verfasst in ABAP® für Anfänger
6
Antw.
3007
Views
Tabelle auf Dynpro ausgeben ?
von Dyrdek » 06.02.2014 11:10 • Verfasst in ABAP® für Anfänger

Über diesen Beitrag


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

Aktuelle Forenbeiträge

E-Mail versenden mit GroupWise 18
vor 2 Stunden von Kaiwalker 2 / 282
PDF-Anzeige unter EDGE
vor 5 Tagen von jocoder 2 / 72

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.

Aktuelle Forenbeiträge

E-Mail versenden mit GroupWise 18
vor 2 Stunden von Kaiwalker 2 / 282
PDF-Anzeige unter EDGE
vor 5 Tagen von jocoder 2 / 72

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 4 Wochen von Lucyalison 1 / 132
Group Items auf einer Filterbar
vor 4 Wochen von Bright4.5 1 / 166