Schau doch mal ins Coding von Programm MM06EF0E_EKPO-NETPR
das
*- Währung ------------------------------------------------------------*
IF ekko-waers NE t001-waers.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
date = ekko-bedat
foreign_amount = ekpo-effwr
foreign_currency = ekko-waers
local_currency = t001-waers
rate = ekko-wkurs
IMPORTING
local_amount = f1.
ENDIF.
*- Preis pro Bestellmengeneinheit -------------------------------------
CASE ekko-bstyp.
WHEN bstyp-best.
IF ekpo-menge NE 0.
f1 = f1 * 1000 / ekpo-menge.
ENDIF.
WHEN bstyp-kont.
IF ekpo-ktmng NE 0.
f1 = f1 * 1000 / ekpo-ktmng.
* ansonsten ist F1 schon mit 1 berechnet
ENDIF.
WHEN bstyp-lfpl.
IF ekpo-ktmng NE 0.
f1 = f1 * 1000 / ekpo-ktmng.
* ansonsten ist F1 schon mit 1 berechnet
ENDIF.
WHEN OTHERS.
IF ekpo-ktmng NE 0.
f1 = f1 * 1000 / ekpo-ktmng.
ENDIF.
ENDCASE.
*- Überlauf prüfen ----------------------------------------------------
IF ekpo-matnr EQ space.
IF f1 > maxpreis.
MESSAGE e217 WITH t001-waers.
ELSE.
hnetpr = f1.
ENDIF.
ENDIF.