Инициализация столбца ALV Grid

*&---------------------------------------------------------------------*

*&      Form  M_FIELDCAT

*&---------------------------------------------------------------------*

*       ФОРМА ДЛЯ ЗАПОЛНЕНИЯ СТРУКТУРЫ ПЕРЕЧНЯ ПОЛЕЙ В ALV_GRID

*----------------------------------------------------------------------*

*      -->P_CT_FIELDCAT  text

*----------------------------------------------------------------------*

FORM m_fieldcat  TABLES   it_fieldcat

                  USING i_fieldname

                      i_coltext     " НАЗВАНИЕ СТОБЦА

                      i_ref_field   " ССЫЛОЧНОЕ ПОЛЕ

                      i_ref_table   " ССЫЛОЧНАЯ ТАБЛИЦА

                      i_emphasize   " ЦВЕТ СТОЛБЦА

                      i_outputlen   " ДЛИНА ВЫВОДА

                      i_no_out      " СКРЫТЬ СТОЛБЕЦ

                      i_edit        " ГОТОВНОСТЬ К ВВОДУ

                      i_f4availabl  " ИМЕЕТСЯ СОБЫТИЕ F4

                      i_checkbox    " ИНДИКАТОР

                      i_no_zero     " ПОДАВЛЕНИЕ ВЕДУЩИХ ЕУЛЕЙ

                      i_decimals    " ЧИСЛО ДЕСЯТИЧНЫХ РАЗРЯДОВ

                      i_icon        " ВЫВОД КАК ПИКТОГРАММУ

                      i_lowercase   " УЧИТЫВАТЬ СТРОЧНЫЕ БУКВЫ

                      i_do_sum      " СУМИРОВАТЬ СТОЛБЕЦ

                      i_fixed       " Фиксированный столбец

                      i_tooltip.    " тултип

  DATA ls_fieldcat TYPE lvc_s_fcat.

  CLEAR ls_fieldcat.

*  ls_fieldcat-tabname    = 'GT_DISP'.

*  ls_fieldcat-inttype    = 'P' .

  ls_fieldcat-col_pos    = lines( it_fieldcat ).

  ls_fieldcat-fieldname  = i_fieldname.

  ls_fieldcat-coltext    = i_coltext.

  ls_fieldcat-ref_field  = i_ref_field.

  ls_fieldcat-ref_table  = i_ref_table.

  ls_fieldcat-emphasize  = i_emphasize.

*  ls_fieldcat-outputlen  = i_outputlen.

  ls_fieldcat-col_opt    = 'X'.

  ls_fieldcat-no_out     = i_no_out.

  ls_fieldcat-edit       = i_edit.

  ls_fieldcat-f4availabl = i_f4availabl.

  ls_fieldcat-checkbox   = i_checkbox.

  ls_fieldcat-no_zero    = i_no_zero.

  ls_fieldcat-decimals   = i_decimals.

  ls_fieldcat-icon       = i_icon.

  ls_fieldcat-lowercase  = i_lowercase.

  ls_fieldcat-do_sum     = i_do_sum.

  ls_fieldcat-fix_column = i_fixed.

  ls_fieldcat-tooltip    = i_tooltip.

  APPEND ls_fieldcat TO it_fieldcat.

ENDFORM.                    " M_FIELDCAT