REUSE_ALV_LIST_DISPLAY разбивка по страницам как в FBL5N

Galka

Роюсь в FBL5N и что-то не нахожу, как сделать, чтобы по изменению значения поля создавалась новая страница.

Мне надо сделать что-то похожее.

Делаю:

Code:

IEVENTS-name = 'TOP_OF_PAGE'.    
IEVENTS-form = 'TOP_OF_PAGE_FORM'. 
APPEND IEVENTS.
CLEAR IEVENTS.


  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK        = ' '
      I_CALLBACK_PROGRAM       = GS_EXTRACT1-REPORT
      I_CALLBACK_PF_STATUS_SET = '002'
      I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
      I_STRUCTURE_NAME         = 'ZZZ_ST'
      IS_LAYOUT                = ILAYOUT
      IT_FIELDCAT              = IFIELDCAT
      I_DEFAULT                = ' '
      I_SAVE                   = 'A'
      IS_VARIANT               = IVARIANT
      IT_EVENTS                = IEVENTS
      IT_EVENT_EXIT            = IEVENTEXIT
    TABLES
      T_OUTTAB                 = IBELEG
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.

* в форме что-то типо TOP_OF_PAGE_FORM 
Write: 
    'Buchungskreis', IBELEG-BUKRS,
    'Kreditor',            IBELEG-LIFNR,
    'Debitor',             IBELEG-KUNNR.    
n_seite =  n_seite + 1.
Write: 'Seite', n_seite.

Удав

В таблице сортировки поле group = '*'.
Читайте документацию на английском по ФМ REUSE_ALV_LIST_DISPLAY:
Sort criteria for first list display
Description
The caller specifies the sorting and/or subtotalling of the basic list in the internal table IT_SORT.

This internal table has the following fields:

spos
Sort sequence
fieldname
Internal output table field name
tabname
Only relevant for hierarchical-sequential lists
Name of the internal output table
up
'X' = sort in ascending order
down
'X' = sort in descending order
subtot
'X' = subtotal at group value change
group
'* ' = new page at group value change
'UL' = underline at group value change
The formatting options are constants of the domain SLIS_CTRLS.

Galka

Ура! Получилось.

Спасибо, Удав. Респект и уважуха.

Galka

Да, на экран выводится нормально, но при печати выдает листок с таблицей, в которой написано что у меня в шапке сортируется по балансовой, дебитору, кредитору, статистика, потом уже идут с нового листа страницы самого алв - НО, нумерация страниц продолжается. То есть = на экране 2 страницы + 1 "левая" страница + 1. То есть нумерация не с 0, а с количества страниц на экране + 1. Где это обнулить?

Да, еще бы хотелось указать, что на странице 30 строк и чтобы шапка также реагировала на это. Стандартный "REPORT ZZZ_REPORTING LINE-COUNT 30 NO STANDARD PAGE HEADING. " не отрабатывает.

просто событие TOP-OF-PAGE тоже.

Galka

вот пока что сама нашла как убрать дополнительный лист.

IPRINT-NO_PRINT_SELINFOS = 'X'.
IPRINT-NO_COVERPAGE = 'X'.
clear IPRINT-NO_NEW_PAGE.
IPRINT-NO_PRINT_LISTINFOS = 'X'.

а страницы "лечатся" использованием системной sy-pagno

как сделать новую страницу через каждые 30 строк и, соответственно, шапку к ней, до сих пор под вопросом.

Удав

NEW-PAGE LINE-COUNT 30. не сработает?

Galka

это где вставить?

решения найдено. Хотя не такое, как я спрашивала.

Дело в том, что в девелоп системе мало тестданных - около 20 строк. Посчитали примерно что по 30 строк на странице. Для теста я пыталась сделать по 10 строк.

А потом я решила проверить дурацкую идею

- сделала несколько раз аппенд выводимой таблицы - чтобы было данных на несколько страниц - распечаталось как надо, с шапкой, номер страницы увеличился, короче, как и требовалось. Не надо, как говорится, переписывать стандартные вещи.

Хотя как забить определенное кол-во строк, я пока не узнала.

aht

Galka написала:

Хотя как забить определенное кол-во строк, я пока не узнала.

а такие штуки в layout'е не прокатывают?

Code:

... 
no_min_linesize(1) type c,    " line size = width of the list
min_linesize like sy-linsz,   " if initial min_linesize = 80
max_linesize like sy-linsz,   " Default 250
...

Удав

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

а такие штуки в layout'е не прокатывают?

Code:

... 
no_min_linesize(1) type c,    " line size = width of the list
min_linesize like sy-linsz,   " if initial min_linesize = 80
max_linesize like sy-linsz,   " Default 250
...

вообще-то это ширина строки, а не количество строк...

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

REUSE_ALV_LIST_DISPLAY разбивка по страницам как в FBL5N

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