вывод внутр таблицы в alv

otkos

Простой вопрос.
Как вывести в ALV внутреннюю таблицу, создаваемую вручную, с данными введёнными тоже вручную типа :
data: begin of tab occurs 100,
col1(15) value '1234567890',
col2(15) value '0987654321',
end of tab.

Lars

Посмотреть пакет SLIS.
Пошерстить форум, скажем по REUSE_ALV_GRID_DISPLAY.

RA

банальный ответ - создать fieldcatalog вручную.

можно посмотреть как это делается тут:

Code:

REPORT  z_teestt                                .


DATA: BEGIN OF tab OCCURS 100,
col1(15) VALUE '1234567890',
col2(15) VALUE '0987654321',
END OF tab.

DO 5 TIMES.
  APPEND tab.
ENDDO.


CALL FUNCTION 'HR_IT_SHOW_ANY_TABLE_ON_ALV'
  TABLES
    table          = tab
* EXCEPTIONS
*   FB_ERROR       = 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.

Цитата:

таблицу, создаваемую вручную, с данными введёнными тоже вручную

или я не в тему?

Lars

Пчему же не в тему ... выводит же

Интереесный в модуле комментарий:

* Note: this function module is thought only for debugging
* and/or rapid prototyping. you give in a table and a work
* area and you get the table displayed... using a little macro
* with just one line of code.
* Real world scenarios require the ability to manipulate the field
* catalog for this purpose other 3 funct modules will be provided.

otkos

Спасибо большое. Но как fieldcatalog заполнять для этого ?

sy-uname

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

Спасибо большое. Но как fieldcatalog заполнять для этого ?

Вам-же Lars всё написал -

Цитата:

Посмотреть пакет SLIS.
Пошерстить форум, скажем по REUSE_ALV_GRID_DISPLAY.

- подробнее просто быть не может - найдётся куча примеров что, как и зачем.

Сашок

Примерно как то так:

Code:

FORM initALV.

data: it_fieldcat type lvc_t_fcat,
      wa_fieldcat type lvc_s_fcat,
      wa_layout type lvc_s_layo.

DATA: WA_CELLTAB TYPE LVC_S_STYL,
      IT_CELLTAB TYPE LVC_T_STYL,
      L_INDEX TYPE I.

w_cprog = sy-cprog.

wa_fieldcat-fieldname = 'PNUMBER'.
wa_fieldcat-tabname = 'EmployeeList'.
*wa_fieldcat-checkbox = 'X'.
wa_fieldcat-edit = ''.
wa_fieldcat-outputlen = '8'.
wa_fieldcat-REPTEXT = 'YO'.
*wa_fieldcat-col_pos = '1'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.

*Initialize the celltab table

CLEAR : WA_CELLTAB, IT_CELLTAB.
REFRESH IT_CELLTAB.

WA_LAYOUT-STYLEFNAME = 'CELLTAB'.
wa_layout-edit = ''.

data: exitByUser type SLIS_EXIT_BY_USER,
      exitByCaller.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  EXPORTING
   I_CALLBACK_USER_COMMAND = 'USERCOMMAND'
   I_CALLBACK_PROGRAM = w_cprog
    I_GRID_TITLE = 'Àâàíñû'
    IS_LAYOUT_LVC = WA_LAYOUT
    IT_FIELDCAT_LVC = IT_FIELDCAT
  importing
    E_EXIT_CAUSED_BY_CALLER = exitByCaller
    ES_EXIT_CAUSED_BY_USER = exitByUser
  TABLES
    T_OUTTAB = EmployeeList
  EXCEPTIONS
    PROGRAM_ERROR = 1
    OTHERS = 2.
ENDFORM.

Art386

Если структура большая, то вручную заполнять fieldcatalog долго.Можно исп. ФМ REUSE_ALV_FIELDCATALOG_MERGE (структура объявлена в словаре). Можно использовать RTTI, если структура таблица забита в описаниях типов в программе

Сашок

Art386 написал:

Если структура большая, то вручную заполнять fieldcatalog долго.Можно исп. ФМ REUSE_ALV_FIELDCATALOG_MERGE (структура объявлена в словаре). Можно использовать RTTI, если структура таблица забита в описаниях типов в программе

Я понял для себя, что REUSE_ALV_FIELDCATALOG_MERGE заполняет структуру по таблице БД. А по внутр таблице (которая собрана из разных Таблиц БД) у меня заполнить не получилось

Если у Вас есть кусочек кода - буду благодарен

sy-uname

Сашок написал(а):

Я понял для себя, что REUSE_ALV_FIELDCATALOG_MERGE заполняет структуру по таблице БД. А по внутр таблице (которая собрана из разных Таблиц БД) у меня заполнить не получилось

Если у Вас есть кусочек кода - буду благодарен

1. Не по таблице БД, а по объекту из словаря данных.
2. Необязательно - там есть ещё ряд параметров (I_PROGRAM_NAME, I_INTERNAL_TABNAME, I_INCLNAME) которые как раз необходимо задавать для формирования каталога для таблиц/структур, описанных в отчётах. Но есть ряд ограничений, если я ничего не путаю, то таблица должна быть описана как data: begin of itab OCCURS и поля как field LIKE со ссылкой на словарь

PS всё это можно найти через поиск.

Сашок

Это решение мне нравиться больше, чем заполнять ручками. Спасибо!

PROaBAB

И если ипользовать в 'REUSE_ALV_FIELDCATALOG_MERGE'
I_INCLNAME = "имя инклюда" , то обязательно ширина кода программы не должна быть больше 72 символов - а то дамп.

в ФМ используется вот такая фишка (считывает код проги)
READ REPORT L_PROG_TAB_LOCAL INTO L_ABAP_SOURCE.

а L_ABAP_SOURCE - длинной не более 72.

PROaBAB

Если нужно сделать каталог полей внутренней таблицы с помощью
REUSE_ALV_FIELDCATALOG_MERGE , надо указать имя инклюда из которого ФМ достает список полей , читая код инклюда построчно и таблицу нужно описать как глобальную. А то ...MERGE с помощью ФМ "GET_COMPONENT_LIST" достает список полей - а он работает только с данными описанными в программе как глобальные.

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

вывод внутр таблицы в alv

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