22.01.2015 1С бухгалтерия

Уже несколько раз возникала необходимость добавлять колонку в таблицу значений на УФ.
Каждый раз мучительные воспоминания о том, что уже где-то я это делал.

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