ВнешниеНаборыДанных = Новый Структура;

ВнешниеНаборыДанных.Вставить("тз",тз);



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

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



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

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



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

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



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

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

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

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

   

 //Получаем схему из макета

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



//Из схемы возьмем настройки по умолчанию

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



//Помещаем в переменную данные о расшифровке данных

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



//Формируем макет, с помощью компоновщика макета

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



//Передаем в макет компоновки схему, настройки и данные расшифровки

МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,

                                        Настройки, ДанныеРасшифровки);



//Выполним компоновку с помощью процессора компоновки

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

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

                                                   ДанныеРасшифровки);



//Очищаем поле табличного документа

Результат = ЭлементыФормы.Результат;

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



//Выводим результат в табличный документ

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

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

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



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



//Ищем в табличном документе "Итого" и заменяем

ТекОбласть = Результат.НайтиТекст("Итого", ТекОбласть, Результат.Область(),

                                             Истина, Истина, Истина, Ложь);



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

    ТекОбласть.Текст = "МоёИтого";

КонецЕсли;   

 ЗначениеПараметра = КомпоновщикНастроек.Настройки.ПараметрыВывода.

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



ЗначениеПараметра.Значение="Отчет за период с "+ДатаНачала+" по "+ДатаКонца;

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

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



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

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

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

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

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



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

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

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

         Прервать;

      КонецЕсли;

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

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

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

      КонецЕсли;

    КонецЦикла;

    КонецЕсли;

КонецЦикла;



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

 Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

Диалог.Фильтр = "Файлы XML (*.xml) |*.xml";

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

   Возврат;

КонецЕсли;



ЧтениеXML = Новый ЧтениеXML;



Попытка

   ЧтениеXML.ОткрытьФайл(Диалог.ПолноеИмяФайла);

Исключение

   Сообщить("Невозможно открыть xml-файл");

   Возврат;

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



СхемаКомпоновкиДанных = СериализаторXDTO.ПрочитатьXML(ЧтениеXML, ,Тип("СхемаКомпоновкиДанных"));



ЧтениеXML.Закрыть();   

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

| Выбрать

| Справочник.Номенклатура.Наименование,

| Выбор

|    Когда Справочник.Номенклатура.Этогруппа = Истина

|       Тогда «Это Группа»

|    Когда Справочник.Номенклатура.ЗакупочнаяЦена > 1000

|       Тогда «1000 -»

|    Когда Справочник.Номенклатура.ЗакупочнаяЦена > 100

|       Тогда «100 – 1000»

|    Когда Справочник.Номенклатура.ЗакупочнаяЦена > 10

|       Тогда «10 – 100»

|    Когда Справочник.Номенклатура.ЗакупочнаяЦена > 0

|       Тогда «0 – 10»

| Иначе

|    «Не Задана»

| Конец КАК Цена");

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

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

|ВЫБРАТЬ

|    ВЫБОР &Перем

|        КОГДА 1

|            ТОГДА "Раз"

|        КОГДА 2

|            ТОГДА "Два"

|        КОГДА 3

|            ТОГДА "Три"

|        ИНАЧЕ "Много"

|    КОНЕЦ КАК РезультатВыбора");

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

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

Выборка.Следующий();

Сообщить(Выборка.РезультатВыбора);   

 //******************************************************************************

// глСформироватьШтрихкодДокумента(Конт)

//

// Параметры:

//  Конт - контекст документа для которого необходимо сформировать штрихкод

//    EAN13- реквизит документа содержащий штрихкод

// Возвращаемое значение:

//  Нет                

//

// Описание:

//  На основании номера документа и вида документа формирует штрихкод в формате

//  EAN

//

Процедура глСформироватьШтрихкодДокумента(Конт, EAN13) Экспорт

   

    Если ПустаяСтрока(EAN13) = 1 Тогда

   

        ПрефиксыДокументов = СоздатьОбъект("СписокЗначений");



        ПрефиксыДокументов.ДобавитьЗначение("001", "Реализация");



        ПрефиксыДокументов.ДобавитьЗначение("002", "СчетФактураВыданный");               

        // и т.д



        КодДокумента        = СокрЛП(Прав(Конт.НомерДок,7));

        КодВидаДокумента    = ПрефиксыДокументов.Получить(Конт.Вид());

   

       

        Префикс = Прав(ДатаГод(Конт.ДатаДок), 2);

   

        ИспКолво = 10;

       

        Штрихкод = СимволыВЦифры(Прав(СокрЛП(КодДокумента+КодВидаДокумента),

                   ИспКолво));

        Штрихкод = Префикс + глДополнитьСтрокуЛ(Штрихкод, "0", ИспКолво);

                 

        EAN13 = Штрихкод + глКонтрольныйСимволEAN(Штрихкод, 13);

    КонецЕсли;

                   

КонецПроцедуры // глСформироватьШтрихкодДокумента()

 Процедура ПриЗаписи()

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

   глСформироватьШтрихкодДокумента(Контекст, EAN13);

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

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



ПолеОтбора = Новый ПолеКомпоновкиДанных("ИмяПоляКомпановки");



НовыйЭлементОтбора.ЛевоеЗначение  = ПолеОтбора;

НовыйЭлементОтбора.Использование  = Истина;

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

НовыйЭлементОтбора.ПравоеЗначение = Значение;   

 КомпоновщикНастроек.Настройки.Отбор.Элементы   

 //Ищет отбор в компоновщике настроек по параметрам, заданным через

//"СоответствиеПоискаОтбора", и заменяет

//на отбор с параметрами, указанными в "СоответствиеНовогоОтбора"

Процедура ИзменитьОтбор(ЭлементСтруктуры, 

СоответствиеПоискаОтбора = Неопределено, СоответствиеНовогоОтбора) Экспорт



Если ТипЗнч(ЭлементСтруктуры) = Тип("КомпоновщикНастроекКомпоновкиДанных")  Тогда

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

Иначе

    Отбор = ЭлементСтруктуры;

КонецЕсли;



Если ТипЗнч(СоответствиеНовогоОтбора["ЛевоеЗначение"]) = Тип("Строка") Тогда

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

Иначе

    нПоле = СоответствиеНовогоОтбора["ЛевоеЗначение"];

КонецЕсли;



Если СоответствиеНовогоОтбора.Получить("ВидСравнения") = Неопределено Тогда

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

Иначе

    нВидСравнения = СоответствиеНовогоОтбора["ВидСравнения"];

КонецЕсли;



Если СоответствиеНовогоОтбора.Получить("Использование") = Неопределено Тогда

    нИспользование = Истина;

Иначе

    нИспользование = СоответствиеНовогоОтбора["Использование"];

КонецЕсли;



нЗначение = СоответствиеНовогоОтбора["Значение"];



ТолькоПоЛевомуЗначению = Ложь;

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

    ТолькоПоЛевомуЗначению = Истина;

КонецЕсли;



сЛевоеЗначение  =  СоответствиеПоискаОтбора.Получить("ЛевоеЗначение");

Если сЛевоеЗначение = Неопределено Тогда

    сЛевоеЗначение = нПоле;

КонецЕсли;



сВидСравнения  =  СоответствиеПоискаОтбора.Получить("ВидСравнения");

Если ВидСравнения = Неопределено Тогда

    сВидСравнения = ВидСравнения;

КонецЕсли;



сИспользование =  СоответствиеПоискаОтбора.Получить("Использование");

Если сИспользование = Неопределено Тогда

    сИспользование = нИспользование;

КонецЕсли;



Для каждого ЭлементОтбора Из Отбор.Элементы Цикл

    Если ТолькоПоЛевомуЗначению Тогда

        НайденныйОтбор = ЭлементОтбора;

        Прервать;

    Иначе

        Если (ЭлементОтбора.ЛевоеЗначение = сЛевоеЗначение)

            И (ЭлементОтбора.ВидСравнения = сВидСравнения)

            И (ЭлементОтбора.Использование = сИспользование) Тогда

            НайденныйОтбор = ЭлементОтбора;

            Прервать;

        КонецЕсли;

    КонецЕсли;

КонецЦикла;



Если НайденныйОтбор <> Неопределено Тогда

    НайденныйОтбор.ЛевоеЗначение  = нПоле;

    НайденныйОтбор.Использование  = нИспользование;

    НайденныйОтбор.ВидСравнения   = нВидСравнения;

    НайденныйОтбор.ПравоеЗначение = нЗначение;

КонецЕсли;



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

   

 СоответствиеПоискаОтбора = Новый Соответствие;

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

    СоответствиеПоискаОтбора.Вставить("ВидСравнения",ВидСравненияКомпоновкиДанных.Содержит);

    СоответствиеПоискаОтбора.Вставить("Использование",Истина);



    СоответствиеНовогоОтбора = Новый Соответствие;

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

    СоответствиеНовогоОтбора.Вставить("ВидСравнения",ВидСравненияКомпоновкиДанных.Содержит);

    СоответствиеНовогоОтбора.Вставить("Использование",Истина);

    СоответствиеНовогоОтбора.Вставить("Значение","бла-бла-бла");



    ИзменитьОтбор(КомпоновщикНастроек,СоответствиеПоискаОтбора,СоответствиеНовогоОтбора);   

 

ЗаписьXML = Новый ЗаписьXML;



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

Диалог.Фильтр = "Файлы XML (*.xml) |*.xml";

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

    Возврат;

КонецЕсли;



Путь = Диалог.ПолноеИмяФайла;

ЗаписьXML.ОткрытьФайл(Путь);



СериализаторXDTO.ЗаписатьXML(ЗаписьXML, ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"), "dataComposition", "http://v8.1c.ru/8.1/data-composition-system/composition-template");   

 //Получаем схему из макета

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



//Из схемы возьмем настройки по умолчанию

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



//Помещаем в переменную данные о расшифровке данных

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



//Формируем макет, с помощью компоновщика макета

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



//Передаем в макет компоновки схему, настройки и данные расшифровки

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



//Выполним компоновку с помощью процессора компоновки

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

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



//Очищаем поле табличного документа

Результат = ЭлементыФормы.Результат;

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



//Выводим результат в табличный документ

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

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



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

 СохранитьЗначение("СрокИсполненияЗаказа", СрокИсполнения);

СохранитьЗначение("СкладПоУмолчанию", МестоХранения);



СрокИсполнения = ВосстановитьЗначение("СрокИсполненияЗаказа"));   

 Процедура КнопкаСохранитьНажатие(Кнопка)

	ЭлСтр = Новый Структура;

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

		//Сохранаем только те элементы, у которых можно получить Значение

		//Попытка

		// ЭлСтр.Вставить(Элем.Имя, Элем.Значение);

		//Исключение КонецПопытки; //у элемента нет Значения 

		//Так лучше

		Если ТипЗнч(Элем) = Тип("ПолеВвода") Тогда

			ЭлСтр.Вставить(Элем.Имя, Элем.Значение);

		КонецЕсли;

	КонецЦикла;	

	Константы.MES_ДопСоглашения.Установить(Новый ХранилищеЗначения(ЭлСтр)); 

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



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

	//Заполним значения на форме из структуры полученной из хранилища значений

	Попытка

		ЭлСтрХранЗнач=Константы.MES_ДопСоглашения.Получить();

		ЭлСтр=ЭлСтрХранЗнач.Получить();

		Для Каждого Элем из ЭлСтр Цикл

			ЭлементыФормы[Элем.Ключ] = Элем.Значение;

		КонецЦикла;	

	Исключение КонецПопытки;	

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

   

  Процедура глУстановитьСвойстваЗакладкиСводка(текФайл, тОписание="", тАвтор="", тКлючевыеСлова="", тФирма="", тКатегория="", тЗаголовок="", тТема="") Экспорт



Попытка

ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");

ФайлДляУстановки.Open(текФайл);

ФайлДляУстановки.SummaryProperties.Author = тАвтор;

ФайлДляУстановки.SummaryProperties.Keywords = тКлючевыеСлова;

ФайлДляУстановки.SummaryProperties.Company = тФирма;

ФайлДляУстановки.SummaryProperties.Category = тКатегория;

ФайлДляУстановки.SummaryProperties.Comments = тОписание;

ФайлДляУстановки.SummaryProperties.Subject = тТема;

ФайлДляУстановки.SummaryProperties.Title = тЗаголовок;

ФайлДляУстановки.Save();

ФайлДляУстановки=0;



Исключение

Сообщить("Не удалось установить параметры файла, не зарегистрирована библиотека!","!!!");

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

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

 Процедура глПолучитьСвойстваЗакладкиСводка(текФайл) Экспорт



Попытка



ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");

ФайлДляУстановки.Open(текФайл);

тАвтор = ФайлДляУстановки.SummaryProperties.Author;

тКлючевыеСлова= ФайлДляУстановки.SummaryProperties.Keywords;

тФирма= ФайлДляУстановки.SummaryProperties.Company;

тКатегория= ФайлДляУстановки.SummaryProperties.Category;

тОписание= ФайлДляУстановки.SummaryProperties.Comments;

тТема= ФайлДляУстановки.SummaryProperties.Subject;

тЗаголовок= ФайлДляУстановки.SummaryProperties.Title;

ФайлДляУстановки=0;



Исключение

Сообщить("Не удалось прочитать параметры файла, не зарегистрирована библиотека!","!!!");

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



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