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

	

	ПутьКФайлу = КаталогВременныхФайлов()+"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>   

 <!DOCTYPE html>

<html>

<head>

<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />

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

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

<style type="text/css">

  html { height: 100% }

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

  #map { height: 100% }

</style>

<script type="text/javascript" src="http://maps.google.com/maps/api/js?v=3.9&sensor=false"></script>

<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js" type="text/javascript"></script>

<script type="text/javascript" src="http://www.sitedev.by/lab/markerclusterer/markerclusterer.js"></script>

<script type="text/javascript">

	var latlng;

	var markers = [];

	var myMap;

	var index = 1;

	var directionsDisplay;

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

	var infoWindow = new google.maps.InfoWindow;

	var clusterer, mcOptions;

	var trafficLayer = new google.maps.TrafficLayer();

	var trafficOn = false;

	var noclick = false;

	var PointArray = [];

	var polygons = [];





  	function initialize() {

  		directionsDisplay = new google.maps.DirectionsRenderer();

		latlng = new google.maps.LatLng(55.75, 37.62);

	  	var myOptions = {

		  zoom: 12,

		  center: latlng,

		  mapTypeId: google.maps.MapTypeId.ROADMAP,

		  disableDoubleClickZoom: true,

		  panControl: true,

		  zoomControl: true,

		  mapTypeControl: true,

		  scaleControl: true,

		  streetViewControl: true,

		  overviewMapControl: true

		};

		myMap = new google.maps.Map(document.getElementById("map"),

	       myOptions);

	       

	    google.maps.event.addListener(myMap, 'dragend', function() {

        	noclick = true;			

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

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

        });

        

        google.maps.event.addListener(myMap, 'click', function(event) {

	    	infoWindow.close();

	    	if (!noclick) {

				addMarker(event.latLng);

	      	}else{

	      		noclick = false;

	      	}

	    });          

	    

	    mcOptions = {gridSize: 3, maxZoom: 15};

	    clusterer = new MarkerClusterer(myMap, markers, mcOptions);

	    

	    //отображение кнопки управления трафиком - все спер с примера, только подцепил свою функцию

	    var trafficControlDiv = document.createElement('div');

        

        trafficControlDiv.style.padding = '5px';





        // Set CSS for the control border

        var controlUI = document.createElement('div');

        controlUI.style.backgroundColor = 'white';

        controlUI.style.borderStyle = 'solid';

        controlUI.style.borderWidth = '2px';

        controlUI.style.cursor = 'pointer';

        controlUI.style.textAlign = 'center';

        controlUI.title = 'нажмите для вкл/выкл трафика';

        trafficControlDiv.appendChild(controlUI);





        // Set CSS for the control interior

        var controlText = document.createElement('div');

        controlText.style.fontFamily = 'Arial,sans-serif';

        controlText.style.fontSize = '12px';

        controlText.style.paddingLeft = '4px';

        controlText.style.paddingRight = '4px';

        controlText.innerHTML = '<b>Трафик</b>';

        controlUI.appendChild(controlText);





        google.maps.event.addDomListener(controlUI, 'click', function (){

			if (!trafficOn){

				trafficOn = true;

				trafficLayer.setMap(myMap);

			}else{

				trafficOn = false;

				trafficLayer.setMap(null);

			}

			});





        trafficControlDiv.index = 1;

        myMap.controls[google.maps.ControlPosition.TOP_RIGHT].push(trafficControlDiv);

	};

  

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

	function addMarker(location) {

		marker = new google.maps.Marker({

			position: location,

			map: myMap,

			title: 'Точка'+index

		});

		infoWindow.setContent(marker.title);

        infoWindow.open(myMap, marker);

		

		google.maps.event.addListener(marker, 'click', function(){

			 var mark = this;

		     var latLng = mark.getPosition();

		     infoWindow.setContent(mark.title);

             infoWindow.open(myMap, mark);});

		

		markers.push(marker);

		index++;

		

		document.getElementById('CoordX').value = location.lat();

		document.getElementById('CoordY').value = location.lng();

	}

	

	function calcRoute(options) {

	  //вытягиваем из массива переданных параметров значения

	  //и преобразуем их в формат LatLng

	  var option1 = options[0];//начальная точка 

	  var option2 = options[1];//промежуточные точки

	  var option3 = options[2];//конечная точка

	  var start = new google.maps.LatLng(option1[0], option1[1]);  //первый

	  var end = new google.maps.LatLng(option3[0], option3[1]); //последний

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

	  var waypts = [];

	  if(option2.length > 0) {

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

	  		temp = option2[i]; 

			Qcoord = new google.maps.LatLng(temp[0], temp[1])

			waypts.push({

	          location:Qcoord,

	          stopover:true

	      });

		} 

	  }	 

	  //return;

	  var request = {

	      origin: start,

	      destination: end,

	      waypoints: waypts,

	      optimizeWaypoints: true,

	      travelMode: google.maps.TravelMode.DRIVING

	  };

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

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

	    	directionsDisplay.setMap(myMap);

	    	directionsDisplay.setDirections(response);

	      

	    	var total = 0; 

		    var myroute = response.routes[0];

		 

		    for (i = 0; i < myroute.legs.length; i++) {		 

		      total += myroute.legs[i].distance.value;		 

		    }

		  	total = total / 1000;

		  	document.getElementById('RouteInfo').value = "Длина маршрута - " + total + "км.";

	        

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

	        var evt = document.createEventObject();

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

	    }else{

	    	alert(status);

	    }

	  });

	}

	

	function Reset(){

		directionsDisplay.setMap(null);

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

          markers[i].setMap(null);

        }

		markers = [];

		index = 1;

		

		//обнуляем кластер маркеров

		clusterer.clearMarkers();

		

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

          polygons[i].setMap(null);

        }

		polygons = [];

		PointArray = [];

	}

	

	function FindAdres(Adres){

		Reset();

		var geocoder = new google.maps.Geocoder();

	    geocoder.geocode( { 'address': Adres}, function(results, status) {

	      if (status == google.maps.GeocoderStatus.OK) {

	        latlng = results[0].geometry.location;

			myMap.panTo(latlng);

			

			 marker = new google.maps.Marker({

	            map: myMap,

	            position: latlng,

	            animation: google.maps.Animation.BOUNCE,

	            title:Adres

	        });

	        

	        markers.push(marker);

	        

	        infoWindow.setContent(marker.title);

        	infoWindow.open(myMap, marker);

	      } else {

	        alert("Ничего не найдено: " + status);

	      }

	    });

	}

	

	function ReverseSearchAdres(CoordX, CoordY, Adres){

		Reset();

		latlng = new google.maps.LatLng(CoordX, CoordY);

		myMap.panTo(latlng);

		

		var marker = new google.maps.Marker({

	        map: myMap,

            position: latlng,

            animation: google.maps.Animation.BOUNCE,

            title:Adres

        });

        

        markers.push(marker);

        

        infoWindow.setContent(marker.title);

        infoWindow.open(myMap, marker);

	}

	

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

		var latLng = new google.maps.LatLng(CoordX, CoordY);

	  	var point = new google.maps.Marker({'position': latLng, title: Text,  icon: IconT});

	  	PointArray.push(point);

	}

	

	function drawCluster(){

		clusterer.addMarkers(PointArray);

		//myMap.geoObjects.add(clusterer);

	}	

	

	function createPolygon(ArrayPoint, Name, color) {

		//создаем массив координат вершин многоугольника

		var paths = [];

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

	  		var temp = ArrayPoint[i]; 

			Qcoord = new google.maps.LatLng(temp[0], temp[1])

			paths.push(Qcoord);

		};

	

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

		myPolygon = new google.maps.Polygon({

		    paths: paths,

		    strokeColor: color,

		    strokeOpacity: 0.6,

		    strokeWeight: 5,

		    fillColor: "#0000FF"

		  });

                    

        myPolygon.setMap(myMap);

        polygons.push(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";

	}

</script>

</head>





<body onload="initialize()">

    <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>

</body>

</html>   

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

	

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

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

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

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

	КонецЕсли; 

	

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

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

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

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

	

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

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





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

	ЭлементыФормы.Эксплорер.Документ.parentWindow.eval("Reset()");

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



//к сожалению, другого спососба получить "внутрь 1С" информацию о действии пользователя на карте я не сумел

//действие пользователя на карте изменяет поле HTML-документа, но не вызывает никакого события в 1с-ке  

// поэтому через обработчикОжидания делаю непрерывный  опрос карты

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

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

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



// вывод точек на карту

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

	

	ОчиститьКарту();

	СписокВидов = Новый СписокЗначений;

	Для Каждого стр из ВыборВывода Цикл

		   если стр.пометка тогда СписокВидов.Добавить(стр.наименование); КонецЕсли;

	   КонецЦикла;

	табАдресов.Очистить();

	

	табАдресов = получитьтабАдресов(СписокВидов);

	табУникальныхАдресов = табАдресов.скопировать();

	табУникальныхАдресов.свернуть("Уник");

	тзДанных = табАдресов.скопировать();

	табАдресов.очистить();

	Для Каждого стр из табУникальныхАдресов Цикл 

		Отбор = Новый Структура();

		Отбор.Вставить("Уник",стр.Уник);

		Строки = тзДанных.НайтиСтроки(Отбор); 		

		НовСтр = табАдресов.добавить();

		НовСтр.уник = стр.уник;

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

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

				  НовСтр.Адрес = тздстр.Адрес;

				  НовСтр.КД = тздстр.КД;

				  НовСтр.КШ = тздстр.КШ;

                  НовСтр.ВидОбъекта = тздстр.ВидОбъекта;

				  НовСтр.Наименование=Строка(НовСтр.Наименование)+Строка(тздстр.Наименование)+"; ";

			КонецЦикла;	

			КонецЕсли;

	КонецЦикла;	

	ЭлементыФормы.табАдресов.СоздатьКолонки();





	ВыборМасштаба = "50%";

	ВыборРегиона = "Москва";

	ЭлементыФормы.Надпись24.Заголовок = "Точек: "+Строка(табАдресов.количество());





	

	Кол = табАдресов.Количество();

	Индекс = 0;

	Для Каждого ТекСтрока Из табАдресов Цикл Индекс = Индекс + 1;  Если НЕ ЗначениеЗаполнено(ТекСтрока.КД) тогда Продолжить; КонецЕсли;

		Широта = формат(ТекСтрока.КШ, "ЧРД=.");

		Долгота = формат(ТекСтрока.КД, "ЧРД=.");

		СодержимоеТочки = СокрЛП(ТекСтрока.ВидОбъекта)+": "+ СокрЛП(ТекСтрока.адрес);  //опять же можно вставить свое название

		Попытка

		ЭлементыФормы.Эксплорер.Документ.parentWindow.eval("addToPointArray(" + Широта + "," + Долгота + ", '" + Строка(Индекс) + "', '" + СокрЛП(ТекСтрока.ВидОбъекта.ПутьКИконке)+ "', """ + СодержимоеТочки + """);");

	Исключение

		Сообщить("addToPointArray(" + Широта + "," + Долгота + ", '" + Строка(Индекс) + "', '" + СокрЛП(ТекСтрока.ВидОбъекта.ПутьКИконке)+ "', """ + СодержимоеТочки + """);",СтатусСообщения.Внимание);

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

		Состояние("Вывожу на карту " + Индекс + " из " + кол); 		

	КонецЦикла;

	

	ЭлементыФормы.Эксплорер.Документ.parentWindow.eval("drawCluster();");



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

     <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 

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

    <head>

        <title>Примеры. Геокодирование.</title>

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

        <script src="http://api-maps.yandex.ru/1.1/index.xml?key=ANpUFEkFAAAAf7jmJwMAHGZHrcLKDsbEqEVjEUtCmufxQMwAAAAAAAAAAAAvVrubVT4btztbduoIgTLAeFILaQ==" type="text/javascript"></script> 

        <script type="text/javascript"> 

	    var router;

	    var myPoints = new Array();

	    var myRouts = new Array();

	    var strOpen = "OPEN";

	    var strKontr = "Kontragent";

		var t = new YMaps.Template('<b>$[name]</b><div id="descrID" >$[description]</div>');	

		YMaps.Templates.add("my#template", t);

	    var KopdinatShirota = 0;

	    var KopdinatDolgota  = 0;

	    var UID_Zakaza  = "";

	    /*vstavkaStiley;

	    var map, geoResult;

         YMaps.jQuery(function () {

                map = new YMaps.Map(YMaps.jQuery("#YMapsID")[0]);

                map.setCenter(new YMaps.GeoPoint(37.62, 55.75), 12);

	        });

        function showAddress (value, contrag, Styles, UID) {

               var geocoder = new YMaps.Geocoder(value, {results: 1, boundedBy: map.getBounds()});

               YMaps.Events.observe(geocoder, geocoder.Events.Load, function () {

                   if (this.length()) {

                       geoResult = this.get(0);

			var point = new YMaps.GeoPoint(geoResult._point.__lng, geoResult._point.__lat);   

	      var placemark = new YMaps.Placemark(point, {style: Styles});

			placemark.name = UID; 

	       placemark.description = contrag;

   	    	myPoints.push(placemark);

	                  map.addOverlay(placemark);

      				  return placemark; 

	}else {

                }

            });

           YMaps.Events.observe(geocoder, geocoder.Events.Fault, function (geocoder, error) {

              alert("Произошла ошибка: " + error);

              return null;

         })

    }

        function showAddressCoord (shirota, dolgota, contrag, Styles, UID) {

		var point = new YMaps.GeoPoint(dolgota, shirota);   

	    var placemark = new YMaps.Placemark(point, {style: Styles});

			placemark.name = UID; 

	       placemark.description = contrag;

   	    	myPoints.push(placemark);

	                  map.addOverlay(placemark);

      				  return placemark;  

	    }

    

    function removeAllOverlays (map) {

     	map.removeAllOverlays();

    }

	function AddRoute(wayPoint1, wayPoint2)	{

		if (myRouts.length>0) {lastRouter = myRouts[myRouts.length-1]; map.removeOverlay(lastRouter)};

    	var myRouter = new YMaps.Router([wayPoint1, wayPoint2], [], {viewAutoApply: true});

        map.addOverlay(myRouter);

		YMaps.Events.observe(myRouter, myRouter.Events.Success, function (myRouter) {

		    myRouter.getWayPoint(0).setIconContent('Начало маршрута');

		    myRouter.getWayPoint(1).setIconContent('Конец маршрута');

            dlMar = myRouter.getDistance()/1000;

            document.title = 'Дистанция: '+ dlMar.toFixed(2);

            });  

        myRouts.push(myRouter);

        return true;

        }

        

    function mapRazmer(map, SentrSh, SentrDlg, razmer) {

    	map.setCenter(new YMaps.GeoPoint(SentrSh, SentrDlg), razmer);   

    }



   function changeStyle(numTochki, imStyle){

   

   		var restoreDefault = true;

   

   		tochka = myPoints[numTochki];

   	    tochka.setOptions({style: imStyle}, restoreDefault);

   	    point = tochka.getCoordPoint();

        map.setCenter(new YMaps.GeoPoint(point.__lng, point.__lat), 12);

        map.redraw();

        

        return tochka.description;

   } 

    </script>

    </head>

    <body //~~onload~~> 

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

    </form>

    </body>         

    </html>   

 //берем HTML-текст из макета и доделываем его

//создаем столько стилей, сколько есть различных картинок в папке "icons_"

//Загружаем в поле HTML-документа 

//и позиционируем центр карты на Москву

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

	

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

	КодХТМЛ = Макет.ПолучитьТекст();

	

	СтрокаСтиляНачальная = "var BurG = new YMaps.Style();

		|BurG.iconStyle = new YMaps.IconStyle();

		|BurG.iconStyle.offset = new YMaps.Point(-12, -12);

		|BurG.iconStyle.href = ""http://www.burgerking.ru/favicon.ico"";

		|BurG.iconStyle.size = new YMaps.Point(20, 20);

		|BurG.hideIcon = false;

		|BurG.balloonContentStyle = new YMaps.BalloonContentStyle(""my#template"");";

		

	СтрокаСтиляИтоговая = "";

	//

	//имяКаталогаКартинок = "D:\!1C\MAPS\icons_";

	//КаталогКартинок = Новый Файл(имяКаталогаКартинок);

	//Если КаталогКартинок.ЭтоКаталог() тогда

	//	списокИменКартинок = новый таблицаЗначений;

	//	списокИменКартинок.Колонки.Добавить("ИмяСтиля");

	//	списокИменКартинок.Колонки.Добавить("ИмяФайлаКартинки");

	//	МассивНайденных = НайтиФайлы(имяКаталогаКартинок, "*.gif");

	//	Для Каждого Файл из МассивНайденных Цикл 

	//		

	//		времСтрокаСтиля = СтрокаСтиляНачальная;

	//		времСтрокаСтиля = стрЗаменить(времСтрокаСтиля, "BurG", сокрЛП(Файл.ИмяБезРасширения));

	//		времСтрокаСтиля = стрЗаменить(времСтрокаСтиля, "C:/icons_/kv2_5_x.gif", "C:/icons_/" + сокрЛП(Файл.Имя));

	//		

	//		СтрокаСтиляИтоговая = СтрокаСтиляИтоговая + времСтрокаСтиля + символы.ПС;

	//		

	//	КонецЦикла; 

	//конецЕсли;

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

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

		"ВЫБРАТЬ

		|	ВидыОбъектов.Ссылка,

		|	ВидыОбъектов.ПутьКИконке,

		|	ВидыОбъектов.Код

		|ИЗ

		|	Справочник.ВидыОбъектов КАК ВидыОбъектов

		|ГДЕ

		|	ВидыОбъектов.ПометкаУдаления = ЛОЖЬ";





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

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

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

		времСтрокаСтиля = СтрокаСтиляНачальная;

		времСтрокаСтиля = стрЗаменить(времСтрокаСтиля, "BurG", "s"+Строка(ВыборкаДетальныеЗаписи.код));

		времСтрокаСтиля = стрЗаменить(времСтрокаСтиля, "http://www.burgerking.ru/favicon.ico", сокрЛП(ВыборкаДетальныеЗаписи.ПутьКИконке));

		

		СтрокаСтиляИтоговая = СтрокаСтиляИтоговая + времСтрокаСтиля + символы.ПС;		

	КонецЦикла;





	СтрокаСтиляИтоговая = СтрокаСтиляИтоговая + СтрокаСтиляНачальная + символы.ПС;

	

	КодХТМЛ = стрЗаменить(КодХТМЛ, "/*vstavkaStiley;", СтрокаСтиляИтоговая);

	

	путьККаталогуКартинок = СтрЗаменить(КаталогПрограммы(), "\", "/");

	КодХТМЛ = СтрЗаменить(КодХТМЛ,"C:/",путьККаталогуКартинок);

	

	ЭлементыФормы.Карта.УстановитьТекст(КодХТМЛ);

	

	табАдресов = получитьтабАдресов();

	табУникальныхАдресов = табАдресов.скопировать();

	табУникальныхАдресов.свернуть("Уник");

	тзДанных = табАдресов.скопировать();

	табАдресов.очистить();

	Для Каждого стр из табУникальныхАдресов Цикл 

		Отбор = Новый Структура();

		Отбор.Вставить("Уник",стр.Уник);

		Строки = тзДанных.НайтиСтроки(Отбор);

		НовСтр = табАдресов.добавить();

		НовСтр.уник = стр.уник;

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

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

				  НовСтр.Адрес = тздстр.Адрес;

				  НовСтр.КД = тздстр.КД;

				  НовСтр.КШ = тздстр.КШ;

                  НовСтр.ВидОбъекта = тздстр.ВидОбъекта;

				  НовСтр.Наименование=Строка(НовСтр.Наименование)+Строка(тздстр.Наименование)+"; ";

			КонецЦикла;	

			КонецЕсли;

	КонецЦикла;	

	ЭлементыФормы.табАдресов.СоздатьКолонки();





	ВыборМасштаба = "50%";

	ВыборРегиона = "Москва";

	ЭлементыФормы.Надпись24.Заголовок = "Точек: "+Строка(табАдресов.количество());

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





 // Вывод точек на карту

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

	

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

	Всего=Строка(табАдресов.Количество()); н=0;

	Для каждого строкаАдреса Из табАдресов Цикл 

		н=н+1; Состояние("Вывод "+Строка(н)+" из "+Всего);

		////ЭТО ПРИМЕР ВЫВОДА ТОГО ИЛИ ИНОГО МАРКЕРА В ЗАВИСИМОСТИ ОТ НЕКОЕГО ПАРАМЕТРА

		//Если  строкаАдреса.ДокументПродажи.суммаДокумента <1000 тогда

		//	имяСтиля = "BurG";	

		//ИначеЕсли  строкаАдреса.ДокументПродажи.суммаДокумента <10000 тогда

		//	имяСтиля = "tr2_3_x";	

		//ИначеЕсли  строкаАдреса.ДокументПродажи.суммаДокумента <20000 тогда

		//	имяСтиля = "kv3_4_x";	

		//ИначеЕсли  строкаАдреса.ДокументПродажи.суммаДокумента <50000 тогда

		//	имяСтиля = "tr4_1_x";	

		//ИначеЕсли  строкаАдреса.ДокументПродажи.суммаДокумента <100000 тогда

		//	имяСтиля = "kv5_2_x";	

		//Иначе

		//	имяСтиля = "cr6_3_x";	

		//конецЕсли;

		

		УИД_Дока = Строка(н);

		имяСтиля = "s"+Строка(строкаАдреса.ВидОбъекта.код);

		Попытка

			Если ЗначениеЗаполнено(строкаАдреса.КД) Тогда

				ВызовФункции = "showAddressCoord(" + сокрЛП(строкаАдреса.КШ) + ", " + сокрЛП(строкаАдреса.КД) + ", '"+ сокрЛП(строкаАдреса.адрес) + "', " + имяСтиля + ", '" + сокрЛП(строкаАдреса.ВидОбъекта.наименование) + "')";    

			Иначе 				

				ВызовФункции = "showAddress('" + сокрЛП(строкаАдреса.адрес) + "', '" + сокрЛП(строкаАдреса.адрес) + "', " + имяСтиля + ", '" + сокрЛП(строкаАдреса.ВидОбъекта.наименование) + "')";    

			КонецЕсли;

			ЭлементыФормы.Карта.Document.parentWindow.eval(ВызовФункции);

		исключение

			Сообщить("Точка с адресом " + сокрЛП(строкаАдреса.адрес) + " не может быть отбражена на карте!" );	

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

		

	КонецЦикла;

    

	ТочкиНеСозданы = Ложь;

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

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



//Изменение масштаба

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

	

	если  ЭлементыФормы.ВыборРегиона.значение = "Москва" Тогда

		СтрокаКоординат = "37.64, 55.76, ";

	ИначеЕсли  ЭлементыФормы.ВыборРегиона.значение = "Тверь" Тогда

		СтрокаКоординат =  "35.90, 56.83, ";

	ИначеЕсли  ЭлементыФормы.ВыборРегиона.значение = "Балашиха" Тогда

		СтрокаКоординат =  "37.97, 55.82, ";

	Иначе

		СтрокаКоординат = "37.64, 55.76, ";

	конецесли;

	

	Если ВыборМасштаба = "" тогда

		возврат;

	конецесли;	

	

	числоМасштаба = Число(Лев(ВыборМасштаба, стрдлина(ВыборМасштаба)-1));

	числоМасштаба = числоМасштаба + 5;

	ВыборМасштаба = строка(числоМасштаба) + "%";

	

	ТекущийМасштаб = Строка(Цел((числоМасштаба/125)*(20)+4));

	если стрДлина(ТекущийМасштаб) =1 тогда

		ТекущийМасштаб = "0" + ТекущийМасштаб;

	конецесли;

	

	ЭлементыФормы.Карта.Document.parentWindow.eval("mapRazmer(map," + СтрокаКоординат + ТекущийМасштаб + ")");

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

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

	Яндекс = Новый HTTPСоединение("geocode-maps.yandex.ru",,,,,Истина);

	ВременныйФайл = КаталогВременныхФайлов() + "Yandex_geocode_" + СокрЛП(Новый УникальныйИдентификатор);

	Попытка

		Яндекс.Получить("/1.x/?geocode=" + Адрес + "&results=1", ВременныйФайл);

	Исключение

		Сообщить("Ошибка при попытке геокодировать по яндексу адрес: " + Адрес);

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

		Возврат;

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

	

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

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

	

	ПостроительDOM 			= Новый ПостроительDOM;

	ДокументДОМ 			= ПостроительDOM.Прочитать(ЧтениеXML);

	

	СписокText 				= ДокументДОМ.ПолучитьЭлементыПоИмени("text");

	СписокPos 				= ДокументДОМ.ПолучитьЭлементыПоИмени("pos");

		

	Если (СписокText.Количество() = 0) ИЛИ (СписокPos.Количество() = 0) Тогда

		Возврат;	

	КонецЕсли;

	

	Для ъ = 0 по СписокText.Количество()-1 Цикл

		Координаты = СписокPos[Ъ].ТекстовоеСодержимое;

		Разделитель = Найти(Координаты," ");

		Широта = Число(Сред(Координаты, Разделитель + 1));

		Долгота = Число(Лев(Координаты, Разделитель - 1));

		

		Если Широта = 0 ИЛИ Долгота = 0 Тогда

			Продолжить;

		КонецЕсли;

		

		КД = Долгота;

		КШ = Широта; 		

	КонецЦикла;	

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

 SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED





DECLARE @dbid AS smallint;

use [ВАШАБАЗА];

SET @dbid=DB_ID();





/*кто кого*/

SELECT DB_NAME(pr1.dbid) AS 'DB'

      ,pr1.spid AS 'ID жертвы'

      ,RTRIM(pr1.loginame) AS 'Login жертвы'

      ,pr2.spid AS 'ID виновника'

      ,RTRIM(pr2.loginame) AS 'Login виновника'

      ,pr1.program_name AS 'программа жертвы'

      ,pr2.program_name AS 'программа виновника'

      ,txt.[text] AS 'Запрос виновника'

FROM   MASTER.dbo.sysprocesses pr1(NOLOCK)

       JOIN MASTER.dbo.sysprocesses pr2(NOLOCK)

            ON  (pr2.spid = pr1.blocked)

       OUTER APPLY sys.[dm_exec_sql_text](pr2.[sql_handle]) AS txt

WHERE  pr1.blocked <> 0





/* Кто что блокирует */

SELECT s.[nt_username]

      ,request_session_id

      ,tran_locks.[request_status]

      ,rd.[Description] + ' (' + tran_locks.resource_type + ' ' + tran_locks.request_mode + ')' [Object]

      ,txt_blocked.[text]

      ,COUNT(*) [COUNT]

FROM   sys.dm_tran_locks AS tran_locks WITH (NOLOCK)

       JOIN sys.sysprocesses AS s WITH (NOLOCK)

            ON  tran_locks.request_session_id = s.[spid]

       JOIN (

                SELECT 'KEY' AS sResource_type

                      ,p.[hobt_id] AS [id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name) AS [Description]

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

                UNION ALL

                SELECT 'RID' AS sResource_type

                      ,p.[hobt_id] AS [id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name) AS [Description]

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

                UNION ALL

                SELECT 'PAGE'

                      ,p.[hobt_id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name)

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

               

                UNION ALL

                SELECT 'OBJECT'

                      ,o.[object_id]

                      ,QUOTENAME(o.name)

                FROM   sys.objects o

            ) AS RD

            ON  RD.[sResource_type] = tran_locks.resource_type

            AND RD.[id] = tran_locks.resource_associated_entity_id

       OUTER APPLY sys.[dm_exec_sql_text](s.[sql_handle]) AS txt_Blocked

WHERE  (

           tran_locks.request_mode = 'X'

           AND tran_locks.resource_type = 'OBJECT'

       )

       OR  tran_locks.[request_status] = 'WAIT'

GROUP BY

       s.[nt_username]

      ,request_session_id

      ,tran_locks.[request_status]

      ,rd.[Description] + ' (' + tran_locks.resource_type + ' ' + tran_locks.request_mode + ')'

      ,txt_blocked.[text]

ORDER BY

       6 DESC

       





IF EXISTS ( SELECT  Name





            FROM    tempdb..sysobjects





            WHERE   name LIKE '#LOCK_01_01%' )

    DROP TABLE #LOCK_01_01









CREATE TABLE #LOCK_01_01





    (





      spid INT,





      dbid INT,





      ObjId INT,





      IndId SMALLINT,





      Type VARCHAR(20),





      Resource VARCHAR(50),





      Mode VARCHAR(20),





      Status VARCHAR(20)





    )





INSERT  INTO #LOCK_01_01





EXEC sp_lock









select OBJECT_NAME(ObjId) as [Имя объекта], Mode [Тип блокировки (код)],





CASE

     WHEN Mode='Sch-S' THEN 'Блокировка стабильности схемы. Гарантирует, что элемент схемы, такой как таблица или индекс, не будет удален до тех пор, пока сеанс связи удерживает блокировку стабильности схемы на данный элемент схемы;'





 WHEN Mode='Sch-М' THEN '= Блокировка изменения схемы. Должен поддерживаться любым сеансом связи, во время которого предполагается изменить схему данного ресурса. Гарантирует, что другие сеансы не имеют ссылок на обозначенный объект;'





 WHEN Mode='S' THEN 'S = Коллективная блокировка. Удерживающему сеансу предоставлен коллективный доступ к ресурсу;'





 WHEN Mode='U' THEN 'U = Блокировка обновления. Указывает блокировку обновления, полученную на ресурсы, которые со временем могут быть обновлены. Используется для предотвращения общей формы взаимоблокировки, которая возникает, когда множество сеансов блокируют ресурсы для потенциального обновления в последующее время;'





 WHEN Mode='X' THEN 'X = Монопольная блокировка. Удерживающему сеансу предоставлен исключительный доступ к ресурсу;'





 WHEN Mode='IS' THEN 'IS = Блокировка с намерением коллективного доступа. Указывает намерение поместить S блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='IU' THEN 'IU = Блокировка с намерением обновления. Указывает намерение поместить U блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='IX' THEN 'IX = Блокировка с намерением монопольного доступа. Указывает намерение поместить X блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='SIU' THEN 'SIU = Коллективная блокировка с намерением обновления. Указывает коллективный доступ к ресурсу с намерением получения блокировок обновления на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='SIX' THEN 'SIX = Коллективная блокировка с намерением монопольного доступа. Указывает коллективный доступ к ресурсу с намерением получения монопольных блокировок на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='UIX' THEN 'UIX = Блокировка обновления с намерением монопольного доступа. Указывает блокировку обновления ресурса с намерением получения монопольных блокировок на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='BU' THEN 'BU = Блокировка массового обновления. Используется для массовых операций;'

     --[ ELSE else_result_expression ]

END as [Тип блокировки]





,syspr.spid, syspr.dbid, syspr.open_tran, syspr.status, syspr.hostprocess, syspr.loginame, syspr.hostname





 From

#LOCK_01_01





inner join master.dbo.sysprocesses as syspr

on syspr.spid = #LOCK_01_01.spid and syspr.dbid = #LOCK_01_01.dbid





where

#LOCK_01_01.Type = 'TAB'

and

#LOCK_01_01.dbid = @dbid     





/* Чем занят сервер*/

SELECT s.[spid]

      ,s.[loginame]

      ,s.[open_tran]

      ,s.[blocked]

      ,s.[waittime]

      ,s.[cpu]

      ,s.[physical_io]

      ,s.[memusage]

       INTO #sysprocesses

FROM   sys.[sysprocesses] s





WAITFOR DELAY '00:00:01'





SELECT txt.[text]

      ,s.[spid]

      ,s.[loginame]

      ,s.[hostname]

      ,DB_NAME(s.[dbid]) [db_name]

      ,SUM(s.[waittime] -ts.[waittime]) [waittime]

      ,SUM(s.[cpu] -ts.[cpu]) [cpu]

      ,SUM(s.[physical_io] -ts.[physical_io]) [physical_io]

      ,s.[program_name]

FROM   sys.[sysprocesses] s

       JOIN #sysprocesses ts

            ON  s.[spid] = ts.[spid]

            AND s.[loginame] = ts.[loginame]

       OUTER APPLY sys.[dm_exec_sql_text](s.[sql_handle]) AS txt

WHERE  s.[cpu] -ts.[cpu]

       + s.[physical_io] -ts.[physical_io]

       > 500

       OR  (s.[waittime] -ts.[waittime]) > 3000

GROUP BY

       txt.[text]

      ,s.[spid]

      ,s.[loginame]

      ,s.[hostname]

      ,DB_NAME(s.[dbid])

      ,s.[program_name]

ORDER BY

       [physical_io] DESC

       

DROP TABLE #sysprocesses

   

 Функция InputData(User, Command)



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



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



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



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

 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

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

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

	If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	'Иногда папка остается в каталоге installer после удаления - исправим это

	UdalitFolder ProductCod

	End If

	

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

	If Ustanovlena(ProductCod) Then 

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

	If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	End If	



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

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

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

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

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function    

 Option Explicit



'Этот скрипт выполняет установку 1С 8.2 с помощью операций типа

'copy \\Server\Adm_1C_8_2\Null-Base\Zero_dblist.v8i %AppData%\1C\1CEStart\ibases.v8i

'\\Server\Adm_1C_8_2\Kadry_Zarplata_Buh\1cestart.exe Enterprise /F \\Server\d$\Adm_1C_8_2\Null-Base



'***** Необходимо изменить на реальный каталог установки,

'***** где лежат папки с дистрибутивами типа 8.2.10.77

Const DistrFolder="\\Server\Adm_1C_8_2\"

'Если тонкого клиента ставить не собираетесь из папки setuptc, то лучше ее удалите, т.к. инсталлер

'бывает путается, что ему ставить, и несмотря на все параметры начинает ставить тонкого клиента, когда его

'об этом не просят.



'***** Для каждго набора баз (отдела) свой подкаталог, в котором располагаются 1CESCmn, 1cestart.exe,

'***** common_dblist.v8i и этот скрипт Setup 1C8_2.vbs

Const DistrFolderOtdel="Kadry_Zarplata_Buh\"



'Т.к. отключить запуск 1С при выполнении 1CEStart нельзя (а нам нужна только установка), то кроме этого скрипта должна быть

'создана пустая база в каталоге \\Server\Adm_1C_8_2\Null-Base.

'Для надежности в модуле управляемого приложения базы можно прописать процедуру

'

'Процедура ПередНачаломРаботыСистемы(Отказ)

' // Вставить содержимое обработчика.

' ЗавершитьРаботуСистемы(Ложь);

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



'В эту же папку положить файл-пустышку общих баз Zero_dblist.v8i



Const myBase = "\\Server\Adm_1C_8_2\Null-Base"



Dim shortcutTarget : shortcutTarget = DistrFolder & DistrFolderOtdel & "1cestart.exe"

Dim WshShell

Dim strAppData

Dim objFSO

Dim strFolder1C, strFolder1CEStart, strFullFolderName, strFullFileName



'Сначала получим каталог пользователя

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

strAppData = WSHShell.SpecialFolders("AppData")



Set objFSO = CreateObject("Scripting.FileSystemObject")



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

strFolder1C = "1C"

strFolder1CEStart = "1CEStart"

strFullFolderName =  objFSO.BuildPath(strAppData, strFolder1C)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



strFullFolderName =  objFSO.BuildPath(strAppData & "\" &strFolder1C, strFolder1CEStart)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



'Если файл со списокм баз уже есть, то затирать его не будем

strFullFileName = objFSO.BuildPath(strFullFolderName, "ibases.v8i")

If Not objFSO.FileExists(strFullFileName) Then

'Скопируем пустой список общих баз из папки с пустой базой,

'чтобы при запуске не задавались рядовому пользователю вопросы типа "Скопировать список баз из 8.1?"

objFSO.CopyFile  myBase & "\" & "Zero_dblist.v8i", strAppData & "\1C\1CEStart\ibases.v8i", True

Set objFSO = Nothing

End If



'Теперь установка

'Указан параметр nterprise вместо Enterprise, чтобы подавить запуск самой 1С из-за ошибки параметра

'т.к. нужна только инсталляция. Вот такая хитрость.

WshShell.run(shortcutTarget & " nterprise /F " & myBase)

Set WshShell = Nothing   

 #НаСервере

Процедура ОтправитьЗапросНаПоискКоординат()

   Город = Параметры.ОбъектПодбора.Город.Наименование;

   Страна = Параметры.ОбъектПодбора.Город.Владелец.Владелец.Наименование;

   Адрес = Параметры.ОбъектПодбора.Адрес;

   ПараметрПоиска = Страна + " " + Город + " " + Адрес;

 

   АдресOutput = ПолучитьИмяВременногоФайла();

   Ключ = Константы.КлючКарта.Получить();

   ТекстСсылки = "maps/geo?q=" + EncodeURL(ПараметрПоиска)+"&output=csv&oe=utf8&sensor=false&key=" + Ключ;

   ПроксиСервер = Неопределено;

   HTTPСервис = Новый HTTPСоединение("maps.google.com",,,,ПроксиСервер,Ложь);

   ПравильностьВыполнения = Истина;

 

   Попытка

      HTTPСервис.Получить(ТекстСсылки, АдресOutput);

   Исключение

      Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);

      ПравильностьВыполнения = Ложь;

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

 

   Если ПравильностьВыполнения Тогда

      // Распарсить результат ответа поиска

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

      Текст.Прочитать(АдресOutput);

      РезультатПоиска = Текст.ПолучитьСтроку(1);

 

      КодРезультата = Лев(РезультатПоиска,3);

      РезультатПоиска = Сред(РезультатПоиска, 7, СтрДлина(РезультатПоиска));

 

      Если КодРезультата <> "200" Тогда

         Возврат;

      КонецЕсли;

 

      Широта = Число(Сред(РезультатПоиска,0,10));

      Долгота = Число(Сред(РезультатПоиска,12,10));

   КонецЕсли;

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

   

 if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

      else drawMap();   

 #НаСервере

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

   СсылкаНаБазу = ПолучитьНавигационнуюСсылкуИнформационнойБазы();

   APIГугла = Константы.КлючКарта.Получить();

 

   ТаблицаОбъектовДляВывода = Новый ТаблицаЗначений;

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Наименование",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Город",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Адрес",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Широта",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Долгота",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   Если Параметры.ОтображатьСОтветственными Тогда

      ТаблицаОбъектовДляВывода.Колонки.Добавить("Ответственный",Новый ОписаниеТипов("Строка"));

   КонецЕсли;

 

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

      КоординатыОбъекта = ОбщийМодульКартаСервер.ПолучитьКоординатыОбъекта(ТекЭлемент.Значение.ОбъектПосещения);

      Если КоординатыОбъекта = Неопределено Тогда

         Продолжить;

      Иначе

         НоваяСтрока = ТаблицаОбъектовДляВывода.Добавить();

         НоваяСтрока.Наименование = ТекЭлемент.Значение.ОбъектПосещения.Наименование;

         НоваяСтрока.Город = ТекЭлемент.Значение.ОбъектПосещения.Город.Наименование;

         НоваяСтрока.Адрес = ТекЭлемент.Значение.ОбъектПосещения.Адрес;

         НоваяСтрока.Широта = КоординатыОбъекта[0];

         НоваяСтрока.Долгота = КоординатыОбъекта[1];

         Если Параметры.ОтображатьСОтветственными Тогда

            НоваяСтрока.Ответственный = ТекЭлемент.Значение.Ответственный.Наименование;

         КонецЕсли;

      КонецЕсли;

   КонецЦикла;

 

   ТекстСкрипта = "data.addRows(" + Строка(ТаблицаОбъектовДляВывода.Количество()) + ");";

   Сч = 0;

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

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 0, " +СтрЗаменить(Строка(ТекСтрока.Широта),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 1, " +СтрЗаменить(Строка(ТекСтрока.Долгота),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 2, '" +Строка(ТекСтрока.Наименование) + " "

      + Строка(ТекСтрока.Город) + " " + Строка(ТекСтрока.Адрес) + " " + ?(Параметры.ОтображатьСОтветственными, ".Ответственный: " + Строка(ТекСтрока.Ответственный), "") + " " + "');";

      Сч = Сч + 1;

   КонецЦикла;

СтраницаХТМЛ = "<html>

|  <head>

|    <script src=""http://maps.google.com/maps?file=api&v=2&key=" + APIГугла + """ type=""text/javascript""></script>

|    <script type=""text/javascript"" src=""http://www.google.com/jsapi""></script>

|  </head>

|

|  <body>

|    <div id=""map_div"" style=""width: 800px; height: 550px""></div>

|    <script type=""text/javascript"">

|

|      google.load(""visualization"", ""1"", {packages:[""map"">);

|      google.setOnLoadCallback(drawMap);

|      function checkIfGoogleLoad() {

|        if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

|		else drawMap();

|      }

|      function drawMap() {

|        var data = new google.visualization.DataTable();

|        data.addColumn('number', 'Lat');

|        data.addColumn('number', 'Lon');

|        data.addColumn('string', 'Name');" + ТекстСкрипта + "

|        var map = new google.visualization.Map(document.getElementById('map_div'));

|        map.draw(data, {showTip: true, mapType: 'normal'});

|      }

|      checkIfGoogleLoad();

|    </script>

|  </body>

|</html>"; 

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

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

    If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    'Иногда папка остается в каталоге installer после удаления - исправим это

    UdalitFolder ProductCod

    End If

    

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

    If Ustanovlena(ProductCod) Then 

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

    If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If    



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

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

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

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

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function   

 // Функция вычислет степень числа

// _База    - Число                - Число, возводимое в степень

// _Степ   - Число                - Степень числа

Функция Степень(_База, _Степ)

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

                Для К = 1 По _Степ Цикл

                               Результат = Результат *_База;                              

                КонецЦикла;

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

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

// Возвращает Число, возведенное в степень

   

 ACos(<Число>)   

 ASin(<Число>)   

 ATan(<Число>)   

 Cos(<Угол>)   

 Exp(<Число>)   

 Log(<Число>)   

 Log10(<Число>)   

 Sin(<Угол>)   

 Tan(<Угол>)   

 // Hижe пpивeдeн Полный тeкcт мoдyля, coдepжaщeгo фyнкции 

// КвaдpaтныйКopeнь(), 

// ЭкcПонeнтa(), 

// CтeпeннaяФyнкция(), 

// Cинyc(), Кocинyc() и Taнгeнc().

//Источник http://www.kb.mista.ru/article.php?id=78



// Toчнocть c кoтopoй вычиcляютcя Значeния функций

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

Перем ДocтaтoчнaяToчнocть;

// Кoличecтвo Значaщиx знaкoв Поcлe зaпятoй для peзультaтoв,

// вoзвpaщaeмыx функциями

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

Перем КoличecтвoЗнaкoв;

// Максимaльнoe кoличecтвo итepaций, кoтopoe выПолняeтcя в функцияx

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

Перем КoличecтвoИтepaций;

// Чиcлo "пи"

Перем ЧиcлoПИ;

Функция КвaдpaтныйКopeнь(Apгумeнт) Далее

Функция ЭкcПонeнтa(Apгумeнт) Далее

Функция CтeпeннaяФункция(Apгумeнт1,Apгумeнт2) Далее

Функция Cинуc(Знач Apгумeнт, TипApгумeнтa = 0) Далее

Функция Кocинуc(Знач Apгумeнт, TипApгумeнтa = 0) Далее

Функция Taнгeнc(Знач Apгумeнт, TипApгумeнтa = 0) Далее



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

// КвaдpaтныйКopeнь(Apгумeнт)

//

// Пapaмeтpы:

// Apгумeнт - нeoтpицaтeльнoe чиcлo

//

// Boзвpaщaeмoe Значeниe:

// Квaдpaтный кopeнь Apгумeнтa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния квaдpaтнoгo кopня чиcлa c

// пpимeнeниeм итepaциoннoгo мeтoдa Hьютoнa

// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй

// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть

//

Функция КвaдpaтныйКopeнь(Apгумeнт)

     // Oгpaничимcя oблacтью oпpeдeлeния функции

     Если Apгумeнт<0 Тогда

          // cooбщeниe oб oшибкe

          Сообщить("...","!");

          Возврат ПолучитьПустоеЗначение();

          // Oтceчeм нoль

     ИначеЕсли Apгумeнт=0 Тогда

          Возврат 0;

     КонецЕсли;

     // Bыбepeм пepвoe пpиближeниe

     ПpeдыдущaяИтepaция = Apгумeнт/2;

     Для Cч=1 По КoличecтвoИтepaций Цикл

          Значeниe = 0.5*(ПpeдыдущaяИтepaция+

          Apгумeнт/ПpeдыдущaяИтepaция);

          Если Значeниe<ПpeдыдущaяИтepaция Тогда

               Paзницa = ПpeдыдущaяИтepaция-Значeниe;

          Иначе

               Paзницa = Значeниe-ПpeдыдущaяИтepaция;

          КонецЕсли;

          Если Paзницa<ДocтaтoчнaяToчнocть Тогда

               Прервать;

          КонецЕсли;

          ПpeдыдущaяИтepaция=Значeниe;

     КонецЦикла;

     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));

     Возврат Значeниe;

КонецФункции            // кoнeц функции КвaдpaтныйКopeнь

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

// ЭкcПонeнтa(Apгумeнт)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo

//

// Boзвpaщaeмoe Значeниe:

// Чилo e в cтeпeни Apгумeнт

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния экcПонeнты c пpимeнeниeм

// pядa Maклopeнa (чacтный cлучaй pядa Tэйлopa)

// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй

// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть

//

//

Функция ЭкcПонeнтa(Apгумeнт)

     Значeниe = 1;

     ПpeдыдущийЧлeн = 1;

     Для Cч=1 По КoличecтвoИтepaций Цикл

          OчepeднoйЧлeн = ПpeдыдущийЧлeн*Apгумeнт/Cч;

          Значeниe = Значeниe+OчepeднoйЧлeн;

          Toчнocть = OчepeднoйЧлeн/Значeниe;

          Если (Toчнocть<ДocтaтoчнaяToчнocть) И (OчepeднoйЧлeн<0.1) Тогда

               Прервать;

          КонецЕсли;

          ПpeдыдущийЧлeн=OчepeднoйЧлeн;

     КонецЦикла;

     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));

     Возврат Значeниe;

КонецФункции      // кoнeц функции ЭкcПонeнтa

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

// CтeпeннaяФункция(Apгумeнт1, Apгумeнт2)

//

// Пapaмeтpы:

// Apгумeнт1 - чиcлo, кoтopoe вoзвoдитcя в cтeпeнь Apгумeнт2

// Apгумeнт2 - чиcлo

//

// Boзвpaщaeмoe Значeниe:

// Чиcлo Apгумeнт1 в cтeпeни Apгумeнт2

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния cтeпeннoй функции c пpимeнeниeм

// pядa Maклopeнa (чacтный cлучaй pядa Tэйлopa)

// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй

// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть

//

//

Функция CтeпeннaяФункция(Apгумeнт1,Apгумeнт2)

     // Пpoвepим бaзу cтeпeннoй функции

     Если Apгумeнт1<0 Тогда

          // cooбщeниe oб oшибкe

          Сообщить("...","!");

          // Oтceчeм нoль

     ИначеЕсли Apгумeнт1=0 Тогда

          Возврат 0;

     КонецЕсли;

     Значeниe = 1;

     ПpeдыдущийЧлeн = 1;

     Для Cч=1 По КoличecтвoИтepaций Цикл

          OчepeднoйЧлeн = ПpeдыдущийЧлeн*Apгумeнт2*Лог(Apгумeнт1)/Cч;

          Значeниe = Значeниe+OчepeднoйЧлeн;

          Toчнocть = OчepeднoйЧлeн/Значeниe;

          Если Toчнocть<0 Тогда

               Toчнocть = -Toчнocть;

          КонецЕсли;

          Если (Toчнocть<ДocтaтoчнaяToчнocть) И (OчepeднoйЧлeн<0.1) Тогда

               Прервать;

          КонецЕсли;

          ПpeдыдущийЧлeн=OчepeднoйЧлeн;

     КонецЦикла;

     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));

     Возврат Значeниe;

КонецФункции      // кoнeц функции CтeпeннaяФункция

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

// CлужTaнгeнc(Apгумeнт)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa в paдиaнax

//

// Boзвpaщaeмoe Значeниe:

// Taнгeнc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния тaнгeнca зaдaннoгo в paдиaнax углa

// в oблacти Значeний oт 0 дo ПИ/8

// ИcПользуeтcя функциями Cинуc(), Кocинуc() и Taнгeнc()

// Иcчиcлeниe пpoизвoдитcя c иcПользoвaниeм цeпнoй дpoби

//

//

Функция CлужTaнгeнc(Apгумeнт)

     КвApгум = Apгумeнт*Apгумeнт;

     Значeниe = Apгумeнт/(1-КвApгум/(3-КвApгум/(5-КвApгум/(7-КвApгум/(9-КвApгум/(11-КвApгум/(13-КвApгум/(15-КвApгум))))))));

     Возврат Значeниe;

КонецФункции      // кoнeц функции CлужTaнгeнc

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

// Cинуc(Apгумeнт, TипApгумeнтa = 0)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa

// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт

// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax

// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax

// Значeниe По умoлчaнию - 0

//

// Boзвpaщaeмoe Значeниe:

// Cинуc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния cинуca углa, зaдaннoгo в

// paдиaнax или гpaдуcax

// Oблacть oпpeдeлeния функции нe oгpaничeнa

//

//

Функция Cинуc(Знач Apгумeнт, TипApгумeнтa = 0)

     Если TипApгумeнтa=1 Тогда

          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;

     КонецЕсли;

     ЗнaкPeзультaтa=1;

     // Пpивeдeм к oблacти 0 - 2ПИ

     Если Apгумeнт<0 Тогда

          Apгумeнт=-Apгумeнт;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(2*ЧиcлoПИ))*2*ЧиcлoПИ;

     // тeпepь пpивeдeм к oблacти 0 - ПИ

     Если Apгумeнт>ЧиcлoПИ Тогда

          Apгумeнт = Apгумeнт-ЧиcлoПИ;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     // тeпepь пpивeдeм к oблacти 0 - ПИ/2

     Если Apгумeнт>ЧиcлoПИ/2 Тогда

          Apгумeнт=ЧиcлoПИ-Apгумeнт;

     КонецЕсли;

     // тeпepь пpивeдeм к oблacти 0 - ПИ/4

     Если Apгумeнт>ЧиcлoПИ/4 Тогда

          Значeниe = ЗнaкPeзультaтa*Кocинуc(ЧиcлoПИ/2-Apгумeнт);

     Иначе

          TaнгeнcПолoвины = CлужTaнгeнc(Apгумeнт/2);

          Значeниe = ЗнaкPeзультaтa*2*TaнгeнcПолoвины/

          (1+TaнгeнcПолoвины*TaнгeнcПолoвины);

     КонецЕсли;

     Возврат Значeниe;

КонецФункции       // кoнeц функции Cинуc

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

// Кocинуc(Apгумeнт, TипApгумeнтa = 0)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa

// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт

// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax

// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax

// Значeниe По умoлчaнию - 0

//

// Boзвpaщaeмoe Значeниe:

// Кocинуc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния кocинуca углa, зaдaннoгo в

// paдиaнax или гpaдуcax

// Oблacть oпpeдeлeния функции нe oгpaничeнa

//

//

Функция Кocинуc(Знач Apгумeнт, TипApгумeнтa = 0)

     Если TипApгумeнтa=1 Тогда

          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;

     КонецЕсли;

     // Пpивeдeм к oблacти 0 - 2ПИ

     Если Apгумeнт<0 Тогда

          Apгумeнт=-Apгумeнт;

     КонецЕсли;

     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(2*ЧиcлoПИ))*2*ЧиcлoПИ;

     // Если Попaли в oблacть 0 - ПИ/4 - cчитaeм чecтнo

     Если Apгумeнт<ЧиcлoПИ/4 Тогда

          TaнгeнcПолoвины = CлужTaнгeнc(Apгумeнт/2);

          Значeниe = (1-TaнгeнcПолoвины*TaнгeнcПолoвины)/

          (1+TaнгeнcПолoвины*TaнгeнcПолoвины);

     Иначе

          Значeниe = Cинуc(Apгумeнт+ЧиcлoПИ/2);

     КонецЕсли;

     Возврат Значeниe;

КонецФункции      // кoнeц функции Кocинуc

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

// Taнгeнc(Apгумeнт, TипApгумeнтa = 0)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa

// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт

// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax

// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax

// Значeниe По умoлчaнию - 0

//

// Boзвpaщaeмoe Значeниe:

// Taнгeнc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния тaнгeнca углa, зaдaннoгo в

// paдиaнax или гpaдуcax

// B тoм cлучae, Если для Значeния Apгумeнт функция нe

// oпpeдeлeнa (нaпpимep, пи/2 paдиaн)

// вoзвpaщaeтcя пуcтoe Значeниe c cooбщeниeм oб oшибкe

//

//

Функция Taнгeнc(Знач Apгумeнт, TипApгумeнтa = 0)

     Если TипApгумeнтa=1 Тогда

          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;

     КонецЕсли;

     ЗнaкPeзультaтa=1;

     // Пpивeдeм к oблacти 0 - ПИ

     Если Apгумeнт<0 Тогда

          Apгумeнт=-Apгумeнт;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(ЧиcлoПИ))*ЧиcлoПИ;

     // Пpивeдeм к oблacти 0 - ПИ/2

     Если Apгумeнт>ЧиcлoПИ/2 Тогда

          Apгумeнт=ЧиcлoПИ-Apгумeнт;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     // Если Попaли в oблacть ПИ/8

     Если Apгумeнт<ЧиcлoПИ/8 Тогда

          Значeниe = ЗнaкPeзультaтa*CлужTaнгeнc(Apгумeнт);

     Иначе

          // oбoйдeм дeлeниe нa нoль

          Попытка

               Значeниe = ЗнaкPeзультaтa*Cинуc(Apгумeнт)/

               Кocинуc(Apгумeнт);

          Исключение

               // cooбщeниe oб oшибкe

               Сообщить("...","!");

               Значeниe = ПолучитьПустоеЗначение();

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

     КонецЕсли;

     Возврат Значeниe;

КонецФункции      // кoнeц функции Taнгeнc

// Toчнocть c кoтopoй вычиcляютcя Значeния функций

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

ДocтaтoчнaяToчнocть = 0.00000000001;

КoличecтвoИтepaций = 1000;

// Кoличecтвo Значaщиx знaкoв Поcлe зaпятoй для peзультaтoв пpи

// зaдaннoй тoчнocти

КoличecтвoЗнaкoв = -Лог10(ДocтaтoчнaяToчнocть)-1;

// Чиcлo "пи"

ЧиcлoПИ = 3.1415926535897932384626433832795;

 VBS=CreateObject("MSScriptControl.ScriptControl");

VBS.Language="VBscript";

Параметр=1234;

Корень=VBS.Eval("sqr("+СокрЛП(Параметр)+")");

Процедура Сформировать()

   Ctrl=СоздатьОбъект("MSScriptControl.ScriptControl");

   Ctrl.Language="vbscript";

   Ctrl.AddCode("

   |pi=4 * atn(1.0)

   |

   |Function ShowPI

   |ShowPI=pi

   |End Function

   |

   |Function CalcSQR(number)

   |if number<0 then

   | CalcSQR=0

   |else

   | CalcSQR=SQR(Number)

   |end if

   |End Function

   |

   |Function CalcSIN(number)

   |CalcSin=Sin(number/(180/pi))

   |End Function

   |

   |Function CalcCOS(number)

   |CalcCOS=COS(number/(180/pi))

   |End Function

   |

   |Function CalcTAN(number)

   |CalcTAN=TAN(number/(180/pi))

   |End Function

   |

   |Function CalcRND

   |Randomize

   |CalcRND=RND

   |End Function

   |

   |Function NameOfWeekDay(MyDate)

   |NameOfWeekDay=WeekDayName(Weekday(MyDate),False)

   |End Function

   |

   |");

                  

   Сообщить(Ctrl.Run("ShowPI")); // Число ПИ

   Сообщить(Ctrl.Run("CalcSQR",4)); // Квадратный корень из 4

   Сообщить(Ctrl.Run("CalcSin",90)); // Синус 90 градусов

   Сообщить(Ctrl.Run("CalcCOS",180)); // Косинус 180 градусов

   Сообщить(Ctrl.Run("CalcTAN",180)); // Тангенс 90 градусов

   Сообщить(Ctrl.Run("CalcRND")); // Случайное число от 0 до 1

   Сообщить(Ctrl.Run("NameOfWeekDay",ТекущаяДата())); // Название дня недели

 

'Скрипт демонстрирует возможность принудительного завершения процессов 1С

'на всех компьютерахуказанного домена. Данный код можно применять непосредственно перед пакетным запуском 1С:Предприятия,

'требующим монопольного входа в базу данных (например, при резервном копировании).



'ВНИМАНИЕ! Задайте нужное значение переменной "DomainName"!



'ВНИМАНИЕ! Для успешной работы скрипта его желательно запускать с правами администратора домена.



'ВНИМАНИЕ! Чтобы опробовать скрипт, не производя деструктивных действий, достаточно закомментировать

'оператор "Proc.Terminate".



Option Explicit

On Error Resume Next



Dim DomainName 'Имя домена

DomainName = "MYDOMAIN"



Dim StrResult 'строка результата работы всей программы

StrResult = StrResult & CStr(Now) & " начало работы скрипта" & VbCrLf



Dim ADSI

Set ADSI = GetObject("WinNT://" & DomainName)

ADSI.Filter = Array("computer")



Dim Comp 'компьютер

Dim WMI 'объект WMI

Dim Proc 'процесс



Dim CurrName 'имя текущего компьютера

CurrName = GetNameComp()



'Цикл по компьютерам домена

For Each Comp In ADSI

    If Comp.Name <> CurrName Then

        Set WMI = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & Trim(Comp.Name) & "\Root\CIMV2")

        If Err.Number=0 Then

            'Цикл по процессам компьютера

            For Each Proc In WMI.ExecQuery("S_elect * FROM Win32_Process WHERE Name = '1cv7s.exe'")

                StrResult = StrResult & _

                            CStr(Now) & " Computer=" & Comp.Name & " PID=" & Proc.ProcessId & _

                            VbCrLf

                'Завершение процесса

                Proc.Terminate

            Next 'Цикл по процессам компьютера

        Else 'Не удалось соединиться с компьютером

            If Err.Number <> 462 Then 'The remote server machine does not exist or is unavailable

                StrResult = StrResult & _

                  	        "    " & CStr(Now) & " Computer=" & Comp.Name & " ERROR " & Err.Number & _

                      	    VbCrLf

            End If

        End If

        Err.Clear

    End If

Next 'Цикл по компьютерам домена



StrResult = StrResult & CStr(Now) & " конец работы скрипта" & VbCrLf



'Отображение результата

ShowInNotepad("Процессы 1cv7s.exe:" & VbCrLf & VbCrLf & StrResult)

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

'Процедура отображает переданную строку в блокноте

Sub ShowInNotepad(StrToFile)

    Dim FSO 'Объект файловой системы Scripting.FileSystemObject

    Dim TempPath 'Путь к временному файлу

    Dim TxtFile 'Поток текстового файла

    

    Set FSO = CreateObject("Scripting.FileSystemObject")

    TempPath = GetTempPath() & "\" & FSO.GetTempName

    Set TxtFile = FSO.CreateTextFile(TempPath)

    TxtFile.WriteLine(StrToFile)

    TxtFile.Close

    CreateObject("WScript.Shell").Run "notepad.exe " & TempPath

    WScript.Sleep 1000

    FSO.DeleteFile TempPath

End Sub 'ShowInNotepad

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

'Функция возвращает путь к каталогу временных файлов текущего пользователя

Function GetTempPath()

    GetTempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%")

End Function 'GetTempPath

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

'Функция возвращает имя текущего компьютера

Function GetNameComp()

    GetNameComp = CreateObject("WScript.Network").ComputerName

End Function 'GetNameComp