wie kan man zwei interen tabellen verbinden?

wie kan man zwei interen tabellen verbinden?

Hi Experten,
ich habe zwei interne tabellen t1 und t2 mit struktur wa1 und wa2
in t1 habe ich 3 materialnummer , und bewegungsart 101
in t2 habe ich 4 materialnummer, und bewegungsart 261
ich mochte die beide tabelen verbinden mit key materialnummer von t1

im ergebnis sol sein: nur materialen von t1 mit ergenzung von t2
material 1 101
material 1 261
material 2 101
material 2 261
material 3 101

jetzt habe ich loop benutz:


FIELD-SYMBOLS <wa1> TYPE t_tab.
" Hier typ der Tabelle t1


Loop At t1 ASSIGNING <wa1>.


READ TABLE t2 INTO wa2 with TABLE KEY matnr = <wa1>.
if sy-subrc = 0.
move-corresponding wa2 TO <wa1>.
else.
ENDLOOP.

bekomme ich folgendes:
material 1 261 aber soll hier 101 sein
material 1 261
material 2 261 aber soll hier 101 sein
material 2 261
material 3 101

bitte um hilfe

Re: wie kan man zwei interen tabellen verbinden?

khb hat geschrieben:Hallo,
also entweder gibst du die BWA aus T1 vor dem move-corresponding aus (denn dadurch überschreibst du die Felder wieder) oder du nutzt ein 2. field-symbol, in das du die Daten aus t2 schiebst.

lg khb

Danke für antwort, leider habe ich nicht verstanden,
kanns du bischin mehr dazu schreiben lieber mit Code.

Danke

Re: wie kan man zwei interen tabellen verbinden?

khb hat geschrieben:klar, kann ich machen. Kannst Du deinen Code posten (mit der write-Ausgabe?

*-----------------------------------------------------------------------
* Beginn Datendeklarationen fuer den ALV
*-----------------------------------------------------------------------
*
*-----------------------------------------------------------------------
TYPE-POOLS: slis.
DATA:
g_repid LIKE sy-repid,
it_join_feldkatalog TYPE slis_t_fieldcat_alv,
wa_feldkatalog TYPE LINE OF slis_t_fieldcat_alv,
gs_layout TYPE slis_layout_alv,
wa_aktuelle_zeile LIKE LINE OF wa_join.
*-----------------------------------------------------------------------
* *Ende Datendeklarationen fuer den ALV
*-----------------------------------------------------------------------

*--------------------------------------------------------
SELECTION-SCREEN: BEGIN OF BLOCK a WITH FRAME
TITLE text-002.
SELECT-OPTIONS:

s_mblnr FOR it_join-mblnr,
s_budat FOR it_join-budat_mkpf, "DEFAULT sy-datum,
s_matnr FOR it_join-matnr.
PARAMETERS:
p_werks TYPE werks DEFAULT 1001 OBLIGATORY,
p_lgort TYPE lgort_d DEFAULT 1020 OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK a.
*--------------------------------------------------------
*
INITIALIZATION.
* Tagesdatum vorbelegen
CLEAR s_budat.
s_budat-sign = 'I'.
s_budat-option = 'EQ'.
s_budat-low = sy-datum - 14.
s_budat-HIGH = sy-datum.
APPEND s_budat.
*--------------------------------------------------------
START-OF-SELECTION.

SELECT
mseg~matnr
mseg~menge
mard~labst
mara~zzepmat
marc~ekgrp
mseg~aufnr
mseg~ebeln
mseg~mblnr
mseg~bwart
mseg~buzei
mseg~werks
mseg~lgort
mseg~budat_mkpf
mseg~cputm_mkpf
makt~MAKTX


FROM mseg
JOIN mara ON mseg~matnr = mara~matnr
JOIN mard ON mara~matnr = mard~matnr
JOIN marc ON mard~matnr = marc~matnr
join makt on mseg~matnr = makt~matnr
INTO CORRESPONDING FIELDS OF TABLE t1
WHERE mseg~matnr in s_matnr
and mseg~bwart = bwart1


*and mseg~matnr in s_matnr and mseg~bwart = bwart1 AND mseg~matnr in s_matnr and mseg~bwart not in ('261') )
and mseg~budat_mkpf IN s_budat
AND mseg~werks = p_werks
AND mseg~lgort = p_lgort
AND mard~lgort = p_lgort.

SORT t1 BY matnr bwart budat_mkpf.

*-----------------------------------------------------------------
SELECT
mseg~matnr
mseg~menge
mard~labst
mara~zzepmat
marc~ekgrp
mseg~aufnr
mseg~ebeln
mseg~mblnr
mseg~bwart
mseg~buzei
mseg~werks
mseg~lgort
mseg~budat_mkpf
mseg~cputm_mkpf
makt~MAKTX


FROM mseg
JOIN mara ON mseg~matnr = mara~matnr
JOIN mard ON mara~matnr = mard~matnr
JOIN marc ON mard~matnr = marc~matnr
join makt on mseg~matnr = makt~matnr
INTO CORRESPONDING FIELDS OF TABLE t2

WHERE mseg~matnr in s_matnr
and mseg~bwart = bwart2
and mseg~budat_mkpf BETWEEN s_budat-low and sy-datum
AND mseg~werks = p_werks
AND mseg~lgort = p_lgort
AND mard~lgort = p_lgort.


SORT t2 BY matnr bwart budat_mkpf.


FIELD-SYMBOLS <wa1> TYPE t_tab.
FIELD-SYMBOLS <wa2> TYPE t_tab.
" Hier typ der Tabelle itab


Loop At t1 ASSIGNING <wa1>.


READ TABLE t2 INTO wa2 with TABLE KEY matnr = <wa1>."-matnr.

if sy-subrc = 0.
*move-corresponding <wa2>-bwart TO <wa1>-bwart.
add-corresponding <wa2>-bwart TO <wa1>.
*modify t1 FROM wa2.
* APPEND wa1 to t1.
else.

endif.

*Loop At t2 INTO wa2
*
*where
*matnr = wa2-matnr.
*APPEND wa2 to t1.
ENDLOOP.



*----------------------------------------------------
IF sy-subrc <> 0.
MESSAGE 'keine Daten, bitte Neueingaben'(001) TYPE 'I'.
ENDIF.


*-----------------------------------------------------------------------
* Beginn ALV-Ausgabe
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* Feldkatalog fuellen.
PERFORM feldkatalog_fuellen.

* Layout bestimmen.
PERFORM layout_allg_build USING gs_layout.

* Daten als ALV-Liste anzeigen.
PERFORM alv_anzeigen.


*-----------------------------------------------------------------------
* Beginn Unterprogramme fuer den ALV

*-----------------------------------------------------------------------

*-----------------------------------------------------------------------
* Unterprogramm fuer Ausgabe der ALV-Liste
*-----------------------------------------------------------------------
FORM alv_anzeigen.

g_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
i_save = 'X' "Soll der Benutzer Varianten der erzeugten Liste abspeichern können?
i_grid_title = 'WE und Verbrauch'
it_fieldcat = it_join_feldkatalog
i_callback_user_command = 'REAKTION_AUF_DOPPELKLICK'
is_layout = gs_layout
TABLES
t_outtab = t1.
SET COUNTRY 'D'.

ENDFORM. "alv_anzeigen.

Re: wie kan man zwei interen tabellen verbinden?

okay, dann statt der write-Ausgabe die sätze in eine 3. Tabelle schreiben und diese dann im ALV ausgeben.

Re: wie kan man zwei interen tabellen verbinden?

Du überschreibst wahrscheinlich. deine Inhalte in der Tabelle. Poste doch nur mal das Coding vom Füllen der internen Tabellen

Re: wie kan man zwei interen tabellen verbinden?

khb hat geschrieben:Du überschreibst wahrscheinlich. deine Inhalte in der Tabelle. Poste doch nur mal das Coding vom Füllen der internen Tabellen

Danke für Antwort,
wie gesagt ich habe zwei Interen Tabellen t1 und t2
bei loop vergleich ich t1 (hat materialnumme und bwa 101)mit t2(hat materialnummer und bwa 261) per materialnummer
dann soll ich solche ergebnis bekommen in t1(zeig mir alle materialnummer, wo gibt es bwa 101 oder 101 und 261, kein material nur mit 261 ), in loop alles korrekt findet aus zwei tabellen (ich habe 4matrialen, und nur 3 passt mir) aber die bwa von zweite tabele uberschreibt bwa von erste. I soll das bekomen:
material 1 101
material 1 261
material 2 101
material 2 261
material 3 101
und bekomme:

material 1 261 aber soll hier 101 sein
material 1 261
material 2 261 aber soll hier 101 sein
material 2 261
material 3 101

Re: wie kan man zwei interen tabellen verbinden?

autohandel7 hat geschrieben: schon besser, leider alle sätze doppelt, weisst du warum?

Soweit reicht meine Glaskugel nicht. Zeig etwas Coding und man kann evtl. helfen.
Hast du mal im Debugger geschaut, was da ab geht?