Abap Liste

Abap Liste

Hallo,

ich versuche mit ABAP eine Liste zu erzeugen. Ziel ist es aus der VBAK alle Belege zu einem Kunden anzuzeigen (die Kundennummer ist ein Parameter).
Zum einen soll mit der VBAK-KUNNR in die VBPA gesprungen werden, dort die ADRNR ermittelt werden und mit dieser in die KNA1 und den Namen ermitteln. Zum anderen soll ebenfalls aus der VBPA die ADRNR ermittelt werden mit dem Kennzeichen PARVW = 'YE' und auch hier der Name aus der KNA1. Alles soll dann in einer Liste angezeigt werden. Das Hauptselect und Wegschreiben in eine interne Tabelle sowie ausgeben, bekomme ich noch hin. Nur für die Unterselects auf die anderen Tabellen fehlt mir das KnowHow. Danke für Eure Hilfe.

Hallo Ralf,

danke fürs Angebot anbei mein Code. Wie bekomme ich jetzt zu dieser Ergebnisliste weitere Spalten aus anderen Tabellen befüllt. Ein Zeilenweises Abarbeiten und für jeden Datensatz weitere Infos hinzuselektieren. Nur ich weiss nicht wie

REPORT Y_TEST_MIP.

PARAMETER Kunnr type vbak-kunnr.

TABLES: vbak,
vbuk,
kna1.
* interne Tabelle
data: begin of wa,
vbeln TYPE vbak-vbeln,
audat TYPE vbak-audat,
auart TYPE vbak-auart,
vbtyp TYPE vbak-vbtyp,
waerk TYPE vbak-waerk,
netwr TYPE vbak-netwr,
ernam TYPE vbak-ernam,
kunnr TYPE vbak-kunnr,
parvw TYPE vbpa-parvw,
adrnr TYPE vbpa-adrnr,
posnr TYPE vbpa-posnr,
kna1adrnr TYPE kna1-adrnr,
name1 TYPE kna1-name1,
name1_YE TYPE kna1-name1,
end of wa,
itab LIKE SORTED TABLE OF wa
with non-UNIQUE KEY vbeln kunnr.

SELECT a~audat
a~vbeln
a~vbtyp
a~waerk
a~netwr
a~ernam
a~kunnr
b~parvw
b~adrnr

INTO corresponding fields of table itab
FROM vbak as a
INNER JOIN vbpa as b ON a~vbeln = b~vbeln
AND a~kunnr = b~kunnr.


LOOP AT itab INTO wa.
WRITE: / wa-audat, wa-vbeln, wa-auart, wa-vbtyp, wa-netwr, wa-waerk, wa-ernam, wa-kunnr, wa-parvw, wa-name1, wa-kna1adrnr.
ENDLOOP.

Hallo,

alleine mit InnerJoin bekomme ich nicht das gewünschte Ergebnis, da es ja sein kann, dass in der VBPA auch nur ein DS pro Belegnummer der VBAK steht.
Um es ein wenig klarer darzustellen, hier mal die gefakten Inhalte der Tabellen.

VBAK
BelegNr
100
103
116

VBPA
BelegNr ParVW AdrNr
100 YE 1000
100 RE 1005
103 YE 1013
103 RE 1020
116 RE 1000

KNA1
AdrNr Name
1000 Tausend
1005 Tausen-Fünf
1013 Tausend-Dreizehn
1020 Tausend-Zwanzig

Ziel sollte eine Zeile pro Beleg sein:
BELEGNR PA ADRNR NAME PA ADRNR NAME
---------- -- ---------- ---------------- -- ---------- ----------------
100 RE 1005 Tausend-Fünf YE 1000 Tausend
103 RE 1020 Tausend-Zwanzig YE 1013 Tausend-Dreizehn


Mein bisheriges Select (dies hab ich auf dem SQL-Server nachgestellt, bitte nicht wundern)

*****SELECT*****
SELECT A.BelegNr,
B1.ParVW AS ParVW_RE, C1.AdrNr AS Adr_RE, C1.Name AS Name_RE,
B2.ParVW AS ParVW_YE, C2.AdrNr AS Adr_YE, C2.Name AS Name_YE FROM VBAK as A

INNER JOIN VBPA AS B1
ON A.BelegNr = B1.BelegNr
INNER JOIN KNA1 AS C1
ON C1.AdrNr = B1.AdrNr

INNER JOIN VBPA AS B2
ON B1.BelegNr = B2.BelegNr
INNER JOIN KNA1 AS C2
ON C2.AdrNr = B2.AdrNr

WHERE A.BelegNr = 103
AND (B1.ParVw = 'RE' AND B2.ParVw = 'YE')

Problem macht die Belegnummer 116

Für Hilfe wäre ich dankbar.

Viele Grüsse
mip

Hallo,

leider klappt dies so nicht. Als Ergebnis erhält man z.B. für die Belegnummer 103 folgende Zeile:
BelegNr ParVW_RE Adr_RE Name_RE ParVW_YE Adr_YE Name_YE
103 YE 1013 Tausend-Dr. YE 1013 Tausend-Dr.

richtig wäre:

103 RE 1020 Tausen-Zwanzig YE 1013 Tausend-Dr.

Bei 116 wird auch mit den Left Outer Joins kein Ergebnis gebracht.

JHM hat geschrieben:...
Da hat sich bei Ereglam wohl der Fehlerteufel eingeschlichen:

Code: Alles auswählen.

LEFT OUTER JOIN vbpa AS b1 
  ON  b1.BelegNr = a.BelegNr 
* ParVW von YE auf RE geändert
  AND b1.ParVW = 'RE' 
    INNER JOIN kna1 AS c1 
      ON c1.AdrNr = b1.AdrNr 

LEFT OUTER JOIN vbpa AS b2 
  ON  b2.BelegNr = a.BelegNr 
  AND b2.ParVW = 'YE' 
    INNER JOIN kna1 AS c2 
      ON c2.AdrNr = b2.AdrNr 

JHM hat geschrieben: ...Gibt es einen Eintrag in KNA1 zur AdrNr?
Wieso greifst du mit der AdressNummer auf die KNA1zu?
Key ist KUNNR. Wird eine abweichende Adresse manuell erfasst, wird die manuelle Adresse in ADRNR abgespeichert. In solch einem Fall hat die ADRNR keine Verknüofung mit der KNA1.

stimme ich zu (hatte vor leider irgendwie nicht darauf geachtet... *pfeif*)