Convertir un prix dans une devise

A- READ_EXCHANGE_RATE

Ce Module fonction permet de déterminer le taux de change à partir de la table TCURR

B- Détail 

CALL FUNCTION 'READ_EXCHANGE_RATE' 

  EXPORTING

*   client = SY-MANDT           " sy-mandt

    date =                      " syst-datum    Date de conversion de devise

    foreign_currency =          " tcurr-fcurr   Clé de devise pour la devise étrangère

    local_currency =            " tcurr-tcurr   Clé de devise pour la devise locale

*   type_of_rate = 'M'          " tcurr-kurst   Type de taux M = taux moyen G = taux d'achat de la banque B = taux de vente de la banque

*   exact_date = SPACE          " xfeld         Taux de change pour le jour exact requis

  IMPORTING

    exchange_rate =             "               Taux de change

    foreign_factor =            "               Facteur pour les unités monétaires étrangères

    local_factor =              "               Facteur pour les unités de monnaie locale

    valid_from_date =           " syst-datum    Date de lecture de l'entrée dans TCURR

    derived_rate_type =         " tcurr-kurst   Autre type de taux de change, le cas échéant

    fixed_rate =                "               Taux de change fixe 4,5, si présent

    oldest_rate_from =          " syst-datum    Date du plus ancien calcul du taux de change

  EXCEPTIONS

    NO_RATE_FOUND = 1           "               Aucun taux d'échange saisi dans la table TCURR

    NO_FACTORS_FOUND = 2        "               Aucun facteur de conversion dans TCURF

    NO_SPREAD_FOUND = 3         "               No spread entered in table TCURS

    DERIVED_2_TIMES = 4         "

    OVERFLOW = 5                "

    ZERO_RATE = 6               "               Indicateur: aucun taux de change n'existe

    .  "  READ_EXCHANGE_RATE

C- SALES_CURRENCY_GET : Module fonction utilisé dans notre exemple pour trouver la devise d'un site.

CALL FUNCTION 'SALES_CURRENCY_GET' "
* EXPORTING
* pi_vkorg = " calp-vkorg Organisation des ventes
* pi_vtweg = " calp-vtweg Canal de distibution
* pi_pltyp = " calp-pltyp Material Group
* pi_waerk = " twkao-waerk
* pi_matkl = " calp-matkl Material Group
* pi_werks = " kalp-werks Site
* pi_kunnr = " kalp-kunnr Numéro de client
* pi_umdat = " wewu-umdat
* pi_onlfk = ' ' " sy-marky
IMPORTING
pe_vwaer = " calp-vwaer Devise
pe_i_wewu = " wewu
EXCEPTIONS
INVALID_INPUT = 1 "
NO_BUKRS_FOUND = 2 "
CURRENCY_NOT_DETERMINED = 3 "
. " SALES_CURRENCY_GET