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.
3293
Views
namensgleiche Felder die in Tabellen mehrfach vorkommen
von bohne » 20.02.2007 14:06 • Verfasst in ABAP® Core
7
Antw.
1889
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
6
Antw.
2460
Views
Tabelle als Ascii ausgeben
von BMWi801 » 05.03.2018 13:26 • Verfasst in ABAP® für Anfänger
1
Antw.
1325
Views
Tabelle als CSV Datei ausgeben
von Adrian » 18.04.2013 10:22 • Verfasst in ABAP® für Anfänger
3
Antw.
3962
Views
Ausgabe als Tabelle ausgeben
von Paul » 03.07.2018 13:43 • 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

Auftrag & Posititen ZZFELD ändern
vor 11 Stunden von wreichelt 2 / 25
Feldwerte vergleichen
vor 2 Tagen von a-dead-trousers 4 / 407
Workflow-Datenfluss mit Multi-Line-Container
vor 3 Tagen von ewx gelöst 2 / 688
Mahnung erstellen
vor 3 Tagen von Sebastian82 4 / 789

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

Auftrag & Posititen ZZFELD ändern
vor 11 Stunden von wreichelt 2 / 25
Feldwerte vergleichen
vor 2 Tagen von a-dead-trousers 4 / 407
Workflow-Datenfluss mit Multi-Line-Container
vor 3 Tagen von ewx gelöst 2 / 688
Mahnung erstellen
vor 3 Tagen von Sebastian82 4 / 789

Unbeantwortete Forenbeiträge

OPD Druck im SPOOL
vor 5 Tagen von Manfred K. 1 / 646
Export von Spools in XLSX
vor einer Woche von abapamateur 1 / 1999
Feldberechnung ME32K
vor 3 Wochen von ZF_SAPler 1 / 2369