Materialpreise selektieren

Materialpreise selektieren

Hallo zusammen,

ich möchte gerne einen Report schreiben, welcher es mir ermöglicht die Materialpreise (MM03 - Buchhaltung 1) auszuwerten.

Die Daten befinden sich in der Tabelle MBEW, das habe ich bereits herausgefunden. Allerdings scheint es noch eine Historien-Tabelle MBEWH zu geben, welche offensichtich bei Änderungen am Preis, o.ä. zum Einsatz kommt.

Nun weiss ich wirklich nicht präzise, wie ich nun genau das ganze selektieren soll, da auf dem Selektionsbild dem Nutzer auch die Periode (zusammen mit dem Geschäftsjahr) angeboten wird. Es mus also auch möglich sein die Preise vergangenheitsbezogen auswerten zu können.

Interessant sind für mich insbesondere die beiden Preise S-Preis und V-Preis... Nur weiss ich nun eben nicht, wie ich das genau selektieren soll Komme gerade nicht auf den richtigen Treffer, mit welcher ich sowohl die aktuellen Daten, als auch eben falls notwendig auf die Vergangenheitswerte beziehn kann...

Gibt es da einen Funktionsbaustein oder ein BAPI??? Ich hoffe es sehr...

Vielen Dank bereits jetzt für eure Tipps & Tricks bereits jetzt...

Grüße
Markus

muggel hat geschrieben:Hallo,
suche mal in der TA se37 unter Suchbedingung
Kurzbeschreibung mit *Materialpreis*

Dort gibts etliche FB's.

Gruß M.

Mag sein, nur erfüllt aus meiner Sicht keine die o.g. Anforderung.

Grüsse

Hallo,
besseres ist mir nicht eingefallen:
REPORT Z_MBEW.

Tables: mbew, mbewh.

data: akt_bukrs like lfc1-bukrs.

selection-screen begin of block B1.
SELECT-OPTIONS: so_matnr FOR mbew-matnr,
so_bukrs FOR mbew-bwkey default '1100' obligatory,
so_bklas for mbew-bklas default '3000',
so_gjahr FOR mbew-lfgja default '2008',
so_perio FOR mbew-lfmon.
parameters: p_vjahr like mbew-lfgja.
selection-screen end of block B1.


select * from mbew where matnr in so_matnr and
bwkey in so_bukrs and
bklas in so_bklas and
lfgja in so_gjahr and
bklas in so_bklas.

if sy-subrc = 0.
write: / 'Material: ', mbew-matnr, 'Jahr: ' , mbew-lfgja, '/', mbew-lfmon, 'V: ', mbew-verpr, 'S: ', mbew-stprs.
endif.

endselect.

skip 2.

if not p_vjahr is initial.
select * from mbewh where matnr in so_matnr and
bwkey in so_bukrs and
bklas in so_bklas and
lfgja eq p_vjahr and
bklas in so_bklas.

if sy-subrc = 0.
write: / 'Material: ', mbewh-matnr, 'VJahr: ' , mbewh-lfgja, '/', mbewh-lfmon, 'V: ', mbewh-verpr, 'S: ', mbewh-stprs.
endif.

endselect.

endif.

Gruß M.