Code: Alles auswählen.
DATA: lv_xblnr TYPE mkpf-xblnr,
lv_bktxt TYPE mkpf-bktxt.
data: ls_selwenr like line of t_selwenr. "Tabellenzeile
*Tabelleninhalt in Arbeitsbereich holen ( immer 1. Satz?)
read table t_selwenr into ls_selwenr index 1. "hier musste mal gucken
* WE-Beleg lesen und BEIDE Felder in einem Rutsch versorgen
SELECT SINGLE xblnr bktxt FROM mkpf
INTO (Iv_xblnr, lv_bktxt) "wenn wir die Felder schon deklariert haben...
WHERE mblnr = ls_selwenr-lfbnr
AND mjahr = ls_selwenr-lfgja.
* -- > hier mal nen Break-Point setzen und den Inhalt der Variablen lv_bktxt und lv_xblnr prüfen
break-point 1.
IF SY-SUBRC = 0. "Beleg gefunden?
* Eingabefelder an Ausgabe übergeben
* MOVE-CORRESPONDING i_rbkpv TO e_rbkpv_ers_change.
* besser:
e_rbkpv_ers_change-bktxt = lv_bktxt.
e_rbkpv_ers_change-xblnr = lv_xblnr.
E_CHANGE = 'X'.
ENDIF.
Folgende Benutzer bedankten sich beim Autor MrBojangles für den Beitrag:
Orchidee76
Code: Alles auswählen.
MOVE-CORRESPONDING i_rbkpv TO e_rbkpv_ers_change.
e_rbkpv_ers_change-bktxt = 'Test MRRL'.
e_change = 'X'.
Folgende Benutzer bedankten sich beim Autor MrBojangles für den Beitrag:
Orchidee76