Purchase info record price simulation

Question

Hi all,
I need to emulate the process used by transaction me1l in order to make a price simulation to obtain the net price and the effective price from the purchase info record related to a PO item.
I have to calculate them from the standard info record (info category = 0) using:
- pricing date = PO creation date
- simulation quantity = PO item quantity
- base unit of measure = PO item unit of measure
I have tried to use the function module ME_PRICING_INFORECORD but I haven't obtained the same values as using the transaction me1l. I don't know if I have used the correct input parameters but I have tried several options and I haven't obtained the correct values for any of them.
The parameters used are:
infoa = info record data obtained from table eina
infoe = info record data obtained from table eine
inpreissim -> simulation data:
      inpreissim-simng = PO item quantity
      inpreissim-simme = PO item unit of measure
      inpreissim-sidat = PO creation date
      inpreissim-pseff = 'X' for the effective price
      inpreissim-pseff = ' ' for the net price
simulation = 'X'
Does anybody know how I can emulate boton 'Price Simulation' in the transacction me1l in my code?

Answer 1

Hi Carmen,
i have the solution below
but for several rows i received wrong value for net_price and currency ( i suppose that the problem is with RM06I, missing CLEAR statement)
maybe the solution - CLEAR RM06I in ME_PRICING_DIALOG, because is not set up as initial, and takes values from previous row, if menge is initial
IF NOT MENGE IS INITIAL.
RM06I-SIMNG = MENGE.
RM06I-MEIN2 = MEINS.
KOMK-PRSDT = TERMIN.
ENDIF.
Do you have anybody the solution how set CLEAR RM06I ( i cannot modify SAP FM) or something else?
    CALL FUNCTION 'ME_PRICING_REFRESH'.
Provides dialog box for entry of simulation parameters
    CALL FUNCTION 'ME_PRICING_DIALOG'
         EXPORTING
              dunkel = 'X'
              infoa  = la_eina
              infoe  = la_eine
              meins  = i_meins
              menge  = i_menge
              termin = i_termin.
Price computations in Purchasing
    CALL FUNCTION 'ME_PRICING_INFORECORD'
         EXPORTING
              dialog_not_by_zero = 'X'
              infoa              = la_eina
              infoe              = la_eine
              simulation         = 'X'
         IMPORTING
              preisp             = la_komp
              preisk             = la_komk
              e_currency         = l_currency.
Thanks for advice
Martin