Вывод на экран таблицы БД

rodendron

Всем добрый день,

Народ, а никто не знает функции вывода внешней таблицы в листинг?

Только не АЛВ, а обычный листинг.

Смысл такой:

Формирую внутреннюю таблицу, которая like таблицы БД.
Потом вношу изменения в таблице БД.
Хочу вывести протокол.

Пути решения:
1) Делаю LOOP ... ENDLOOP и ручками описываю вывод внутренней таблицы - заголовки и uline'ы и т.д.
Мораль: очень муторно и долго.
2) Делаю АЛВ и вывожу внутреннюю таблицу. Но для отчета по проведенным документам - жирновато АЛВ - там эти функции не нужны.

Нет ли самого простого вывода внутренней(такого нет), так что таблицы БД? Чтобы не описывать имена полей и т.д.
ЗЫ: таблица внутренняя и таблица БД равны по значения.

Bit

Убери из статуса АЛВ лишние кнопки, а заполнить филдкат можно просто:

Code:

DATA : GT_INFO LIKE RSTRUCINFO OCCURS 0 WITH HEADER LINE,
       G_REPID LIKE SY-REPID.

G_REPID = SY-REPID.

CALL FUNCTION 'GET_COMPONENT_LIST'
     EXPORTING
          PROGRAM    = G_REPID
          FIELDNAME  = 'GT_TEST'  "имя твоей внутр. таблицы
     TABLES
          COMPONENTS = GT_INFO
     EXCEPTIONS
          OTHERS     = 1.

* макрос заполнения таблицы заголовков
  DEFINE ADD_FN.
    CLEAR FieldNames.
    FieldNames-title = &1.
    APPEND FieldNames.
  END-OF-DEFINITION.

* инициализация полей заголовка таблицы
  REFRESH FIELDNAMES.
  ADD_FN 'Поле 1'.
  ADD_FN 'Поле 2'.
* ..................

LOOP AT GT_INFO.
    CLEAR it_fieldcat.
    it_fieldcat-fieldname = GT_INFO-compname.
    it_fieldcat-inttype   = GT_INFO-type.
    it_fieldcat-intlen    = GT_INFO-leng.
    it_fieldcat-outputlen = GT_INFO-olen.
    READ TABLE FieldNames INTO it_fieldcat-seltext_l INDEX sy-tabix.
    APPEND it_fieldcat.
  ENDLOOP.

Корявенько, но принцип, думаю, ясен.

rodendron

Оки спасиб!
Так и сделал - остального не нашел.

Еще раз спасибо!

OlegDm

Может версия системы у тебя не потянет, но вот ссылка:

http://sapboard.ru/forum/viewtopic.php ... &&start=30

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

Вывод на экран таблицы БД

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