добъект » Поиск

Результаты по ключевому слову: добъект

Google maps : вывод точек на карту и режим панорамы

В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают!

Для клиента нужно было сделать вывод объектов на карту

С возможностью просмотра панорамы:

Основной HTML код карты хранится в макете:

Код VBS

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

Код вывода карты:

Код 1C v 8.х

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

	

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

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

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

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

	КонецЕсли; 

	

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

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

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

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

	

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

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





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

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

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



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

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

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

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

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

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



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

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

	

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

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

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

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

	   КонецЦикла;

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

	

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

			КонецЦикла;	

			КонецЕсли;

	КонецЦикла;	

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





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

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

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





	

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

	Индекс = 0;

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

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

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

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

		Попытка

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

	Исключение

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

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

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

	КонецЦикла;

	

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



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

Вырванная из конфигурации обработка GMaps.rar

Можно ее использовать как макет для создания обработки под свои требования.

Пример автоматизации в котором это использовалось.

Категория: Географическая схема

Яндекс карта : вывод точек на карту

Пример о том,как вывести яндекс карту на форму и далее работать с ней:

Основной HTML код карты хранится в макете:

Код VBS

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

Код вывода карты:

Код 1C v 8.х

 //берем 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," + СтрокаКоординат + ТекущийМасштаб + ")");

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

Пример обратного геокодирования - получение координат по адресу:

Код 1C v 8.х

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

	Яндекс = Новый 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 Тогда

			Продолжить;

		КонецЕсли;

		

		КД = Долгота;

		КШ = Широта; 		

	КонецЦикла;	

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

Обработка вырванная из конфигурации: YandexMap.rar

Можно ее использовать как макет для создания обработки под свои требования.

Пример автоматизации в котором это использовалось.

Категория: Географическая схема

Дерево значений в таблицу значений или в табличную часть и обратно

Для одной организации надо было реализовать документы, где вместо табличной части надо использовать дерево и все это на управляемых формах. Но дерево нельзя сохранить в базе в текущем виде. Пришлось использовать табличную часть документа для хранения данных дерева. И при открытии формы получать данные из ТЧ и выводить их в дерево. Далее все манипуляции производить с деревом и при сохранении документа помещать данные в обратно в ТЧ.

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

Для реализации такого механизма в ТЧ был добавлен реквизит “КлючСвязи” (обязательный реквизит) с типом число, куда помещался “НомерСтроки” (стандартный реквизит ТЧ) родителя (верхний уровень). А самый верхний элемент дерева имеет “КлючСвязи” равный 0.

На картинке ниже видно структуру дерева и структуру ТЧ

Нагрузка на сервер осуществляется при окрытии и при сохранении документа. А с деревом работают уже на клиенте.

На рабочей базе обрабатывается около 200 строк в одном документе.

Открытие и сохранение документа происходит моментально. С большем количеством строк не тестировалось.

Чтобы алгорит правильно работал, у рекизита фомы с типом дерево значений должны быть все реквизиты табличной части, кроме “КлючСвязи” и “НомерСтроки”. Иначе платформа выдаст ошибку. В дерево можо добавлять свои реквизиты отличные от ТЧ, они будут использоваться только в дереве.

Ниже приведен код преобразования дерева в таблицу и обратно.

Код 1C v 8.2 УП

 &НаКлиенте

Процедура КомандаТаблицуВДерево(Команда)

	КомандаТаблицуВДеревоНаСервере();

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





&НаСервере

Процедура КомандаТаблицуВДеревоНаСервере()

	Дерево = ТаблицаВДерево(РеквизитФормыВЗначение("Объект"), "Товары");//Товары - имя табличной части

	ЗначениеВРеквизитФормы(Дерево, "ДеревоЗначений");//ДеревоЗначений - реквизит формы с типом дерево значений

	Элементы.ДеревоЗначений.Обновить();

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





&НаКлиенте

Процедура КомандаДеревоВТаблицу(Команда)

	КомандаДеревоВТаблицуНаСервере();

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





&НаСервере

Процедура КомандаДеревоВТаблицуНаСервере()

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

	ДОбъект = РеквизитФормыВЗначение("Объект");

	ДеревоВТаблицу(ДОбъект, РеквизитФормыВЗначение("ДеревоЗначений"), "Товары");

	ЗначениеВРеквизитФормы(ДОбъект, "Объект");

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

Формирование дерева из таблицы значений

Код 1C v 8.2 УП

 //ФОРМИРОВАНИЕ ДЕРЕВА ИЗ ТАБЛИЦЫ

&НаСервере

Функция ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, КлючСвязи = NULL, ЭлементРодитель = NULL) Экспорт	

	//ПОДГОТОВКА КОЛОНОК ДЕРЕВА

	КолонкиТаблицы = ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты;

	ДеревоЗначений2 = Новый ДеревоЗначений;

	Для каждого Кол из КолонкиТаблицы Цикл

		Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда

			Продолжить;

		Иначе

			ДеревоЗначений2.Колонки.Добавить(Кол.Имя, Новый ОписаниеТипов(Кол.Тип));

		КонецЕсли;

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

	

	Если КлючСвязи = NULL И ЭлементРодитель = NULL Тогда

		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)

		ИсточникВыборки = ДеревоЗначений2.Строки;

		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)

	Иначе

		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)

		ИсточникВыборки = ЭлементРодитель.Строки;

	КонецЕсли;

	Фильтр = Новый Структура("КлючСвязи", КлючСвязи);

	М = ДокОбъект[НаименованиеТабличнойЧастиДокумента].НайтиСтроки(Фильтр);

	Если М.Количество() = 0 Тогда

		Возврат ДеревоЗначений2;

	КонецЕсли;

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

		Элемент = ИсточникВыборки.Добавить();

		Для каждого Кол из КолонкиТаблицы Цикл

			Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда

				Продолжить;

			Иначе

				Элемент[Кол.Имя] = Стр[Кол.Имя];

			КонецЕсли;

		КонецЦикла;

		ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, Стр.НомерСтроки, Элемент); //ДОБАВЛЕНИЕ ПОДЧИНЁННЫХ ЭЛЕМЕНТОВ В ДЕРЕВО

	КонецЦикла;

	Возврат ДеревоЗначений2;

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

Формирование таблицы из дерева

Код 1C v 8.2 УП

 //ФОРМИРОВАНИЕ ТАБЛИЦЫ ИЗ ДЕРЕВА

&НаСервере

Процедура ДеревоВТаблицу(ДокОбъект, ДеревоЗначений, НаименованиеТабличнойЧастиДокумента, СтрокаДерева = NULL, КлючСвязи = NULL) Экспорт

	Если СтрокаДерева = NULL И КлючСвязи = NULL Тогда

		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)

		ПервыйВызов = Истина;

		ДокОбъект[НаименованиеТабличнойЧастиДокумента].Очистить();

		ИсточникВыборки = ДеревоЗначений.Строки;

		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)

	Иначе

		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)

		ПервыйВызов = Ложь;

		ИсточникВыборки = СтрокаДерева.Строки;

	КонецЕсли;

	Для каждого Стр из ИсточникВыборки Цикл

		НС = ДокОбъект[НаименованиеТабличнойЧастиДокумента].Добавить();

		Для каждого Кол из ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты Цикл

			Если Кол.Имя = "КлючСвязи" Тогда

				НС.КлючСвязи = КлючСвязи

			ИначеЕсли Кол.Имя = "НомерСтроки" Тогда

				Продолжить;

			Иначе 

				НС[Кол.Имя] = Стр[Кол.Имя];

			КонецЕсли;

		КонецЦикла;

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

			ДеревоВТаблицу(ДокОбъект,,НаименованиеТабличнойЧастиДокумента, Стр, НС.НомерСтроки);

		КонецЕсли;

	КонецЦикла;

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

Категория: Работа с Деревом Значений

Поиск в базе битых ссылок - "объект не найден"

В статье Битая ссылка, <Объект не найден>, Уникальный Идентификатор, GUID мы обсуждали как востановить битые ссылки!
А вот как найти в базе все битые ссылки, которые имеют вид типа "<Объект не найден> (137:8b270030482898d011daad3cc45fc830)"?

Для поиска этого была написана данная обработка: Скачивать файлы может только зарегистрированный пользователь!

Для поиска: Выбираем объекты метаданных , которые хотим проверить, жмем кнопочку "Выполнить" и наблюдаем в таблице выходные данные. Откуда можем попасть в объекты-источники.

Для программиста:

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	ИспользоватьОграничение = ЗначениеЗаполнено(ОграничениеТипов);

	РезультатПоиска.Очистить();

	Для Каждого ОбъектыМетаданных Из КоллекцияОбъектов Цикл

		Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл

			Состояние(ОбъектМетаданных.ПолноеИмя());

			ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных);

		КонецЦикла;

	КонецЦикла;

	Для Каждого ОбъектыМетаданных Из КоллекцияРегистров Цикл

		Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл

			Состояние(ОбъектМетаданных.ПолноеИмя());

			ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных);

		КонецЦикла;

	КонецЦикла;

	//Анализ последовательностей

	

	//ПроверитьОбъектНаБитыеСсылки(Метаданные.Справочники.СотрудникиОрганизаций);

	

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



Процедура ВывестиДанные(ТекстЗапроса)

	

	Запрос = Новый Запрос(ТекстЗапроса);

	Попытка 

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

		Если Не РезультатЗапроса.Пустой() Тогда

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

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

				ОбработкаПрерыванияПользователя();

				Строка = РезультатПоиска.Добавить();

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

			КонецЦикла;

		КонецЕсли;

	Исключение

		Сообщить(ИнформацияОбОшибке().Описание + " " + ИнформацияОбОшибке().Причина);

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

	

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



Процедура ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных)

	

	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();

	Если Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда

		Если ОбъектМетаданных.РежимЗаписи = НезависимыйРежимЗаписи Тогда

			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);

			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Ресурсы, ИмяТаблицы);

			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

			Возврат;

		КонецЕсли;

		АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

	КонецЕсли;

	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);

	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

	

	АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы);

	

	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда

		//Для рег. бухгалтерии анализ субконто

		

	КонецЕсли;

	Если Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда

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

	КонецЕсли;



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



Процедура ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных)

	

	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();

	АнализСвойствОбъекта(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

	Для Каждого ТабЧасть Из ОбъектМетаданных.ТабличныеЧасти Цикл

		Если ТабличныеЧастиИсключения.Найти(ТабЧасть.Имя) <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		АнализСвойствОбъекта(ОбъектМетаданных, ТабЧасть.Реквизиты, ИмяТаблицы + "." + ТабЧасть.Имя)

	КонецЦикла;

	//проверка владельца у справочников

	Если Метаданные.Справочники.Содержит(ОбъектМетаданных) И ОбъектМетаданных.Владельцы.Количество() > 0 Тогда

		МассивВладельцев = Новый Массив;

		Для Каждого Элемент Из ОбъектМетаданных.Владельцы Цикл

			МассивВладельцев.Добавить(Элемент);

		КонецЦикла;

		//АнализСвойствВладельцаОбъекта(ОбъектМетаданных, МассивВладельцев, ИмяТаблицы);

	КонецЕсли;

	

	//Для задач поле исполнитель

	//проверки в журналах

	

	ОбработкаПрерыванияПользователя();

	

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



Процедура АнализСвойствОбъекта(ОбъектМетаданных, Свойства, ИмяТаблицы)

	

	Для Каждого Реквизит Из Свойства Цикл

		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл

			ТекстЗапроса = "";

			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);

			Если МетаданныеТипа <> Неопределено

				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда

				Если ИспользоватьОграничение Тогда

					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда

						Продолжить;

					КонецЕсли;

				КонецЕсли;

				ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);

			КонецЕсли;

			Если Не ПустаяСтрока(ТекстЗапроса) Тогда

				ВывестиДанные(ТекстЗапроса);

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

	

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



Процедура АнализСвойствРегистра(ОбъектМетаданных, Свойства, ИмяТаблицы)

	

	Для Каждого Реквизит Из Свойства Цикл

		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл

			ТекстЗапроса = "";

			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);

			Если МетаданныеТипа <> Неопределено

				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда

				Если ИспользоватьОграничение Тогда

					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда

						Продолжить;

					КонецЕсли;

				КонецЕсли;

				ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);

			КонецЕсли;

			Если Не ПустаяСтрока(ТекстЗапроса) Тогда

				ВывестиДанные(ТекстЗапроса);

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

	

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



Процедура АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы)

	

	МассивРегистраторов = ПолучитьСписокРегистраторов(ОбъектМетаданных);

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

		Если РеквизитыИсключения.Найти("Регистратор") <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		моТип = Регистратор;

		ТекстЗапроса = "";

		МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);

		Если МетаданныеТипа <> Неопределено

			 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда

			Если ИспользоватьОграничение Тогда

				Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда

					Продолжить;

				КонецЕсли;

			КонецЕсли;

			ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, "Регистратор", моТип);

		КонецЕсли;

		Если Не ПустаяСтрока(ТекстЗапроса) Тогда

			ВывестиДанные(ТекстЗапроса);

		КонецЕсли;

	КонецЦикла;

	

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



Функция ПолучитьСписокРегистраторов(ОбъектМетаданных)

	

	МассивРегистраторов = Новый Массив;

	МенеджерОбъект = ПолучитьМенеджерОбъекта(ОбъектМетаданных);

	Если МенеджерОбъект <> Неопределено Тогда

		НаборЗаписей = МенеджерОбъект.СоздатьНаборЗаписей();

		ЭлементОтбора = НаборЗаписей.Отбор.Регистратор;

		МассивРегистраторов = ЭлементОтбора.ТипЗначения.Типы();

	КонецЕсли;

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

	

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



Функция ПолучитьМенеджерОбъекта(ОбъектМетаданных)

	

	Перем МенеджерОбъекта;

	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыБухгалтерии[ОбъектМетаданных.Имя];

	ИначеЕсли Метаданные.РегистрыНакопления.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыНакопления[ОбъектМетаданных.Имя];

	ИначеЕсли Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыСведений[ОбъектМетаданных.Имя];

	ИначеЕсли Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыРасчета[ОбъектМетаданных.Имя];

	КонецЕсли;

	Возврат МенеджерОбъекта;

	

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



Функция ПоискПоТипу(ИмяТипа)

	

	Результат = Ложь;

	Если ИспользоватьОграничение Тогда

		МассивСтрок = ОграничениеТипов.НайтиСтроки(Новый Структура("ТипДанных", ИмяТипа));

		Если ЗначениеЗаполнено(МассивСтрок) Тогда

			Результат = Истина;

		КонецЕсли;

	КонецЕсли;

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

	

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



Процедура ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)

	

	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 

			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 

			|	Об.Регистратор КАК ОбъектИсточник,

			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 

			|ИЗ 

			|	" + ИмяТаблицы + " КАК Об

			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);

	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;	

	

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



Процедура ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)

	

	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 

			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 

			|	Об.Ссылка КАК ОбъектИсточник,

			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 

			|ИЗ 

			|	" + ИмяТаблицы + " КАК Об

			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);

	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;

	

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



Функция ДобавитьУсловия(ИмяРеквизита, ТипРеквизита)

	

	мдОбъекта = Метаданные.НайтиПоТипу(ТипРеквизита);

	ИмяТаблицы = мдОбъекта.ПолноеИмя();

	ПроверкаНаПустыеЗначения = " Об." + ИмяРеквизита + " ССЫЛКА " + ИмяТаблицы;

	ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И ВЫРАЗИТЬ(Об." + ИмяРеквизита + " КАК " + ИмяТаблицы + ").Ссылка есть null";

	Если Не Метаданные.Перечисления.Содержит(мдОбъекта) Тогда

		ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И Об." + ИмяРеквизита + " <> Значение(" + ИмяТаблицы + ".ПустаяСсылка)";

	КонецЕсли;

	Возврат ПроверкаНаПустыеЗначения;

	

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



Функция ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита)

	

	ОбъектТипа = Метаданные.НайтиПоТипу(ТипРеквизита);

	ИмяТаблицы = ОбъектТипа.ПолноеИмя();

	ОписаниеТипа = """" + ИмяТаблицы + """ КАК ТипДанных";	

	Возврат ОписаниеТипа;

	

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



Процедура ОграничениеТиповТипДанныхНачалоВыбора(Элемент, СтандартнаяОбработка)

	

	Перем ЭлементСписка;

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

	Строка = ЭлементыФормы.ОграничениеТипов.ТекущиеДанные;

	Если Не ПустаяСтрока(Строка.ТипДанных) Тогда

		ЭлементСписка = СписокТипов.НайтиПоЗначению(Строка.ТипДанных);

	КонецЕсли;

	ВыбранныйЭлемент = СписокТипов.ВыбратьЭлемент( , ЭлементСписка);

	Если ВыбранныйЭлемент <> Неопределено Тогда

		Строка.ТипДанных = ВыбранныйЭлемент.Значение;

	КонецЕсли;

	

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



РеквизитыИсключения = Новый Массив;



ТабличныеЧастиИсключения = Новый Массив;



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

Для Каждого ОбъектМетаданных Из Метаданные.Справочники Цикл

	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.СправочникОбъект);

КонецЦикла;



Для Каждого ОбъектМетаданных Из Метаданные.Документы Цикл

	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.ДокументОбъект);

КонецЦикла;



КоллекцияОбъектов = Новый Массив;

КоллекцияОбъектов.Добавить(Метаданные.ПланыОбмена);

КоллекцияОбъектов.Добавить(Метаданные.Справочники);

КоллекцияОбъектов.Добавить(Метаданные.Документы);

КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовХарактеристик);

КоллекцияОбъектов.Добавить(Метаданные.ПланыСчетов);

КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовРасчета);

КоллекцияОбъектов.Добавить(Метаданные.БизнесПроцессы);

КоллекцияОбъектов.Добавить(Метаданные.Задачи);



КоллекцияРегистров = Новый Массив;

КоллекцияРегистров.Добавить(Метаданные.РегистрыСведений);

КоллекцияРегистров.Добавить(Метаданные.РегистрыНакопления);

КоллекцияРегистров.Добавить(Метаданные.РегистрыБухгалтерии);

КоллекцияРегистров.Добавить(Метаданные.РегистрыРасчета);

Категория: 1С Общие вопросы - Обычные формы

Ограничение доступа на уровне записей RLS Категория: Пользователь, роль доступа, интерфейс

Как получить вид объекта по переданной ссылке?

Код 1C v 8.х

 

// Возвращает вид объекта по переданной ссылке - строку "Справочник", "Документ" и т.д.

// Не обрабатываются точки маршрутов бизнес-процессов.

Функция ВидОбъектаПоСсылке(Ссылка) Экспорт

	ТипСсылки = ТипЗнч(Ссылка);

	Если Справочники.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Справочник";



	ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Документ";



	ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "БизнесПроцесс";



	ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланВидовХарактеристик";



	ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланСчетов";



	ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланВидовРасчета";



	ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Задача";



	ИначеЕсли ПланыОбмена.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланОбмена";



	ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Перечисление";



	Иначе

		Возврат "";



	КонецЕсли;

	

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

Категория: Полезные, Универсальные Функции

Работа с журналом расчетов в 1С7.7 из 1С 8.1 через Com соединение

Недавно делал перенос справочников и документов из 1С 7.7 "Зарплата и кадры" в 1С 8.1 "Управление торговым предприятием" через Com соединение. Во время переноса столкнулся с некоторыми проблемами. Одна из них - это при выполнении запроса очень важно правильно указать синтаксис передаваемых значений, особенно даты, иначе запрос не будет выполняться. Как правильно написать запрос? Смотрим:

Код 1C v 8.х

 //Создадим Com объект для подключения к 1С 77

  База77  = Новый COMObject("V77.Application");

  

  //Устанавливаем соединение  

  Открыта = База77.Initialize(База77.RMTrade,"/d" + ПутьКБазе77,"NO_SPLASH_SHOW");

 

  Если Открыта Тогда

    Предупреждение("Ошибка открытия информационной базы!");

  Иначе

    Сообщить("БАЗА ОТКРЫТА УСПЕШНО!");

  Конецесли;

 

  //Определим дату из периода за который 

  //необходимо выбрать данные

  ДатаПериода = ТекущаяДата();

  

  //Подключимся к журналу расчетов

  Зрп = База77.CreateObject("ЖурналРасчетов.Зарплата");

  

  //Получим период журнала расчета по нашей дате

  //переведем в формат без времени

  НТП = Формат(Зрп.НачалоПериодаПоДате(ДатаПериода),"ДЛФ=Д");

  КТП = Формат(Зрп.КонецПериодаПоДате(ДатаПериода),"ДЛФ=Д");

  

  //Напишем текст запроса

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

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

  ТекстЗапр =  "//{{ЗАПРОС(ВидыРасч)

  |Период с '" + НТП + "' по '" + КТП + "';

  |Вир = ЖурналРасчетов.Зарплата.ВидРасч;

  |Рез = ЖурналРасчетов.Зарплата.Результат;

  |Дни = ЖурналРасчетов.Зарплата.Дни;   

  |ДатаНачала   = ЖурналРасчетов.Зарплата.ДатаНачала;

  |ДатаОкончания   = ЖурналРасчетов.Зарплата.ДатаОкончания;  

  |Часы = ЖурналРасчетов.Зарплата.Часы;   

  |Субконто = ЖурналРасчетов.Зарплата.Субконто;  

  |Сот = ЖурналРасчетов.Зарплата.Объект;

  |КодОбъекта = ЖурналРасчетов.Зарплата.Объект.Код;

  |Функция РезСумма = Сумма(Рез);

  |Группировка Сот;

  |Группировка Вир;

  |"//}}ЗАПРОС

  ;

  

  //Создаем объект типа запрос

  Запр = База77.CreateObject("Запрос");

  

  //Выполним запрос, если успешно делаем выборку

  Если Запр.Выполнить(ТекстЗапр) <> 0 Тогда

    Пока Запр.Группировка("Сот") = 1 Цикл

      Пока Запр.Группировка("Вир") = 1 Цикл                

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

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

      Конеццикла;  

    Конеццикла;  

  Конецесли;

Если нам необходимо установить отбор в журнале, например по сотруднику, то сделать это можно следующим образом:

Код 1C v 8.х

  //в перечне полей добавляем поле код объекта (можно наименование)

"|КодОбъекта = ЖурналРасчетов.Зарплата.Объект.Код;"

//строка условия будет следующей

"|Условие(КодОбъекта = " + Сотр.код + ");"

Из журнала расчетов можно выбрать записи без запроса, методом прямой выборки. В некоторых ситуациях этот способ может быть даже удобней чем через запрос. В данном случае синтаксис будет довольно простым:

Код 1C v 7.x

  Запр = База77.CreateObject("ЖурналРасчетов.Зарплата");

Запр.ВыбратьЗаписиПоОбъекту(Сотр,НТП,КТП);

Пока Запр.ПолучитьЗапись() = 1 Цикл

//Делаем обработку выборки

Конеццикла;

Написал Валецкий Станислав

Категория: Журналы расчетов

Функция формирует объект Структура, содержащая метаданные 77 для составления прямых запросов

Код 1C v 8.х

 Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт

	МД = Новый Структура;



	Состояние("Подключение к " + КаталогИБ);



	V7 = Новый COMОбъект("V77.Application");

	Если V7.Initialize(V7.RMTrade, "/d"""+КаталогИБ+""" /n"+ИмяПользователяV7+" /p"+ПарольПользователяV7, "NO_SPASH_SHOW") = 0 Тогда

		Сообщить("Нет доступа к информационной базе.");

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

	КонецЕсли;



	MDW = V7.CreateObject("MetaDataWork");



	MD = V7.Метаданные;



	Состояние("Загрузка справочников..");

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

	МД.Вставить("Справочник", Ст1);

	Для Номер1 = 1 По MD.Справочник() Цикл

		МДСправочник = MD.Справочник(Номер1);

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

		Ст1.Вставить(МДСправочник.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДСправочник));

		Для Номер2 = 1 По МДСправочник.Реквизит() Цикл

			МДРеквизит = МДСправочник.Реквизит(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка перечислений..");

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

	МД.Вставить("Перечисление", Ст1);

	Для Номер1 = 1 По MD.Перечисление() Цикл

		МДПеречисление = MD.Перечисление(Номер1);

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

		Ст1.Вставить(МДПеречисление.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДПеречисление));

		Для Номер2 = 1 По МДПеречисление.Значение() Цикл

			МДЗначение = МДПеречисление.Значение(Номер2);

			Ст2.Вставить(МДЗначение.Идентификатор, V7.EvalExpr("_idtostr("+MDW.ИДОбъекта(МДЗначение)+")")+"   ");

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка документов..");

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

	МД.Вставить("Документ", Ст1);

	Для Номер1 = 1 По MD.Документ() Цикл

		МДДокумент = MD.Документ(Номер1);

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

		Ст1.Вставить(МДДокумент.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДДокумент));

		Для Номер2 = 1 По МДДокумент.РеквизитШапки() Цикл

			МДРеквизит = МДДокумент.РеквизитШапки(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

		Для Номер2 = 1 По МДДокумент.РеквизитТабличнойЧасти() Цикл

			МДРеквизит = МДДокумент.РеквизитТабличнойЧасти(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка регистров..");

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

	МД.Вставить("Регистр", Ст1);

	Для Номер1 = 1 По MD.Регистр() Цикл

		МДРегистр = MD.Регистр(Номер1);

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

		Ст1.Вставить(МДРегистр.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДРегистр));

		Для Номер2 = 1 По МДРегистр.Измерение() Цикл

			МДИзмерение = МДРегистр.Измерение(Номер2);

			Ст2.Вставить(МДИзмерение.Идентификатор, MDW.ИДОбъекта(МДИзмерение));

		КонецЦикла;

		Для Номер2 = 1 По МДРегистр.Ресурс() Цикл

			МДРесурс = МДРегистр.Ресурс(Номер2);

			Ст2.Вставить(МДРесурс.Идентификатор, MDW.ИДОбъекта(МДРесурс));

		КонецЦикла;

		Для Номер2 = 1 По МДРегистр.Реквизит() Цикл

			МДРеквизит = МДРегистр.Реквизит(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Константы.МетаданныеУдаленнойИБ.Установить(Новый ХранилищеЗначения(МД));

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

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

Формируется конечно не быстро, но Структура - объект сериализуемый, поэтому ее надо просто хранить в ХранилищеЗначения в базе 8ки, и восстанавливать перед каждым переносом данных, а не формировать заново. Обновлять ее можно периодически при изменении конфигурации, ито если изменения влияют на перенос данных.

Обратите внимание: все идентификаторы объектов в 10ой системе, а идентификаторы значений перечислений в 36ой.

DmitrO

Категория: COM-объекты, WMI, WSH