SAP ABAP取财务不使用function取汇率的方法

第一步，从表中取出汇率数据
  SELECT * FROM TCURR WHERE KURST = 'M' AND TCURR = 'CNY' INTO TABLE @DATA(LT_HL) .
  SORT LT_HL BY GDATU .

 

 

第二步，根据日期和币别读表计算汇率
      IF GS_VBRP-WAERK <> 'CNY'.
        DATA LV_GDATU TYPE GDATU_INV .
        DATA(LV_BUDAT2) = LS_LIKP_HL-WADAT_IST(6)  && '01' .
        LV_GDATU = 99999999 - LV_BUDAT2 .
        READ TABLE LT_HL WITH  KEY FCURR = GS_VBRP-WAERK GDATU = LV_GDATU INTO DATA(LS_HL2) .
        IF SY-SUBRC = 0.
          LV_BUDAT_HL = LS_HL2-UKURS .
        ENDIF.
      ELSE .
        LV_BUDAT_HL = '1' .
      ENDIF.
    ELSE .
      READ TABLE LT_BKPF WITH KEY AWKEY = GS_VBRP-VBELN INTO DATA(LS_BKPF2) .
      IF SY-SUBRC = 0.
        LV_BUDAT_HL = LS_BKPF2-KURSF .
      ENDIF.
    ENDIF.