// Процедура формирования отчета

//

Процедура СформироватьОтчет(ТабличныйДокумент) Экспорт

	

	Если НЕ ЗначениеЗаполнено(УниверсальныйОтчет.ДатаКон) Тогда 

		УниверсальныйОтчет.ДатаКон = ТекущаяДата();

	КонецЕсли;

	

	// Перед формирование отчета можно установить необходимые параметры универсального отчета.

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаОтчета", КонецДня(УниверсальныйОтчет.ДатаКон));

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНеделяНазад", УниверсальныйОтчет.ДатаКон-(86400*7));





	//УстановитьИнтервалыЗапроса();

	

	УниверсальныйОтчет.СформироватьОтчет(ТабличныйДокумент);

	

	// ДОБАВЛЕННЫЙ КОД - чистит итоги в нужных ячейках

	Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 			

		КонецЕсли;		

	КонецЦикла;

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

 &НаКлиенте

Процедура ДобавитьФайлы()

//ПРОВЕРИМ - текущий элемент записан или нет

	Если ЗначениеЗаполнено(Объект.Ссылка) Тогда // Записан

		Оповещение  =  Новый ОписаниеОповещения("ОбработатьВыборФайла",   ЭтотОбъект);

		НачатьПомещениеФайла(Оповещение,   ,   ,   Истина,   УникальныйИдентификатор);

	Иначе // НЕ записан, нужно спросить пользователя

		Оповещение = Новый ОписаниеОповещения("ОтветНаВопросЗаписать", ЭтотОбъект);

		ТекстВопроса = "Элемент не записан, Записать?";

		ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);		

	КонецЕсли;	  

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



//вопрос пользователю

&НаКлиенте 

Процедура ОтветНаВопросЗаписать(Результат, ДополнительныеПараметры) Экспорт 

// Вопрос пользователю, если ДА, то записываем объект и снова вызываем добавить файлы

	Если Результат = КодВозвратаДиалога.Да Тогда

		 ЭтотОбъект.Записать();

		 ДобавитьФайлы();

	КонецЕсли;

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



// После диалога выбора файла срабатывает это оповещение, в котором мы сохраняем файл с справочник Хранилище файлов

&НаКлиенте

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт

Если Не Результат Тогда

 Возврат; 

КонецЕсли;

//Получим данные файла

ОписаниеФайла = Новый Файл(ВыбранноеИмяФайла);

//Сохраним в справочник ХранилищеФайлов

СохранитьФайлВХранилище(Адрес,Объект.Ссылка,ОписаниеФайла.ИмяБезРасширения);

//обновим список файлы, т.к. там добавися новый файл

Элементы.Файлы.Обновить();

ЭтаФорма.ОбновитьОтображениеДанных();

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



// Сохранение файла в справочник

&НаСервереБезКонтекста

Процедура СохранитьФайлВХранилище(Адрес,Владелец,Имя)

	НовФайл = Справочники.ХранилищеФайлов.СоздатьЭлемент();

	НовФайл.Владелец = Владелец;

	НовФайл.Наименование = Имя;

	НовФайл.ДанныеТекущаяДата = ТекущаяДата();

	НовФайл.ДанныеХЗ = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(Адрес));

	НовФайл.Записать();

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

 &НаКлиенте

Процедура ФайлыПриАктивизацииСтроки(Элемент)

	Попытка

		ТекКартинка = ФайлыПриАктивизацииСтрокиНаСервере(Элемент.ТекущиеДанные.Ссылка); 

	Исключение

		//видимо нет еще фото

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

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





&НаСервереБезКонтекста

Функция ФайлыПриАктивизацииСтрокиНаСервере(ЭлементС)

	Возврат ПолучитьНавигационнуюСсылку(ЭлементС, "ДанныеХЗ");

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

 &НаСервере

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

	Файлы.Параметры.УстановитьЗначениеПараметра("Владелец",Объект.Ссылка);

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

 Параметры = ВнешниеИсточникиДанных.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", Внешнийнабор);

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

 Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)

    ЦветКрасный = Новый Цвет(255,130,124);

    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Данныестроки = ОформлениеСтроки.Данныестроки;



        Если ДанныеСтроки.Ссылка.НеПолученТовар Тогда

            ОформлениеСтроки.ЦветФона = ЦветКрасный;

        КонецЕсли;

    КонецЦикла;

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

 ДанныеСтроки.Ссылка.НеПолученТовар   

 Функция ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок)

    Массив = Новый Массив;

    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Массив.Добавить(ОформлениеСтроки.Данныестроки.Ссылка);

    КонецЦикла;

    Возврат Массив;

КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)   

 Функция ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления)



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

    Запрос.Текст =

        "ВЫБРАТЬ

        |   ПриходнаяНакладнаяБезнал.Ссылка,

        |   ПриходнаяНакладнаяБезнал.НеПолученТовар

        |ИЗ

        |   Документ.ПриходнаяНакладнаяБезнал КАК ПриходнаяНакладнаяБезнал

        |ГДЕ

        |   ПриходнаяНакладнаяБезнал.Ссылка В(&МассивСсылокОформления)";



    Запрос.УстановитьПараметр("МассивСсылокОформления", МассивСсылокОформления);



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

КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)()   

  Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)



    ЦветКрасный = Новый Цвет(255,130,124);



    МассивСсылокОформления = ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок);

    ТаблицаДанныхОформленияСтрок = ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления);



    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Данныестроки = ОформлениеСтроки.Данныестроки;

        СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка, "Ссылка");



        Если СтрокаОформленияСтрок.НеПолученТовар Тогда

            ОформлениеСтроки.ЦветФона = ЦветКрасный;

        КонецЕсли;



    КонецЦикла;



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