Перевод строки в сумму

GeneralLao

Здравствйте,
есть такой код:

Code:

DATA betrg TYPE MAXBT.  " Тип в домене CURR длина 15 десятичных 2.
DATA str TYPE c LENGTH 30.

*......
WRITE betrg to str.

Как перевести обратно из str в betrg?

baboon

проверить негде, но, как-то, так:

Code:

DATA betrg TYPE MAXBT.  " Тип в домене CURR длина 15 десятичных 2.
DATA str TYPE c LENGTH 30.

*----------------------------------------
DATA lv_dec1(2) TYPE p DECIMALS 1,
DATA lv_str1(3)  TYPE c.
lv_dec1 = 1 / 2.
WRITE lv_dec1 TO lv_str1.

IF lv_str1+1(1) = ','.
  TRANSLATE str USING '. '.
  TRANSLATE str USING ',.'.
  CONDENSE str NO-GAPS.
ELSE.
  TRANSLATE str USING ', '.
  CONDENSE str NO-GAPS.
ENDIF.
*-----------------------------------
betrg = str.

GeneralLao

Думал о таком, но ведь WRITE переводит в строку в зависимости от настроек в профиле пользователя.

baboon

Для этого и выясняется, что будет десятичным разделителем.
Переменная lv_str1 его будет содержать с учетом пользовательских настроек.
Можно, конечно из USER01 вытаскивать, но - лень

GeneralLao

ну так мы выясним каким образом отделяется десятичная часть.

у нас в системе если открвть настройки три варианта:
1.234.567,89
1,234,567.89
1 234 567,89.

в принципе это тоже можно проверить.
Думал у сама есть стандартный ФМ)

GeneralLao

пока придумал так:

Code:

  data i_betrg type maxbt.
  DATA lv_istring type c LENGTH 15.
  write i_betrg to lv_istreing.
.
  SHIFT lv_istring RIGHT DELETING TRAILING space.
  TRANSLATE: lv_istring(11) USING ', . ',
             lv_istring+11 USING ',.'.
  CONDENSE lv_istring NO-GAPS.

i_betrg = lv_istring.

baboon

Есть. Там тоже надо указать разделители и делает он то же самое.
HRCM_STRING_TO_AMOUNT_CONVERT

author

если количество разрядов после запятой заранее известно, то я удаляю из строки все кроме цифр, привожу к числовому и делю на 100 например

tav

Можно использовать метод CONVERT_STRING_TO_NUMBER класса CL_RECA_STRING_SERVICES.

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

Перевод строки в сумму

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