SPELL_AMOUNT и копейки прописью

lytic

ФМ SPELL_AMOUNT возвращает копейки цифрами, а нужно получить прописью.

r00xus

друг мой. а что мешает тебе написать свою функцию, которая будет это делать. Примеров ее реализации на различных языках программирования полно в инете. Чтоб их найти надо только написать в любом поисковике "СУММА ПРОПИСЬЮ"

vga

Или вызвать второй раз, указав в качестве рублей копейки, потом сплитить.

lytic

Если вызывать второй раз.... то что будет с 1 копейкой???

один копейка

lytic

r00xus написал:

друг мой. а что мешает тебе написать свою функцию, которая будет это делать. Примеров ее реализации на различных языках программирования полно в инете. Чтоб их найти надо только написать в любом поисковике "СУММА ПРОПИСЬЮ"

Так может набрать в поисковике "ERP СИСТЕМА"...
Реализовать то все можно, вот только ... может есть уже готовый ФМ?

Сергей Королев

lytic написал(а):

Реализовать то все можно, вот только ... может есть уже готовый ФМ?

Готового похоже нету, в SPELL_AMOUNT жестко зашита обработка копеек. Так что вызвать дважды, а потом для копеек слово "один" заменить на "одна", "два" на "две". Не особо смертельно.

Preatos

Скажите постановщику что он неправ

Пусть будет цифрами

Во всех бух. документах цифрами пишется

slash

повторно вызывать к валюте женского роду
кроне, например

lytic

Я сделал вот так:

Code:

*&---------------------------------------------------------------------*
*&      Form  GET_SPELL_AMOUNT
*&---------------------------------------------------------------------*
*       Сумма прописью
*----------------------------------------------------------------------*
*      -->P_AMOUNT  Сумма
*      -->P_CURRENCY  Валюта
*      <--C_WORDAMOUNT  Сумма прописью
*----------------------------------------------------------------------*
FORM GET_SPELL_AMOUNT  USING    P_AMOUNT
                                P_CURRENCY
                       CHANGING C_WORDAMOUNT.

  DATA ST_SPELL LIKE SPELL.
  DATA L_WORD TYPE IN_WORDS.
  DATA L_DECWORD TYPE DECWORD.

  CLEAR C_WORDAMOUNT.

  CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      AMOUNT          = P_AMOUNT
      CURRENCY        = P_CURRENCY
      LANGUAGE        = SY-LANGU
    IMPORTING
      IN_WORDS        = ST_SPELL
    EXCEPTIONS
      NOT_FOUND       = 1
      TOO_LARGE       = 2
      OTHERS          = 3
            .

  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.

  L_WORD    = ST_SPELL-WORD.
  L_DECWORD = ST_SPELL-DECWORD.

  IF P_CURRENCY = 'RUB'.
    CALL FUNCTION 'SPELL_AMOUNT'
      EXPORTING
        AMOUNT          = L_DECWORD
        LANGUAGE        = SY-LANGU
      IMPORTING
        IN_WORDS        = ST_SPELL
      EXCEPTIONS
        NOT_FOUND       = 1
        TOO_LARGE       = 2
        OTHERS          = 3
              .
    IF SY-SUBRC = 0.
      IF ST_SPELL-DIG02 = 'НОЛЬ'.
        CASE ST_SPELL-DIG01.
          WHEN 'ОДИН'.
            ST_SPELL-WORD = 'Одна'.
          WHEN 'ДВА'.
            ST_SPELL-WORD = 'Две'.
        ENDCASE.
      ELSE.
        CASE ST_SPELL-DIG01.
          WHEN 'ОДИН'.
            REPLACE 'один' WITH 'одна' INTO ST_SPELL-WORD.
          WHEN 'ДВА'.
            REPLACE ' два' WITH ' две' INTO ST_SPELL-WORD.
        ENDCASE.
      ENDIF.
        CONCATENATE ST_SPELL-WORD L_DECWORD+2 INTO L_DECWORD.
    ENDIF.
  ENDIF.

  CONCATENATE L_WORD L_DECWORD INTO C_WORDAMOUNT SEPARATED BY SPACE.

  TRANSLATE C_WORDAMOUNT USING 'ОоДдТтЧчПпШшСсВвНнМмБб'.

ENDFORM.                    " GET_SPELL_AMOUNT

Насчет валюты женского рода неуверен, но поробую...

trop

еще можно попробовать настроить соотв таблицу

Удав

Preatos написал:

Скажите постановщику что он неправ

Пусть будет цифрами

Во всех бух. документах цифрами пишется

+1

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

SPELL_AMOUNT и копейки прописью

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