Размещение колонки в ТЧ

Процедура ДобавитьКолонкуТЧ(Форма, ИмяТЧ, ИмяРеквизитаТЧ, ИмяОбработчика = "")  Экспорт

    МДРеквизита = Метаданные().ТабличныеЧасти[ИмяТЧ].Реквизиты[ИмяРеквизитаТЧ];
    НоваяКолонка = 

Форма.ЭлементыФормы[ИмяТЧ].Колонки.Добавить(ИмяРеквизитаТЧ, МДРеквизита.Синоним);
 Если МДРеквизита.Тип = Новый ОписаниеТипов("Булево") Тогда
  НоваяКолонка.ДанныеФлажка = ИмяРеквизитаТЧ;
 Иначе
  НоваяКолонка.Данные = ИмяРеквизитаТЧ;
 КонецЕсли;
 НоваяКолонка.ПодсказкаВШапке = МДРеквизита.Комментарий;
 
 Если НЕ ИмяОбработчика = "" Тогда
  Форма.ПодключитьОбработчикИзмененияДанных(ИмяТЧ, ИмяОбработчика);
 КонецЕсли;

КонецПроцедуры