p.s. сорри, хотел в отдельную тему вопрос про фильтры вынести (не туда запостил)
Вчера ввод глючил - сегодня работает (х.з. так и не понял почему)
вот настроечная часть ALV-вызова
*---------------------------------------------------------------------*
* FORM ShowGrid *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
*отображение на экране списка платежек, упорядоченных по номеру ПП
form ShowGrid.
data: str1(29) type c.
data: gset type LVC_S_GLAY.
* каталог полей экранного представления
CLEAR: fieldcat, fieldcat[].
perform TypeOf(ZRX_FORMPOOL)
using grid changing gridtype. "имя типа (структуры)
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = gridtype
I_BYPASSING_BUFFER = 'X' "иначе лепит горбатого
CHANGING
ct_fieldcat = fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
* закрепляем первые 4 колонки
do 5 times.
READ TABLE fieldcat INDEX sy-index.
fieldcat-key = 'X'. "закрепление колонки
MODIFY fieldcat INDEX sy-index.
enddo.
layout-colwidth_optimize = 'X'. "подгонять ширину столбцов
loop at fieldcat.
concatenate '[' fieldcat-fieldname ']' into str1.
* в text-024 перечислены имена редактируемых полей
search text-024 for str1.
if ( sy-subrc = 0 ).
fieldcat-edit = 'X'.
fieldcat-input = 'X'.
MODIFY fieldcat.
endif.
* в text-023 перечислены имена полей с итогами
search text-023 for str1.
if ( sy-subrc = 0 ).
fieldcat-do_sum = 'X'.
MODIFY fieldcat.
endif.
* в text-022 перечислены имена полей с выбором
search text-022 for str1.
if ( sy-subrc = 0 ).
fieldcat-hotspot = 'X'. "select
MODIFY fieldcat.
endif.
endloop.
* если задан краткий реестр, скрываем лишние столбцы
if ( pr_short = 'X' ).
loop at fieldcat.
concatenate '[' fieldcat-fieldname ']' into str1.
* в text-021 перечислены имена ВИДИМЫХ полей в []
search text-021 for str1.
if ( sy-subrc <> 0 ).
fieldcat-no_out = 'X'. "hidden
MODIFY fieldcat.
endif.
endloop.
endif.
*доп.параметры
gset-EDT_CLL_CB = 'X'.
* стандартная сортировка по номеру ПП
clear: hsort,gsort,gsort[].
hsort-SPOS = 1.
hsort-FIELDNAME = 'F1'.
hsort-TABNAME = 1.
hsort-UP = 'X'. "по возрастанию
hsort-COMP = 'X'.
append hsort to gsort[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = fieldcat[]
i_save = ' '
i_callback_program = self
i_callback_pf_status_set = 'SET_STATUS'
i_callback_user_command = 'USER_COMMAND'
IS_LAYOUT = layout
I_BYPASSING_BUFFER = 'X' "иначе лепит горбатого
I_GRID_TITLE = text-020
I_GRID_SETTINGS = gset
* IT_FILTER = gfilt[]
IT_SORT = gsort[]
TABLES
t_outtab = grid
EXCEPTIONS
program_error = 1
OTHERS = 2.
endform.