Программное создание реквизита управляемой формы заданной точности

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


    ТЗ_рез = РеквизитФормыВЗначение(ИмяТаблицы);
    
    МассивРеквизитов = Новый Массив;
    
    //Выполним запрос
    ТекстЗапроса = "ВЫБРАТЬ
    |    ЗаказКлиентаТовары.Номенклатура,
    |    ЗаказКлиентаТовары.Характеристика,
    |    ЗаказКлиентаТовары.ВариантОбеспечения,
    |    ЗаказКлиентаТовары.КоличествоУпаковок,
    |    ЗаказКлиентаТовары.Упаковка,
    |    ЗаказКлиентаТовары.Цена,
    |    ЗаказКлиентаТовары.ПроцентРучнойСкидки,
    |    ЗаказКлиентаТовары.СуммаРучнойСкидки,
    |    ВЫРАЗИТЬ(ЗаказКлиентаТовары.Сумма КАК ЧИСЛО(15, 2)) КАК Сумма,
    |    ЗаказКлиентаТовары.СтавкаНДС,
    |    ЗаказКлиентаТовары.СуммаНДС,
    |    ЗаказКлиентаТовары.СуммаСНДС,
    |    ЗаказКлиентаТовары.Ссылка,
    |    ЗаказКлиентаТовары.НомерСтроки,
    |    ЗаказКлиентаТовары.ДатаОтгрузки,
    |    ЗаказКлиентаТовары.Назначение,
    |    ЗаказКлиентаТовары.ВидЦены,
    |    ЗаказКлиентаТовары.Количество,
    |    ЗаказКлиентаТовары.ПроцентАвтоматическойСкидки,
    |    ЗаказКлиентаТовары.СуммаАвтоматическойСкидки,
    |    ЗаказКлиентаТовары.ПричинаОтмены,
    |    ЗаказКлиентаТовары.КодСтроки,
    |    ЗаказКлиентаТовары.Отменено,
    |    ЗаказКлиентаТовары.КлючСвязи,
    |    ЗаказКлиентаТовары.Склад,
    |    ЗаказКлиентаТовары.СрокПоставки,
    |    ЗаказКлиентаТовары.Содержание,
    |    ЗаказКлиентаТовары.СтатусУказанияСерий,
    |    ЗаказКлиентаТовары.УказыватьСерии,
    |    ЗаказКлиентаТовары.дПретензияОтПокупателя,
    |    ЗаказКлиентаТовары.РС_НомерПалеты,
    |    ЗаказКлиентаТовары.Серия,
    |    ЗаказКлиентаТовары.НоменклатураНабора,
    |    ИСТИНА КАК БезВозвратнойТары,
    |    ЗаказКлиентаТовары.Сумма КАК СуммаБезВозвратнойТары,
    |    ЗаказКлиентаТовары.СуммаНДС КАК СуммаНДСБезВозвратнойТары,
    |    ЗаказКлиентаТовары.СуммаСНДС КАК СуммаСНДСБезВозвратнойТары,
    |    ЗаказКлиентаТовары.СуммаАвтоматическойСкидки КАК СуммаАвтоматическойСкидкиБезВозвратнойТары,
    |    ЗаказКлиентаТовары.СуммаРучнойСкидки КАК СуммаРучнойСкидкиБезВозвратнойТары,
    |    ЗаказКлиентаТовары.ХарактеристикаНабора
    |ИЗ
    |    Документ.ЗаказКлиента.Товары КАК ЗаказКлиентаТовары
    |ГДЕ
    |    ЗаказКлиентаТовары.Ссылка = &Ссылка";
    Запрос = Новый Запрос;
    Запрос.Текст = ТекстЗапроса;
    Запрос.УстановитьПараметр("Ссылка", ДокЗаказ);
//Такой запрос со всеми колонками ТЧ заказа нужен для того, чтобы затем корректно загрузить табличную часть в документ.
//В принципе этот пример можно рассматривать с одним единственным реквизитом:) 
ТЗ_рез = Запрос.Выполнить().Выгрузить();
    
    //Создадим реквизиты ТЗ
    _РеквизитТЗ = РеквизитФормыВЗначение(ИмяТаблицы);
    Если _РеквизитТЗ.Колонки.Количество()= 0 Тогда
        МассивРеквизитов.Очистить();

//Закомментированный кусок - не отработает, и тут есть такой нюанс.
//Если создавать реквизиты с описанием типов на основании массива, то даже если у вас с массиве один элемент, квалификаторычисла будут нулевыми
//Для того чтобы созданный реквизит (в моем случае числовой) имел заданную точность, его нужно создавать немного-по другому
        //Для Каждого Колонка ИЗ ТЗ_рез.Колонки Цикл
        // МассивТипов = Новый Массив;
        // МассивТипов.Добавить(Колонка.ТипЗначения);
        // НоваяКолонка = Новый РеквизитФормы(Колонка.Имя, Новый ОписаниеТипов(МассивТипов), ИмяТаблицы);
        // МассивРеквизитов.Добавить(НоваяКолонка);
        //КонецЦикла; 

        
        Для Каждого Колонка ИЗ ТЗ_рез.Колонки Цикл
 //Вторая хитрость. Таблица значений, которую возвращает запрос, по умолчанию имеет плюс ко всем типам тип NULL. В результате опять же массив типов (см.выше).
 //Мы убираем Null, и на выходе имеем описание типов с нужными квалификаторами (разумеется, если они получены из исходного запроса.
 //Если создаем реквизит не на основании готовой выборки или таблицы, делаем например так:
 //ОТ = Новый ОписаниеТипов(Колонка.ТипЗначения,,"Null",,,Новый КвалификаторыДанных(15,2));

            ОТ = Новый ОписаниеТипов(Колонка.ТипЗначения,,"Null");
            НоваяКолонка = Новый РеквизитФормы(Колонка.Имя, ОТ, ИмяТаблицы);
            МассивРеквизитов.Добавить(НоваяКолонка);
        КонецЦикла;      
        ИзменитьРеквизиты(МассивРеквизитов);  
        ЗначениеВРеквизитФормы(ТЗ_рез, ИмяТаблицы);
        
        //Создаем элементы на форме для отображения колонок
        ЭлементТЗ = Элементы[ИмяТаблицы];
        Для Каждого Колонка ИЗ ТЗ_рез.Колонки Цикл
            НовыйЭлементФормы = Элементы.Добавить(ИмяТаблицы+Колонка.Имя, Тип("ПолеФормы"), ЭлементТЗ);
            НовыйЭлементФормы.Вид = ВидПоляФормы.ПолеВвода;
            НовыйЭлементФормы.ПутьКДанным = ИмяТаблицы + "." + Колонка.Имя;
        КонецЦикла;
    Иначе
        ЗначениеВРеквизитФормы(ТЗ_рез, ИмяТаблицы);
    КонецЕсли;

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