Загрузка файла с дробными значениями

Yuri

Привет всем,
Пытаюсь загрузить файл во внутреннюю таблицу с дробными значениями с разделителем ",". А SAP независимо от настроек пользователя, который запускает программу требует разделитель "."
И падает в dump c conv_no_number. Подскажите, please, как сделать так, чтобы разделитель все-таки зависел от настроек пользователя...

Uukrul

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

Привет всем,
Пытаюсь загрузить файл во внутреннюю таблицу с дробными значениями с разделителем ",". А SAP независимо от настроек пользователя, который запускает программу требует разделитель "."
И падает в dump c conv_no_number. Подскажите, please, как сделать так, чтобы разделитель все-таки зависел от настроек пользователя...

Ну так заменяй свою запятую на точку и всех делов... или из религиозных причин это сделать нельзя?

Eugene

где то как то так вроде бы...

DATA: str TYPE usr01-dcpfm,
str1(1) TYPE c VALUE '.',
str2(1) TYPE c VALUE ','.

SELECT SINGLE dcpfm INTO str FROM usr01 WHERE bname = sy-uname.
IF str <> 'X'.
REPLACE str1 WITH str2 INTO sum_wrbtr_form.
ENDIF.

s_ss

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

Привет всем,
Пытаюсь загрузить файл во внутреннюю таблицу с дробными значениями с разделителем ",". А SAP независимо от настроек пользователя, который запускает программу требует разделитель "."
И падает в dump c conv_no_number. Подскажите, please, как сделать так, чтобы разделитель все-таки зависел от настроек пользователя...

Было и у меня такое.
Вышел из ситуации таким образом:

Code:

REPLACE ALL OCCURRENCES OF ',' IN string_1 WITH '.'.

Stenj_90

s_ss написал:

REPLACE ALL OCCURRENCES OF ',' IN string_1 WITH '.'.

В 46C нет ALL OCCURRENCES

Code:

*---------------------------------------------------------------------*
*       FORM SetSumma                                                 *
*---------------------------------------------------------------------*
FORM SetSumma CHANGING cText  TYPE C
                       nSumma LIKE BSEG-DMBTR
                       subrc  LIKE sy-subrc.

  data: nPos like sy-fdpos.

* '.' - разделитель тысяч
  do.
    search cText for '...'.
    if sy-subrc = 0.
      nPos = sy-fdpos + 1.
      cText+sy-fdpos = cText+nPos.
    else.
      exit.
    endif.
  enddo.

* ',' - разделитель целой и дробной части
  replace ',' with '.' into cText.

  CATCH SYSTEM-EXCEPTIONS CONVT_NO_NUMBER = 1.
    nSumma = cText.
  ENDCATCH.
  SUBRC = SY-SUBRC.
  IF SUBRC = 1.
    CLEAR nSumma.
  ENDIF.

ENDFORM.

s_ss

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

s_ss написал:

REPLACE ALL OCCURRENCES OF ',' IN string_1 WITH '.'.

В 46C нет ALL OCCURRENCES

Я так понял, что в 46C нет ALL OCCURRENCES, а сам REPLACE есть.
Так это не проблема...
Я заменяю ',' на '.' в каждой переменной. А в числе, как известно, может быть только одна ','.

ВН

s_ss написал:

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

s_ss написал:

REPLACE ALL OCCURRENCES OF ',' IN string_1 WITH '.'.

В 46C нет ALL OCCURRENCES

Я так понял, что в 46C нет ALL OCCURRENCES, а сам REPLACE есть.
Так это не проблема...
Я заменяю ',' на '.' в каждой переменной. А в числе, как известно, может быть только одна ','.

не факт, есть еще разделители разрядов :wink:

Stenj_90

s_ss написал:

Я так понял, что в 46C нет ALL OCCURRENCES, а сам REPLACE есть.

В 46C нет опции 'ALL OCCURRENCES' команды REPLACE.
Вот еще пример из жизни, используемый при суммировании чисел в своем SAPScript-формуляре:

Code:

FORM STRING_2_NUM USING    cString       LIKE ITCSY-VALUE
                  CHANGING P_EXVKW_POSWS LIKE WOSI_ISEG-EXVKW_POSWS.

  INCLUDE LWOSICST.

  DATA: P_STRING_100 TYPE  CHAR100,
        nSign        TYPE  N.

  P_STRING_100 = cString.
  REPLACE '-' WITH SPACE INTO P_STRING_100.
  IF SY-SUBRC = 0.
    nSign = -1.
  ELSE.
    nSign = +1.
  ENDIF.

  CALL FUNCTION 'WOSI_CONVERT_STRING_TO_NUM'
    EXPORTING
      P_ACTION              = c_convert_to_exvkw_posws
      P_STRING_100          = P_STRING_100
    IMPORTING
*     P_ERFMG               =
      P_EXVKW_POSWS         = P_EXVKW_POSWS
*     P_SWERT               =
*     P_VKUMG               =
    EXCEPTIONS
      ERROR_IN_SY_MSG       = 1
      OTHERS                = 2
            .
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  P_EXVKW_POSWS = nSign * P_EXVKW_POSWS.

ENDFORM.

pinc

а вот это -

Code:

TRANSLATE number USING ',.'.

не спасёт отца русской демократии?

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

Загрузка файла с дробными значениями

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