Я делал так.
В LV60AA25
CALL FUNCTION 'RV_INVOICE_DOCUMENT_READ'
EXPORTING
ACTIVITY = '02'
KONV_READ = 'X'
VBRK_I = *VBRK
I_NO_AUTHORITY_CHECK = 'X'
IMPORTING
VBRK_E = *VBRK
VBUK_E = *VBUK
TABLES
XKOMFK = XKOMFK
XVBFS = XVBFS
XVBRK = XVBRK
XVBRP = XVBRP
XVBPA = XVBPA
XKOMV = XKOMV
EXCEPTIONS
ERROR_MESSAGE = 01.
" 02.05.2012 13:23:25
" Задача №2126
" Nuriev_II
"$ Region Задача №2126
" 02.05.2012 13:26:06 Объявление переменных
" 2126
" Nuriev_II
"$ Region 2126
DATA: gt_fin TYPE TABLE OF zsfininv
, G_PRICE TYPE kwert
, G_DISCO TYPE kwert.
FIELD-SYMBOLS: <G_PRICE> TYPE kwert.
FIELD-SYMBOLS: <G_DISCO> TYPE kwert.
FIELD-SYMBOLS: <ZSFININV> TYPE ANY TABLE.
"$ Endregion 2126
IF sy-tcode = 'Z_EXE_PPS_PROFIT'.
ASSIGN: ('(Z_EXE_PPS_PROFIT)-G_PRICE') TO <G_PRICE>. "Забираем цену.
ASSIGN: ('(Z_EXE_PPS_PROFIT)-G_DISCO') TO <G_DISCO>. "Забираем скидку.
ASSIGN: ('(Z_EXE_PPS_PROFIT)-ZSFININV[]') TO <ZSFININV>. "Забираем таблицу с курсами.
G_PRICE = <G_PRICE>.
G_DISCO = <G_DISCO>.
gt_fin[] = <ZSFININV>.
UNASSIGN: <G_PRICE>
, <G_DISCO>
, <ZSFININV>.
ENDIF.
"$ Endregion Задача №2126
В таблице xkomv лежат курсы и цена. Меняй как тебе надо.