//////////////////////////  параметры даты в запрос /////////////////////////

///////////// приведем период в нормальную форму к виду (с лДата по пДата) ///////////

ВЫБРАТЬ

	МИНИМУМ(пДаты._Дата) КАК лДата,

	МАКСИМУМ(пДаты._Дата) КАК пДата

ПОМЕСТИТЬ _д

ИЗ 

	(ВЫБРАТЬ НАЧАЛОПЕРИОДА(&лДата,ДЕНЬ) AS _Дата

		ОБЪЕДИНИТЬ ВСЕ

	ВЫБРАТЬ	НАЧАЛОПЕРИОДА(&пДата,ДЕНЬ)) КАК пДаты;

//////////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

	_д.лДата,

	_д.пДата,

	

	ВЫБОР

		КОГДА ГОД(_д.пДата) >= ГОД(_д.лДата) ТОГДА

			ВЫБОР

				КОГДА МЕСЯЦ(_д.пДата) >= МЕСЯЦ(_д.лДата) ТОГДА ГОД(_д.пДата) - ГОД(_д.лДата)

				КОГДА МЕСЯЦ(_д.пДата) < МЕСЯЦ(_д.лДата) ТОГДА ГОД(_д.пДата) - ГОД(_д.лДата) - 1 

			КОНЕЦ

	КОНЕЦ КАК Лет,

	

	ВЫБОР

		КОГДА ГОД(_д.пДата) >= ГОД(_д.лДата) ТОГДА

			ВЫБОР

				КОГДА МЕСЯЦ(_д.пДата) >= МЕСЯЦ(_д.лДата) ТОГДА

					ВЫБОР

						КОГДА ДЕНЬ(_д.пДата) >= ДЕНЬ(_д.лДата) ТОГДА МЕСЯЦ(_д.пДата) - МЕСЯЦ(_д.лДата)

						КОГДА ДЕНЬ(_д.пДата) < ДЕНЬ(_д.лДата) ТОГДА МЕСЯЦ(_д.пДата) - МЕСЯЦ(_д.лДата) - 1

					КОНЕЦ

				КОГДА МЕСЯЦ(_д.пДата) < МЕСЯЦ(_д.лДата) ТОГДА

					ВЫБОР

						КОГДА ДЕНЬ(_д.пДата) >= ДЕНЬ(_д.лДата) ТОГДА 12 + МЕСЯЦ(_д.пДата) - МЕСЯЦ(_д.лДата)

						КОГДА ДЕНЬ(_д.пДата) < ДЕНЬ(_д.лДата) ТОГДА 12 + МЕСЯЦ(_д.пДата) - МЕСЯЦ(_д.лДата) - 1

					КОНЕЦ

			КОНЕЦ

	КОНЕЦ КАК Месяцев,

	

	ВЫБОР

		КОГДА ГОД(_д.пДата) >= ГОД(_д.лДата) ТОГДА

			ВЫБОР

				КОГДА МЕСЯЦ(_д.пДата) >= МЕСЯЦ(_д.лДата) ТОГДА

					ВЫБОР

						КОГДА ДЕНЬ(_д.пДата) >= ДЕНЬ(_д.лДата) ТОГДА ДЕНЬ(_д.пДата) - ДЕНЬ(_д.лДата)

						КОГДА ДЕНЬ(_д.пДата) < ДЕНЬ(_д.лДата) ТОГДА (ДЕНЬ(КОНЕЦПЕРИОДА(_д.лДата,МЕСЯЦ)) - ДЕНЬ(_д.лДата)) + ДЕНЬ(_д.пДата)

					КОНЕЦ

				КОГДА МЕСЯЦ(_д.пДата) < МЕСЯЦ(_д.лДата) ТОГДА

					ВЫБОР

						КОГДА ДЕНЬ(_д.пДата) >= ДЕНЬ(_д.лДата) ТОГДА ДЕНЬ(_д.пДата) - ДЕНЬ(_д.лДата)

						КОГДА ДЕНЬ(_д.пДата) < ДЕНЬ(_д.лДата) ТОГДА (ДЕНЬ(КОНЕЦПЕРИОДА(_д.лДата,МЕСЯЦ)) - ДЕНЬ(_д.лДата)) + ДЕНЬ(_д.пДата) + 1

					КОНЕЦ

			КОНЕЦ

	КОНЕЦ КАК Дней   

 Функция ПолучитьКоличествоДней()

    

    Счетчик = 1;

    НачалоПериода = Объект.НачалоПериода;

    

    Пока НачалоПериода < Объект.КонецПериода Цикл 

        

        Счетчик = Счетчик + 1;

        

        НачалоПериода = НачалоПериода + 86400;

        

    КонецЦикла;

    

    Возврат Счетчик

    

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

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

ОднмМассив = Новый Массив(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-е значение"   

 Процедура ПоискНажатие(Элемент)

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

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

"ВЫБРАТЬ

|	ДокументоОборот.Этап,

|	ДокументоОборот.Отдел,

|	ДокументоОборот.ФИО,

|	ДокументоОборот.ДатаВремя КАК Дата_Время,

|	ДокументоОборот.Документы,

|	ДокументоОборот.Примечание,

|	ДокументоОборот.Доставка

|ИЗ

|	РегистрСведений.ДокументоОборот КАК ДокументоОборот

|ГДЕ

|	ДокументоОборот.Документы ПОДОБНОДокументы

|	И ДокументоОборот.Доставка.Дата МЕЖДУДатаН ИДатаК

|

|УПОРЯДОЧИТЬ ПО

|	ДокументоОборот.ДатаВремя";  

Запрос.УстановитьПараметр("Документы", "%"+СокрЛП(Строка(СтрокаПоиска))+"%");

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

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

Рез=Запрос.Выполнить();

НайденДок = рез.Выгрузить();

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

 &НаСервере

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

    

    // Если руками не создали эелемент формы Таблица, то создается программно

    Если Элементы.Найти(ИмяПоляТаблицыФормы) = Неопределено Тогда

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы, Тип("ТаблицаФормы"),);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция;

    КонецЕсли;

    

    УдаляемыеРеквизиты = Новый Массив;

    РеквизитыДляУдаления = ПолучитьРеквизиты(ИмяРеквизитаДанныеФормыКоллекция);

    Для Каждого РеквизитУдаления Из РеквизитыДляУдаления Цикл

        УдаляемыеРеквизиты.Добавить(ИмяРеквизитаДанныеФормыКоллекция+"."+РеквизитУдаления.Имя);

        // Удаляем элементы формы

        Элементы.Удалить(Элементы[ИмяПоляТаблицыФормы+РеквизитУдаления.Имя]);

    КонецЦикла;

    

    // Добавление реквизитов в таблицу формы

    ДобавляемыеРеквизиты = Новый Массив;

    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл

        ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяРеквизитаДанныеФормыКоллекция, Колонка.Заголовок));

    КонецЦикла;

    ИзменитьРеквизиты(ДобавляемыеРеквизиты,УдаляемыеРеквизиты);

    

    

    // Добавление элементов форму

    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы + Колонка.Имя, Тип("ПолеФормы"), Элементы[ИмяПоляТаблицыФормы]);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция + "." + Колонка.Имя;

        ЭлементРеквизита.Вид = ВидПоляФормы.ПолеВвода;

    КонецЦикла;

    

    ЗначениеВРеквизитФормы(ТаблицаЗначений, ИмяРеквизитаДанныеФормыКоллекция);      

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





&НаСервере

Процедура ВПоискНаСервере()

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

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

	"ВЫБРАТЬ

	|	РеализацияТоваровУслугСерии.Серия КАК Серия,

	|	РеализацияТоваровУслугСерии.Ссылка КАК Реализация,

	|	РеализацияТоваровУслугСерии.Ссылка.ЗаказКлиента КАК ЗаказКлиента,

	|	РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,

	|	РеализацияТоваровУслугСерии.Ссылка.Договор КАК Договор

	|ИЗ

	|	Документ.РеализацияТоваровУслуг.Серии КАК РеализацияТоваровУслугСерии

	|ГДЕ

	|	РеализацияТоваровУслугСерии.Серия В

	|			(ВЫБРАТЬ

	|				СерииНоменклатуры.Ссылка КАК Ссылка

	|			ИЗ

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

	|			ГДЕ

	|				СерииНоменклатуры.Наименование ПОДОБНОНаименование)

	|

	|УПОРЯДОЧИТЬ ПО

	|	Серия

	|АВТОУПОРЯДОЧИВАНИЕ"; 	

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

	РезультатЗапроса = Запрос.Выполнить();

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

	СоздатьТаблицуФормы("ТЗ","ТЗ",ТаблицаЗапроса);

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



&НаКлиенте

Процедура ВПоиск(Команда)

	ВПоискНаСервере();

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

 Процедура ИнициализироватьКарту()

	

	ПутьКФайлу = КаталогВременныхФайлов()+"yamaps.html";

	Ф = новый Файл(ПутьКФайлу);

	Если Ф.Существует() Тогда

		УдалитьФайлы(ПутьКФайлу);

	КонецЕсли; 

	

	Т = новый ТекстовыйДокумент;

	ТД = ЭтотОбъект.ПолучитьМакет("МакетЯндекс");

	Т.УстановитьТекст(ТД.ПолучитьТекст());

	Т.Записать(ПутьКФайлу);

		

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

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





Процедура ВыполнитьСкрипт(Команда) Экспорт 

	ЭлементыФормы.Эксплорер.document.getElementById("WebClientOperation").value = Команда;

	ЭлементыФормы.Эксплорер.document.getElementById("WebClient").click();

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





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

	ИнициализироватьКарту();

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





Процедура ПолучитьКоординатыНажатие(Элемент)

	ВыполнитьСкрипт("GetGEO();");

	ТекКоординаты=ЭлементыФормы.Эксплорер.document.getElementById("geometry").innerText;

	ТекКоординаты=СтрЗаменить(ТекКоординаты,"Координаты: [","");

	МассивСтроки = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(ТекКоординаты, "], [ ");

	Точки.Очистить();

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

		Текстр=СтрЗаменить(стр,"[","");

		Текстр=СтрЗаменить(Текстр,"]","");

		Текстр=СокрЛП(Текстр);

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

		симвЗапятой=Найти(Текстр,","); 

		нСтрок.Широта=Лев(Текстр,симвЗапятой-1);

		нСтрок.Долгота=Сред(Текстр,симвЗапятой+2,СтрДлина(Текстр));

	КонецЦикла;	

	//Сообщить(ТекКоординаты);

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

 <!DOCTYPE html">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>

    <meta http-equiv="X-UA-Compatible" content="IE=9"/>

    <style type="text/css">

	  html { height: 100% }

	  body { height: 100%; margin: 0px; padding: 0px }

	  #map { height: 100% }

	</style>

    <script src="https://api-maps.yandex.ru/2.1/?lang=ru_RU"  type="text/javascript"></script>

	<script src="http://yandex.st/jquery/1.6.4/jquery.min.js" type="text/javascript"></script>	

    <script type="text/javascript">

	var index = 1;

	var MyMap, route;

	var clusterer;

	var PointArray = [];

	var noclick = false;

	

	ymaps.ready(init);

	function init(){  

		myMap = new ymaps.Map ("map", {

			center: [55.75, 37.62],

			zoom: 10

		}),

        polygon = new ymaps.GeoObject({

        geometry: {

            type: "Polygon",

            coordinates: []

        }

  	  });

		myMap.behaviors.enable('scrollZoom');

		myMap.behaviors.disable('dblClickZoom');

			

		myMap.events.add('click', function (e) {

			if (!noclick) {

			//	addMarker(e.get('coords')); 				

			}else{

				noclick = false;

			}

		});

		

		myMap.events.add('drag end', function (e) {

			noclick = true;			

			document.getElementById('CoordX').value = "0";

			document.getElementById('CoordY').value = "0";

		});

		

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

		//clusterer = new ymaps.Clusterer({clusterDisableClickZoom: true, synchAdd: true});

		//myMap.geoObjects.add(clusterer);

		

	myMap.geoObjects.add(polygon);

    polygon.editor.startDrawing();

	$('input').attr('disabled', false);

 

            // Обработка нажатия на любую кнопку.

            $('input').click(

                function () {

                    // Отключаем кнопки, чтобы на карту нельзя было

                    // добавить более одного редактируемого объекта (чтобы в них не запутаться).

                    $('input').attr('disabled', true);

					GetGEO();

                });

	}

	

	function addMarker(coordPosition){

		myPlacemark = new ymaps.Placemark(coordPosition, {

			// Свойства

			// Текст метки

			iconContent: 'Точка'+index

		}, {

			// Опции

			// Иконка метки будет растягиваться под ее контент

			preset: 'islands#blueStretchyIcon'

		});

		myMap.geoObjects.add(myPlacemark);

		

		document.getElementById('CoordX').value = coordPosition[0].toPrecision(15);

		document.getElementById('CoordY').value = coordPosition[1].toPrecision(15);

		index++;

	}

		

	function calcRoute(options){

		ymaps.route(options, {

	        // Опции маршрутизатора

	        mapStateAutoApply: true, // автоматически позиционировать карту

	        avoidTrafficJams: false   // Учитывать пробки

	    }).then(

		    function (router) {

		    route = router;

		        myMap.geoObjects.add(route);

		        

		        //заполняем и сохраняем инфо про маршрут

		        document.getElementById('RouteInfo').value = "Длина маршрута - " + route.getHumanLength() + ". Время - " + route.getHumanJamsTime();

		        

		        //генерация события для перехвата в 1С

		        var evt = document.createEventObject();

  				document.body.fireEvent('ondatasetcomplete', evt);

		    },

		    function (error) {

		        alert("Возникла ошибка: " + error.message);

	    });

	}

	

	function calcLine(options){

		var poly = new ymaps.Polyline(options, {

				hintContent: "Маршрут",

				balloonContent: "Маршрут экспедитора",

				balloonContentHeader: "",

				balloonContentBody: "",

				balloonContentFooter: ""

			}, {

				cursor: "pointer",

				draggable: false,

				hasBalloon: true,

				hasHint: true,

				interactiveZIndex: false,

				opacity: 1,

				openBalloonOnClick: true,

				openEmptyBalloon: false,

				openEmptyHint: false,

				openHintOnHover: true,

				strokeColor: '#E33926',

				strokeOpacity: 0.8,

				strokeStyle: '',

				strokeWidth: 5,

				syncOverlayInit: false,

				visible: true

			});

			myMap.geoObjects.add(poly);	

			myMap.setBounds(poly.geometry.getBounds());

	}

	

	function Reset(){

		// Удаляем все геообъекты на карте

		myMap.geoObjects.removeAll();   		   		

		PointArray = [];

		index = 1;

	}

	

	function ChangeCityMSK(){

		myMap.panTo([55.75, 37.62], {

            flying: 1

        });

	}

	function ChangeCitySPB(){

		myMap.panTo([59.938531, 30.313497], {

            flying: 1

        });

	}

	function ChangeCityKRAS(){

		myMap.panTo([45.04, 38.97], {

            flying: 1

        });

	}

	function ChangePlace(k,d){

		myMap.panTo([k, d], {

            flying: 1

        });

	}





	

	function FindAdres(Adres){

		Reset();

		var myGeocoder = ymaps.geocode(Adres);

		myGeocoder.then(

			function (res){

			var firstGeoObject = res.geoObjects.get(0);

			if(firstGeoObject != null){

				myMap.panTo(

					// Координаты нового центра карты

					firstGeoObject.geometry.getCoordinates(), {

						/* Опции перемещения:

						   разрешить уменьшать и затем увеличивать зум

						   карты при перемещении между точками 

						*/

						flying: true

					}

				);

				

				myPlacemark = new ymaps.Placemark(firstGeoObject.geometry.getCoordinates(), {

					// Свойства

					// Текст метки

					iconContent: Adres

				}, {

					// Опции

					// Иконка метки будет растягиваться под ее контент

					preset: 'islands#blueStretchyIcon'

				});

				myMap.geoObjects.add(myPlacemark);

			}else{

				alert("Ничего не найдено");}

			}

		);

	}

		

	function ReverseSearchAdres(CoordX, CoordY, Adres){

		Reset();

		

		var CoordPosition = [CoordX, CoordY];

		myMap.panTo(

		    // Координаты нового центра карты

		    CoordPosition, {

		        /* Опции перемещения:

		           разрешить уменьшать и затем увеличивать зум

		           карты при перемещении между точками 

		        */

		        flying: true

		    }

		);

		

		myPlacemark = new ymaps.Placemark(CoordPosition, {

			// Свойства

			// Текст метки

			iconContent: Adres

		}, {

			// Опции

			// Иконка метки будет растягиваться под ее контент

			preset: 'islands#blueStretchyIcon'

		});

		myMap.geoObjects.add(myPlacemark);

	}

	

	function addToPointArrayM(CoordX, CoordY, TextC, Text){

	var CoordPosition = [CoordX, CoordY];

	myPlacemark = new ymaps.Placemark(CoordPosition, {

			// Свойства

			// Текст метки

			iconContent: Text

		}, {

			// Опции

			// Иконка метки будет растягиваться под ее контент

			preset: TextC

		});

		myMap.geoObjects.add(myPlacemark);

	}

	

	function addToPointArrayPointOne(CoordX, CoordY, ID, Text){

		var point = new ymaps.GeoObject({

		    geometry: {type: "Point", coordinates: [CoordX, CoordY>,

		    properties: {

		        clusterCaption: ID,

		        iconContent: ID, 

		        hintContent: ID,  

		        balloonContent: Text, 

		        balloonContentBody: Text

		    }

			});

		myMap.geoObjects.add(point);

	}





	function addToPointArray(CoordX, CoordY, ID, Text){

		var point = new ymaps.GeoObject({

		    geometry: {type: "Point", coordinates: [CoordX, CoordY>,

		    properties: {

		        clusterCaption: ID,

		        iconContent: ID, 

		        hintContent: ID,  

		        balloonContent: Text, 

		        balloonContentBody: Text

		    }

			});

		PointArray.push(point);

	}

	

	function drawCluster(){

		clusterer.add(PointArray);

		myMap.geoObjects.add(clusterer);

	}	

	

	function createPolygon(ArrayPoint, Name, color) {

		// Создаем многоугольник

        myPolygon = new ymaps.Polygon([

            // Координаты вершин внешней границы многоугольника.

            ArrayPoint

        ], {

            //Свойства

            hintContent: Name

        }, {

            // Опции.

            // Цвет заливки (зеленый)

            fillColor: color,

            // Цвет границ (синий)

            strokeColor: '#0000FF',

            // Прозрачность (полупрозрачная заливка)

            opacity: 0.6,

            // Ширина линии

            strokeWidth: 5,

            // Стиль линии

            strokeStyle: 'shortdash'

        });

            

        myMap.geoObjects.add(myPolygon);

    }	

    

    function WebClientClick() {

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

    	document.getElementById('CoordX').value = "0";

		document.getElementById('CoordY').value = "0";

    	

    	var WebClientOperation = document.getElementById("WebClientOperation").value;

		//alert(WebClientOperation);

		switch (WebClientOperation) {

        	case "0":   // ничего не делаем

        	   var a = 1; 

        	default:   // запускаем функцию

        	    eval(WebClientOperation);

        }

        document.getElementById('WebClientOperation').value = "0";

	} 

	

function GetGEO(){

polygon.editor.stopEditing(); 

printGeometry(polygon.geometry.getCoordinates());

}

// Выводит массив координат геообъекта в <div id="geometry">

function printGeometry (coords) {

$('#geometry').html('Координаты: ' + stringify(coords));





function stringify (coords) {

	var res = '';

	if ($.isArray(coords)) {

		res = '[ ';

		for (var i = 0, l = coords.length; i < l; i++) {

			if (i > 0) {

				res += ', ';

			}

			res += stringify(coords[i]);

		}

		res += ' ]';

	} else if (typeof coords == 'number') {

		res = coords.toPrecision(6);

	} else if (coords.toString) {

		res = coords.toString();

	}





	return res;

}

}   		

    </script>

</head>





<body>

<div id="geometry"/></div>

<div id="map" style="width:100%; height:100%"></div>

    <input type="hidden" id="CoordX" name="CoordX" value="0"></input>

    <input type="hidden" id="CoordY" name="CoordY" value="0"></input>

    <input type="hidden" id="RouteInfo" name="RouteInfo" value=""></input>

    <input type="hidden" id="WebClientOperation" name="WebClientOperation" value="0"></input>

    <input type="hidden" id="WebClient" name="WebClient" onclick="WebClientClick();"></input>

    <!-- <input type="button" value="Завершить редактирование" id="stopEditPolyline"/> -->

</body>

</html>   

 

Функция ABS(Число) 

   Если Число<0 Тогда 

       Возврат -1*Число; 

   Иначе 

       Возврат Число; 

   КонецЕсли; 

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



Функция РастояниеВМетрахОтДо(Ширина1,Долгота1,Ширина2,Долгота2)

	Пи=3.14; РадиусЗ = 6372795; 

	Расстояние = РадиусЗ*ATAN(Sqrt(Pow(COS(Пи*Ширина2/180)*SIN(ABS(Пи*Долгота2/180-Пи*Долгота1/180)),2)+Pow(COS(Пи*Ширина1/180)*SIN(Пи*Ширина2/180)-SIN(Пи*Ширина1/180)*COS(Пи*Ширина2/180)*COS(ABS(Пи*Долгота2/180-Пи*Долгота1/180)),2))/(SIN(Пи*Ширина1/180)*SIN(Пи*Ширина2/180)+COS(Пи*Ширина1/180)*COS(Пи*Ширина2/180)*COS(ABS(Пи*Долгота2/180-Пи*Долгота1/180)))); 

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

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



//Пример 2

Функция ПросчитатьРастояниеОтДо(ШиротаКоординаты1,ДолготаКоординаты1,ШиротаКоординаты2,ДолготаКоординаты2)

//    cos(d) = sin(φА)*sin(φB) + cos(φА)*cos(φB)*cos(λА − λB),

//    где φА и φB & широты, λА, λB & долготы данных пунктов, d & расстояние между пунктами, измеряемое в радианах 

//      длиной дуги большого круга земного шара. 

//    Расстояние между пунктами, измеряемое в километрах, определяется по формуле:

//    L = d·R,

//    где R = 6371 км & средний радиус земного шара.

    Возврат (ASin(sin(ШиротаКоординаты1)*sin(ШиротаКоординаты2) + cos(ШиротаКоординаты1)*cos(ШиротаКоординаты2)*cos(ДолготаКоординаты1 - ДолготаКоординаты2)))*6371;     

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

 select a.usename, count(l.pid) from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where not(mode = ‘AccessShareLock’) group by a.usename;   

 SELECT tableName, pg_size_pretty(pg_total_relation_size(CAST(tablename as text))) as size

from pg_tables

where tableName not like ‘sql_%’ and pg_size_pretty(pg_total_relation_size(CAST(tablename as text))) like ‘%MB%’;   

 SELECT tableName, pg_size_pretty(pg_total_relation_size(CAST(tablename as text))) as size

from pg_tables

where tableName not like ‘sql_%’

order by size;   

 select a.usename, t.relname, a.current_query, mode from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid inner join pg_stat_all_tables t on t.relid=l.relation where t.relname = ‘tablename’;   

 select relation::regclass, mode, a.usename, granted, pid from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where not mode = ‘AccessShareLock’ and relation is not null;   

 select a.usename, a.current_query, mode from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where mode ilike ‘%exclusive%’;   

 select a.usename, count(l.pid) from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where not(mode = ‘AccessShareLock’) group by a.usename;   

 select count(usename), usename from pg_stat_activity group by usename order by count(usename) desc;   

 Процедура ЗагрузитьИзВИБ(ВходнойПараметр,АдресВХранилище) Экспорт

    //Из структуры перегоняем данные в переменные

    ТаблицаДляЗаполнения = ВходнойПараметр.ТаблицаДляЗаполнения;

    ДанныеОбъекта = ВходнойПараметр.ДанныеОбъекта;



    //Тут идет собственно загрузка данных

    ВыполнитьЗагрузку(ТаблицаДляЗаполнения,ДанныеОбъекта);



    //Возвращаем данные из фоновой задачи в хранилище

    ПоместитьВоВременноеХранилище(ТаблицаДляЗаполнения, АдресВХранилище);

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

 МассивАдресовВХранилище = Новый Массив;

МассивЗапущенныхЗаданий = Новый Массив;

Сч = 1;

Пока Сч <=  КоличествоПотоков Цикл

    Ключ = Новый УникальныйИдентификатор;

    ВходнойПараметр = Новый Структура;

    ВходнойПараметр.Вставить("ТаблицаДляЗаполнения",ТаблицаДляЗаполнения);

    ВходнойПараметр.Вставить("ДанныеОбъекта",ДанныеОбъекта);



    //Подготовим адрес в хранилище

    АдресВХранилище = ПоместитьВоВременноеХранилище(Неопределено);

    МассивПараметров = Новый Массив;

    МассивПараметров.Добавить(ВходнойПараметр);

    МассивПараметров.Добавить(АдресВХранилище);

    МассивАдресовВХранилище.Добавить(АдресВХранилище);



    МассивЗапущенныхЗаданий.Добавить(ФоновыеЗадания.Выполнить("ОбщийМодульСервер.ЗагрузитьИзВИБ",МассивПараметров, Ключ, "Загрузка"));

    Сч = Сч + 1;

КонецЦикла;   

 Для Каждого ТекАдресВХранилище Из МассивАдресовВХранилище Цикл

    ТекТаблица = ПолучитьИзВременногоХранилища(ТекАдресВХранилище);





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

        НоваяСтрока = НашаОбщаяТаблица.Добавить();

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

    КонецЦикла;

КонецЦикла;   

 // Возвращает содержимое ответа HTTP-сервера, полученного методом GET, в виде строки или двоичных данных

// ** Coded by Sergey (aka Porutchik) * 2014 http://forum.aeroion.ru/cat1.html //

// Параметры

//  СерверПриемник - <Строка> - доменное имя сервера или полный адрес (url) запрашиваемой ссылки.

//                        Может включать протокол (http://, https://) и порт.

//  АдресСтраницы - <Строка> - опционально. Адрес страницы на сервере без протокола (http://, https://),

//                        доменного имени сервера (хоста) и порта.

//                Если не указано, адрес страницы будет извлечён из параметра СерверПриемник

//  ПараметрыСоединения - <Структура> - опционально. Структура, содержащая дополнительные параметры для HTTPСоединение.

//                Назначение ключей:

//                Логин или Пользователь - Тип Строка - Имя пользователя на указанном сервере.

//                Пароль - Тип Строка - Пароль пользователя на указанном сервере.

//                Прокси - Тип ИнтернетПрокси - Прокси, используемый для соединения с сервером.

//                Таймаут - Тип Число - Таймаут осуществляемого соединения и операций, в секундах. 0 - не устанавливать таймаут..

//  ЗаголовкиHTTP  - <Соответствие> - опционально.

//                Заголовки, которые будут отправлены на сервер в виде соответствия: "Заголовок" - "Значение".

//                Если указано, функция возвратит в программу заголовки HTTP-ответа с кодом состояния в ключе StatusCode,

//                имя файла в ключе FileName, url-кодированное имя в ключе EncodeFileName

//  ПолучитьКакДвоичныеДанные - <Булево> - опционально. Определяет, в каком виде получить содержимое ответа сервера

//                            По умолчанию Ложь.

//  ЗащищенноеСоединение - <Булево> - опционально. По умолчанию Ложь.

//                            Если Истина, соединение будет происходить по протоколу https://

//

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

//   <Строка>, <ДвоичныеДанные> - содержимое ответа сервера, если ресурс найден по указанному адресу.

//

Функция ПолучитьСодержимоеВебАдреса(Знач СерверПриемник, Знач АдресСтраницы = "",

                Знач ПараметрыСоединения = Неопределено, ЗаголовкиHTTP = Неопределено,

                Знач ПолучитьКакДвоичныеДанные = Ложь, Знач ЗащищенноеСоединение = Ложь) Экспорт

    Перем ИмяФайлаОтветаКодированное, ИмяФайлаОтвета, Порт, Логин, Пользователь, Пароль, Прокси, Таймаут;



    Если Не ЗначениеЗаполнено(СерверПриемник) Тогда Возврат Неопределено; КонецЕсли;

    Если ТипЗнч(ЗаголовкиHTTP) <> Тип("Соответствие") Тогда ЗаголовкиHTTP = Новый Соответствие; КонецЕсли;

    Если Найти(Нрег(СерверПриемник), "https://") = 1 Тогда ЗащищенноеСоединение = Истина; КонецЕсли;



    Протокол = ?(Найти(Нрег(СерверПриемник), "https://") = 1 ИЛИ ЗащищенноеСоединение, "https://", "http://");

    Если Лев(НРег(СерверПриемник), СтрДлина(Протокол)) = Протокол Тогда

        СерверПриемник = Сред(СерверПриемник, СтрДлина(Протокол) + 1);

    КонецЕсли;



    Если НЕ ЗначениеЗаполнено(АдресСтраницы) Тогда

        Позиция = Найти(СерверПриемник, "/");

        Если Позиция > 0 Тогда

            АдресСтраницы = Сред(СерверПриемник, Позиция, СтрДлина(СерверПриемник));

            СерверПриемник = Лев(СерверПриемник, Позиция - 1);

        Иначе

            АдресСтраницы = "/";

        КонецЕсли;

    КонецЕсли;



    СерверПриемник = СтрЗаменить(СерверПриемник, "/", "");



    //Выделяем порт из доменного имени

    ПозицияДвоеточия = Найти(СерверПриемник, ":");

    Если ПозицияДвоеточия > 0 Тогда

        Порт = Число(Сред(СерверПриемник, ПозицияДвоеточия + 1));

        СерверПриемник = Лев(СерверПриемник, ПозицияДвоеточия - 1);

    КонецЕсли;



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

        Для каждого КлючЗначение из ПараметрыСоединения Цикл

            Значение = КлючЗначение.Значение; Выполнить(КлючЗначение.Ключ + " = Значение;");

        КонецЦикла;

        Пользователь = ?(ЗначениеЗаполнено(Пользователь), Пользователь, Логин);

    КонецЕсли;

    НТТР = Новый HTTPСоединение(СерверПриемник, Порт, Пользователь, Пароль, Прокси, Таймаут,

                        ?(ЗащищенноеСоединение, Новый ЗащищенноеСоединениеOpenSSL(), Неопределено));



    //Ответ от сервера получим в возвращаемом значении типа HTTPОтвет

    ОтветHTTP = НТТР.Получить(Новый HTTPЗапрос(АдресСтраницы, ЗаголовкиHTTP)); //

    ОшибкаЗапроса = (ОтветHTTP.КодСостояния >= 400);



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

    //http://www.w3.org/Protocols/rfc2616/rfc2616-sec10....     //Если сервер вернул один из статусов переадресации

    //301 Moved Permanently («перемещено навсегда») или 302 Moved Temporarily («перемещено временно»),

    //то в этом случае можно попытаться перейти на ресурс, на который переадресовал сервер

    Если ОтветHTTP.КодСостояния = 301 или ОтветHTTP.КодСостояния = 302 Тогда



        Если ОтветHTTP.Заголовки.Количество() > 0 Тогда

            //Адрес страницы переадресации содержится в поле Location заголовка ответа

            АдресСтраницы = ОтветHTTP.Заголовки["Location"]; //

            Если ЗначениеЗаполнено(АдресСтраницы) Тогда

                Если Найти(НРег(АдресСтраницы), "http://") = 0 И Найти(НРег(АдресСтраницы), "https://") = 0 Тогда

                    АдресСтраницы = ?(Лев(АдресСтраницы, 1) = "/", Сред(АдресСтраницы, 2), АдресСтраницы);

                    Если Найти(АдресСтраницы, СерверПриемник + "/") = 0  Тогда

                        АдресСтраницы = Протокол + СерверПриемник + ?(ЗначениеЗаполнено(Порт), ":" + Порт, "") + "/" + АдресСтраницы;

                    КонецЕсли;

                КонецЕсли;



                //Если сервер вернул cookies (http://ru.wikipedia.org/wiki/HTTP_cookie, http://www.faqs.org/rfcs/rfc6265.html?#41;,                 //вставим их в заголовки для передачи на страницу перехода

                Куки = ОтветHTTP.Заголовки["Set-Cookie"];//

                Если ЗначениеЗаполнено(Куки) Тогда ЗаголовкиHTTP.Вставить("Cookie", Куки); КонецЕсли;



                //Рекурсивный вызов

                Возврат ПолучитьСодержимоеВебАдреса(АдресСтраницы, , , ЗаголовкиHTTP, ПолучитьКакДвоичныеДанные, ЗащищенноеСоединение);//



            КонецЕсли;

        КонецЕсли;



    ИначеЕсли ОтветHTTP.КодСостояния >= 100 И ОтветHTTP.КодСостояния <= 200 Тогда

        //Статус ответа в интервале между 100 и 200 Ok говорит о нормальном результате HTTP-запроса

        Если ОтветHTTP.Заголовки.Количество() > 0 Тогда

            ТипСодержимого = ОтветHTTP.Заголовки["Content-Type"];

            //http://ru.wikipedia.org/wiki/Список_MIME-типов             Если Найти(ТипСодержимого, "text/") = 1 ИЛИ Найти(ТипСодержимого, "/javascript")

                ИЛИ Найти(ТипСодержимого, "+xml") ИЛИ Найти(ТипСодержимого, "/xml") <> 0 ИЛИ Найти(ТипСодержимого, "/json") <> 0 Тогда

                ПолучитьКакДвоичныеДанные = Ложь;

            ИначеЕсли Найти(ТипСодержимого, "image/") = 1 ИЛИ Найти(ТипСодержимого, "video/") = 1 

                ИЛИ Найти(ТипСодержимого, "application/") = 1 ИЛИ Найти(ТипСодержимого, "audio/") = 1 Тогда

                //Если содержимое полученного ответа представляет собой изображение, видео, приложение,

                //возвращаем двоичные данные, так как возвращать в виде строки не имеет смысла.

                ПолучитьКакДвоичныеДанные = Истина;

            КонецЕсли;

            //Некоторые сервера возвращают в типе содержимого имя отданного файла, например image/png; name="Имя файла.png"

            //или отдают в заголовке Content-Disposition: attachment; filename=Имя файла.png (http://www.http11.ru/post.php?post=2)             Если ОтветHTTP.Заголовки["Content-Disposition"] <> Неопределено Тогда

                ТипСодержимого = ОтветHTTP.Заголовки["Content-Disposition"];

            КонецЕсли;

            ТипСодержимого = СтрЗаменить(СтрЗаменить(ТипСодержимого, """", ""), "'", "");



            //в ключе filename*=UTF-8'' содержится url-кодированное имя файла

            ПозицияИмениФайла = Найти(ТипСодержимого, "filename*=UTF-8");

            Если ПозицияИмениФайла <> 0 Тогда

                ИмяФайлаОтветаКодированное = Сред(ТипСодержимого, ПозицияИмениФайла + СтрДлина("filename*=UTF-8"));

                ПозицияДвоеточия = Найти(ИмяФайлаОтветаКодированное, ";");

                Если ПозицияДвоеточия <> 0 Тогда

                    ИмяФайлаОтветаКодированное = Лев(ИмяФайлаОтветаКодированное, ПозицияДвоеточия - 1);

                КонецЕсли;

            КонецЕсли;



            //в ключе filename= содержится обычное имя файла

            ПозицияИмениФайла = Найти(ТипСодержимого, "name=");

            Если ПозицияИмениФайла <> 0 Тогда

                ИмяФайлаОтвета = Сред(ТипСодержимого, ПозицияИмениФайла + СтрДлина("name="));

                ПозицияДвоеточия = Найти(ИмяФайлаОтвета, ";");

                Если ПозицияДвоеточия <> 0 Тогда

                    ИмяФайлаОтвета = Лев(ИмяФайлаОтвета, ПозицияДвоеточия - 1);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

    КонецЕсли;



    ЗаголовкиHTTP = ОтветHTTP.Заголовки;

    //Добавляем в заголовки ответа код состояния (ответа) HTTP-сервера и имя файла содержимого, если есть.

    ЗаголовкиHTTP.Вставить("StatusCode", ОтветHTTP.КодСостояния);

    Если ЗначениеЗаполнено(ИмяФайлаОтвета) Тогда ЗаголовкиHTTP.Вставить("FileName", ИмяФайлаОтвета); КонецЕсли;

    Если ЗначениеЗаполнено(ИмяФайлаОтветаКодированное) Тогда

        ЗаголовкиHTTP.Вставить("EncodeFileName", ИмяФайлаОтветаКодированное);

    КонецЕсли;



    Если ОшибкаЗапроса ИЛИ НЕ ПолучитьКакДвоичныеДанные Тогда Возврат ОтветHTTP.ПолучитьТелоКакСтроку(); КонецЕсли;

    Возврат ОтветHTTP.ПолучитьТелоКакДвоичныеДанные();



КонецФункции // ПолучитьСодержимоеВебАдреса()







//Источник: http://forum.aeroion.ru/topic749.html   

 #Область ПОИСК_КОНТРАГЕНТОВ

Функция ПоискКонтрагентаПоПаспортнымДанным()

	//Код	

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

Функция ПоискКонтрагентаПоНаименованию()

	//Код

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

#КонецОбласти

#Область ИМПОРТ_КОНТРАГЕНТОВ

Функция ИмпортКонтрагентаИзExcel()

	//Код	

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

Функция ИмпортКонтрагентаИзJSON()

	//Код

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

#КонецОбласти