Hallo 157
In der Erweiterung MBCF0002 -> EXIT_SAPMM07M_001 (oder über die SE38 im INCLUDE ZXMBCU02 kannst Du Dein Coding reinschreiben, ist der User-Exit für die Materialbuchungen (MIGO).
Hier mal ein Beispielcoding, das bei uns für die unterschiedlichen Bewegungsarten hinterlegt ist (bei uns Preis <= 0,01 EUR )
*&---------------------------------------------------------------------*
*& Prüft bei MIGO-Buchungen ob Materialpreise gepflegt sind *
*&---------------------------------------------------------------------*
* Bewertungspreis muss ungleich NULL sein,
data: h_stprs like mbew-stprs.
data: h_auart like aufk-auart.
data: ntgew like mara-ntgew.
if not (
( i_mseg-bwart = '261' and i_mseg-sobkz = 'Q' ) "WA Auslieferung
or ( i_mseg-bwart = '262' and i_mseg-sobkz = 'Q' ) "Storno WA Ausl
or ( i_mseg-bwart = '281' and i_mseg-sobkz = 'Q' ) "WA Verbr. NPlan
or ( i_mseg-bwart = '321' and i_mseg-sobkz = 'Q' ) "Proj an frei
or ( i_mseg-bwart = '322' and i_mseg-sobkz = 'Q' ) "Storno Proj an fr
or ( i_mseg-bwart = '101' and i_mseg-sobkz = 'Q' ) "WE Bestellung
or ( i_mseg-bwart = '102' and i_mseg-sobkz = 'Q' ) "Storno WE Best.
or ( i_mseg-bwart = '653' and i_mseg-sobkz = 'E' ) "Retoure Kd-Rep.
or ( i_mseg-bwart = '654' and i_mseg-sobkz = 'E' ) "Storno Ret Kd-Rep
).
if i_mseg-vprsv = 'S'.
select single stprs into h_stprs from mbew
where matnr = i_mseg-matnr and
bwkey = i_mseg-werks and
bwtar = space.
if sy-subrc = 0 and h_stprs <= '0.01'.
message e042(Z3M1) with i_mseg-matnr.
endif.
else.
************************************************************************
*** Gleiches auch bei Durchschnittspreisen, ***
*** !!!Ausnahme Warenzugang bei Bestellung, da bei erster Bestellung ***
*** kein Preis vorhanden ist und diese Prüfung vorher stattfindet.***
************************************************************************
IF NOT i_mseg-bwart = '101'. "Bestellungen ausnehmen
* Durchschnittspreis statt Standardpreis
select single verpr into h_stprs from mbew
where matnr = i_mseg-matnr and
bwkey = i_mseg-werks and
bwtar = space.
if sy-subrc = 0 and h_stprs <= '0.01'.
message e042(Z3M1) with i_mseg-matnr.
endif.
endif.
endif.
endif.
SAP S/4HANA 1809
Userbetreuung und Customizing in den Modulen SD, CS, QM, MM, WM
, ABAP, SAPScript,AdobeForms und Berechtigungen