Прочитать DBF

vuces

А у меня проблем, в первой колонке обрезает последний символ, может у кого была сходная проблема

vuces

Сори, ет у меня в ТЗ один размер колонки а данные другие

andry_moz

Code:

*   Not Deleted
    CHECK l_xrow(1) EQ '20'.

    l_field_offset = 1.

*   For All Fields
    LOOP AT lt_dbf_fields.

      ASSIGN COMPONENT lt_dbf_fields-name OF STRUCTURE pt_dbf TO <fs_value>.
      CHECK sy-subrc EQ 0.

      l_len     = lt_dbf_fields-len.
      l_xstring = l_xrow+l_field_offset(l_len).

*     Read Value
      PERFORM convert_from_x
        USING     l_xstring
        CHANGING  <fs_value>.

      ADD l_len TO l_field_offset.
    ENDLOOP.

    ADD l_field_offset TO l_offset.

    APPEND pt_dbf.
  ENDDO.

ENDFORM.                    " read_dbf

правильнее будет так:

Code:

*   Not Deleted
*    CHECK l_xrow(1) EQ '20'. " комментируем 

* дальше код без из
    l_field_offset = 1.

*   For All Fields
    LOOP AT lt_dbf_fields.

      ASSIGN COMPONENT lt_dbf_fields-name OF STRUCTURE pt_dbf TO <fs_value>.
      CHECK sy-subrc EQ 0.

      l_len     = lt_dbf_fields-len.
      l_xstring = l_xrow+l_field_offset(l_len).

*     Read Value
      PERFORM convert_from_x
        USING     l_xstring
        CHANGING  <fs_value>.

      ADD l_len TO l_field_offset.
    ENDLOOP.

    ADD l_field_offset TO l_offset.

*   Not Deleted
    CHECK l_xrow(1) EQ '20'. " переносим строку сюда

    APPEND pt_dbf.
  ENDDO.

ENDFORM.                    " read_dbf

Марик

Цитата:

Ну и ещё, к сожалению, этот код не работает, если у ДБФ-ки русские буквы в именах полей. Для такого случая нужно заменить

Блин, а у меня в содержимом полей текст на русском

Как быть? Кракозябры вылазят

raaleksandr

Попробуйте как здесь.
Немного другой случай, но тоже про крокозяблы.

Besa

Или как тут http://sapboard.ru/forum/viewtopic.php?f=13&t=47643&start=0

Марик

Вот оно!

Цитата:

Господа!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!! Хочу поделиться своей радостью. Все получилось сделать. Для этого пришлось в описанном выше методе исправить 1504 на 1503. Теперь кодировка верная.
CALL METHOD cl_abap_conv_in_ce=>create
EXPORTING
input = l_xstring
encoding = '1503'
replacement = space
ignore_cerr = abap_true
RECEIVING
conv = lc_conv.

Всем большое спасибо

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

Прочитать DBF

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