Программно добавить поля в набор данных и вывести в отчете - 1С - Ответ 10010536

@Phil · 16.01.2017, 13:37 **[ТС]**

Если кому интересно, сделал так. В доступные поля смог поместить программно, а в выбранные пришлось на клиенте создавать на форме.

1C

Таблица = ПолучитьВнешниеДанные(ТЗДаты);
    
    //Структура внешних данных, для передачи в СКД
    ВнешниеНаборыДанных = Новый Структура; 
    
    //Сохраняем таблицу значений в наборе внешних данных
    ВнешниеНаборыДанных.Вставить("Таблица", Таблица);
    
    //Получаем схему из макета
    СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
    
    КоличествоКолонокТаблицы = Таблица.Количество();
    
    ИменаКолонок = Таблица.Колонки;
    
    Для каждого ИмяКолонки из ИменаКолонок цикл
        
        Если НЕ  ИмяКолонки.Имя = "Номенклатура" тогда
            
            НовоеВыбранноеПоле = СхемаКомпоновкиДанных.ВариантыНастроек.Основной.Настройки.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
            НовоеВыбранноеПоле.Использование = Истина; 
            НовоеВыбранноеПоле.Поле          = Новый ПолеКомпоновкиДанных(ИмяКолонки.Имя); 
            
        КонецЕсли;
        
    КонецЦикла;
    
    //Из схемы возьмем настройки
    Настройки = КомпоновщикНастроек.ПолучитьНастройки();
    
    //Программно добавляем поля и ресурсы
    Для каждого ИмяКолонки из ИменаКолонок цикл
        
        Если НЕ  ИмяКолонки.Имя = "Номенклатура" тогда
            
            Поле = СхемаКомпоновкиДанных.НаборыДанных.НаборДанных2.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
            
            Поле.Заголовок      =  ИмяКолонки.Имя;
            Поле.ПутьКДанным    =  ИмяКолонки.Имя;
            Поле.Поле           =  ИмяКолонки.Имя;
            Поле.ТипЗначения    = Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(15, 2)); 
            
            ПолеРесурса = СхемаКомпоновкиДанных.ПоляИтога.Добавить(); 
            
            ПолеРесурса.Выражение   = "СУММА("+ИмяКолонки.Имя+")"; 
            ПолеРесурса.ПутьКДанным = ИмяКолонки.Имя; 
            ПолеРесурса.Группировки.Добавить("ОбщийИтог");
            
        КонецЕсли;
        
    КонецЦикла;
    
    //Добавляем в выбранные поля
    Для каждого ИмяКолонки из ИменаКолонок цикл
        
        Если НЕ  ИмяКолонки.Имя = "Номенклатура" тогда
            
            ВыбранноеПоле = Настройки.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
            ВыбранноеПоле.Заголовок     = ИмяКолонки.Имя;
            ВыбранноеПоле.Использование = Истина; 
            ВыбранноеПоле.Поле          = Новый ПолеКомпоновкиДанных(ИмяКолонки.Имя);
            
        КонецЕсли;
        
    КонецЦикла;   
    
    //КонецЦикла;
    
    АдресСхемы = ПоместитьВоВременноеХранилище(СхемаКомпоновкиДанных, Новый УникальныйИдентификатор);
    ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресСхемы);
    КомпоновщикНастроек.Инициализировать(ИсточникНастроек);  
    
    //Помещаем в переменную данные о расшифровке данных
    ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
    
    //Формируем макет, с помощью компоновщика макета
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    
    //Передаем в макет компоновки схему, настройки и данные расшифровки
    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);     //из набора данных пропали поля
    
    //Выполним компоновку с помощью процессора компоновки
    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
    //Передаем внешний набор данных
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных, ДанныеРасшифровки);
    
    //Очищаем поле табличного документа
    ДокументРезультат.Очистить();
    
    //Выводим результат в табличный документ
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
    
КонецПроцедуры

Вернуться к обсуждению:
Программно добавить поля в набор данных и вывести в отчете 1С

Другие темы раздела
1С Сложение итоговых значений полей табличной части документа Как сложить объекты? https://www.cyberforum.ru/ 1c-custom/ thread1896704.html	Формирование отчета 1с 8.3. Отключение отбора по Читателю. 1С Значит создал отчет, с параметром читатель (ФИО) который берется из справочника. В пользовательских настройках поставил галочку "Включить в пользовательские настройки" -> в отчете выводится поле выбора. Все хорошо пока я не убираю галочку возле этого поля уже в самом отчете, получается что &Читатель пустой и выводит ошибку. Дак вот, как сделать так чтобы когда я убирал там галочку выводились все...
1С Автозаполнение из табличной части справочника в табличную часть документа https://www.cyberforum.ru/ 1c-custom/ thread1895781.html Здравствуйте , помогите пожалуйста с кодом Мне нужно чтобы автоматически заполнялась табличная часть документа из табличной части справочника. При заполнении документа , автоматически заполнялось ОстановкиМаршрута на 2 скрине. Из справочника "Маршруты" в ней табличная часть "ОстановкиМаршрута" в "Документ1" в форму элемента "ОстановкиМаршрута"	1С Как вызвать процедуру "Предупреждение()" в модуле объекта? https://www.cyberforum.ru/ 1c-custom/ thread1895481.html Если текущая дата больше даты выдачи книги то должно быть окно вывод, что дата выдачи книги просрочена. И не надо предлагать процедуру Сообщить() она бесполезна в этом случае, так как после проведения окно закроется и сообщения не будет видно, а если ставить Отказ = Истина, то вообще не смогу провести возврат книги. Если ТекущаяДата() > ВыборкаИзЗапроса.ДатаВозврата Тогда Предупреждение...
Api skype 1С всем добрый день. есть ли пример работы с апи скайпа из 1с у кого - нибудь?	1С 1c fresh всем привет. про 1с фреш: верно я понимаю, что 1с фреш на 1000 - человек, это мобыть одна база 1С с разделением данных? и в чем отличие 1с fresh с точки зрения протоколов и прочего сопутствующего софта от обычного веб оступа через тонкого клиента? а то как по мне, так 1с фреш - это просто веб клиент + разделение данных. я прав, подскажите? https://www.cyberforum.ru/ 1c-custom/ thread1895272.html
1С Запись в ячейку макета табличного документа https://www.cyberforum.ru/ 1c-custom/ thread1893297.html Добрый день. Формирую в цикле значения ячеек табличного документа, значение записывается в макет, на вывод я ничего не получаю. ОбластьМакета=Макет.ПолучитьОбласть("ТиражПервыйБезНДССтрока"); Для Каждого ЗначениеРент из Рентабельности Цикл ОбластьМакета.Параметры.РентабельностьРасчет=ЗначениеРент; РасчетТекущий=Расчет; РасчетТекущий.Вставить("Рентабельность",ЗначениеРент);...	1С КЛАДР 1С 8.3 и собственная конфигурация Здравствуйте! Может кто-нибудь знает простейшую реализацию загрузки КЛАДР в свою конфигурацию? Спасибо!
1С Как описать список XDTO? всем привет. как правильно описать список хдто, чтобы потом можно было создав его обект через фабрику просто добавляь в него методом "добавить " нужные элементы. я щас создал "<xs:schema xmlns:tns="http://www.forNomenklatura.org" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="http://www.forNomenklatura.org" attributeFormDefault="unqualified" elementFormDefault="qualified">... https://www.cyberforum.ru/ 1c-custom/ thread1892020.html	1С Обработка файлов тхт Добрый вечер! Я выбираю папку с файлами txt, данные хочу вывести в макет. Данные каждого файла выводим отдельно в строке (данные 1.тхт выводим в 1 строка, данные 2.тхт выводим 2 строка и т.д) Сейчас у меня все данные складываются и выводятся в одну строку, подскажите что не так ТабДок = ЭлементыФормы.ПолеТабличногоДокумента; ТабДок.Очистить(); Макет=ПолучитьМакет("Макет");... https://www.cyberforum.ru/ 1c-custom/ thread1891026.html
1С Отбор в форме документа День добрый. Делаю документ, добавил реквизит "ДокументОснование", и в модуле дока, прописываю: Процедура ЗаполнитьПоДокументуОснования(Основание) Экспорт Если ТипЗнч(Основание) = Тип("ДокументСсылка.Оплата") Тогда ФормаВыбора = Документы.Оплата.ПолучитьФормуСписка(); ФормаВыбора.Отбор.ВидОперации.Использование = Истина; ФормаВыбора.Отбор.ВидОперации.Значение =...	1С В отчет не выводятся данные https://www.cyberforum.ru/ 1c-custom/ thread1890387.html База УТ 11.1. Есть очень простой отчет на СКД. Он добавлен в дополнительные отчеты. Запрос использует данные только одного регистра - ВыручкаИСебестоимостьПродаж. Отчет нормально работает у пользователей с полными правами, у продавцов же - не выводится ничего (ну разве что только параметры сверху). Права на чтение регистра у продавца есть. Очевидно, это что что-то с правами - так я думал. Однако,...

	16.01.2017, 13:37

Программно добавить поля в набор данных и вывести в отчете - 1С - Ответ 10010536

Решение