Code:
Data:
gs_layout TYPE lvc_s_layo,
g_variant TYPE disvariant,
gt_fieldcat TYPE lvc_t_fcat,
******создаю контейнер
IF g_custom_container IS INITIAL.
CREATE OBJECT g_custom_container
EXPORTING
container_name = g_container.
CREATE OBJECT g_grid
EXPORTING
i_parent = g_custom_container.
ENDIF.
****** заполняю fieldcat
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'Z_ALV'
CHANGING
ct_fieldcat = pt_fieldcat[].
LOOP AT pt_fieldcat INTO ls_fcat.
CLEAR: ls_fcat-ref_table, ls_fcat-ref_field.
IF ls_fcat-fieldname = 'AUSKZ'.
ls_fcat-checkbox = 'X'.
ls_fcat-outputlen = '6'.
ls_fcat-edit = 'X'.
ls_fcat-reptext = 'Выбор'.
ls_fcat-scrtext_l = 'Выбор'. "m S
ls_fcat-no_convext = 'X'.
ENDIF.
MODIFY pt_fieldcat FROM ls_fcat.
ENDLOOP.
ENDFORM. "build_fieldcat
******
gs_layout-zebra = 'X'.
gs_layout-box_fname = 'AUSKZ'.
gs_layout-sel_mode = 'X'.
gs_layout-cwidth_opt = 'X'.
g_variant-report = sy-repid.
*****вывожу на экран
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'Z_ALV'
i_save = 'A'
is_layout = gs_layout
it_toolbar_excluding = lt_exclude
is_variant = g_variant
CHANGING
it_fieldcatalog = gt_fieldcat
it_outtab = talv[].
Code:
Кнопки вывожу стандартно:
CLASS lcl_event_receiver DEFINITION.
****
METHODS: handle_toolbar "панель инструментов
FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING
e_object
e_interactive.
*****
ENDCLASS.
CLASS lcl_event_receiver IMPLEMENTATION.
***
el_tool-function = cl_gui_alv_grid=>mc_fc_current_variant. "фрмат изменить
el_tool-icon = '@LZ@'.
el_tool-quickinfo = 'Изменить формат'.
APPEND el_tool TO e_object->mt_toolbar.
*
el_tool-function = cl_gui_alv_grid=>mc_fc_load_variant. "выбрать вариант
el_tool-icon = '@DM@'.
el_tool-quickinfo = 'Выбрать формат'.
APPEND el_tool TO e_object->mt_toolbar.
el_tool-function = cl_gui_alv_grid=>mc_fc_save_variant. "сохранить вариант
el_tool-icon = '@DN@'.
el_tool-quickinfo = 'Сохран. формат'.
APPEND el_tool TO e_object->mt_toolbar.
el_tool-function = cl_gui_alv_grid=>mc_fc_maintain_variant. " Управления вариантами
el_tool-icon = '@AR@'.
el_tool-quickinfo = 'УправФормат'.
APPEND el_tool TO e_object->mt_toolbar.
***
ENDCLASS.
Каким образом необходимо изменить программу, чтобы при сохранении формата с указанием "Предварительная настройка" стоблец checkbox не исчезал. ?
Буду благодарна за ответ.