外币金额转换成本地金额

FORM F_COVERT_LOCAL_CURRENCY_AMT  USING  PV_AMT
                                         PV_AMT_LOC.

  DATA : LV_FFACT TYPE I,
         LV_TFACT TYPE I.

  CLEAR : LV_FFACT, LV_TFACT.

  CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
    EXPORTING
      DATE             = GT_MAIN-FKDAT
      FOREIGN_AMOUNT   = PV_AMT
      FOREIGN_CURRENCY = GT_MAIN-WAERK
      LOCAL_CURRENCY   = GT_MAIN-STWAE
      RATE             = GT_MAIN-KURRF
      TYPE_OF_RATE     = GC_M
    IMPORTING
      FOREIGN_FACTOR   = LV_FFACT
      LOCAL_FACTOR     = LV_TFACT
      LOCAL_AMOUNT     = PV_AMT_LOC
    EXCEPTIONS
      NO_RATE_FOUND    = 1
      OVERFLOW         = 2
      NO_FACTORS_FOUND = 3
      NO_SPREAD_FOUND  = 4
      DERIVED_2_TIMES  = 5
      OTHERS           = 6.

ENDFORM.                    " F_COVERT_LOCAL_CURRENCY_AMT