В системе SAP ERP существует большое количество стандартных отчетов по продажам, производству, закупкам, однако, иногда требуется создать новый отчет под конкретные требования и задачи. Лучше всего для этого подходит язык программирования ABAP.

Разработку нового отчета можно осуществить в три «простых» шага:

• первый шаг - задание начальных параметров,
• второй шаг - запись данных во внутреннюю таблицу,
• третий шаг - вывод данных в таблицу ALV (ABAP LIST VIEWER).

Задача: создать отчет с колонками: заказчик, дата отгрузки, номер накладной, номер счет фактуры и пункт отгрузки.

Решение.

Шаг 1.  На первом шаге через оператор REPORT определяем имя программы, через оператор TABLES таблицы, с которыми будем работать, через операторы SELECT-OPTIONS поля на экране выбора, которые должен будет указать пользователь, и через оператор TYPES и DATA описываем структуру нашего будущего отчета.

Тест программы:

REPORT  ztd_journal.

TYPE-POOLS: slis.

TABLES: vbrk, likp.

SELECT-OPTIONS:
 fkdat FOR vbrk-fkdat,
 vkorg FOR vbrk-vkorg,
 vstel FOR likp-vstel,
 kunag FOR vbrk-kunag.


TYPES:  BEGIN OF t_journal,
  kunag TYPE vbrk-kunag,
  name1 TYPE kna1-name1,
  ort01 TYPE kna1-ort01,
  vbeln TYPE vbrk-vbeln,
  vbelv TYPE vbfa-vbelv,
  fkdat TYPE vbrk-fkdat,
  netwr TYPE vbrk-netwr,
  mwsbk TYPE vbrk-mwsbk,
  vstel TYPE likp-vstel,
  zz_fctor TYPE likp-zz_fctor,

  END OF t_journal.

DATA: journal TYPE TABLE OF t_journal WITH HEADER LINE,
      wa_journal TYPE t_journal.

При запуске программы появится начальный экран с параметрами отчета (Рис.1)

Рис .1. Начальный экран отчета

Шаг 2. На этом шаге через оператор SELECT и SELECT SINGLE делаем выборку из таблиц базы данных. Предполагается, что разработчик знает таблицы, из которых нужно брать данные

Текст созданного запроса:

SELECT vbeln fkdat kunag netwr mwsbk FROM vbrk INTO CORRESPONDING FIELDS OF wa_journal WHERE fkdat IN fkdat AND vkorg IN vkorg AND kunag IN kunag AND fksto = '' AND sfakn = ''.
  SELECT SINGLE vbelv FROM vbfa INTO wa_journal-vbelv WHERE vbeln = wa_journal-vbeln AND vbtyp_v = 'J'.
  SELECT SINGLE vstel  FROM likp INTO wa_journal-vstel WHERE vbeln = wa_journal-vbelv AND vstel IN vstel.
  SELECT SINGLE name1 ort01 FROM kna1 INTO (wa_journal-name1, wa_journal-ort01) WHERE kunnr = wa_journal-kunag.
  wa_journal-netwr = wa_journal-netwr + wa_journal-mwsbk.
  APPEND wa_journal TO journal.
ENDSELECT.

SORT journal BY fkdat kunag.

В результате работы запроса в табличке VBRK «увидим» неотсторнированные фактуры, в табличке VBFA по потоку документов ищем номер накладной, в табличке LIKP ищем пункт отгрузки, а в табличке KNA1 информацию о клиенте.
 

Шаг 3. На третьем шаге описываем названия колонок в конечном отчете, а также настраиваем переход в другой отчет.

PERFORM call_alv.

*&---------------------------------------------------------------------*
*&    Form  call_alv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM call_alv.

  DATA: ifc TYPE slis_t_fieldcat_alv.
  DATA: xfc TYPE slis_fieldcat_alv.
  DATA: repid TYPE sy-repid.

  repid = sy-repid.

  CLEAR xfc. REFRESH ifc.

  CLEAR xfc.
  xfc-reptext_ddic = ‘Покупатель’.
  xfc-fieldname    = ‘KUNAG’.
  xfc-tabname      = ‘JOURNAL’.
  xfc-outputlen    = ‘15’.
  APPEND xfc TO ifc.

  CLEAR xfc.
  xfc-reptext_ddic = ‘Наименование’.
  xfc-fieldname    = ‘NAME1’.
  xfc-tabname      = ‘JOURNAL’.
  xfc-outputlen    = ‘45’.
  APPEND xfc TO ifc.

  CLEAR xfc.
  xfc-reptext_ddic = ‘Город’.
  xfc-fieldname    = ‘ORT01’.
  xfc-tabname      = ‘JOURNAL’.
  xfc-outputlen    = ‘25’.