Werteübergabe interne Tabellen
6 Beiträge
•
Seite 1 von 1
6 Beiträge
Seite 1 von 1
Hallo zusammen,
ich bins mal wieder. Mir ist leider kein gescheiter Titel für den Betreff eingefallen. Deshalb versuch ich es hier genauer zu erläutern. Ich habe eine interne Tabelle mit folgendem Inhalt:
Tabelle: (Spalte1, Spalte2, Spalte3)
1___X___4,78
1___O___0,00
1___O___0,00
1___O___0,00
1___O___0,00
2___O___0,00
Wenn es in Spalte 2 ein "X" gibt, dann sollen alle Zeilen die den gleichen "Schlüssel" haben wie in Spalte 1 den Wert aus Spalte 3 in Spalte 3 übernehmen.
Tabelle: (Spalte1, Spalte2, Spalte3)
1___X___4,78
1___O___4,78
1___O___4,78
1___O___4,78
1___O___4,78
2___O___0,00
Hmm klingt eigentlich nicht nach einem großen Problem wenn ich das jetzt so lese. Aber ich komme leider auf keinen grünen Zweig.
VG Bjuti
ich bins mal wieder. Mir ist leider kein gescheiter Titel für den Betreff eingefallen. Deshalb versuch ich es hier genauer zu erläutern. Ich habe eine interne Tabelle mit folgendem Inhalt:
Tabelle: (Spalte1, Spalte2, Spalte3)
1___X___4,78
1___O___0,00
1___O___0,00
1___O___0,00
1___O___0,00
2___O___0,00
Wenn es in Spalte 2 ein "X" gibt, dann sollen alle Zeilen die den gleichen "Schlüssel" haben wie in Spalte 1 den Wert aus Spalte 3 in Spalte 3 übernehmen.
Tabelle: (Spalte1, Spalte2, Spalte3)
1___X___4,78
1___O___4,78
1___O___4,78
1___O___4,78
1___O___4,78
2___O___0,00
Hmm klingt eigentlich nicht nach einem großen Problem wenn ich das jetzt so lese. Aber ich komme leider auf keinen grünen Zweig.
VG Bjuti
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Bjuti hat geschrieben:Aber ich komme leider auf keinen grünen Zweig.
Code: Alles auswählen.
LOOP AT itab INTO wa WHERE spalte2 = 'X'.
MODIFY itab FROM wa TRANSPORTING spalte3 WHERE spalte1 = wa-spalte1.
ENDLOOP.
Gruß Hendrik
Beitrag
von a-dead-trousers (Top Expert / 4457 / 227 /
1198
)
»
hi!
Einfach!
EDIT: JHM war schneller 
Ich lass mein Coding trotzdem mal so hier stehen (Weil es einen Tick performanter ist)
Einfach!
Code: Alles auswählen.
LOOP AT lt_table ASSIGNING <ls_line1> WHERE spalte2 EQ 'X'.
LOOP AT lt_table ASSIGNING <ls_line2> WHERE spalte1 EQ <ls_line1>-spalte1.
<ls_line2>-spalte3 = <ls_line1>-spalte3.
ENDLOOP.
ENDLOOP.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Beitrag
von a-dead-trousers (Top Expert / 4457 / 227 /
1198
)
»
Ohne geschachtelter Schleife sollte es sogar noch einen Tick schneller sein 
Code: Alles auswählen.
LOOP AT lt_table ASSIGNING <ls_line> WHERE spalte2 EQ 'X'.
MODIFY lt_table FROM <ls_line> TRANSPORTING spalte3 WHERE spalte1 EQ <ls_line>-spalte1.
ENDLOOP.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
a-dead-trousers hat geschrieben:Ohne geschachtelter Schleife sollte es sogar noch einen Tick schneller seinCode: Alles auswählen.
LOOP AT lt_table ASSIGNING <ls_line> WHERE spalte2 EQ 'X'. MODIFY lt_table FROM <ls_line> TRANSPORTING spalte3 WHERE spalte1 EQ <ls_line>-spalte1. ENDLOOP.
Ich bin begeistert. Danke. Ich hatte es mit MOVE versuchen wollen. TRANSPORTING war mir unbekannt. Bis jetzt.
Ein Problem schließt sich aber an. Die Zielspalte soll nun eine andere sein:
Tabelle: (Spalte1, Spalte2, Spalte3, Zielspalte)
1___X___4,78___
1___O___0,00___4,78
1___O___0,00___4,78
1___O___0,00___4,78
1___O___0,00___4,78
2___O___0,00___4,78
VG Bjuti
Bjuti hat geschrieben:Ein Problem schließt sich aber an. Die Zielspalte soll nun eine andere sein:
Code: Alles auswählen.
LOOP AT itab INTO wa WHERE spalte2 = 'X'.
wa-zielspalte = wa-spalte3. "Zielspalte füllen
MODIFY itab FROM wa TRANSPORTING zielspalte WHERE spalte1 = wa-spalte1 AND spalt2 <> 'X'.
ENDLOOP.
Gruß Hendrik
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
3091
Views
Views
3 Tabellen miteinander vergleichen und Treffer ausgeben (Ohne Interne Tabellen)
von Reyvn94 » 07.02.2022 00:34 • Verfasst in ABAP® für Anfänger
von Reyvn94 » 07.02.2022 00:34 • Verfasst in ABAP® für Anfänger
2
Antw.
Antw.
3298
Views
Views
0
Antw.
Antw.
835
Views
Views
ALE Programmexit Werteübergabe Objektstatus definieren
von klavinder » 25.07.2007 00:12 • Verfasst in ABAP® für Anfänger
von klavinder » 25.07.2007 00:12 • Verfasst in ABAP® für Anfänger
1
Antw.
Antw.
1694
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
OData Service für Aufruf von Funktionsbaustein (Web-Service)
vor einer Woche von Lukas Sanders 2 / 9338
vor einer Woche von Lukas Sanders 2 / 9338
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
OData Service für Aufruf von Funktionsbaustein (Web-Service)
vor einer Woche von Lukas Sanders 2 / 9338
vor einer Woche von Lukas Sanders 2 / 9338
Unbeantwortete Forenbeiträge
Nutzung UserExit COOM0003 für Abrechnungsvorschriften Aufträge
vor 4 Wochen von fico_fschluesener 1 / 13930
vor 4 Wochen von fico_fschluesener 1 / 13930