convert char to curr

Ich Will

Подскажите плиз как char в curr сконвертить ?

Из экселя гружу

...

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

CATS_NUMERIC_INPUT_CHECK (у меня сейчас версия базиса 7.00)

Ich Will

Спасибо, не помогло в дамп падает ...

Code:

Динамическая ошибка    DATA_OFFSET_LENGTH_NOT_ALLOWED
Особая ситуация        CX_SY_OFFSET_NOT_ALLOWED      

Ich Will

Похоже вот этот подошел

Code:

OIJY_CONVERT_CHAR_TO_PACK

OlegDm

самый простой вариант (по уму надо анализировать какие разделители в системе используются):

Code:

data: l_curr like bseg-dmbtr,
      l_char(15).

l_char = ' 0,5'.
perform convert_char_to_curr using l_char l_curr.
write: / l_char, l_curr.

l_char = ' 230,45 '.
perform convert_char_to_curr using l_char l_curr.
write: / l_char, l_curr.

form convert_char_to_curr using c like l_char
                       changing n like l_curr.
   data: z like l_char.

   z = c.
   translate z using '. ,.'.
   condense z no-gaps.
   n = z.

endform.

Ich Will

Спасибо! Попробую.

Ich Will

Работает вот так

Code:

                    CALL FUNCTION '/CWM/CONVERT_CHAR_TO_PACK'
                      EXPORTING
                        i_char        = <fs3>
                        i_dcpfm      = ' '
                        i_digits       = 10
                        i_decimals  = 2
                      IMPORTING
                        e_pack       = <fs4>
                      EXCEPTIONS
                        no_pack_number = 1
                        OTHERS         = 2.
                    IF sy-subrc <> 0.
                    ENDIF.

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

convert char to curr

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