параметрыданных » Поиск

Результаты по ключевому слову: параметрыданных

Как программно сформировать отчет СКД указав параметры и на выходе получить таблице значений?

В одном документе для расчета потребовалось получать данные из отчета на СКД, реализовал следующим образом:

Код 1C v 8.х

 	//Програмное формирование отчета СКД	

	СхемаОст = Отчеты.ТоннажПоЭкспедиторам.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

	

	КомпоновщикНастроекНастройки = Новый КомпоновщикНастроекКомпоновкиДанных;

	КомпоновщикНастроекНастройки.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаОст));

	КомпоновщикНастроекНастройки.ЗагрузитьНастройки(СхемаОст.НастройкиПоУмолчанию); 

	

	КомпоновщикНастроекНастройки.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачалоПериода", НачалоМесяца(МесяцРасчета));

	КомпоновщикНастроекНастройки.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецМесяца(МесяцРасчета));

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаОст, КомпоновщикНастроекНастройки.Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; 

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных);

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;

	

	ДанныеТЗ = Новый ТаблицаЗначений;

	ПроцессорВывода.УстановитьОбъект(ДанныеТЗ);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

	ТоннажПоЭкспедиторам.Очистить();

	//	ДанныеТЗ.ВыбратьСтроку();		

	Для каждого СтрокаТЗ Из ДанныеТЗ Цикл

		Если ЗначениеЗаполнено(СтрокаТЗ.Экспедитор) и СтрокаТЗ.Доставка=Неопределено Тогда

		нСтр = ТоннажПоЭкспедиторам.Добавить();

		ЗаполнитьЗначенияСвойств(нСтр,СтрокаТЗ);

		нСтр.Сотрудник=СтрокаТЗ.Экспедитор; 

	Иначе

		Продолжить;

	КонецЕсли;	

	КонецЦикла;

Категория: Схема Компоновки Данных

Как в СКД повторять шапку на каждой странице при печати и вывести колонтитулы?

Нужно выводить на каждой странице отчета, шапку. Отчет сделан через СКД (Схема компоновки данных). В схеме есть макет, в нем есть ячейки шапки.

Для этого используется метод - ПовторятьПриПечатиСтроки, о нем я уже писал: Как при печати выводить шапку на каждой странице (ПовторятьПриПечатиСтроки)?

Код кнопки формирования отчета:

Код 1C v 8.3

 СводнаяКартаРезультат = Новый ТабличныйДокумент;

   

ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат);

СводнаяКартаРезультат.Показать("СводнаяКарта");

Процедура вывода отчета:

Код 1C v 8.3

 &НаСервере

Процедура ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат)   

   СхемаКомпоновкиДанных = Справочники.Номенклатура.ПолучитьМакет("МакетСводнаяКарта");   

   

   СводнаяКартаРезультат.ПовторятьПриПечатиСтроки = СводнаяКартаРезультат.Область(7, , 7); // <- Строки вывода повторения нужно считать в уже результате вывода, а не в макете!

   

   Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;

      

   НомеклатураСсылка = Настройки.ПараметрыДанных.Элементы.Найти("НоменклатураСсылка");   

   НомеклатураСсылка.Значение = Объект.Ссылка;

   НомеклатураСсылка.Использование = Истина;

   

   ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;



   МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки, ДанныеРасшифровки);



   ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

   ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);



   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

   ПроцессорВывода.УстановитьДокумент(СводнаяКартаРезультат);

   //ПроцессорВывода.ОтображатьПроцентВывода = Истина;

   

   ПроцессорВывода.НачатьВывод();

   ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);   

   ПроцессорВывода.ЗакончитьВывод();

   

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

Если дополнительно нужно вывести колонтитулы,

тогда:

Код 1C v 8.3

 // Верхний колонтитул 

ТабДок.ВерхнийКолонтитул.Выводить = Истина;

ТабДок.ВерхнийКолонтитул.НачальнаяСтраница = 2;

ТабДок.ВерхнийКолонтитул.Шрифт = Новый Шрифт(Результат.ВерхнийКолонтитул.Шрифт, , , , Истина);

ТабДок.ВерхнийКолонтитул.ТекстСлева = "Заголовок отчета";

ТабДок.ВерхнийКолонтитул.ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]";

ТабДок.ВерхнийКолонтитул.ТекстСправа = "Дата/время печати: [&Дата]/[&Время]";

	

// Нижний колонтитул 

ТабДок.НижнийКолонтитул.Выводить = Истина;

ТабДок.НижнийКолонтитул.Шрифт = Новый Шрифт(Результат.ВерхнийКолонтитул.Шрифт, , , , Истина);

ТабДок.НижнийКолонтитул.ТекстВЦентре = "Заголовок отчета";

Категория: Схема Компоновки Данных

Печатная форма с использованием СКД

Создаем макет СКД, там произвольно или с какими-нибудь условиями выбираем в наборе данных поля табличной части, ставим условие на документ владелец, и задаем оформление. В форме документа добавляем кнопку печать, прописываем в параметрах наш документ и оп-ля - печатная форма готова

Код 1C v 8.х

 Процедура ОсновныеДействияФормыПечать(Кнопка)



 Если Ссылка = Документы.РасчетЗаказа.ПустаяСсылка() тогда

 Предупреждение("Документ не записан");

 Возврат;

 Иначе

 Схема = ПолучитьМакет("Макет1");

 Настройки = Схема.НастройкиПоУмолчанию;

 КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных();

 КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);



ПараметрДок = Новый ПараметрКомпоновкиДанных("документ");

 ЗначениеПараметраДок = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(ПараметрДок);

 ЗначениеПараметраДок.Значение = Ссылка;

 ЗначениеПараметраДок.Использование = Истина;

 Настройки = КомпоновщикНастроек.Настройки;



 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки);

 ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);

 ДокументРезультат = Новый ТабличныйДокумент;

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

 ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);



 ДокументРезультат.ОтображатьЗаголовки = Ложь;

 ДокументРезультат.ОтображатьСетку = Ложь;

 ДокументРезультат.АвтоМасштаб = Истина;

 ДокументРезультат.Показать();



 КонецЕсли;

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

Автор: sanja

Категория: Схема Компоновки Данных

Пример программного вызова СКД отчета

Пример использования СКД отчета для заполнения табличного документа.
Вызываем отчет “Маркетинговый план” сделаного на основе СКД.
Установка параметр “Вероятность”. И отбора по ключу “Основание.МВЗ.СПО”

Код 1C v 8.х

 Отчет               = Отчеты.МаркетинговыйПлан.Создать();       

Схема               = Отчет.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); 

КомпоновщикМакета   = Новый КомпоновщикМакетаКомпоновкиДанных;  

КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

ПроцессорВывода     = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;    

ТабДок              = Новый ТабличныйДокумент;  

 

// Типы переменных:

// Схема        - СхемаКомпоновкиДанных 

// Настройки    - НастройкиКомпоновкиДанных

// насПланЕБП   - ЗначениеПараметраНастроекКомпоновкиДанных

// Макет        - МакетКомпоновкиДанных

     

ИсточникДоступныхНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема); 

КомпоновщикНастроек.Инициализировать(ИсточникДоступныхНастроек);

 

// --- установка параметров

Настройки   = Схема.НастройкиПоУмолчанию;   

 

насВероятнось = Настройки.ПараметрыДанных.Элементы.Найти("Вероятность"); 

насВероятнось.Использование = Истина;

насВероятнось.Значение = Веротяность;   

 

// --- установка отборов

Если ЗначениеЗаполнено(СПО) тогда

    ПолеОтбораСПО = Новый ПолеКомпоновкиДанных("Основание.МВЗ.СПО");

    ОтборПоСПО = Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

    ОтборПоСПО.ЛевоеЗначение    = ПолеОтбораСПО;

    ОтборПоСПО.ВидСравнения     = ВидСравненияКомпоновкиДанных.Равно;

    ОтборПоСПО.ПравоеЗначение   = СПО;

    ОтборПоСПО.Использование    = Истина;

КонецЕсли;      

 

// --- компануем

Макет       = КомпоновщикМакета.Выполнить(Схема, Настройки);    

ПроцессорКомпоновки.Инициализировать(Макет,,,Истина); 

ПроцессорВывода.УстановитьДокумент(ТабДок); 

ПроцессорВывода.Вывести(ПроцессорКомпоновки);

Категория: Схема Компоновки Данных

Как результат СКД в виде Табличного Документа разобрать и вывести в Таблицу Значений

В отчете должна быть настроена и указана основная схема компоновки данных
Когда идет конвертирование в ТЗ, то ищется в первом столбце пустая строка, как только она найдена - конвертация считается завершенной.
Поэтому для сложных отчетов - выводите первым столбцом Системное поле № п/п.

Код 1C v 8.х

 

// В МОДУЛЕ ФОРМЫ

&НаКлиенте

Процедура СформироватьБезСКД(Команда)

	СформироватьСервер();		

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



&НаСервере

Функция СформироватьСервер()

	мОтчет    = РеквизитФормыВЗначение("Отчет");

	Результат =  мОтчет.СформироватьПечатнуюФорму();

КонецФункции





// В МОДУЛЕ ОБЪЕКТА

Функция СформироватьПечатнуюФорму() Экспорт

   рзДанные = ПолучитьДанныеДляОтчета();

   Возврат рзДанные;	

КонецФункции





Функция ТДВТаблицуЗначений(ТабДок, КолонкаИндекса = 1)

  

    ТаблицаДанных = Новый ТаблицаЗначений;

    НомерКолонки = 0;

    Пока Истина Цикл

        НомерКолонки = НомерКолонки + 1;

        ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;

        Если ПустаяСтрока(ИмяКолонки) Тогда

            Прервать;

        КонецЕсли;        

        ТаблицаДанных.Колонки.Добавить(СтрЗаменить(ИмяКолонки, " ","_"));

    КонецЦикла;

    

    СчетчикКолонок = НомерКолонки - 1;

    

    НомерСтроки = 1; ФлагПрерывания = Ложь;

    Пока Истина Цикл

        НомерСтроки = НомерСтроки + 1;

        Стр = ТаблицаДанных.Добавить();

        

        Для А = 1 ПО СчетчикКолонок Цикл

            ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;

            Если ПустаяСтрока(ТекстКолонки) Тогда

                Если А = КолонкаИндекса Тогда

                    Флагпрерывания = Истина;

                    ТаблицаДанных.Удалить(Стр);

                КонецЕсли;

            Иначе

                Стр[А - 1] = ТекстКолонки

            КонецЕсли;

            

            Если Флагпрерывания Тогда

                Прервать

            КонецЕсли;

        КонецЦикла;

        

        Если Флагпрерывания Тогда

            Прервать

        КонецЕсли;

    КонецЦикла;

    

    Возврат ТаблицаДанных

КонецФункции





Функция ПолучитьДанныеДляОтчета()

	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачалоПериода", НачалоПериода);

	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецДня(КонецПериода));

	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Организация", Организация);

			

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

    ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;



    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки,, Тип("ГенераторМакетаКомпоновкиДанных"));



    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,, ДанныеРасшифровки);



    ТабличныйДокумент = Новый ТабличныйДокумент;



    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);



    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);



	///Переведем ТабДокумент в ТЗ

	 тзДанные = ТДВТаблицуЗначений(ТабличныйДокумент);	

 	Возврат  тзДанные;

КонецФункции

Категория: Схема Компоновки Данных

Произвольный макет в СКД

Делал недавно отчет с неопределенным количеством колонок. Возиться с кодом было неохота, решил сделать на СКД. С этим проблема не возникла, необходимо было натянуть результат на произвольный макет (свой заголовок + период). Покажу на примере по шагам, с чем столкнулся и как решил.

Первоначальную настройку схемы СКД описывать не буду, начнем с того, что мне надо было сделать произвольный заголовок. В нашем случае, формируем представление периода отчета.
Добавляем новый параметр "ПредставлениеПериода", тип Строка.
title

Теперь добавляем новое поле группировки, поля группировок не выбираем (Детальные записи), удаляем поле "Авто", переносим наш параметр.
title

Переходим на вкладку "Макет", рисуем шапку. Добавляем Заголовок группировки. Мы можем использовать Имя группировки, если заранее задали его в схеме компоновки, или выбрать из доступных полей. После этого определяем область в табличном документе. Далее, прописываем наш параметр на макете, потом необходимо будет установить в свойствах этой ячейки свойство "Заполнение" - "Параметр". И в окне параметров макета связать наш параметр с параметром СКД.
title

Теперь немного кода. Создаем форму отчета. Отключаем видимость у Основной Командной Панели и Компоновщика Настроек. Создаем нашу команду "Сформировать", реквизит формы "Дата", перетаскиваем все это на форму. Пишем код в модуле формы:

Код 1C v 8.2 УП

 &НаСервере

Процедура УстановитьПараметрыКомпоновки()



 пОтчета = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Период");

 Если НЕ пОтчета = Неопределено Тогда

  пОтчета.Значение = КонецДня(Дата);

 КонецЕсли;

 ПредставлениеПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПредставлениеПериода");

 Если НЕ ПредставлениеПериода = Неопределено Тогда

  ПредставлениеПериода.Значение = "Остатки по складам на " + Формат(Дата, "ДЛФ=Д");

 КонецЕсли;

 

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



&НаСервере

Процедура СформироватьНаСервере()



 УстановитьПараметрыКомпоновки();

 

 Результат.Очистить();



 СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").СхемаКомпоновкиДанных;

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Отчет.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);



 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);



 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Результат);

 ПроцессорВывода.ОтображатьПроцентВывода = Истина;



 ПроцессорВывода.Вывести(ПроцессорКомпоновки); 



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



&НаКлиенте

Процедура Сформировать(Команда)

 

 СформироватьНаСервере();

 

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



&НаКлиенте

Процедура ПриОткрытии(Отказ)

 

 Дата = ТекущаяДата();

 

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

После этого, если все правильно сделали, результат отчета должен выглядеть вот так:
title

Теперь попробуем сделать полностью свой произвольный макет на СКД .
Здесь самое главное понять структуру областей макета в СКД. Разберем пример с неопределенным количеством колонок.

Заготовка для отчета выглядит так:
title

Пример результата:
title

Теперь создаем свой макет:

1. Добавляем шапку по аналогии с прошлым примером. Устанавливаем макет оформления "Без оформления". Итоги по номенклатуре выводить не будем, поэтому ставим у таблицы настройку "Расположение общих итогов по горизонтали" - "Нет".
title

2. Теперь создаем макет, прописываем параметры, настраиваем дополнительные свойства ячеек. Например, для номенклатуры можно выставить в свойстве "Размещение текста" значение "Переносить" вместо "Авто", а так же указать параметры расшифровки.
title

3. Теперь самое интересное, назначаем области. Структура областей будет выглядеть таким образом:
title

Начинаем создавать области, параметры при этом будут автоматически сопоставляться по именам. В итоге должно получиться следующее:
title

Проверяем отчет, должно получиться следующее:
title

4. Пишем код по аналогии с прошлым примером:

Код 1C v 8.2 УП

 &НаСервере

Процедура УстановитьПараметрыКомпоновки()



 пОтчета = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Период");

 Если НЕ пОтчета = Неопределено Тогда

  пОтчета.Значение = Период;

 КонецЕсли;

 ПредставлениеПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПредставлениеПериода");

 Если НЕ ПредставлениеПериода = Неопределено Тогда

  ПредставлениеПериода.Значение = "Заказы контрагентов за " + Формат(Период.ДатаНачала, "ДЛФ=Д") + " - " + Формат(Период.ДатаОкончания, "ДЛФ=Д");

 КонецЕсли;

 

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



&НаСервере

Процедура СформироватьНаСервере()



 УстановитьПараметрыКомпоновки();

 

 Результат.Очистить();



 СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").СхемаКомпоновкиДанных;

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Отчет.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);



 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);



 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Результат);

 ПроцессорВывода.ОтображатьПроцентВывода = Истина;



 ПроцессорВывода.Вывести(ПроцессорКомпоновки); 

 

 //решил добавить колонтитулы 

 Результат.НижнийКолонтитул.Выводить = Истина; 

 Результат.НижнийКолонтитул.НачальнаяСтраница = 1;

 ШрифтКолонтитула=Новый Шрифт("Arial", 6);

    Результат.НижнийКолонтитул.Шрифт=ШрифтКолонтитула;

 Результат.НижнийКолонтитул.ТекстСлева  = "Тест СКД";



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



&НаКлиенте

Процедура Сформировать(Команда)

 

 СформироватьНаСервере();

 

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





&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

 

 Период.ДатаНачала = НачалоМесяца(ТекущаяДата());

 Период.ДатаОкончания = ТекущаяДата();

 

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

В итоге у нас получается следующее:
title

Кстати, при последующем открытии отчета, вы увидите, что компоновка перестроила макет по-своему.
title

Это вполне нормально, не стоит беспокоиться.

Источник: http://start1c.blogspot.ru

Категория: Схема Компоновки Данных

Внешние источники данных

Почему данная возможность вызывает такой интерес? Любой человек, который программировал в 1С при этом достаточно неплохо знаком с SQL и хотя бы в общих чертах знаком с архитектурой и принципами разработки других технологических платформ для бизнес приложений с твердой уверенностью скажет вам - что ему нравится больше всего в 1С. Конечно конструктор запросов - самый удобный и продуманный механизм написания запросов для получения данных из реляционных структур, который я лично когда-либо встречал. А теперь 1С нам предоставили такую замечательную возможность использовать его не только с 1С, но и с любыми другими таблицами. Вот только в эту "бочку мёда" насыпана куча "ложек дёгтя". Обо всём по порядку:

1) Настройка и использование - без "танцев с бубном" не получится
a) Добавляете внешний источник данных - вроде ничего сложного
б) ставите галочку "Выбрать из списка" - обязательно - это нужно чтобы проверить работоспособность уже в начале и избавит от лишних заморочек
в) - обязательно нажимаем "..." - подключение именно ODBC. Не OLEDB как мы все привыкли, а на уровень ниже
title

г) А вот здесь будьте ОЧЕНЬ ВНИМАТЕЛЬНЫ.
title

Это драйвер ODBC - в случае использования клиент-серверной версии он должен обязательно быть на сервере. Если вы ведёте разработку на одной системе, а рабочая версия на другой (как это обычно бывает) убедитесь что вас не ждут сюрпризы. Странная рекоммендация, но выбирайте самый древний или самый общий драйвер в случае если вас не особо заботит скорость и за пределы возможностей стандарта SQL92 вы выходить не намерены. Это обеспечит вам лучшую совместимость. Например для SQL Server 2008 лучшим драйвером будет SQL Server Native Client 11, но рекоммендую выбирать просто SQL Server, иначе этот самый native client придётся устанавливать либо на сервер, либо на все клиентские машины (в случае использования файловой версии), а выигрыша особого для простых задач он не даст.
д) Стандартные диалоги выбора Сервера
title

и БД

е) На вопрос сохранения пароля рекомендую ответить "да", иначе так и не получится это дело запустить.
ж) Выбираете таблицу и реквизиты... замечательная возможность - её можно сразу же переименовать так как вам нравится (и реквизиты тоже), при этом в свойствах у вас будут отображаться названия полей источника данных
title

з) А теперь запускаете, открываете конструктор запросов - выбираете тупо все записи из таблицы и ОПА - ошибка. Что делать? Если у вас управляемый интерфейс - заглянуть в меню сервис, а если обычный...
Я лично использовал вот такой код:

Код 1C v 8.х

 Параметры = ВнешниеИсточникиДанных.DAX.ПолучитьОбщиеПараметрыСоединения();

 Параметры.АутентификацияСтандартная = Истина;

 Параметры.ИмяПользователя = "sa";

 Параметры.Пароль = "pas";

 Параметры.СтрокаСоединения = "DRIVER={SQL Server};SERVER=servet;UID=sa;PWD=;DATABASE=database";

 Параметры.СУБД = "MSSQLServer";

 

 ВнешниеИсточникиДанных.DAX.УстановитьОбщиеПараметрыСоединения(Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияПользователя(ИмяПользователя(), Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияСеанса(Параметры);



 ВнешниеИсточникиДанных.DAX.УстановитьСоединение();

Может каких-то кусков и не нужно, но это работает.
Выполнить код нужно ОДИН РАЗ. После чего будет нормально подключаться... мистика конечно - зачем это было нужно не понятно...

2) Источники данных только для чтения - Да, чудес не бывает... но иногда так хочется....

3) НЕЛЬЗЯ ИХ ИСПОЛЬЗОВАТЬ ВМЕСТЕ С ВНУТРЕННИМИ ИСТОЧНИКАМИ ДАННЫХ
Меня лично этот факт убил наповал
title

Как же так.... то чего так ждали и уже представляли и облизывались как мы сейчас в одном запросе соединим наши данные с 1С-кой свернём - сгруппируем, вставим в отчет, а не тут то было...
Но естественно опытных людей это не останавливает... какая мысль пришла в голову? Правильно - временные таблицы:

4) НЕЛЬЗЯ ИХ ИСПОЛЬЗОВАТЬ ВМЕСТЕ С ВРЕМЕННЫМИ ТАБЛИЦАМИ
title

А вот это уже не похоже на технологические трудности, а очень смахивает на то что нам хотят "чтобы жизнь раем не казалась" сделать

.

5) Можно использовать только в соединениях СКД
Для тех кто не знает - это в СКД на вкладке "Связи наборов данных". Часто вы ими пользуетесь? Удобно? Видимо так нас хотят принудить к использованию их чаще. Вот только там есть колонка "Условие связи" и "Параметр связи". Ни в одной типовой конфигурации не нашел примера их использования, в документации и у Хрусталевой тоже как-то всё не прозрачно. Кто-нибудь сможет мне объяснить как работает "условие связи". Если там написать РеквизитИсточника = РевизитПриемника это не работает. Конечно условие можно записать в поле "Выражение" - в большинстве случаев этого хватает... вот только как-то не очень просто получается.

Итого ранее эта задача решалась где-то так:

Код 1C v 8.х

 Функция ИнициализироватьИсточникДанных()



ДатаНач = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение;

 ДатаКон = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение;

 Если ДатаКон > '20100101' Тогда

  ДатаКон = '20100101'; 

 КонецЕсли;

 

 КЧ = Новый КвалификаторыЧисла(15,2);

 КС = Новый КвалификаторыСтроки(255);

 

 МассивЧисло = Новый Массив();

 МассивЧисло.Добавить(Тип("Число"));

 

 МассивСтрока = Новый Массив();

 МассивСтрока.Добавить(Тип("Строка"));

 

 МассивДата = Новый Массив();

 МассивДата.Добавить(Тип("Дата"));



 //В таблицу будем заполнять бухгалтерскую себестоимость

 ТипЧисло = Новый ОписаниеТипов(МассивЧисло,,КЧ);

    ТипСтрока = Новый ОписаниеТипов(МассивСтрока,,КС);

 ТипДата = Новый ОписаниеТипов(МассивДата);

 

 //таблица для загрузки данных из SQL

 ТЗ = Новый ТаблицаЗначений();

 ТЗ.Колонки.Добавить("НоменклатураКод", ТипСтрока);

 ТЗ.Колонки.Добавить("Qnty", ТипЧисло);

 ТЗ.Колонки.Добавить("Период", ТипДата);

 

 ТЗ.Индексы.Добавить("Период");

 

 //Подключаемся к SQL

 СтрокаПодключения = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Pwd=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Reports";

 Connection  = Новый COMОбъект("ADODB.Connection");

 Command  = Новый COMОбъект("ADODB.Command");

 RecordSet  = Новый COMОбъект("ADODB.RecordSet");

 Дата = "";

 Попытка

  Connection.Open(СокрЛП(СтрокаПодключения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = "S_elect * from PH where period >= '" + Строка(Формат(ДатаНач, "ДФ=ггггММдд")) + "' and period <= '" + Строка(Формат(ДатаКон, "ДФ=ггггММдд")) + "'";

  RecordSet = Command.Execute();

  RecordSet.MoveFirst();  

 Исключение

  Возврат ТЗ; 

 КонецПопытки;



 Пока RecordSet.EOF = Ложь Цикл

  Строка = ТЗ.Добавить();

  Строка.НоменклатураКод = RecordSet.Fields(RecordSet.Fields.Item(1).Name).Value;

  Строка.Qnty = RecordSet.Fields(RecordSet.Fields.Item(12).Name).Value;

  Строка.Период = RecordSet.Fields(RecordSet.Fields.Item(13).Name).Value;

  RecordSet.MoveNext();

 КонецЦикла;

 

 Запрос = Новый Запрос();

 ВрТаблица = Новый МенеджерВременныхТаблиц();

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.УстановитьПараметр("врТаблицаДанных",  ТЗ);

 Запрос.УстановитьПараметр("ДатаНач", ДатаНач);

 Запрос.УстановитьПараметр("ДатаКон", ДатаКон);

 Запрос.Текст = "ВЫБРАТЬ

                | врТаблицаДанных.НоменклатураКод,

                | врТаблицаДанных.Qnty,

                | врТаблицаДанных.Период

                |ПОМЕСТИТЬ ТаблицаДанных

                |ИЗ

                | &врТаблицаДанных КАК врТаблицаДанных

                |ГДЕ

                | врТаблицаДанных.Период >= &ДатаНач

                | И врТаблицаДанных.Период <= &ДатаКон";

 Запрос.Выполнить();

 ТЗ = Неопределено;

 

 Запрос = Новый Запрос;

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.Текст = "Здесь запрос с участием верменной таблицы";



 Результат = Запрос.Выполнить();

 Возврат Результат;



КонецФункции





  Внешнийнабор = ИнициализироватьИсточникДанных();

  НаборДанных = Новый Структура();

  НаборДанных.Вставить("ТаблицаSQL", Внешнийнабор);

  ТиповыеОтчеты.СформироватьТиповойОтчет(ЭтотОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета, НаборДанных);

Собственно строчек кода не много и они достаточно стандартны... при этом можно пользоваться полным функционалом конструктора запросов, а в СКД отдать только функцию КОМПАНОВКИ ДАННЫХ

Но на вид чуть конечно не так красиво... да и выгрузка в таблицу значений каждый раз нужно код писать и проверять не ошибся ли в названии реквизитов... а то что нам дали в 1С выглядит как-то половинчато. Я ещё не определился чем удобнее пользоваться. Вы решайте, и пишите о ваших решениях, и что вас к ним подтолкнуло.
Автор: Олег Филиппов

Категория: Встроенные Функции

Как задать параметр типа Граница?

Варианты указания в конструкторе:

Код 1C v 8.х

 НачалоПериода(ДобавитьКДате(&КонецПериода, "День", 1) "День");



ДобавитьКДате(КонецПериода(&КонецПериода,"День"),"Секунда",1);

В коде:

Код 1C v 8.х

 Параметр = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(Новый ПараметрКомпоновкиДанных("Период"));

Граница = Новый Граница(КонецДня(Дата), ВидГраницы.Включая);

Параметр.Значение = Граница;

Параметр.Использование = Истина;

Категория: Схема Компоновки Данных

Как программно Установить значения Параметров для отчета СКД?

Например у отчет есть следующие параметры:
title

Программно их задать можно следующим образом:

Код 1C v 8.х

 //Последовательно, начиная с 0 задаем значения параметров: ( НачПериода это 0 элемент, КонПериода - 1, ВыбНалог =2 )

КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[0].Значение = НачПериода;

КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[1].Значение = КонПериода;

КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[2].Значение = ВыбНалог;

Есть параметр, предопределенное при открытии отчета каждый раз. Как его правильно указать в СКД?
Можно делать так:

Код 1C v 8.х

 Процедура ПриОткрытии()

//........................

ПараметрДанных= КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Товар");

ПараметрДанных.Значение = Справочники.Номенклатура.НайтиПоНаименованию("Гвозди");

ПараметрДанных.Использование=Истина;

//...........................................

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

или

Код 1C v 8.х

 //Пропишем ТОЧКИ МАРШРУТА

	СписТочек = Новый СписокЗначений;

	СписТочек.Добавить(БизнесПроцессы.м_Документооборот.ТочкиМаршрута.ОПФПД);

	СписТочек.Добавить(БизнесПроцессы.м_Документооборот.ТочкиМаршрута.ОСФПД);

	

	ПараметрСКД = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ТочкаМаршрута");

	ПараметрСКД.Значение = СписТочек;

	ПараметрСКД.Использование = ИСТИНА;

Для УП

Код 1C v 8.2 УП

 &НаСервере 

Процедура ПриСозданииНаСервере(Отказ,   СтандартнаяОбработка) 



УстановитьПривилегированныйРежим(Истина);



СтандартнаяОбработка =  Ложь;   //   если не  отключить  стандартную обработку,   то  настройки затрутся



ДатаОтчета =  ТекушаяДата();

3начениеПараметра =  Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Найти3начениеПараметра(Новый ПараметрКомпоновкиДанных("ДатаНач"));

Если НЕ   ЗначениеПараметра =  Неопределено  Тогда

ЗначениеПараметра.Использование  = Истина;

ЗначениеПараметра.Значение  =  КонецДня(ДатаОтчета)   -   (7 * 86400); 

КонецЕсли;



3начениеПараметра  =  Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Найти3начениеПараметра(Новый ПараметрКомпоновкиДанных("Свойство1")); 

Если НЕ   ЗначениеПараметра =  Неопределено  Тогда

ЗначениеПараметра.Использование  = Истина;

3начениеПараметра   =  Справочники.3наченияСвойствОбъектов.НайтиПоКоду("000000004"); 

КонецЕсли;

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

Категория: Схема Компоновки Данных

Как отчет на СКД сохранить в таблицу значений, а потом выгрузить в файл?

Допустим у нас есть отчет с ОсновнойСхемойКомпановкиДанных,
Создадим ФормуОтчета:
title

На форму добавим Кнопку Выгрузка( Процедура ДействияФормыВыгрузка(Кнопка) ) и Выбор Периода формирования отчета
title

ВНИМАНИЕ!!!
Ошибка генерации макета
по причине: Не поддерживается вывод таблиц, диаграмм и вложенных отчетов в универсальную коллекцию значений
title

Выводить можно только Группировки:
title

Код отчета будет следующий:

Код 1C v 8.х

 Процедура ДействияФормыВыгрузка(Кнопка)

//Выберем файл для сохранения выгрузки

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

Диалог.Заголовок = "Выберите файл для сохранения данных";

Диалог.ПолноеИмяФайла = "NDFL_"+Формат(НачПериода,"ДФ=MM_yyyy");

Диалог.Фильтр = "TXT (*.txt)|*.txt";

Диалог.МножественныйВыбор = Ложь; Диалог.Каталог = "D:\";

Если Диалог.Выбрать() Тогда 

	ФайлСохранения = Диалог.ПолноеИмяФайла; 

	//Выгрузим результат отчета СКД в Таблицу Значений	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; 

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных);

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;

	ДанныеТЗ = Новый ТаблицаЗначений;

	ПроцессорВывода.УстановитьОбъект(ДанныеТЗ);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

	//Выгрузим данные из Таблицы значений в Файл, запись данных в файл построчно

	Текст = Новый ЗаписьТекста(ФайлСохранения, КодировкаТекста.ANSI);

	Текст.ЗаписатьСтроку("Организация~КПП~Начислено13~Начислено30");

	Для Каждого стр из ДанныеТЗ Цикл

		Текст.ЗаписатьСтроку(СокрЛП(Строка(стр.Организация))+"~"+СокрЛП(стр.ПодразделениеОрганизацииКПП)+"~"+Формат(стр.Начислено13,"ЧГ=0")+"~"+Формат(стр.Начислено30,"ЧГ=0"));

	КонецЦикла;

	Текст.Закрыть();

КонецЕсли;

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



Процедура ВыбПериодНажатие(Элемент)

	НастройкаПериода = Новый НастройкаПериода;

	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));

	НастройкаПериода.РедактироватьКакИнтервал = Истина;

	НастройкаПериода.РедактироватьКакПериод = Истина;

	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;

	Если НастройкаПериода.Редактировать() Тогда

		НачПериода = НастройкаПериода.ПолучитьДатуНачала();

		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();

	КонецЕсли;

	// установить парметры периода для отчета СКД

	КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение = НачПериода;

	КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение = КонПериода;

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

Смотрите так же:

Вывод отчета СКД в коллекцию значений - Дерево Значений

Категория: Схема Компоновки Данных

Параметр – список значений с пустым значением

Нашёл такие грабли – когда делаешь параметр списком значений, СКД зачем-то сама в этот список вставляет строку с пустым значением.
Я этот параметр передаю в запрос, и если тип параметра является иерархическим справочником, это пустое значение похоже отбирает любого родителя в иерархии, и как следствие, все значения справочника. Кстати, такой же косяк можно увидеть в отборах, если сделать вид сравнения «в группе из списка» и в список добавить строку с пустым значением.
А так как юзер тупо заполняет этот список подбором, то ему по фигу, что там какие-то пустые значения. Объяснять, что пустых значения в списке надо удалять – бесполезно. Виноват-то программист!
Нашёл, как это лечить, может кому-то пригодится.

Код 1C v 8.х

 Процедура УдалениеПустыхЗначенийПараметровСКДВВидеСписка(ЭтотОбъект, СхемаКомпоновкиДанных)



Параметры = СхемаКомпоновкиДанных.Параметры;

Для Каждого Параметр Из Параметры Цикл

   Если Параметр.ДоступенСписокЗначений = Истина Тогда

   ПараметрДанных = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.

   НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных(Параметр.Имя));



   СпЗначениеПараметра = ПараметрДанных.Значение;

   Для Индекс=0 По СпЗначениеПараметра.Количество()-1 Цикл

      Если Индекс > СпЗначениеПараметра.Количество()-1 Тогда

         Прервать;

      КонецЕсли;

      Если НЕ ЗначениеЗаполнено(СпЗначениеПараметра[Индекс].Значение) Тогда

            СпЗначениеПараметра.Удалить(Индекс);

            Индекс = Индекс - 1;

      КонецЕсли;

    КонецЦикла;

    КонецЕсли;

КонецЦикла;



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

Ченыш

Категория: Схема Компоновки Данных