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

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

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

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

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

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

	ГруппаОтбора.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИЛИ;

	

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

	ЭлементОтбора.Родитель = ГруппаОтбора;

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

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

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

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

	

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

	ЭлементОтбора.Родитель = ГруппаОтбора;

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

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

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

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

 СписокЗаказовНаФорме.ОтборСтрок = Новый ФиксированнаяСтруктура("Клиент", СписокЗаказовНаФорме.ТекущиеДанные.Клиент);    

 СписокЗаказовНаФорме = ЭтаФорма.Элементы.СписокЗаказов; 

ТекНомер = Неопределено; 

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

Сообщение = Новый СообщениеПользователю; 

Если СписокЗаказовНаФорме.ПроверитьСтроку(НомерСтроки) Тогда 

СписокЗаказовНаФорме.ТекущаяСтрока = НомерСтроки; 

Если ТекНомер = Неопределено Тогда 

Если ЗначениеЗаполнено(СписокЗаказовНаФорме.ТекущиеДанные.Машина) Тогда 

ТекНомер = СписокЗаказовНаФорме.ТекущиеДанные.Машина; 

Иначе 

Сообщение = Новый СообщениеПользователю; 

Сообщение.Текст = "Установите нужный номер автомобиля в первой строке списка"; 

Сообщение.Поле = "СписокЗаказов[" + НомерСтроки + "].Машина"; 

Сообщение.Сообщить(); 

СписокЗаказовНаФорме.ОтборСтрок = Новый ФиксированнаяСтруктура("Клиент", СписокЗаказовНаФорме.ТекущиеДанные.Клиент); 

Возврат; 

КонецЕсли; 

Иначе 

СписокЗаказовНаФорме.ТекущиеДанные.Машина = ТекНомер; 

КонецЕсли; 

КонецЕсли; 

КонецЦикла;    

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

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

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

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

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

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





//очистка отбора (подставьте свои элементы) 

&НаКлиенте

Процедура ОчиститьОтбор(Команда)

    этаформа.Список.Отбор.Элементы.Очистить();

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

   

 //установить отбор 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Установить(ЗначениеОтбора); 



//отключить отбор 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Установить(,Ложь);    

 ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Использование = Истина; 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.ВидСравнения = ВидСравнения.Равно; 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Значение = ЗначениеОтбора; 

   

 //выбрать строки с ценой = 100 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Установить(100); 



-------- 

//выбрать строки с ценой 100 и опр. валютой 

ЭлементыФормы.тпТовары.ОтборСтрок.Валюта.Установить(ВалютаУпр); 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Установить(200); 



-------- 

//выбрать строки с ценой >= 100 (неравенство) 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Использование = Истина; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ВидСравнения = ВидСравнения.БольшеИлиРавно; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Значение = 100; 



-------- 

//выбрать строки с ценой от 100 до 200 (интервал) 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Использование = Истина; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ВидСравнения = ВидСравнения.Интервал; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ЗначениеС = 100; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ЗначениеПо = 200; 



-------- 

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



ЭлементыФормы.тпТовары.ОтборСтрок.Товар.Использование = Истина; 

ЭлементыФормы.тпТовары.ОтборСтрок.Товар.ВидСравнения = ВидСравнения.ВСписке; 

ЭлементыФормы.тпТовары.ОтборСтрок.Товар.Значение.Добавить(Товар1); 

ЭлементыФормы.тпТовары.ОтборСтрок.Товар.Значение.Добавить(Товар2); 

   

 ЭлементыФормы.СоставКомплекта.ОтборСтрок.Комплект.Установить(Комплект);    

  ПланыОбменаМенеджер.ЗарегистрироватьИзменения(Узел, Неопределено);   

 ПланыОбменаМенеджер.ЗарегистрироватьИзменения(Узел, Метаданные.Справочники.Номенклатура);   

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

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

            "ВЫБРАТЬ РАЗЛИЧНЫЕ

            |    КомплектующиеНоменклатуры.Номенклатура,

            |    КомплектующиеНоменклатуры.ХарактеристикаНоменклатуры

            |ИЗ

            |    РегистрСведений.КомплектующиеНоменклатуры КАК КомплектующиеНоменклатуры";

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

        Набор = РегистрыСведений.КомплектующиеНоменклатуры.СоздатьНаборЗаписей();

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

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

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

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

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

            

            ПланыОбмена.ЗарегистрироватьИзменения(Узел, Набор);

        КонецЦикла;   

 Процедура ЗаполнитьДерево()



    ДеревоЗначений.Строки.Очистить();

    КолРазмеров = 0;



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

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



    Для Каждого ЭлементОтбора Из ПостроительОтчета.Отбор Цикл



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

            Продолжить;

        КонецЕсли;



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

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

            Продолжить;

        КонецЕсли;



        Если Лев(ЭлементОтбора.ПутьКДанным, 8) = "Свойство" Тогда

            ИмяПоля = "Номенклатура.["+мСоответствиеНазначений[ЭлементОтбора.Представление]+" (свойство)]";

        ИначеЕсли Лев(ЭлементОтбора.ПутьКДанным, 9) = "Категория" Тогда

            ИмяПоля = "Номенклатура.["+мСоответствиеНазначений[ЭлементОтбора.Представление]+" (категория)]";

        Иначе

            ИмяПоля = ЭлементОтбора.ПутьКДанным;

        КонецЕсли;



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



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

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

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

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

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



    КонецЦикла;



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

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



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



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

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



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



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

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



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



    //ТабличныйДокумент.Показать();



    КолДанных = 5;  //кол. данных в колонке таблицы СКД



    СоздатьДерево(ТабличныйДокумент, КолДанных);



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

    СтКол.Вставить("Ном",   1);

    СтКол.Вставить("Дат1",  2);

    СтКол.Вставить("Дат2",  3);



    СтКол.Вставить("Прих",  4);

    СтКол.Вставить("Реал",  5);

    СтКол.Вставить("Возв",  6);

    СтКол.Вставить("Остат", 7);

    СтКол.Вставить("ВПути", 8);



    СтрНом = Неопределено;

    СтрДерева = Неопределено;



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



        ПерваяКолонка = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Ном);



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



            Если СтрНом  Неопределено Тогда

                СтрНом.Строки.Сортировать("Продажи УБЫВ");

                СтрНом.ОстатокМагазин = СтрНом.Строки.Итог("ОстатокМагазин");

                СтрНом.ОстатокСклад = СтрНом.Строки.Итог("ОстатокСклад");

            КонецЕсли;



            СтрНом = ДеревоЗначений.Строки.Добавить();

            СтрДерева = СтрНом;



        ИначеЕсли ТипЗнч(ПерваяКолонка) = Тип("СправочникСсылка.Склады") Тогда



            СтрДерева = СтрНом.Строки.Добавить();



            Дат1 = Формат(ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Дат1), "ДФ=dd.MM.yy");

            Дат2 = Формат(ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Дат2), "ДФ=dd.MM.yy");

            СтрДерева.Период = "" + Дат1 + " - " + Дат2;



        Иначе



            Продолжить;



        КонецЕсли;



        СтрДерева.Номенклатура = ПерваяКолонка;

        СтрДерева.Остаток = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Остат, Истина);

        СтрДерева.Приход = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Прих, Истина);

        СтрДерева.Продажи = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Реал, Истина);

        СтрДерева.Возврат = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Возв, Истина);



        Если ЗначениеЗаполнено(СтрДерева.Родитель) Тогда

            Если ПерваяКолонка.ТипСклада = Перечисления.ТипыСкладов.ТорговыйЗал Тогда СтрДерева.ОстатокМагазин = СтрДерева.Остаток;

            Иначе                                                                     СтрДерева.ОстатокСклад = СтрДерева.Остаток;

            КонецЕсли;



            Попытка     СтрДерева.ПроцентПродаж = СтрДерева.Продажи * 100 / СтрДерева.Родитель.Продажи;

            Исключение  СтрДерева.ПроцентПродаж = "-";

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

        Иначе

            СтрДерева.ПроцентПродаж = "100%";

        КонецЕсли;



        Для j=1 По КолРазмеров Цикл



            СтрДерева["Ост" + j] = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, 3 + КолДанных * j + 4, Истина);

            СтрДерева["Пут" + j] = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, 3 + КолДанных * j + 5, Истина);



        КонецЦикла;



    КонецЦикла;



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



Процедура СоздатьДерево(ТабличныйДокумент, КолДанных)



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

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

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

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



    Ном = 3 + КолДанных + 1;   //колонки в таблич. документе (Ном/Склад, перв. дата, посл. дата)



    КолРазмеров = (ТабличныйДокумент.ШиринаТаблицы - Ном-1) / КолДанных + 1;

    Для i=1 По КолРазмеров Цикл



        Размер = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, 1, Ном, Истина, Ложь);

        Ном = Ном + КолДанных;



        Попытка

            ДеревоЗначений.Колонки.Добавить("Ост" + i, ОписаниеТиповЧ, Размер, 5);

            ДеревоЗначений.Колонки.Добавить("Пут" + i, ОписаниеТиповЧ, "Путь", 5);

            ДеревоЗначений.Колонки.Добавить("Пер" + i, ОписаниеТиповЧ, "Пер", 5);

        Исключение

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



    КонецЦикла;

    ЭтаФорма.ЭлементыФормы.ДеревоЗначений.Значение = ДеревоЗначений;

    ЭтаФорма.ЭлементыФормы.ДеревоЗначений.СоздатьКолонки();





    i=1; НомерРазмера=1;

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



        Кол.ТолькоПросмотр = Истина;

        Если      i = (НомерРазмера + 8 + 1) Тогда

            Кол.Положение = ПоложениеКолонки.НоваяКолонка;

        ИначеЕсли i = (НомерРазмера + 8 + 2) Тогда

            Кол.Положение = ПоложениеКолонки.НаСледующейСтроке;

        ИначеЕсли i = (НомерРазмера + 8 + 3) Тогда

            Кол.Положение = ПоложениеКолонки.ВТойЖеКолонке;

            Кол.ТолькоПросмотр = Ложь;

            НомерРазмера = НомерРазмера + 3;

        КонецЕсли;



        Если i=1 Тогда

            Кол.Ширина = 20;

        Иначе

            Если i=2 Тогда          Кол.Ширина = 11;

            ИначеЕсли i9 Тогда    Кол.Ширина = 7;

            Иначе                   Кол.Ширина = 5;

            КонецЕсли;

            Кол.ИзменениеРазмера = ИзменениеРазмераКолонки.НеИзменять;

        КонецЕсли;



        i=i+1;



    КонецЦикла;



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

 ' Установить соединение с сервером 1С

Set v81 = CreateObject("V81.Application")

res = v81.Connect("Srvr=Server1C;Ref = db1C;Usr=User1C;Pwd=Password1C")

' Передать управление внешней обработке по генерации Отчета Анализ Заказов

res = v81.ExternalDataProcessors.Create("C:\1C\Service\rep_email.epf").ThisObject.Report()

v81.Exit(false)



' Дать возможность 1С закрыть все открытые файлы и выгрузиться из памяти

WScript.Sleep(5000)



' Вызвать VBS скрипт отправки почты по E-Mail

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "C:\1C\ Service\emailer.vbs"    

 'Отправить сообщение с помощью локальной службы SMTP

Const cdoSendUsingPickup = 1

'Отправить сообщение с помощью сети (SMTP через сеть)

Const cdoSendUsingPort = 2

Const cdoAnonymous = 0

Const cdoBasic = 1

Const cdoNTLM = 2



Set objMessage = CreateObject("CDO.Message")

' Тема сообщения и адрес отправителя

objMessage.Subject = "Ежедневный отчет Анализ заказов поставщикам"

objMessage.From = """Генератор отчетов"" "

' Получатели письма указываются через " ; "

objMessage.To = "email@domain.org; recv@domain.net; last@domain.ru"

' Содержимое тела письма.

objMessage.TextBody = "JSC AUTO SERVICE. Please find Orders reporting in attachment." & vbCRLF & _

"------------------------------------------" & vbCRLF & _

"Best regards, Auto report service" & vbCRLF & _

"Support line: it@domian.ru" & vbCRLF



' Добавляем файл - вложение для отправки отчета по EMail

objMessage.AddAttachment "C:\1C\Service\ЗаказыПоставщику.xls"



' Секция настроек SMTP сервера для отправки почты.

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2



' Имя или IP адрес SMTP Server

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.ru"



' Тип используемой авторизации, NONE, Basic (Base64 encoded), NTLM

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic



' Авторизация на SMTP server

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "report@domain.ru"

' Пароль SMTP server

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "youpassword"



' Порт SMTP Server port (обычно 25, но может быть и другим)

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Использование SSL для соединения (False или True)

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Время ожидания соединения с почтовым сервером

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' Сохранить настройки CDO для отправки сообщения

objMessage.Configuration.Fields.Update



' Отправить созданное почтовое сообщение с вложением отчета в формате XLS по указанному адресу

objMessage.Send    

 Процедура ReportNow() Экспорт

 // Вызывается из vbscript, выполняет работы с отчетом.

 ОткрытьОтчетПоИмени("АнализЗаказовПоставщикам");

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

 Процедура ОткрытьОтчетПоИмени(НазваниеОтчета) Экспорт



// получаем отчет и открываем форму

// для построения отчета по названию отчета

Отчет = Отчеты[НазваниеОтчета].Создать();

Форма = Отчет.ПолучитьФорму(, , );

Форма.Открыть();



// Выполнить настройку отчета по умолчанию

Отчет.УстановитьНачальныеНастройки();



// Добавить требуемый отбор по поставщику

ТекОтбор = Отчет.УниверсальныйОтчет.ПостроительОтчета.Отбор.ДоговорКонтрагентаВладелец;

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

ТекОтбор.Значение = Справочники.Контрагенты.НайтиПоНаименованию("Поставщик");

ТекОтбор.ВидСравнения = ВидСравнения.Равно;



// Добавляем специфичное для нас измерение в отборе - например, "осталось отгрузить"

// в данном случае из отчета уйдут позиции, по которым все получено.

Отчет.УниверсальныйОтчет.ПостроительОтчета.Отбор.Добавить("ОсталосьОтгрузитьЕдиницОтчетов");

ТекОтбор1 = ОтчетОстатки.УниверсальныйОтчет.ПостроительОтчета.Отбор.ОсталосьОтгрузитьЕдиницОтчетов;

ТекОтбор1.Использование = Истина;

ТекОтбор1.Значение = 0;

ТекОтбор1.ВидСравнения = ВидСравнения.Больше;



// Состав отдельных ключевых показателей

// для каждого отчета можно посмотреть в конфигураторе

Отчет.СостояниеОтгрузкиПоЗаказу = истина;

Отчет.НеОтгружено = Истина;

Отчет.ОтгруженоЧастично = Истина;



// После завершения настроек нажмем программно кнопку "Сформировать"

Отчет.СформироватьОтчет(ФормаОтчета.ЭлементыФормы.ПолеТабличногоДокументаРезультат);



// Сформировать путь и имя файла для сохранения отчета

мПутьШаблон="C:\1C\Service";

мФайлШаблон="ЗаказыПоставщику.xls";

ИмяФайла = мПутьШаблон + "\" + мФайлШаблон;



// Полученные в отчете цифры и данные сохраним в файл Excel

Если Не ИмяФайла = Неопределено Тогда

Форма.ЭлементыФормы.ПолеТабличногоДокументаРезультат.СохранятьСвойстваОтображения = Истина;

Форма.ЭлементыФормы.ПолеТабличногоДокументаРезультат.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

КонецЕсли;



// Закрыть форму отчета после завершения работы

ФормаОтчета.Закрыть();

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

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

Отказ = истина;

ОткрытьОтчетПоИмени("АнализЗаказовПоставщикам");

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