Помогите с ALV

Askhat Bayarlin

Стоит задача: используя данные из двух таблиц coep и cobk создать отчет. Я новичок. Сделал все ручками через write. Теперь мучаюсь с АЛВ. Попробовал сначала для внутренней таблицы, составленной из одной внешней, вышло))) А вот для внутренней составной таблицы не получаеться((( То есть она тянет поля из двух таблиц. Привожу код

REPORT Z777.

TABLES: cobk, coep.

TYPES: begin of table_type,
perio like coep-perio,
gjahr like coep-gjahr,
bukrs like coep-bukrs,
belnr like coep-belnr,
vrgng like coep-vrgng,
kstar like coep-kstar,
wkgbtr like coep-wkgbtr,
bldat like cobk-bldat,
budat like cobk-budat,
usnam like cobk-usnam,
END OF table_type.

Data: Table1 TYPE table_type occurs 400 WITH HEADER LINE.

SELECT * from coep.
MOVE-CORRESPONDING coep to table1.
MOVE-CORRESPONDING cobk to table1.
APPEND Table1.
ENDSELECT.

select * from cobk where belnr = coep-belnr.
ENDSELECT.

call FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_STRUCTURE_NAME = 'table1'
TABLES T_OUTTAB = table1.

Подскажите почему не работает??? Как надо делать?

Alex80

Askhat Bayarlin написал:

Подскажите почему не работает??? Как надо делать?

I_STRUCTURE_NAME

Цитата:

If the internal output table is defined via an ABAP/4 Dictionary structure (INCLUDE STRUCTURE struct or LIKE struct), the field catalog can be built-up automatically by passing the structure name.

The field catalog is internally built up for this structure as follows:

All fields are in the list (NO_OUT = SPACE) except fields of data type CLNT.
The key fields of the Dictionary structure are also key fields in the field catalog.
Dictionary references to unit fields are copied if the reference fields are in the structure.
If a field catalog is also passed as parameter, the structure information is combined with this field catalog.
For further information about the automatic build-up of the field catalog, see the documentation of the function module REUSE_ALV_FIELDCATALOG_MERGE.

Askhat Bayarlin

Мда, а можно как-нибудь поподробней?

Alex80

Askhat Bayarlin написал:

Мда, а можно как-нибудь поподробней?

Code:

  REPORT Z777.

  TABLES: cobk, coep.

  DATA: BEGIN OF table1 OCCURS 0,
*  TYPES: BEGIN OF table_type,
  perio LIKE coep-perio,
  gjahr LIKE coep-gjahr,
  bukrs LIKE coep-bukrs,
  belnr LIKE coep-belnr,
  vrgng LIKE coep-vrgng,
  kstar LIKE coep-kstar,
  wkgbtr LIKE coep-wkgbtr,
  bldat LIKE cobk-bldat,
  budat LIKE cobk-budat,
  usnam LIKE cobk-usnam,
  END OF table1.
*  END OF table_type.


*  DATA: table1 TYPE table_type OCCURS 400 WITH HEADER LINE.

  SELECT * FROM coep.
    MOVE-CORRESPONDING coep TO table1.
    MOVE-CORRESPONDING cobk TO table1.
    APPEND table1.
  ENDSELECT.

  SELECT * FROM cobk WHERE belnr = coep-belnr.
  ENDSELECT.

  TYPE-POOLS slis.
  DATA:
    gt_fieldcat TYPE slis_t_fieldcat_alv,
    gv_repid TYPE sy-repid VALUE sy-repid.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = gv_repid
      i_internal_tabname     = 'TABLE1'
      i_inclname             = gv_repid
    CHANGING
      ct_fieldcat            = gt_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

  CHECK sy-subrc IS INITIAL.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      it_fieldcat = gt_fieldcat
*      i_structure_name = 'table1'
    TABLES
      t_outtab         = table1.

John Doe

Alex80 написал:

...

Садитесь, пять! :lol:

Jelena

Askhat Bayarlin написал:

SELECT * from coep.
MOVE-CORRESPONDING coep to table1.
MOVE-CORRESPONDING cobk to table1.
APPEND Table1.
ENDSELECT.

select * from cobk where belnr = coep-belnr.
ENDSELECT.

Полагаю следующим вопросом будет, почему не показываются данные из COBK.

Askhat Bayarlin

Да это точно)))!!! А почему?

Rokhay

Askhat Bayarlin написал:

SELECT * from coep.
MOVE-CORRESPONDING coep to table1.
MOVE-CORRESPONDING cobk to table1.
APPEND Table1.
ENDSELECT.

select * from cobk where belnr = coep-belnr.
ENDSELECT.

1) Данные из COBK не сохраняются во внутреннюю табличку
2) из БД выбираются данные из COBK, соответствующие лишь последней выбранной записи из COEP.

В рамках логики данного кода, второй селект должен быть внутри первого. Однако, это не очень хороший вариант с точки зрения производительности.
Лучше использовать
1)INNER JOIN
2)Список полей для выборки, вместо "*"

Zhasulan

Цитата:

В рамках логики данного кода, второй селект должен быть внутри первого. Однако, это не очень хороший вариант с точки зрения производительности.
Лучше использовать
1)INNER JOIN
2)Список полей для выборки, вместо "*"

Получилось????
Так или нет????
Покажи после поправки???

Alex80

Zhasulan написал:

Цитата:

В рамках логики данного кода, второй селект должен быть внутри первого. Однако, это не очень хороший вариант с точки зрения производительности.
Лучше использовать
1)INNER JOIN
2)Список полей для выборки, вместо "*"

Получилось????
Так или нет????
Покажи после поправки???

Code:

SELECT perio coep~gjahr bukrs coep~belnr
       coep~vrgng kstar wkgbtr bldat budat
       usnam
  INTO TABLE table1
  FROM coep
  INNER JOIN cobk
  ON cobk~belnr = coep~belnr.

Ааа, кто все эти люди?

Jelena

Alex80 написал:

Ааа, кто все эти люди?

Видимо свежий выпуск курсов BC400 (уши SELECT * ... ENDSELECT явно оттуда растут). Ну или еще кто-то мистический BCABA.pdf прочитал.

Пардон за оффтопик. :oops:

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

Помогите с ALV

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