Как в Query реализовать определение текста аналогично ФМ READ_TEXT

Jull

Спасибо ребята. Есесственно все получилось, теперь хоть буду знать как программные вставки делать в Query.
Только по настройке СПРО чего то не поняла я

sh0ker

Ребята, спасибо. Очень нужно было добавить, все помогло

riki11

Да, очень полезное обсуждение, благодарю, очень помогли.

riki11

Код читает не весь длинный текст в SQ отчете, подскажите пожалуйста как правильно прописать в мой код CONCATENATE? уже по всякому пробовал, ошибок нет, но не выводит хоть ты тресни полностью все внесенное.

Code:

data: l_NAME like THEAD-TDNAME,
      l_OBJECT like THEAD-TDOBJECT,
      l_ID like THEAD-TDID,
      l_LANGUAGE like THEAD-TDSPRAS.
data: lt_LINES TYPE STANDARD TABLE OF tline,
      lw_lines TYPE tline.

clear:l_NAME,lt_lines[],lw_lines,LONGTEXT_RU.
        l_OBJECT = 'MATERIAL'.
        l_NAME = mara-matnr.
        l_ID = 'GRUN'.
        l_LANGUAGE = 'RU'.

CALL FUNCTION 'READ_TEXT'
      EXPORTING 
         OBJECT = l_OBJECT
         NAME = l_NAME
         ID = l_ID
          LANGUAGE = l_LANGUAGE
      TABLES 
        LINES = lt_LINES
      EXCEPTIONS
         OTHERS = 1.
IF sy-subrc EQ 0 AND lt_lines IS NOT INITIAL.
 LOOP AT lt_lines INTO lw_lines.
  IF LONGTEXT_RU IS INITIAL.
      LONGTEXT_RU = lw_lines-tdline.
  ELSE.
    CONCATENATE LONGTEXT_RU lw_lines-tdline INTO LONGTEXT_RU SEPARATED BY space.
  ENDIF.
 ENDLOOP.
ENDIF.

LKU

Код не читает или ALV не выводит? У ALV есть ограничение на длину выводимого текста, ~100 символов
(не поручусь за точность, но ограничение в 128 байт, а так как разные русские буквы разное число байт занимают, но получается порядка 100 символов).

riki11

Да, по всей видимости так и происходит ALV не выводит все символы, ограничивает в 100 символов.
А как же тогда быть? Сделать несколько столбцов с продолжением текста с разным кодом? или что еще можно придумать?

riki11

Исправил

riki11

riki11 написал:

Добавил два поля, в первом считываю первую строку с EQ '*'..

Code:

IF sy-subrc EQ 0 AND lt_lines IS NOT INITIAL.
 LOOP AT lt_lines INTO lw_lines WHERE tdformat EQ '*'.
  IF LONGTEXT_RU IS INITIAL.
      LONGTEXT_RU = lw_lines-tdline.
  ELSE.
    CONCATENATE LONGTEXT_RU lw_lines-tdline INTO LONGTEXT_RU SEPARATED BY space.
  ENDIF.
 ENDLOOP.
ENDIF.

во втором поле читаю вторую строку c EQ '/'.

Code:

 IF sy-subrc EQ 0 AND ld_lines IS NOT INITIAL.
 LOOP AT ld_LINES INTO lr_lines WHERE tdformat EQ '/'.
  IF LONGTEXT_RU1 IS INITIAL.
      LONGTEXT_RU1 = lr_lines-tdline.
  ELSE.
    CONCATENATE LONGTEXT_RU1 lr_lines-tdline INTO LONGTEXT_RU1 SEPARATED BY space.
  ENDIF.
 ENDLOOP.
ENDIF.

а как остальные считать теперь не понятно, их еще 4 там с линиями EQ '/'., очень длинный текст внесли.

riki11

Дорогие товарищи абаперы, подскажите, что сделать нужно?

Удав

riki11 написал:

Дорогие товарищи абаперы, подскажите, что сделать нужно?

Если нужно 1 поле, то зачем вы на TDFORMAT внимание обращаете?

riki11

Нужно не только первую строку, но и все последующие. если без TDFORMAT, то он вытаскивает в alv только 100 символов, а там на самом деле где-то 500, то есть 5 строк образовалось.

Yozhhhhh

Заберите таблицу lines, которую вернет read_text. Слейте конкатенацией в стринг.
Через ФМ специальный сепарируйте обратно в куски нужной длины (например, 128 символов, так как Вам уже сказали, что в ALV кверюши выводят максимально именно столько). Конкатенация и обратное разделение помогают а) равномерно распределить значения из lines б) добиться непревышения максимальной возможной длины.

pberezin

Там же ФМ специальный есть, для правильной конверсии LINES[] в string, учитывая переносы (TDFORMAT = '='), абзацы и проч.

riki11

Ну, в принципе, сейчас все работает как надо в программе, с тем, что я нарисовал.

riki11

Вернее, мы решили, что весь текст нам не нужен, вытащил только 100 символов. А так - попробовать можно, но это кому как захочется уже.

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

Как в Query реализовать определение текста аналогично ФМ READ_TEXT

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