*&---------------------------------------------------------------------*
*& Form change_to_en
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->DATA text
* -->STR text
*----------------------------------------------------------------------*
form change_to_en using data type konv-kawrt changing str .
data:
lw_spell like spell,
lv_text type ltext,
p_waers type eban-waers.
p_waers = 'USD'.
call function 'SPELL_AMOUNT'
exporting
amount = data
currency = p_waers
filler = ''
language = 'E'
importing
in_words = lw_spell.
data: lv_cent type spell.
lw_spell-decimal = lw_spell-decimal / 10.
if lw_spell-decimal is not initial.
call function 'SPELL_AMOUNT'
exporting
amount = lw_spell-decimal
* currency = lw_vbak-waerk
filler = ''
language = 'E'
importing
in_words = lv_cent.
endif.
if not lv_cent-word is initial.
concatenate lw_spell-word 'AND' lv_cent-word 'CENTS'
into str
separated by space.
else.
str = lw_spell-word.
endif.
endform. "change_to_en