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.
3195
Views
namensgleiche Felder die in Tabellen mehrfach vorkommen
von bohne » 20.02.2007 14:06 • Verfasst in ABAP® Core
7
Antw.
1798
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.
2340
Views
Tabelle als Ascii ausgeben
von BMWi801 » 05.03.2018 13:26 • Verfasst in ABAP® für Anfänger
3
Antw.
3759
Views
Ausgabe als Tabelle ausgeben
von Paul » 03.07.2018 13:43 • Verfasst in ABAP® für Anfänger
1
Antw.
1280
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

Aktuelle Forenbeiträge

Regex in where
vor 4 Stunden von black_adept 2 / 56
Programm anlegen mit Vorlage
vor 10 Stunden von DeathAndPain 2 / 111
IT0024 Qualifikationen CP-ID
vor 10 Stunden von DeathAndPain 2 / 351
BUSOBJEKT zu CMIS PHIO ermitteln
vor 12 Stunden von snooga87 1 / 84

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

Regex in where
vor 4 Stunden von black_adept 2 / 56
Programm anlegen mit Vorlage
vor 10 Stunden von DeathAndPain 2 / 111
IT0024 Qualifikationen CP-ID
vor 10 Stunden von DeathAndPain 2 / 351
BUSOBJEKT zu CMIS PHIO ermitteln
vor 12 Stunden von snooga87 1 / 84

Unbeantwortete Forenbeiträge

BUSOBJEKT zu CMIS PHIO ermitteln
vor 12 Stunden von snooga87 1 / 84
aRFC im OO-Kontext
vor 5 Wochen von ralf.wenzel 1 / 3260
Hilfe bei SWEC/SWE2
September 2024 von retsch 1 / 9821