msk » Поиск » HelpF.pro

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

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

На одном проекте потребовалось получать координаты выделенной области на яндекс карте, после долгих изучений получилось следующее:

Вид Формы: На карте выделяете объект, нажимаете кнопку Получить координаты выделенной области и заполняется таблица координат

Код инициализации карты и обработчик кнопки получения координат:

Код 1C v 8.х

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

	

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

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

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

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

	КонецЕсли; 

	

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

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

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

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

		

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

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





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

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

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

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





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

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

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





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

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

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

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

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

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

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

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

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

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

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

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

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

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

	КонецЦикла;	

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

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

Макет

Код VBS

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

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

Автоматическая архивация баз 1С с использованием Cobian Backup и VBS скриптов

Клиент попросил настроить автоматическую архивацию баз 1С раз в три дня и выгрузку архивов на Dropbox и на FTP Сервер. Кроме 1С нужно архивировать папку с рабочими документами. Хочет - так хочет, делаем:

Первым делом настроим автоматическую архивацию данных. Конечно, можно использовать планировщик Windows и VBS скрипт, но это дедовский способ, т.к. уже полно универсальных, платных и бесплатных инструментов для архивации данных.

Из платных могу посоветовать handy backup, версия expert умеет работать с 1С, но цена ~ 5 300 немного останавливает - поэтому мы используем бесплатный Cobian Backup - респект разработчику!

Установка Cobian Backup

Скачиваем с оф. сайта

и запускаем установщик:

Устанавливаем службу, используя учетку от 1С

Далее идет установка, ОК по завершении.

Настройка автоархивирования 1С

У нас в арсенале 3 базы 1С:

1 - файловая
2 - серверных

Для создания архивов 1С мы будем использовать типовой механиз, для этого создана папка Backup1C и в ней bat файлы выполняющие архивацию баз:

Для файловых баз код bat файла следующий (zup.bat):

Код Batch File (DOS, CMD, BAT)

 echo ************************************************************ 

echo Setup param: 

echo ************************************************************ 

set __1c_path=C:\Program Files (x86)\1cv82\common\1cestart.exe

set __base_name=zup_msk

set __base_path=E:\Accounting\Staff\zup_msk

set __upload_path=D:\Backup1C

set __username=Backup

set __password=123420

echo ******************

echo Create folder:

echo ******************

md "%__upload_path%\%__base_name%" 

echo ************************************************************ 

echo Create backup: 

echo ************************************************************ 

"%__1c_path%" config /Out"%__upload_path%\%__base_name%\%__base_name%.log" /F"%__base_path%" /N"%__username%" /P"%__password%" /DumpIB"%__upload_path%\%__base_name%\%__base_name%-%date%.dt"

Для серверных (crm.bat):

Код Batch File (DOS, CMD, BAT)

 echo ************************************************************ 

echo Setup param: 

echo ************************************************************ 

set __1c_path=C:\Program Files (x86)\1cv82\common\1cestart.exe

set __base_name=crm

set __base_path=server1C\db_crm

set __upload_path=D:\Backup1C

set __username=Backup

set __password=123420

echo ******************

echo Create folder:

echo ******************

md "%__upload_path%\%__base_name%" 

echo ************************************************************ 

echo Create backup: 

echo ************************************************************ 

"%__1c_path%" config /Out"%__upload_path%\%__base_name%\%__base_name%.log" /S"%__base_path%" /N"%__username%" /P"%__password%" /DumpIB"%__upload_path%\%__base_name%\%__base_name%-%date%.dt"

Отроем Cobian Backup, для создания заданий

Настроим архивацию файловой базы:

Добавляем создание, снимаем галки внизу, т.к. у нас не будет прямого копирования:

на закладке Файлы устанавливаем копирование каталога на FTP:

Расписание:

далее можно задать цикличность - приоритет, сжатие архивов, шифрование - но это я буду использовать при архивировании документов, а для 1С мы это не используем.

Доп. действия:

Выполнить и ждать закрытия bat файл и добавим паузу в 180 секунд (этого времени хватает чтобы выполнить выгрузку базы ЗУП)

На закладке Дополнительно, я поставил только одну галку - Синхронизация

Итог настройки:

Запускаем задание для проверки работоспособности, и через ~ 3 минуты:

Архив успешно создан, FTP сервер я пока не настроил, поэтому он вызвал ошибку - Но главное мы получили дамп базы 1С для дальнейшего копирования на сервера ftp, при верных настройках ftp, все отлично копируется - проверено уже не раз

Настраиваем архивацию серверной базы

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

и базы на SQL большие - поэтому после выполнения bat файла добавим паузу 3000 секунд

Результат тестового выполнения:

Архив сделался за 8 минут, т.е. паузы 600 секунд вполне хватит.

Выгрузка на Dropbox

Для выгрузки на DropBox использовал резервное копирование от Антивируса Касперского. Он быстро подключился к хранилищу, правда пришлось на нем оплатить место до 1 ТБ)

В итоге:

все работает как часики: архивы создаются 2 раза в неделю и заливаются на облачные сервера

Категория: Администрирование

Чтение данных с сайта в формате XML и загрузка в 1С

При разработке веб проекта нам потребовалось получать с одного сайта данные в формате XML и загружать их в 1С.

Сайт выдает XML вида (Ссылка на этот xml в коде, внизу):

Код 1C v 8.3

 This XML file does not appear to have any style information associated with it. The document tree is shown below.

<updates version="1.0" generator="SEOBudget" url="http://seobudget.ru/updates/">

<update id="cy" name="Обновление тИЦ Яндекса">

<date id="1823" index="1419324939" timestamp="1419324939">23.12.2014 11:55:39 MSK</date>

<date id="1792" index="1415776885" timestamp="1415776885">12.11.2014 10:21:25 MSK</date>

<date id="1760" index="1412923802" timestamp="1412924102">10.10.2014 10:55:02 MSK</date>

</update>

<update id="serp" name="Обновление поисковой выдачи Яндекса">

<date id="1872" index="1424898000" timestamp="1425604249">06.03.2015 04:10:49 MSK</date>

<date id="1871" index="1423602000" timestamp="1425586715">05.03.2015 23:18:35 MSK</date>

<date id="1868" index="1423602000" timestamp="1425402241">03.03.2015 20:04:01 MSK</date>

</update>

<update id="yaca" name="Обновление Яндекс.Каталога">

<date id="1875" index="1425931200" timestamp="1425973201">10.03.2015 10:40:01 MSK</date>

<date id="1874" index="1425758400" timestamp="1425886502">09.03.2015 10:35:02 MSK</date>

<date id="1873" index="1425585600" timestamp="1425628803">06.03.2015 11:00:03 MSK</date>

</update>

<update id="pr" name="Обновление Google PR">

<date id="1512" index="1386353345" timestamp="1386353345">06.12.2013 22:09:05 MSK</date>

<date id="1265" index="1360130400" timestamp="1360130400">06.02.2013 10:00:00 MSK</date>

<date id="1196" index="1352376123" timestamp="1352376123">08.11.2012 16:02:03 MSK</date>

</update>

<update id="user" name="Обновление ПФ в Яндексе">

<date id="1799" index="1415950021" timestamp="1416986821">26.11.2014 10:27:01 MSK</date>

<date id="1763" index="1409237032" timestamp="1413211432">13.10.2014 18:43:52 MSK</date>

<date id="1665" index="1400617705" timestamp="1401222505">28.05.2014 00:28:25 MSK</date>

</update>

</updates><br>

В результате была написана обработка загрузки данных с сайта в 1С, ее код:

Код 1C v 8.3

 &НаСервере

Функция ЧтениеXMLВДерево(Путь)

	//Создаем дерево

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

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

	Дерево.Колонки.Добавить("Значение");

	

	//Откроем XML

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

	XMLФайл.ОткрытьФайл(Путь);

	

	//Прочитаем XML и создадим дерево

	ПрочитатьXMLПоТегам(XMLФайл, Дерево.Строки);

	

	XMLФайл.Закрыть();	

	

	ТекДанные = Неопределено;

	

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

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

		Для каждого СтрокаВ из СтрокаП.Строки Цикл

			// Сообщить(СтрокаВ.Имя);	

			Для каждого СтрокаТ из СтрокаВ.Строки Цикл

				//Сообщить(СтрокаТ.Имя);	

				Если СтрокаТ.Значение = "cy" тогда

					ТекДанные = Перечисления.Показатель.TiC;

				ИначеЕсли СтрокаТ.Значение = "serp" тогда

	                ТекДанные = Перечисления.Показатель.SYa;

				ИначеЕсли СтрокаТ.Значение = "yaca" тогда

	                ТекДанные = Перечисления.Показатель.CatYa;	

				ИначеЕсли СтрокаТ.Значение = "pr" тогда

	                ТекДанные = Перечисления.Показатель.RP;	

				ИначеЕсли СтрокаТ.Значение = "user" тогда

	                ТекДанные = Перечисления.Показатель.PFYa;

				КонецЕсли;

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

					Если СтрокаД.Имя="timestamp" Тогда

					// Получим из timestamp дату события

					ДатаИзменения = МестноеВремя('19700101'+СтрокаД.значение);

					

					//Запишем в регистр

					НовЗапись = РегистрыСведений.ТиЦиRP.СоздатьМенеджерЗаписи();

					НовЗапись.Показатель = ТекДанные;

					НовЗапись.Период  = ДатаИзменения;

					НовЗапись.Записать();

					КонецЕсли;

				КонецЦикла;

			КонецЦикла;

		КонецЦикла; 

	КонецЦикла; 

	

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



&НаСервереБезКонтекста

Процедура ПрочитатьXMLПоТегам(XMLФайл, ТекущийНаборСтрок)

    

    Пока XMLФайл.Прочитать() Цикл

		Если XMLФайл.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

            

            НоваяСтрока = ТекущийНаборСтрок.Добавить();

            НоваяСтрока.Имя = XMLФайл.Имя;

            НоваяСтрока.Значение = "";

            

			Пока XMLФайл.ПрочитатьАтрибут() Цикл

				

				НоваяСтрокаАтрибут = НоваяСтрока.Строки.Добавить();

	            НоваяСтрокаАтрибут.Имя = XMLФайл.Имя;

	            НоваяСтрокаАтрибут.Значение = СокрЛП(XMLФайл.Значение);

					

			КонецЦикла;

			

			ПрочитатьXMLПоТегам(XMLФайл, НоваяСтрока.Строки);

			

        ИначеЕсли XMLФайл.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда

            Возврат;

		ИначеЕсли XMLФайл.ТипУзла = ТипУзлаXML.Текст Тогда

			

            ТекущийНаборСтрок.Родитель.Значение = СокрЛП(XMLФайл.Значение);

            

        Иначе

            Сообщить("Тип узла: " + XMLФайл.ТипУзла + " НЕ ОБРАБОТАН", СтатусСообщения.Важное);

        Конецесли;

    КонецЦикла;

     

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



// Кнопка Обработки

&НаКлиенте

Процедура СборXML(Команда) 

ЧтениеXMLВДерево("http://seobudget.ru/downloads/updates.xml");

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

Результат загруженный в регистр сведений:

Категория: Работа с Интернет, Почтой (Mail), FTP