ОтчетКонтрагента = Отчеты.ВедомостьВзаиморасчетыСКонтрагентами.Создать();

	

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

		

	ОтчетКонтрагента.УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки.Очистить();

	ОтчетКонтрагента.УниверсальныйОтчет.ПостроительОтчета.ИзмеренияКолонки.Очистить();

	ОтчетКонтрагента.УниверсальныйОтчет.ПостроительОтчета.ВыбранныеПоля.Очистить();

	ОтчетКонтрагента.УниверсальныйОтчет.ПостроительОтчета.Порядок.Очистить();

	

	ОтчетКонтрагента.УниверсальныйОтчет.ДобавитьИзмерениеСтроки("Контрагент");

	ОтчетКонтрагента.УниверсальныйОтчет.ДобавитьИзмерениеСтроки("ДоговорКонтрагента");

	

	//Контрагент

	ЭлементОтбора = ОтчетКонтрагента.УниверсальныйОтчет.ПостроительОтчета.Отбор["Контрагент"];

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

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

	ЭлементОтбора.Значение = ДоговорКонтрагента.Владелец;

	//ДоговорКонтрагента

	ЭлементОтбора = ОтчетКонтрагента.УниверсальныйОтчет.ПостроительОтчета.Отбор["ДоговорКонтрагента"];

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

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

	ЭлементОтбора.Значение = ДоговорКонтрагента.Ссылка;

	

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

	ОтчетКонтрагента.УниверсальныйОтчет.ДобавитьДополнительноеПоле("Регистратор");

		

	ОтчетКонтрагента.УниверсальныйОтчет.ВыводитьДетальныеЗаписи = Истина;

	

	ОтчетКонтрагента.УниверсальныйОтчет.мВосстанавливатьНастройкиПриОткрытии = Ложь;

		

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

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

	ФормаОтчета.ОбновитьОтчет();

   

 Если ТипЗнч(Расшифровка) = Тип("СписокЗначений") Тогда

        Если Расшифровка.Количество() = 1 Тогда

            ВыбранноеЗначение = Расшифровка[0];

        Иначе

            ВыбранноеЗначение = Расшифровка.ВыбратьЭлемент("Выберите расшифровку",Расшифровка[0]);

        КонецЕсли;

        Если ВыбранноеЗначение <> Неопределено Тогда

            ВыбраннаяРасшифровка = ВыбранноеЗначение.Значение;

        Иначе

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

            Возврат;

        КонецЕсли;

    ИначеЕсли ТипЗнч(Расшифровка) = Тип("Структура")

        ИЛИ ТипЗнч(Расшифровка) = Тип("Соответствие") Тогда

        

        ВыбраннаяРасшифровка = Расшифровка;

    КонецЕсли;

    

    Если ТипЗнч(ВыбраннаяРасшифровка) = Тип("Структура") 

        ИЛИ ТипЗнч(ВыбраннаяРасшифровка) = Тип("Соответствие") Тогда

        

        ОбщаяРасшифровка = Элемент.Область(1,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);

КонецЕсли;



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

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

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

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

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

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

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