IgnoreInternetMailServerCertificateVerificationList=imap.gmail.com;smtp.gmail.com   

 ДвумМассив = Новый Массив;

ОднмМассив = Новый Массив(2);

//И дальше - заполнять

ОднмМассив[0] = "1-й индекс";

ОднмМассив[1] = "1-е значение";

ДвумМассив.Добавить(ОднмМассив);



ОднмМассив[0] = "2-й индекс";

ОднмМассив[1] = "2-е значение";

ДвумМассив.Добавить(ОднмМассив);

//И так далее.   

 ДвумМассив[0][0] равен "2-й индекс"

ДвумМассив[0][1] равен "2-е значение"

ДвумМассив[1][0] равен "2-й индекс"

ДвумМассив[1][1] равен "2-е значение"   

 ДвумМассив[0][0] равен "1-й индекс"

ДвумМассив[0][1] равен "1-е значение"

ДвумМассив[1][0] равен "2-й индекс"

ДвумМассив[1][1] равен "2-е значение"   

 ДвумМассив = Новый Массив;

ОднмМассив = Новый Массив(2);

//И дальше - заполнять

ОднмМассив[0] = "1-й индекс";

ОднмМассив[1] = "1-е значение";

ДвумМассив.Добавить(ОднмМассив);





ОднмМассив = Новый Массив(2);

//Заново объявил одномерный массив "новым".

ОднмМассив[0] = "2-й индекс";

ОднмМассив[1] = "2-е значение";

ДвумМассив.Добавить(ОднмМассив);

//И так далее.   

 ДвумМассив[0][0] равен "1-й индекс"

ДвумМассив[0][1] равен "1-е значение"

ДвумМассив[1][0] равен "2-й индекс"

ДвумМассив[1][1] равен "2-е значение"   

 select program_name,net_transport

from sys.dm_exec_sessions as t1

left join sys.dm_exec_connections AS t2 ON t1.session_id=t2.session_id

where not t1.program_name is null   

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

Выборка = Справочники.Контрагенты.Выбрать();

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

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

Область.Параметры.Контрагент = Выборка.Наименование;

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

Область.Параметры.РасшифровкаКонтрагента = Выборка.Ссылка;

ТабДок.Вывести(Область);

КонецЦикла;   

 ПолеТабличногоДокумента1ОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)

// первой строкой в ней должна быть такая:

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

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

Контрагенты = Справочники.Контрагенты;

Выборка = Контрагенты.Выбрать();

Таб = ЭлементыФормы.ПолеТабличногоДокумента1;

Макет = ПолучитьМакет("Макет"); 

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

Если Выборка.ЭтоГруппа = Ложь Тогда

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

Область.Параметры.Контрагент = Выборка.Наименование;

.................................................................................................

СтруктураРасшифровки = Новый Структура;

СтруктураРасшифровки.Вставить("Контрагент",Выборка.Ссылка);

СтруктураРасшифровки.Вставить(".......",.........);

.........................................................................

Область.Параметры.РасшифровкаКонтрагента = СтруктураРасшифровки;

ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(Область);

Иначе

Продолжить;

КонецЕсли;

КонецЦикла;

ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр = Истина;

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



Процедура ПолеТабличногоДокумента1ОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)

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

Договоры = Справочники.Договоры.ПолучитьФормуСписка();

Договоры.ПараметрОтборПоВладельцу = Расшифровка.Контрагент;

Договоры.Открыть();

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

   ЭлементыФормы.Сайт.Перейти("http://www.svyaznoy.ru/catalog/phone/224"); //Категория с мобильными телефонами   

        Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.tagName = "H1" и Стр.innerText = "Производители" Тогда

                  Для Каждого опСтр из Стр.nextSibling.children Цикл

                      новСтр = Производители.Добавить();

                      новСтр.Наименование = опСтр.innerText;

                      новСтр.Ссылка = опСтр.firstChild.href;

                  КонецЦикла;

                  Возврат;

              КонецЕсли;

          КонецЦикла;   

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

          //Если отметку сняли - то не трогаем этого производителя

          Если Не Стр.Отметка Тогда

              Продолжить;

          КонецЕсли;

          Форма = ПолучитьФорму("ФормаТоваров");

          Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);

          Форма.ТекущийПроизводитель = Стр;

          Форма.ОткрытьМодально();

      КонецЦикла;   

  Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда

          ГрузимТовары();

      КонецЕсли;   

       Процедура ГрузимТовары()

          Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.className = "ct_desc cleared" Тогда

                  новСтр = Товары.Добавить();

                  Для Каждого опСтр из Стр.children Цикл

                      Если опСтр.className = "pic_and_comp" Тогда

                          новСтр.Картинка = СтрЗаменить(Сред(опСтр.firstChild.style.backgroundImage,5),")","")

                      КонецЕсли;

                      Если опСтр.className = "name" Тогда

                          новСтр.Наименование = опСтр.innerText;

                          новСтр.Ссылка = опСтр.firstChild.href;

                      КонецЕсли;

                      Если опСтр.className = "price" Тогда

                          новСтр.Цена = Число(СтрЗаменить(СтрЗаменить(опСтр.innerText,"-","")," ",""));

                      КонецЕсли;

                      Если опСтр.className = "desc" Тогда

                          новСтр.Описание = опСтр.innerText;//опСтр.innerHTML - если нужно вместе с тегами 



                      КонецЕсли;

                  КонецЦикла;



              КонецЕсли;



          КонецЦикла;

          Закрыть();

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

 Для Каждого Стр из Товары Цикл

          Форма = ПолучитьФорму("ФормаДопИнфо");

          Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);

          Форма.ТекущийТовар = Стр;

          Форма.ОткрытьМодально();

      КонецЦикла;   

   Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда

          ГрузимДопИнфо();

      КонецЕсли;   

       Процедура ГрузимДопИнфо();

          Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.className = "card_spec" Тогда

                  Для Каждого опСтр из Стр.children Цикл

                      Если Найти(опСтр.innerText,"Операционная система:") Тогда

                          ТекущийТовар.ОС = СокрЛП(СтрЗаменить(опСтр.innerText,"Операционная система:",""));

                      КонецЕсли;

                  КонецЦикла;

              КонецЕсли;

          КонецЦикла;

          Закрыть();

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

       Для Каждого Стр из Товары Цикл

              путьСамФайл = Лев(Стр.Картинка,Найти(Стр.Картинка,".jpg/") + 3);

              самФайл = СтрЗаменить(СтрЗаменить(ПутьСамФайл,"http://static.svyaznoy.ru/upload/iblock/",""),"/","");

              Стр.Картинка = СохранитьКартинкуСайта("C:\Svyaznoy",ПутьСамФайл,СамФайл);

          КонецЦикла;   

       Функция СохранитьКартинкуСайта(КаталогСохранения,КартинкаНаСайте,КартинкаУНас)

              ИмяФайлаКартинки = КаталогСохранения + "\" + КартинкаУНас;

              ГетЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

              ГетЗапрос.SetTimeouts(10000, 10000, 10000, 10000);

              БазовыйУРЛ = КартинкаНаСайте;

              Хидер1 = "Content-Type";

              Хидер2 = "image/jpg"; // Тип рисунка.

              ГетЗапрос.Open("GET", БазовыйУРЛ, False); // Синхронный режим.

              ГетЗапрос.setRequestHeader(Хидер1, Хидер2);

              ГетЗапрос.Send();

              СтатусОтправки = ГетЗапрос.status;

              Если СтатусОтправки <> 200 Тогда

                  Сообщить("Ошибка отправки запроса на: "

                      + КартинкаНаСайте);

                  Возврат "";

              КонецЕсли;        



              Стрим = Новый COMОбъект("ADODB.Stream");

              Стрим.Mode = 3;

              Стрим.Type = 1;

              Стрим.Open();

              Стрим.Write(ГетЗапрос.responseBody);



              Стрим.SaveToFile(ИмяФайлаКартинки, 2);

              Стрим.Close();

              Возврат ИмяФайлаКартинки;

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

 //стрТаблицаЕдиницИзмерения - таблица в строке с колонками.

//GUIDЕдиницы

//Базовая - булево

//Коэффициент

//ЕдиницаИзмерения - код классификатора Единиц измерения.

//Утверждено - булево

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

//ТаблицаГабаритов С колонками

//ВидУпаковки (строковое значение)

//Длина

//ширина

//высота

//объем

//ОбъемныйВес

//Вес

//ФормаОснования

//ВесБрутто

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



//стрСтруктураРеквизитов - структура с праметрами

//Наименование

//код

//ПометкаУдаления

//ВидТовара - идентификатор перечисления

//GUIDПроизводителя - GUID производителя

//СтавкаНДС - число ставка

//Жив - булево

Функция СинхронизироватьТовар(GUIDтовара, GUIDродителя, этоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения,стрТаблицаТНВЭД)

	Попытка

		СтруктураРеквизитов = ЗначениеИзСтрокиВнутр(стрСтруктураРеквизитов);

		ТоварСсылка = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDтовара));

		Если СокрЛП(GUIDродителя)<>"" тогда

			ТоварРодитель = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDродителя));

		иначе

			ТоварРодитель = Справочники.Товары.ПустаяСсылка();

		КонецЕсли;

		

		Если ТоварРодитель.Пустая() и Уровень<>"0" тогда

			Если СтруктураРеквизитов.ПометкаУдаления тогда

				Возврат "ОК";

			КонецЕсли;

			возврат "0 Не найден родитель товара";

		КонецЕсли;

		Если СокрЛП(GUIDтовара) = "" тогда

			возврат "0 Не верный ГУИД товара";

		КонецЕсли;

		//заполним реквизиты

		Если ТоварСсылка.Пустая() тогда

			ТоварСсылка = Справочники.Товары.НайтиПоКоду(СтруктураРеквизитов.Код);

		КонецЕсли;

		Если ТоварСсылка.Пустая() тогда

			

			Если этоГруппа="1" тогда 

				ТоварОбъект = Справочники.Товары.СоздатьГруппу();

			иначе

				ТоварОбъект = Справочники.Товары.СоздатьЭлемент();

			КонецЕсли;

			ТоварОбъект.GUIDтовара = GUIDтовара;

		иначе

			ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

			ТоварОбъект.GUIDтовара = GUIDтовара;

		КонецЕсли;

		ТоварОбъект.Родитель = ТоварРодитель;

		

		ТоварОбъект.Наименование = СтруктураРеквизитов.Наименование;

		

		ТоварОбъект.Код = СтруктураРеквизитов.Код;

		.....................

		Если этоГруппа="1" тогда 

		иначе

			Если СтруктураРеквизитов.менеджер <> "" тогда

				......................

			КонецЕсли;

			//

			Если ТоварОбъект.Производитель.Пустая() тогда

				Если СтруктураРеквизитов.Производитель<>"" тогда

					ТекПроизводитель = справочники.Производители.НайтиПоНаименованию(СтруктураРеквизитов.Производитель);

					Если ТекПроизводитель.Пустая() тогда

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

					иначе

						НовПроизводитель = ТекПроизводитель.ПолучитьОбъект();

					КонецЕсли;

					НовПроизводитель.GUID = СтруктураРеквизитов.GUIDПроизводителя;

					НовПроизводитель.Наименование = СтруктураРеквизитов.Производитель;

					НовПроизводитель.Записать();

					ТоварОбъект.Производитель = НовПроизводитель.ссылка;

				КонецЕсли;

			КонецЕсли;

			ТоварОбъект.СтавкаНДС = Справочники.СтавкиНДС.НайтиПоНаименованию(СтруктураРеквизитов.СтавкаНДС,Истина);

			

		КонецЕсли;

		

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

		ТоварОбъект.УстановитьПометкуУдаления(СтруктураРеквизитов.ПометкаУдаления,Ложь);

		ТоварСсылка = ТоварОбъект.Ссылка;

		ТоварОбъект = Null;

		

		//Синхронизируем Единицы измерения

		ТаблицаЕдиниц = ЗначениеИзСтрокиВнутр(стрТаблицаЕдиницИзмерения);

		Для каждого строка из ТаблицаЕдиниц цикл

			ЕдиницаСсылка = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("GUIDЕдиницы",строка.GUIDЕдиницы);

			Если не ЕдиницаСсылка.Пустая() тогда

				ЕдиницаОбъект = ЕдиницаСсылка.ПолучитьОбъект();

				ЕдиницаОбъект.УстановитьПометкуУдаления(строка.ПометкаУдаления,Ложь);

			иначе

				Если строка.ПометкаУдаления тогда

					продолжить; 

				КонецЕсли;

				ЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();

				ЕдиницаОбъект.GUIDЕдиницы = строка.GUIDЕдиницы;

			КонецЕсли;

			

			ЕдиницаОбъект.Код = строка.Код; 

			ЕдиницаОбъект.Наименование = строка.Наименование; 

			....................

			

			ЕдиницаОбъект.Габариты.Очистить();

			ТаблицаГабаритов = ЗначениеИзСтрокиВнутр(строка.ТаблицаГабаритов);

			Для каждого строкаГабаритов из ТаблицаГабаритов цикл

				НовСтрока = ЕдиницаОбъект.Габариты.Добавить();

				............................

				НовСтрока.Примечание = строкаГабаритов.Примечание;

			КонецЦикла;

			ЕдиницаОбъект.Записать();

			Если строка.Базовая тогда

				ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

				ТоварОбъект.БазоваяЕдиницаИзмерения = ЕдиницаОбъект.Ссылка;

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

			КонецЕсли;

		КонецЦикла;

		

		ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

		ТоварОбъект.ВремяСинхронизации = ТекущаяДата();

		ТоварОбъект.Синхронизирован = истина;

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

	исключение

		//в случае возникновение ошибки вывод результата облегчит поиск причины.

		Возврат ОписаниеОшибки();

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

	//Если все прошло успешно сообщим методу вызвашему веб сервис об успешном выполнении.

	Возврат "ОК";

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

 Процедура ПередЗаписью(Отказ)

	#Если не ВнешнееСоединение тогда                          

		//На случай двустороннего обмена данными, необходимо ограничить возможность вызова процедур синхронизации при записи спарвника из режима внешнего соединения.

		Если передавать = истина тогда

			Синхронизирован = Ложь; 

		КонецЕсли;

	#КонецЕсли

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



Процедура ПриЗаписи(Отказ)

	#Если не ВнешнееСоединение тогда

		Если Константы.СинхронизироватьБазы.Получить() и передавать тогда

			Синхронизация();

		КонецЕсли;

	#КонецЕсли

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



Функция Синхронизация()

	GUIDтовара = СокрЛП(ссылка.УникальныйИдентификатор());

	Если ссылка.Уровень()>0 тогда

		GUIDродителя = СокрЛП(ссылка.Родитель.УникальныйИдентификатор());

		Уровень = ссылка.Уровень()

	иначе

		GUIDродителя = "";

		Уровень = "0";

	КонецЕсли;

	Если ЭтоГруппа тогда

		СтрэтоГруппа = "1";

	иначе

		СтрэтоГруппа = "0";

	КонецЕсли;

	СтруктураРеквизитов = Новый Структура;

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

	

	СтруктураРеквизитов.Вставить("Наименование",Наименование);

	СтруктураРеквизитов.Вставить("код",код);

	....................

	Если не ЭтоГруппа тогда

		Если ОсновнойПоставщик.Пустая() тогда

			......................

		иначе

			.....................

		КонецЕсли;

		

	КонецЕсли;

	

	стрСтруктураРеквизитов = ЗначениеВСтрокуВнутр(СтруктураРеквизитов);

	

	ТаблицаЕдиницИзмерения = Новый ТаблицаЗначений;

	//GUIDЕдиницы

	//Базовая - булево

	//Коэффициент

	//ЕдиницаИзмерения - код классификатора Единиц измерения.

	//Утверждено - булево

	//ТаблицаГабаритов

	

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Наименование");

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Код");

	....................................

	Выборка = Справочники.ЕдиницыИзмерения.Выбрать(,ссылка);

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

		НовСтрока = ТаблицаЕдиницИзмерения.Добавить();

		НовСтрока.Наименование = Выборка.Наименование;

		НовСтрока.Код = Выборка.Код;

		..........................

		ТаблицаГабаритов = Новый ТаблицаЗначений;

		Для каждого колонка из Выборка.Габариты.Выгрузить().Колонки цикл

			ТаблицаГабаритов.Колонки.Добавить(колонка.Имя);

		КонецЦикла;

		Для каждого строка из Выборка.Габариты цикл

			НовСтрока1 = ТаблицаГабаритов.Добавить();

			Для каждого колонка из ТаблицаГабаритов.Колонки цикл

				НовСтрока1[колонка.Имя] = строка[колонка.Имя];

			КонецЦикла;

		КонецЦикла;

		

		НовСтрока.ТаблицаГабаритов = ЗначениеВСтрокуВнутр(ТаблицаГабаритов);

	КонецЦикла; 

	// т.к. наш вебсервис принимает в себя только строковые параметры, преобразуем наши таблицы в строки.

	стрТаблицаЕдиницИзмерения = ЗначениеВСтрокуВнутр(ТаблицаЕдиницИзмерения);

	

	есть = Ложь;

	колПопыток = 0;

	Пока не Есть и колПопытокцикл

		Попытка

			Определение = Новый WSОпределения(Константы.WebАдресМаркетинга.Получить()+"wssinhron.1cws"+"?wsdl",ПараметрыСеанса.Пользователь.Код,ПараметрыСеанса.Пользователь.ПарольЗакупок);

			Прокси = Новый WSПрокси(Определение, "www.market-sinhron.gor", "Синхронизация", "СинхронизацияSoap");

			Прокси.Пароль = ПараметрыСеанса.Пользователь.ПарольЗакупок;

			Прокси.Пользователь = ПараметрыСеанса.Пользователь.Код;

			Результат = Прокси.СинхронизироватьТовар(GUIDтовара, GUIDродителя, СтрЭтоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения, стрТаблицаТНВЭД);

			Определение = Null;

			Прокси = Null;

			есть = Истина;

		исключение

			колПопыток = колПопыток+1;

			Определение = Null;

			Прокси = Null;

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

	КонецЦикла;

	Если колПопыток=100 тогда

		#Если Клиент тогда

			сообщить(ОписаниеОшибки());

			Предупреждение("Ошибка синхронизации. отсутствует подключение.");

		#КонецЕсли

	КонецЕсли;

	передавать = ложь;

	сообщить(Результат);

	Если Лев(Результат,2)="ОК" тогда

		Синхронизирован = Истина;

		ВремяСинхронизации = ТекущаяДата();

		Записать();

	КонецЕсли;

	

	Если СокрЛП(Результат)="0 Не найден родитель товара" тогда

		#Если Клиент тогда

			Сообщить("вызов синхронизации родителя");

		#КонецЕсли

		ОбъектРодитель = родитель.ПолучитьОбъект();

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

		Записать();

	КонецЕсли;

	

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

 передавать = истина;

Синхронизация();   

 ПроверимСоединение = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + " ""close"" ""exit""";

net = Новый COMОбъект("WScript.Shell");

net.Run(ПроверимСоединение, 0, Истина);   

 СтрокаСинхронизация = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """synchronize both " + КаталогНаСервере1С + " " + КаталогНаSFTPСервере  + """ " + """ close"" ""exit""";

net = Новый COMОбъект("WScript.Shell");

net.Run(СтрокаСинхронизация, 0, Истина);   

 СтрокаСинхронизация = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """synchronize both " + КаталогНаСервере1С + " " + КаталогНаSFTPСервере  + """ " + """ close"" ""exit""";

net = Новый COMОбъект("WScript.Shell");

net.Run(СтрокаСинхронизация, 0, Истина);   

 СтрокаПрограммы = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort""    " + """open " + ПрофильWinSCP + """ " + """get "  + КаталогНаSFTPСервере + "/" + ИмяФайлаСтр + " " + КаталогНаСервере1С + "\" + """ " + """close"" ""exit"";

net = Новый COMОбъект("WScript.Shell");

net.Run(СтрокаПрограммы, 0, Истина);   

 СтрокаПрограммы = "cmd.exe /c """"" + ПутьWinSCP + """ /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """ls " + КаталогНаSFTPСервере + """""" + """ " + """ close""" + " > FMfiles.txt 2>&1" + """ " + """ exit""";

ЗапуститьПриложение(СтрокаПрограммы, ПутьКЛогам, Истина, КодВозврата);   

 ПодключитьОбработчикОжидания(<ИмяПроцедуры>, <Интервал>, <Однократно>)    

 ОтключитьОбработчикОжидания(<ИмяПроцедуры>)    

  

&НаКлиенте

Процедура  ОболочкаОбработчика ()

ОбработатьОжидание();

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

 

 

&НаСервере

Процедура ОбработатьОжидание()

// делаем всё, что требуется

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

 

//....

ПодключитьОбработчикОжидания("ОболочкаОбработчика", 3, Истина);   

 ПодключитьОбработчикОжидания(<ИмяПроцедуры>, <Интервал>, <Однократно>)   

 Процедура ОтчетОпродажахЗаДень()

// ...

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



//...

ПодключитьОбработчикОжидания("ОтчетОпродажахЗаДень", 60); // каждую минуту    

 // В типовых проверка дин. обновления конфигурации каждые 20 мин.

	ПодключитьОбработчикОжидания("ОбработчикОжиданияПроверкиДинамическогоИзмененияИБ", 20 * 60);

// подключим обработчик обменов данными

ПодключитьОбработчикОжидания("ПроверкаОбменаДанными", глЗначениеПеременной("глКоличествоСекундОпросаОбмена"));

///

ПодключитьОбработчикОжидания("ПроверитьОтветыНаЗаявленияНаПодключение", 86400); // = 24(ч) * 60(мин) * 60(сек) = 1 сутки		

   

 ПодключитьОбработчикОжидания(<ИмяПроцедуры>, <Интервал>, <Однократно>)    

 ПодключитьОбработчикОжидания("ПриОжидании", 1);   

 Форма.мИнтервалАвтосохранения = 300; // 5 минут

	Если Форма.мИнтервалАвтосохранения <> 0 Тогда

		Форма.ПодключитьОбработчикОжидания("ОбработчикСобытияПоТаймеру", Цел(Форма.мИнтервалАвтосохранения * 60));

	КонецЕсли;   

 ОбработкаОжидания("ОбновитьСчетчик_",1);  

 Форма.ОбработкаОжидания("ОбновитьСчетчик_",1); 

 Форма.ОбработкаОжидания("ИмяПроцедуры",ВремяЗапуска)   

 Форма.ОбработкаОжидания("ИмяПроцедуры",0)   

 Новый HTTPСоединение(<Сервер>, <Порт>, <ИмяПользователя>, <Пароль>, <Прокси>, <ЗащищенноеСоединение>)   

 // соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

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

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);   

 Получить(<Источник>, <ИмяВыходногоФайла>, <Заголовки>)   

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

// https://www.mysite.com/getUsers.php?owner_id=263544&count=100

// ответ от сервера приходит в виде XML файла

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml");

 

Соединение = Новый HTTPСоединение("www.mysite.com",,,,, Истина);

Соединение.Получить("getUsers.php?owner_id=263544&count=100", имяВыходногоФайла);

 

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

ЧтениеXML.ОткрытьФайл(имяВыходногоФайла);

 

Пока ЧтениеXML.Прочитать() Цикл

    // чтение ответа в виде XML файла

    ...

КонецЦикла;

 

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

 

// удаляем файл после использования

УдалитьФайлы(имяВыходногоФайла);   

 источник = "owner=263544&count=100";

 

// Передача заголовков строкой

ЗаголовкиHTTP = "Content-Type:text/html;charset=utf-8" + Символ.ВК + Символ.ПС +

            "Content-Length: "+СтрДлина(источник);

Соединение.Получить("", имяВыходногоФайла, ЗаголовкиHTTP);

 

// Вставить символы ВК+ПС можно и таким способом

ЗаголовкиHTTP = "Content-Type:text/html;charset=utf-8

            |Content-Length: 1348";

Соединение.Получить("", имяВыходногоФайла, ЗаголовкиHTTP);

 

// Установка заголовков типом Соответствие

ЗаголовкиHTTP = Новый Соответствие;

ЗаголовкиHTTP.Вставить("Content-Type", "text/html;charset=utf-8");

ЗаголовкиHTTP.Вставить("Content-Length", СтрДлина(источник));

 

Соединение.Получить(источник, имяВыходногоФайла, ЗаголовкиHTTP);   

 ОтправитьДляОбработки(<Источник>, <АдресРесурса>, <ИмяВыходногоФайла>, <Заголовки>)    

 имяФайлаОтправки = "d:\data\request.txt"; // файл с отсылаемыми для обработки данными

 

// Определим размер файла-источника

// и установим HTTP заголовки

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "text/html;charset=utf-8");

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml");

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "addPost.php", имяВыходногоФайла, Заголовки);   

 // сформируем файл для отправки на сервер

 

имяФайлаОтправки = ПолучитьимяВременногоФайла("txt");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаОтправки);

ЗаписьТекста.Записать("owner=263544&count=100");

ЗаписьТекста.Закрыть();

 

// отправим файл на сервер для обработки

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml"); // наш сервер возвращает ответы в виде XML

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "text/html;charset=utf-8");

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "addPost.php", имяВыходногоФайла, Заголовки);

 

// удалим файл отправки - он больше не нужен

Попытка

    УдалитьФайлы(имяФайлаОтправки);

Исключение

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

 

// обработаем ответ сервера

 

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

ЧтениеXML.ОткрытьФайл(имяВыходногоФайла);

 

Пока ЧтениеXML.Прочитать() Цикл

    // чтение ответа в виде XML файла

    ...

КонецЦикла;

 

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

 

// удаляем файл после использования

Попытка

    УдалитьФайлы(имяВыходногоФайла); 

Исключение

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

 // подготовим файл с данными для отправки

имяФайлаОтправки = ПолучитьимяВременногоФайла("xml");

 

ОбъектXML = Новый ЗаписьXML;

ОбъектXML.ОткрытьФайл(имяФайлаОтправки, "UTF-8");

ОбъектXML.ЗаписатьОбъявлениеXML();

ОбъектXML.ЗаписатьБезОбработки(

"<request>

|    <user_id>" + user_id + "</user_id>

|    <post_id>" + post_id + "</post_id>

|    <message>" + ТекстКомментария + "</message>

|</request>");

ОбъектXML.Закрыть();

 

// отправим файл на сервер для обработки

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml"); // наш сервер возвращает ответы в виде XML

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "text/html;charset=utf-8");

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "addComment.php", имяВыходногоФайла, Заголовки);

 

// удалим файл отправки - он больше не нужен

Попытка

    УдалитьФайлы(имяФайлаОтправки);

Исключение

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

 

// обработаем ответ сервера

 

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

ЧтениеXML.ОткрытьФайл(имяВыходногоФайла);

 

Пока ЧтениеXML.Прочитать() Цикл

    // чтение ответа в виде XML файла

    ...

КонецЦикла;

 

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

 

// удаляем файл после использования

Попытка

    УдалитьФайлы(имяВыходногоФайла); 

Исключение

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

 boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");   

 // подготовим файл с данными для отправки

имяФайлаОтправки = ПолучитьимяВременногоФайла("txt");

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаОтправки);

 

// параметр "uid"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""uid""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(Пользователь);

 

// параметр "desc"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""desc""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(Описание);

 

// параметр "text"

ФайлДляПередачи = Новый ТекстовыйДокумент;

ФайлДляПередачи.Прочитать(имяФайла);

 

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""text""; filename=""stih.txt""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: text/plain");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.Записать(ФайлДляПередачи.ПолучитьТекст());

ЗаписьТекста.ЗаписатьСтроку("");

 

// закроем разделитель

ЗаписьТекста.ЗаписатьСтроку("--"+boundary+"--");

 

ЗаписьТекста.Закрыть();

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

// передадим данные на сервер 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "multipart/form-data, boundary="+boundary);

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "postFile.php", имяВыходногоФайла, Заголовки);   

 // подготовим файл с данными для отправки

имяФайлаДанных = "d:\photo\birthday.jpg";

 

имяФайлаОтправки = ПолучитьимяВременногоФайла("txt");

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаОтправки);

 

// параметр "file"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file""; filename=""photo.jpg""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: image/jpeg");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.Записать(Base64Строка(Новый ДвоичныеДанные(имяФайлаДанных)));

ЗаписьТекста.ЗаписатьСтроку("");

 

// закроем разделитель

ЗаписьТекста.ЗаписатьСтроку("--"+boundary+"--");

 

ЗаписьТекста.Закрыть();

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

// передадим данные на сервер 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "multipart/form-data, boundary="+boundary);

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "uploadFile.php", имяВыходногоФайла, Заголовки);   

 ОбъединитьФайлы(<ИменаЧастей>, <ИмяРезультирующегоФайла>)   

 // подготовим файлы с данными для отправки

 

массивФайлов = Новый Массив;

 

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

 

имяФайлаСПараметрами = ПолучитьимяВременногоФайла("txt"); // первый файл, содержащий параметры

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаСПараметрами);

 

// параметр "user_id"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""user_id""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(user_id);

 

// параметр "post_id"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""post_id""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(post_id);

 

// начало параметра "file1"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file1""; filename=""archive1.zip""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: application/x-zip-compressed");

ЗаписьТекста.ЗаписатьСтроку("");

 

ЗаписьТекста.Закрыть(); // заканчиваем работу с файлом 1

 

массивФайлов.Добавить(имяФайлаСПараметрами); // добавляем 1-ый файл для объединения

массивФайлов.Добавить(имяФайлаАрхива1); // добавляем 1-ый архив для объединения

 

// второй файл параметров, содержаший начало параметра "file2"

имяФайлаСПараметрами = ПолучитьимяВременногоФайла("txt");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаСПараметрами);

 

// начало параметра "file2"

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file2""; filename=""archive2.zip""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: application/x-zip-compressed");

ЗаписьТекста.ЗаписатьСтроку("");

 

ЗаписьТекста.Закрыть(); // заканчиваем работу с файлом 2

 

массивФайлов.Добавить(имяФайлаСПараметрами); // добавляем 2-ой файл для объединения

массивФайлов.Добавить(имяФайлаАрхива2); // добавляем 2-ой архив для объединения

 

ЗаписьТекста.Записать(ФайлДляПередачи.ПолучитьТекст());

ЗаписьТекста.ЗаписатьСтроку("");

 

// третий файл, закрывающий параметры

имяФайлаСПараметрами = ПолучитьимяВременногоФайла("txt");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаСПараметрами);

 

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку("--"+boundary+"--");

 

ЗаписьТекста.Закрыть(); // заканчиваем работу с файлом 3

 

массивФайлов.Добавить(имяФайлаСПараметрами); // добавляем 3-ий файл, закрывающий параметры

 

// результирующий файл, который и будет отправлен

имяФайлаОтправки = ПолучитимяВременногоФайла("out");

 

// объединим все файлы

ОбъединитьФайлы(массивФайлов, имяФайлаОтправки);

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

// передадим данные на сервер 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "multipart/form-data, boundary="+boundary);

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "postFile.php", имяВыходногоФайла, Заголовки);   

 set fso  = CreateObject("Scripting.FileSystemObject")

set wso = WScript.CreateObject("Wscript.shell")



Base = "Main"

FileText = \\Сетевая папка\Settings_basedefault.ini"



if Wscript.Arguments.Count() > 0 Then Base = Lcase(WScript.Arguments(0))



S_elect case base

case "Base1"

 Filetext = "\\Сетевая папка\Settings_base1.ini"

case "Base2"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case "Base3"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case else

 Filetext = "\\Сетевая папка\Settings_basedefault.ini"

end S_elect



if fso.FileExists(FileText) = false then FileText = "\\Сетевая папка\Settings_basedefault.ini"



set file = fso.OpenTextFile(FileText, 1)

Platform = file.ReadLine

Server   = file.Readline





cpath = "C:\Program files (x86)\1cv82\" & Platform & "\bin\1cv8.exe"



command = " enterprise /S" & Server & "\" & Base



wso.Exec(cpath & command)

   

 "C:\Program Files (x86)\1cv82\Run1C.vbs" Base   

 '====================

Set WshShell = CreateObject("WScript.Shell")

PrgDirx86 = trim(WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32\"))

msgbox PrgDirx86

'====================   

 //инициализация часть 1

СсылкаМакет = ПолучитьМакет(Акт);

MSWord = СсылкаМакет.Получить();

Попытка

СсылкаМакет = MSWord.Application.Documents(1);

СсылкаМакет.Activate(); 

//выгружаем табличную часть с нарушениями в строку часть 2

str = Новый COMОбъект(ADODB.Stream);

str.Open();

СтрочкаТаблицы = ЭлементыФормы.Нарушения.ТекущиеДанные;

Для Каждого СтрочкаТаблицы Из Нарушения Цикл

str.WriteText( + СтрочкаТаблицы.Описание +  Нарушены требования СНИПФЗГОСТ:  + СтрочкаТаблицы.СНИПФЗГОСТ  +  Статья:  + СтрочкаТаблицы.ЧастьСтатья  + Символ(13),0);

КонецЦикла;

str.Position = 0;

НарушенияТекст = str.readText();



//вставляем в закладку текст с нарушениями часть 3

MSWord.Bookmarks(НарушенияТекст).S_elect();

MSWord.Application.S_election.TypeText(НарушенияТекст);



//открыть Word часть 4

СсылкаМакет.Application.Visible = Истина;



СсылкаМакет.Activate();

Исключение

//если ошибка 

Сообщить(ОписаниеОшибки());

MSWord.Application.Quit();

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

 Word = MSWord.Application;

Документ = Word.ActiveDocument();

//Переместиться вниз на 22 строк

Word.S_election.MoveDown(,22);

Документ.Paragraphs.Add();

//подготовка таблицы:

Rng = Word.S_election.Range;

//Формируем заголовок:

Rng.I_nsertAfter(№ п/п*Установленные нарушения и меры по их устранению*Основания); 

Rng.I_nsertParagraphAfter();

//сама таблица

СтрочкаТаблицы = ЭлементыФормы.НарушенияПредписание.ТекущиеДанные;

Для Каждого СтрочкаТаблицы из НарушенияПредписание Цикл 

Rng.I_nsertAfter(Строка(СтрочкаТаблицы.НомерСтроки)+*+СтрочкаТаблицы.Описание + ;  + СтрочкаТаблицы.Предписание +* + СтрочкаТаблицы.СНИПФЗГОСТ +   + СтрочкаТаблицы.ЧастьСтатья);

Rng.I_nsertParagraphAfter(); 

КонецЦикла; 

Rng.ConvertToTable(*);

Документ.Tables(1).AutoFormat(17); //номер таблицы в шаблоне

Word.Visible = Истина;   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   

   КомОбъект.Application.Visible=1;

   КомОбъект.Variables.Item("ДатаПриказа").Value="24.01.2007";

   КомОбъект.Fields.UpDate();



   КомОбъект.PrintOut(); //распечатать документ



   //Ожидание окончания отправки на печать...

   Пока objWord.Application.BackgroundPrintingStatus<>0 Цикл

     Предупреждение("Ожидание",1);

   КонецЦикла;  



   КомОбъект.Application.Quit(); //закрыть Word

   КомОбъект = 0;

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

   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   КомОбъект.Application.Visible=1;

   КомОбъект.Bookmarks(СокрЛП("ИмяЗакл")).S_elect();

   КомОбъект.Application.S_election.TypeText(СокрЛП("тест проверка"));

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

 // Параметры договора обозначены в тексте переменными вида "[%НомерДоговора%]"

Функция ПечатьДокумента() Экспорт

     

    Договор = ПолучитьМакет("ActiveDocument_ДоговорПоставки"); // получим макет-ActiveDocument 

    MSWord = Договор.Получить();  

    Попытка

	Doc = MSWord.Application.Documents(1);

        Doc.Activate();         

        Replace = Doc.Content.Find;    

        

        FindText = "{НомерДоговора}";     // что искать - имя_шаблона

        MatchCase = Ложь;                 // использовать регулярные выражения        

        MatchWholeWord = Истина;          // искать слово целиком

        MatchWildcards = Ложь;            // испоьзовать регулярные выражения 

        MatchSoundsLike = Неопределено;   // искать созвучные 

        MatchAllWordForms = Неопределено; // искать все формы слова

        Forward = Истина;                 // искать вперед

        Wrap = Неопределено;              // что должен вернуть Find-объект 

        Format_ = Ложь;                   // использовать форматирование

        ReplaceWith = "N777";             // текст, на который надо заменить имя_шаблона

        

        // кратко:        

        //Replace.Execute(FindText,Ложь,Истина,Ложь,,,Истина,,Ложь,НомерДоговора);        

        

        Replace.Execute(

            FindText, 

            MatchCase, 

            MatchWholeWord, 

            MatchWildcards, 

            MatchSoundsLike, 

            MatchAllWordForms, 

            Forward,

            Wrap,

            Format_,

            НомерДоговора);

            

        MSWord.Application.Visible = Истина;

        MSWord.Activate();

    Исключение

        Сообщить(ОписаниеОшибки());

        MSWord.Application.Quit();    

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

 

    возврат 0;



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

 Сч = 0; МассивОбъектовПосещения = "";

Для Каждого ТекСтрока Из ТаблицаОбъектов Цикл

    МассивОбъектовПосещения = МассивОбъектовПосещения + "

    |   ['" + ?(ОтображатьПодчиненных, ТекСтрока.Ответственный, "") + ТекСтрока.Наименование + "', '"

    + СтрЗаменить(Строка(ТекСтрока.Широта),",",".") + ", "+ СтрЗаменить(Строка(ТекСтрока.Долгота),",",".") +"'],";

    Сч = Сч + 1;

КонецЦикла;

МассивОбъектовПосещения = Лев(МассивОбъектовПосещения, СтрДлина(МассивОбъектовПосещения)-1);   

 СтраницаХТМЛ =

"var directionDisplay;

| var directionsService = new google.maps.DirectionsService();

| var map;

| var myarr = [

| " + МассивОбъектовПосещения + "

| ];

| function initialize() {

| directionsDisplay = new google.maps.DirectionsRenderer();

| var myOptions = {mapTypeId: google.maps.MapTypeId.ROADMAP}

| map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);

| directionsDisplay.setMap(map);

| calcRoute();

| }

| function calcRoute() {

| var waypts = [];

| for (var i = 0; i < myarr.length; i++) {

| waypts.push({

| location:myarr[i][1],

| stopover:true});

| }

| var request = {

| origin: '" + НачалоМаршрута + "',

| destination: '" + КонецМаршрута + "',

| waypoints: waypts,

| optimizeWaypoints: true,

| travelMode: google.maps.DirectionsTravelMode.DRIVING

| };

| directionsService.route(request, function(response, status) {

| if (status == google.maps.DirectionsStatus.OK) {

| directionsDisplay.setDirections(response);

| var route = response.routes[0];

| var summaryPanel = document.getElementById(""directions_panel"");

| summaryPanel.innerHTML = """";

| var summaryDistance = 0;

| // For each route, display summary information.

| for (var i = 0; i < route.legs.length; i++) {

| var routeSegment = i + 1;

| summaryPanel.innerHTML += ""Маршрут: "" + routeSegment;

| summaryPanel.innerHTML += route.legs[i].start_address + "" to "";

| summaryPanel.innerHTML += route.legs[i].end_address;

| summaryPanel.innerHTML += route.legs[i].distance.text;

| summaryDistance += parseFloat(route.legs[i].distance.value);

| }

| summaryPanel.innerHTML += ""Общая длинна маршрута: "";

| summaryPanel.innerHTML += summaryDistance;

| }

| });

| }

| initialize();   

 Функция СрокДемоЗакончился()

   Перем Значение;

   RegProv=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");

   // 2147483649 - раздел реестра HKEY_CURRENT_USER

   RegProv.GetStringValue("2147483649","Software\1C\1Cv8\Report","StartDate",Значение);

   Если Значение=NULL Тогда // Ключ ещё не создан, считаем этот запуск первым

     // Создадим ключ, установив значение в текущую дату

     RegProv.CreateKey("2147483649","Software\1C\1Cv8\Report"); // создание раздела

     // установка значения для ключа

     RegProv.SetStringValue("2147483649","Software\1C\1Cv8\Report","StartDate",Строка(Формат(ТекущаяДата(),"ДФ=ггггММддЧЧммсс")));

     Возврат Ложь;

   Иначе

     // проверка срока использования демо-версии

     ДатаСтарта=Дата(Значение);

     КонецПериода=ДатаСтарта+ 60 * 60 * 24 * 10; // 10 дней

     ТекДата=ТекущаяДата();

     Возврат НЕ (ТекДата>ДатаСтарта И ТекДата<=КонецПериода);

   КонецЕсли;

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

 Процедура СформироватьОтчет() Экспорт

   Если СрокДемоЗакончился() Тогда

    Возврат;

   КонецЕсли;

 …

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

 Функция ТочноеВремяПоГринвичу()

   XMLHTTP=Новый COMОбъект("MSXML2.XMLHTTP");

   XMLHTTP.Open("get","http://ntp.greenwichmeantime.com/time/scripts/clock-7/x.php",Ложь);

   XMLHTTP.Send();

   UTC=Цел(XMLHTTP.Responsetext/1000); // в секундах

   Возврат '19700101000000'+ UTC + 60 * 60 * 4; // по Москве, летнее время

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

 Функция СрокДемоЗакончился()

   Перем Значение;

   RegProv=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");

   RegProv.GetDWORDValue("2147483649","Software\1C\1Cv8\Report","Count",Значение);

   ЭтотЗапуск=1;

   Если Значение=NULL Тогда

     RegProv.CreateKey("2147483649","Software\1C\1Cv8\Report");

   Иначе

     ЭтотЗапуск=Значение+1;

   КонецЕсли;

   Если ЭтотЗапуск<=5 Тогда

     RegProv.SetDWORDValue("2147483649","Software\1C\1Cv8\Report","Count",ЭтотЗапуск);

     Возврат Ложь;

   Иначе

     Возврат Истина;

   КонецЕсли;

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

 Функция ПолучитьСерийныйНомерЖесткогоДиска(Диск)

   ФСО=Новый COMОбъект("Scripting.FileSystemObject");

   ФСО_Диск=ФСО.GetDrive(Диск);

   Возврат ФСО_Диск.SerialNumber;

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

 Функция ПолучитьОтветПоКлючу(Ключ)

   н=СтрДлина(Ключ);

   Результат="";

   Пока н<>0 Цикл

     Результат=Результат+Сред(Ключ,н,1);

     н=н-1;

   КонецЦикла;

   Возврат Результат;

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

 Функция ЭтоЗарегистрированнаяКопия()

   Перем Значение,Ответ;

   RegProv=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");

   RegProv.GetDWORDValue("2147483649","Software\1C\1Cv8\Report","Registered",Значение);

   Если Значение=NULL Тогда // необходима регистрация копии

     Регистрация=Ложь;

     Ключ=ПолучитьСерийныйНомерЖесткогоДиска("C");

     Если ВвестиСтроку(Ответ,"Ключ: "+Ключ) Тогда

       Если Ответ=ПолучитьОтветПоКлючу(Ключ) Тогда

         // подтвердим регистрацию

         RegProv.SetDWORDValue("2147483649","Software\1C\1Cv8\Report","Registered",1);

         Регистрация=Истина;

       Иначе

         Предупреждение("Регистрационный код введен не верно!");

       КонецЕсли;

     КонецЕсли;

     Возврат Регистрация;

   Иначе // эта копия уже зарегистрированна

     Возврат Истина;

   КонецЕсли;

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

 Процедура СформироватьОтчет() Экспорт

   Если НЕ ЭтоЗарегистрированнаяКопия() Тогда

     // работа в демо-режиме

     ...

   КонецЕсли;

   ...

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

 Функция ПроверитьРегистрационныйКод(Код)

   Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");

   Скрипт.Language="VBScript.Encode";

   Скрипт.AddCode("#@~^ewAAAA==o!x^DkKxP;t"+Символ(127)+"^3v|nX*@#@&7zx/SnD{4wCs/"+Символ(127)+"@#@&d(0~F"+Символ(127)+"XxJ9^+Rl{qOv0q*rPPt"+Символ(127)+"U,bUkh"+Символ(127)+"D'74:.E"+Символ(127)+"P3x9P(W@#@&d;4+13'zUdh"+Символ(127)+"D@#@&3x[~wEUmDrW hyQAAA==^#~@ ");

   Возврат Скрипт.CodeObject.Check(Код);

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