Письменное представление нерублёвых сумм.

Marya

Коллеги, добрый день!

Может быть, не совсем понятно назвала темку, объясню простыми словами.

Необходимо найти функциональник, который в печатной форме выведет для 100,1 USD " Сто долларов 10 центов" ( ну и аналогично с евро и другой валютой)

Кто как решал такую проблемку?

Заранее спасибо.

Abral

Вот здесь что то подобное обсуждалось, правда с рублями, но принцип мне кажется общий должен быть
viewtopic.php?f=13&t=48205&hilit=%D0%A4%D0%9C+%D1%81%D1%83%D0%BC%D0%BC%D1%8B+%D0%BF%D1%80%D0%BE%D0%BF%D0%B8%D1%81%D1%8C%D1%8E

Marya

Спасибо, но нас всё- таки интересуют валютные суммы.

troy

Вот самый простой способ, на примере гривен:

Code:

  DATA ls_spell TYPE spell.

  CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount   = iv_amount
      currency = iv_currency
      language = iv_language
    IMPORTING
      in_words = ls_spell
    EXCEPTIONS
      OTHERS   = 1.
  IF sy-subrc <> 0.
    RAISE int_error.
  ENDIF.

  IF iv_currency = 'UAH' AND iv_language CA 'R8'.
    CONCATENATE ls_spell-word 'грн.' ls_spell-decimal(ls_spell-currdec) 'коп.' INTO ev_text SEPARATED BY space.
  ELSE.
    CONCATENATE ls_spell-word ls_spell-decword INTO ev_text SEPARATED BY space.
  ENDIF.

P.S. простота заключается в том, что сколнять названия не нужно, т.к. они сокращенные :mrgreen:

Marya

Пошла к абаперам читать вместе))

Спасибо)

Правила форума

Письменное представление нерублёвых сумм.

Кто сейчас на конференции