Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;



	ДокументРезультат.Очистить();

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

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

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

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

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

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

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

	

	ПолеПоКоторомуНеобходимоПолучитьЗначение = "Ссылка";

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

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

		ЭлементРезультата = ПроцессорКомпоновки.Следующий();

		

		Если ЭлементРезультата = Неопределено Тогда

			прервать;

		КонецЕсли;	

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

		Если ЭлементРезультата.ЗначенияПараметров.Количество() > 0 Тогда

			ЗначениеВыводимыхДанных = Неопределено;

			Для каждого ЗначениеПараметра из ЭлементРезультата.ЗначенияПараметров Цикл

				Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда

					ПоляРасшифровки = ДанныеРасшифровки.Элементы[ЗначениеПараметра.Значение].ПолучитьПоля();

					Для Каждого ПолеРасшифровки из ПоляРасшифровки Цикл

						Если ПолеРасшифровки.Поле = ПолеПоКоторомуНеобходимоПолучитьЗначение Тогда

							ЗначениеВыводимыхДанных = ПолеРасшифровки.Значение;

							Прервать;

						КонецЕсли;	

					КонецЦикла;	

				КонецЕсли;	

			КонецЦикла;	

			Если ЗначениеЗаполнено(ЗначениеВыводимыхДанных) Тогда

				Рис = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);

				Рис.РазмерКартинки = РазмерКартинки.РеальныйРазмер;

				Индекс = ДокументРезультат.Рисунки.Индекс(Рис);

				Если ЗначениеВыводимыхДанных.ЭтоГруппа Тогда

					ДокументРезультат.Рисунки[Индекс].Картинка = БиблиотекаКартинок.ГруппаИЭлемент;

				Иначе

					ДокументРезультат.Рисунки[Индекс].Картинка = БиблиотекаКартинок.Сформировать;

				КонецЕсли;	

				ВысотаТабДок = ДокументРезультат.ВысотаТаблицы;

				ОбластьДляКартинки = ДокументРезультат.НайтиТекст("%Картинка%");

				Если ОбластьДляКартинки <> Неопределено Тогда

					ДокументРезультат.Рисунки[Индекс].Расположить(ОбластьДляКартинки);	

					ОбластьДляКартинки.Текст = "%КартинкаДобавлена%"

				КонецЕсли;

			КонецЕсли;	

		КонецЕсли;	

	КонецЦикла;

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

	

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

   

 Реквизит1 = Новый ФорматированнаяСтрока("Товар ", Новый ФорматированнаяСтрока(" Телевизор", , WebЦвета.Красный), " отсутствует на складе");

Предупреждение(Реквизит1);   

 &НаКлиенте

Процедура ПроверкаФорматированнойСтроки(Команда)

Строка1 = Новый ФорматированнаяСтрока("Этот тест будет жирный и наклонный", Новый Шрифт(,,Истина, Истина));

Строка2 = Новый ФорматированнаяСтрока("Оранжевый текст",,Новый Цвет(255,140,0));

ОбщаяСтрока = Новый ФорматированнаяСтрока(Строка1, "-", Строка2);

Режим = РежимДиалогаВопрос.ДаНет;

Ответ = Вопрос(ОбщаяСтрока, Режим, 40);

Если Ответ = КодВозвратаДиалога.Нет Тогда

Возврат;

КонецЕсли;

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

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

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

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

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

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

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

 

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

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

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



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

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



ДатаНач = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[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", Внешнийнабор);

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

 Use [Имя_Базы1]

DBCC FREEPROCCACHE

go

Use [Имя_Базы2]

DBCC FREEPROCCACHE

go

Use [Имя_БазыN]

DBCC FREEPROCCACHE

go   

 F:

cd F:\SQL_backUp\

for %%R IN (*.bak) DO "C:\Program Files\7-Zip\7z.exe" a %%R.7z %%R

for %%R in (*.bak) do del "%%R" /Q