{"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}   

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

	Чтение.УстановитьСтроку(стрВходящая);

	ДанныеЛога = ПрочитатьJSON(Чтение);

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

 //Функция читает полученный JSON декадируя текст юникод

Функция ДекодироватьUniCodeВJSON(стрВходящая) 

	// стрВходящая содержит {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}

	

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

	Чтение.УстановитьСтроку(стрВходящая);

	ДанныеЛога = ПрочитатьJSON(Чтение);

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

	

	// Вариант 1 используя перебор структуры и вывод в текстовую переменную

	Текст = "";

	Для каждого Элемент Из ДанныеЛога Цикл

		//добавим разделитель после предыдущего значения

		Текст = Текст + ?(НЕ ПустаяСтрока(Текст), Символы.ПС, "");

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

		Текст = Текст + Элемент.Ключ + " = " + Элемент.Значение;

	КонецЦикла;

	Возврат Текст; //Вернет   ok = true   description = Статус заказа изменен

	

	// Вариант 2 мспользуя ЗаписьJSON

	Запись = Новый ЗаписьJSON;    

	Запись.УстановитьСтроку(Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет));

	ЗаписатьJSON(Запись, ДанныеЛога,);

	Возврат Запись.Закрыть();  // Вернет JSON  {"ok":"true","description":"Статус заказа изменен"}

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

 //Параметры: Строка в Юникод (обязательный) Тип: Строка. Исходная строка.

//Возвращаемое значение: Тип: Строка. Строка обработанных символов.

//Описание: Возвращает преобразованную строку из формата Unicod.

//Автор: Александр Кияница (treedo)

Функция ПереобразоватьЮникод(Строка)

   

    ГотововаяСтрока = "" ;

    

    МасУкр = Новый Массив(66) ;

    

    МасУкр[0]="А";   МасУкр[1]="Б";  МасУкр[2]="В";  МасУкр[3]="Г";  МасУкр[4]="Ґ";  МасУкр[5]="Д";

    МасУкр[6]="Е";   МасУкр[7]="Є";  МасУкр[8]="Ж";  МасУкр[9]="З";  МасУкр[10]="И"; МасУкр[11]="І";

    МасУкр[12]="Ї";  МасУкр[13]="Й"; МасУкр[14]="К"; МасУкр[15]="Л"; МасУкр[16]="М"; МасУкр[17]="Н";

    МасУкр[18]="О";  МасУкр[19]="П"; МасУкр[20]="Р"; МасУкр[21]="С"; МасУкр[22]="Т"; МасУкр[23]="У";

    МасУкр[24]="Ф";  МасУкр[25]="Х"; МасУкр[26]="Ц"; МасУкр[27]="Ч"; МасУкр[28]="Ш"; МасУкр[29]="Щ";

    МасУкр[30]="Ь";  МасУкр[31]="Ю"; МасУкр[32]="Я";  





    МасУкр[33]="а";  МасУкр[34]="б"; МасУкр[35]="в"; МасУкр[36]="г"; МасУкр[37]="ґ"; МасУкр[38]="д";

    МасУкр[39]="е";  МасУкр[40]="є"; МасУкр[41]="ж"; МасУкр[42]="з"; МасУкр[43]="и"; МасУкр[44]="і";

    МасУкр[45]="ї";  МасУкр[46]="й"; МасУкр[47]="к"; МасУкр[48]="л"; МасУкр[49]="м"; МасУкр[50]="н";

    МасУкр[51]="о";  МасУкр[52]="п"; МасУкр[53]="р"; МасУкр[54]="с"; МасУкр[55]="т"; МасУкр[56]="у";

    МасУкр[57]="ф";  МасУкр[58]="х"; МасУкр[59]="ц"; МасУкр[60]="ч"; МасУкр[61]="ш"; МасУкр[62]="щ";

    МасУкр[63]="ь";  МасУкр[31]="ю"; МасУкр[65]="я";  

        

    

    МасКод = Новый Массив(66) ;

    

    МасКод[0]="0410";   МасКод[1]="0411";  МасКод[2]="0412";  МасКод[3]="0413";  МасКод[4]="0490";  МасКод[5]="0414";

    МасКод[6]="0415";   МасКод[7]="0404";  МасКод[8]="0416";  МасКод[9]="0417";  МасКод[10]="0418"; МасКод[11]="0406";

    МасКод[12]="0407";  МасКод[13]="0419"; МасКод[14]="041A"; МасКод[15]="041B"; МасКод[16]="041C"; МасКод[17]="041D";

    МасКод[18]="041E";  МасКод[19]="041F"; МасКод[20]="0420"; МасКод[21]="0421"; МасКод[22]="0422"; МасКод[23]="0423";

    МасКод[24]="0424";  МасКод[25]="0425"; МасКод[26]="0426"; МасКод[27]="0427"; МасКод[28]="0428"; МасКод[29]="0429";

    МасКод[30]="042C";  МасКод[31]="042E"; МасКод[32]="042F";  





    МасКод[33]="0430";  МасКод[34]="0431"; МасКод[35]="0432"; МасКод[36]="0413"; МасКод[37]="0491"; МасКод[38]="0434";

    МасКод[39]="0435";  МасКод[40]="0454"; МасКод[41]="0436"; МасКод[42]="0437"; МасКод[43]="0438"; МасКод[44]="0456";

    МасКод[45]="0457";  МасКод[46]="0439"; МасКод[47]="043A"; МасКод[48]="043B"; МасКод[49]="043C"; МасКод[50]="043D";

    МасКод[51]="043E";  МасКод[52]="043F"; МасКод[53]="0440"; МасКод[54]="0441"; МасКод[55]="0442"; МасКод[56]="0443";

    МасКод[57]="0444";  МасКод[58]="0445"; МасКод[59]="0446"; МасКод[60]="0447"; МасКод[61]="0448"; МасКод[62]="0449";

    МасКод[63]="044C";  МасКод[31]="044E"; МасКод[65]="044F";  

    

    

    тмпСтрока = "" ;

    Для Счетчик = 1 По СтрДлина(Строка) Цикл      

        Если Лев(Строка, 1) = "\" Тогда

            Если Лев(Строка, 2) = "\u" Тогда

                

                тмпСтрока = Прав(Лев(Строка, 6),4) ;

                Если МасКод.Найти(тмпСтрока) = Неопределено Тогда

                    СтрокаЗамены = Прав(тмпСтрока, 1) ;

                    тмпСтрока = СтрЗаменить(тмпСтрока,СтрокаЗамены,ТРег(СтрокаЗамены)); 

                    Если МасКод.Найти(тмпСтрока) = Неопределено Тогда

                        Сообщить("Код символа не найден: " + тмпСтрока) ;

                    Иначе                      

                        ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;                                   

                    КонецЕсли;

                Иначе

                    ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;               

                КонецЕсли;

                

                Строка = Прав(Строка, (СтрДлина(Строка)-6)) ; 

            Иначе  

                Строка = Прав(Строка, (СтрДлина(Строка)-2)) ;

            КонецЕсли;

        Иначе

            ГотововаяСтрока = ГотововаяСтрока + Лев(Строка, 1) ;

            Строка = Прав(Строка, (СтрДлина(Строка)-1)) ;     

        КонецЕсли;         

    КонецЦикла;   





    Возврат ГотововаяСтрока ;

        

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

 //Простой пример

Дата1С = XMLЗначение(Тип("Дата"), "2023-07-24T15:35:34+03:00");



// еще Функция Возвращает структуру с полями "Дата" и "Миллисекунды", стандартный способ преобразования даты округляет время, а в некоторых случаях важна особая точность

Функция КонвертироватьДатуISO8601ВДату(Дата) Экспорт

	КонвертированнаяДата = Новый Структура("Дата, Миллисекунды");

	АвтоконвертированнаяДата = XMLЗначение(Тип("Дата"), Дата);



	Миллисекунды = Сред(Дата, 21);

	Миллисекунды = СокрЛП(СтрЗаменить(Миллисекунды, "Z", ""));



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

		

		ЧислоМиллисекунд = Число(Миллисекунды);

		

		Если ЧислоМиллисекунд >= 500 Тогда

			

			АвтоконвертированнаяДата = АвтоконвертированнаяДата - 1;

			

		КонецЕсли;

		

	КонецЕсли;

	

	КонвертированнаяДата.Дата = АвтоконвертированнаяДата;

	

	КонвертированнаяДата.Миллисекунды = Миллисекунды;

	

	Возврат КонвертированнаяДата;

КонецФункци   

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

	

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

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

	сп.Добавить("СотрудникиОрганизаций");

	сп.Добавить("ФизическиеЛица");

	сп.Добавить("ДоговорыКонтрагентов");

	сп.Добавить("Контрагенты");

	

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

		текСпр=стр.Значение;

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

		Текст = 

		"ВЫБРАТЬ

		|	СотрудникиОрганизаций.Ссылка

		|ИЗ

		|	Справочник.%текСпр% КАК СотрудникиОрганизаций

		|ГДЕ

		|	НЕ СотрудникиОрганизаций.ПометкаУдаления И НЕ СотрудникиОрганизаций.ЭтоГруппа";

		Запрос.Текст = СтрЗаменить(Текст,"%текСпр%",текСпр);

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

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

		итЗаписей = Строка(ВыборкаДетальныеЗаписи.Количество());

		ном=0;

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

			ном=ном+1; Состояние(текСпр+": "+Строка(ном)+" из "+итЗаписей);

			СсылкаНаУдаляемыйЭлемент = ВыборкаДетальныеЗаписи.Ссылка;

			// Найти ссылки на удаляемый элемент - СсылкаНаУдаляемыйЭлемент. 

			МассивСсылок = Новый Массив; 

			МассивСсылок.Добавить(СсылкаНаУдаляемыйЭлемент); 

			НайденныеСсылки = НайтиПоСсылкам(МассивСсылок); 

			

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

				Сообщить("Нельзя удалять элемент:"+Строка(СсылкаНаУдаляемыйЭлемент)+", на него имеются ссылки",СтатусСообщения.Внимание); 

			Иначе

				Сообщить("Удаляем элемент:"+Строка(СсылкаНаУдаляемыйЭлемент),СтатусСообщения.Информация); 

				// Получаем объект

				УдаляемыйЭлемент = СсылкаНаУдаляемыйЭлемент.ПолучитьОбъект(); 

				// Установить пометку

				//УдаляемыйЭлемент.УстановитьПометкуУдаления(Истина); 

				// Удалить сразу

				УдаляемыйЭлемент.Удалить();

			КонецЕсли; 		  

			

		КонецЦикла; 

	КонецЦикла;    

 // Преобразовать табличный документ в таблицу значений.

//

// Параметры:

//	ТабДок - <ТабличныйДокумент> - Исходный табличный документ;

//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок;

//	НачалоСтрока - <Число> - Строка начала области;

//	НачалоСтолбец - <Число> - Столбец начала области;

//	КонецСтрока - <Число> - Строка конца области;

//	КонецСтолбец - <Число> - Столбец конца области.

//	

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

//	<ТаблицаЗначений> - Полученная таблица значений.

//

Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт

 

	// Определение габаритов таблицы

	Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда

		НачалоСтрока = 1;

		НачалоСтолбец = 1;

	КонецЕсли;

 

	Если НачалоСтрока = Неопределено Тогда

		НачалоСтрока = 1;

		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 

		 И НачалоСтрока < ТабДок.ВысотаТаблицы 

		Цикл

			НачалоСтрока = НачалоСтрока + 1;

		КонецЦикла;

	ИначеЕсли НачалоСтолбец = Неопределено Тогда

		НачалоСтолбец = 1;

		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 

		 И НачалоСтолбец < ТабДок.ШиринаТаблицы

		Цикл

			НачалоСтолбец = НачалоСтолбец + 1;

		КонецЦикла;

	КонецЕсли;

 

	КонецСтрока = ?(КонецСтрока = Неопределено, ТабДок.ВысотаТаблицы, КонецСтрока);

	КонецСтолбец = ?(КонецСтолбец = Неопределено, ТабДок.ШиринаТаблицы, КонецСтолбец);

 

	// Преобразование

	ЭтоТаблица = (ТипЗнч(СтруктураКолонок) = Тип("ТаблицаЗначений"));

	ТабЗначений = ПолучитьТаблицуВывода(СтруктураКолонок);

 

	Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл

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

 

		ИндексКолонки = НачалоСтолбец;

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

			НаименованиеКолонки = ?(ЭтоТаблица, Колонка.Наименование, Колонка.Ключ);

			пИндексКолонки = ?(ЭтоТаблица, Колонка.СтолбецОтчёт, ИндексКолонки);

 

			Если ТабДок.Область(ИндексСтроки, пИндексКолонки).СодержитЗначение Тогда

				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Значение;

			Иначе

				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Текст;

			КонецЕсли;

 

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

	КонецЦикла;

 

	Возврат ТабЗначений;

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



// Преобразовать таблицу значений в табличный документ.

//

// Параметры:

//	ТабЗначений - <ТаблицаЗначений> - Исходная таблица значений;

//	ТабДок - <ТабличныйДокумент> - Полученный табличный документ. Если параметр не задан, 

//	 то документ создаётся заново и возвращается функцией;

//	НачалоСтрока - <Число> - Строка начала области;

//	НачалоСтолбец - <Число> - Столбец начала области;

//	ВыводитьЗаголовки - <Булево> - Определяет выводить ли имена колонок или нет.

//	

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

//	<ТабличныйДокумент> - Полученный табличный документ (возвращает параметр "ТабДок").

//

Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт

 

	Если ТабДок = Неопределено Тогда

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

	КонецЕсли;

 

	// Определение габаритов таблицы

	НачалоСтрока = ?(НачалоСтрока = Неопределено, 1, НачалоСтрока);

	НачалоСтолбец = ?(НачалоСтолбец = Неопределено, 1, НачалоСтолбец);

 

	// Преобразование

	ИндексСтроки = НачалоСтрока;

	Если ВыводитьЗаголовки Тогда

		ИндексКолонки = НачалоСтолбец;

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

			ТабДок.Область(ИндексСтроки, ИндексКолонки).Текст = ?(ПустаяСтрока(Колонка.Заголовок), Колонка.Имя, Колонка.Заголовок);

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

		ИндексСтроки = ИндексСтроки + 1;

	КонецЕсли;

 

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

		ИндексКолонки = НачалоСтолбец;

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

			ТабДок.Область(ИндексСтроки, ИндексКолонки).СодержитЗначение = Истина;

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

			ТабДок.Область(ИндексСтроки, ИндексКолонки).Значение = Элемент[Колонка.Имя];

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

		ИндексСтроки = ИндексСтроки + 1;

	КонецЦикла;

 

	Возврат ТабДок;

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



// Читает табличный документ из файла MXL и преобразует его в таблицу значений.

//

// Параметры:

//	ИмяФайла - <Строка> - Путь к файлу MXL;

//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок. Если этот параметр

//		не задан, то структура колонок формируется из самого табличного документа;

//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.

//	

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

//	<ТаблицаЗначений> - Полученная таблица значений.

//

Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт

 

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

	ТабДок.Прочитать(ИмяФайла);

 

	Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда

		СтруктураКолонок = Новый Структура;

		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл

			Обл1 = ТабДок.Область(1, ИндексКолонки);

			Обл2 = ТабДок.Область(2, ИндексКолонки);

			ИмяКолонки = СокрЛП(Обл1.Текст);

			ИмяКолонки = ?(Найти(ИмяКолонки, " ") > 0, СтрЗаменить(ТРег(ИмяКолонки), " ", ""), ИмяКолонки);

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

		КонецЦикла;

	ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда

		СтруктураКолонок = Новый Структура;

		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл

			Обл2 = ТабДок.Область(1, ИндексКолонки);

			ИмяКолонки = "К" + Формат(ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0");

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

		КонецЦикла;

	КонецЕсли;

 

    Таблица = ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, ?(ЕстьЗаголовок, 2, 1), 1);

 

	Возврат Таблица;

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



// Сохраняет таблицу значений в файле в виде табличного документа.

//

// Параметры:

//	ИмяФайла - <Строка> - Путь к файлу MXL;

//	ТабЗначений - <ТаблицаЗначений> - Сохраняемая таблица значений;

//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.

//

Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт

 

	ТабДок = ПреобразоватьТЗвТД(ТабЗначений, Неопределено, 1, 1, ЕстьЗаголовок);

	ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.MXL);

 

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

 // Получаем таблицу значения из файла. 

Функция ЗагрузитьТЗизФайла(ИмяФайла)    

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

    Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); 

    стрТЗ = Текст.Прочитать(); 

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

    // получим таблицу значений из строки

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

    Возврат ТЗ;    

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



// Заполнить ячейки в строке  значениями 

//

Функция ЗаписьТЗ2ТабДок(записьТЗ,НомерСтроки,ТабличныйДокумент)

    НомерКолонки = 1;

    Символ160 = Символ(160);    

    // цикл по колонкам таблицы

    // РезультатЗапроса.Колонки.Количество()    // - количество колонок

    Для каждого полеТЗ из ЗаписьТЗ цикл 

        // значения ячейки в Excel

        типПоляТЗ = ТипЗнч(полеТЗ);

        если типПоляТЗ = Тип("Число") тогда             

            полеТЗ=Строка(полеТЗ); 

            полеТЗ=СтрЗаменить(полеТЗ,Символ160,"");

            полеТЗ=СтрЗаменить(полеТЗ,",",".");

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

        иначе        

            полеТЗ = строка(полеТЗ);

        КонецЕсли;    

        имяОбласти = "R" + номерСтроки + "C" + НомерКолонки;

        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка = ТабличныйДокумент.Область(имяОбласти);

        Ячейка.Текст = полеТЗ;

        НомерКолонки = НомерКолонки + 1;

    КонецЦикла;            

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



// Заполнить наименованиями колонок таблицу

Функция НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент)

    // массКолонки = новый массив();

    номерСтроки=1;

    номКолонки=1; 

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

    // цикл по коллекции колонок

    Для НомКол=0 по ТаблицаЗначений.Колонки.Количество() - 1 Цикл

        //Сообщить(Колонка.Имя + "(" + Колонка.ТипЗначения + ")" );            

        имяКолонки=ТаблицаЗначений.Колонки[НомКол].Имя;

        //ТабличныйДокумент.Область(

        имяОбласти = "R" + номерСтроки + "C" + номКолонки;

        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка = ТабличныйДокумент.Область(имяОбласти);

        //значениеЯчейки = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка.Текст = имяКолонки;

        // на основе текущего шрифта сделаем Жирный

        ЖирныйШрифт = ?(ЖирныйШрифт = Неопределено,Новый Шрифт(Ячейка.Шрифт,,,Истина),ЖирныйШрифт);         

        Ячейка.Шрифт = ЖирныйШрифт;

        номКолонки = номКолонки + 1;        

    КонецЦикла;

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





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

Функция Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент)

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

    НомСтр=1; // заполняем данными начиная со 2-й строки    

    // цикл по строкам таблицы

    Для каждого записьТЗ из ТаблицаЗначений Цикл

        НомСтр = НомСтр + 1;

        // цикл по колонкам таблицы        

        ЗаписьТЗ2ТабДок(записьТЗ,НомСтр,ТабличныйДокумент);         

    КонецЦикла;    

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



// Таблица значений в табличный документ

Функция ТаблицаЗначений2Mxl(ТаблицаЗначений,ФайлMxl)

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

    // вывести колонки

    НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент);

    // вывести содержимое таблицы    

    Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент);

    ТабличныйДокумент.Записать(ФайлMxl,ТипФайлаТабличногоДокумента.MXL);

    ТабличныйДокумент.Показать(ФайлMxl,ФайлMxl);

    Возврат 0;

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





Функция    Тест_ВыгрузитьТЗвMxl();

    файл_мТЗИсходныеДанные = "мТЗИсходныеДанные.dat";        

    ТЗ = ЗагрузитьТЗизФайла(файл_мТЗИсходныеДанные);    

    ФайлMxl = КаталогВременныхФайлов() + СтрЗаменить(файл_мТЗИсходныеДанные,".dat",".mxl");  

    ТаблицаЗначений2Mxl(ТЗ,ФайлMxl);

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



Тест_ВыгрузитьТЗвMxl();   

 Процедура КоманднаяПанель1ВыгрузитьНаСайт(Кнопка)

	

	//Выгружается фоновым заданием на серваке

	ПараметрыФоновогоЗадания = Новый Массив;

	ПараметрыФоновогоЗадания.Добавить(Группа); //Группа номенклатуры

	ФоновыеЗадания.Выполнить("МодульРегламентныхЗаданий.ВыгрузкаПрайсаНАФТП",

				ПараметрыФоновогоЗадания, Новый УникальныйИдентификатор, 

				"Выгрузка прайса на сайт"); 	

	ПоказатьОповещениеПользователя("Выгрузка прайса на сайт", ,"Запущено задание выгрузки прайса на сайт, проверьте данные на сайте через 2-3 минуты...", БиблиотекаКартинок.Информация32);

   

 Процедура ВыгрузкаПрайсаНАФТП(Группа) Экспорт   	

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

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

	"ВЫБРАТЬ

	|	ПрайсЛист1СрезПоследних.НоменклатураПрайса,

	|	ПрайсЛист1СрезПоследних.Цена

	|ИЗ

	|	РегистрСведений.ПрайсЛист.СрезПоследних(, Поставщик = ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)) КАК ПрайсЛист1СрезПоследних

	|ГДЕ

	|	&Условие

	|	И ПрайсЛист1СрезПоследних.НоменклатураПрайса.ИДдляСайта > 0";

	

	Если ЗначениеЗаполнено(Группа) Тогда

		Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Условие", "ПрайсЛист1СрезПоследних.НоменклатураПрайса В ИЕРАРХИИ(&НоменклатураПрайса)")

	Иначе

		Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Условие", "ИСТИНА")

	КонецЕсли;	

	Запрос.УстановитьПараметр("НоменклатураПрайса", Группа);

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

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

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

		НомПрайса = Выборка.НоменклатураПрайса;

		ЦенаА = Выборка.Цена;

		Цена = Ценообразование.ОкруглитьЦену(ЦенаА * ( 1 + НомПрайса.Наценка20 / 100) + НомПрайса.Надбавка20, НомПрайса.ПорядокОкругления, НомПрайса.ОкруглятьВБольшуюСторону); 		

		Если Цена > 0 Тогда

			Текст.ДобавитьСтроку(""+Формат(НомПрайса.ИДдляСайта, "ЧГ=0")+";"+Формат(Цена, "ЧГ=0"));

		КонецЕсли;

	КонецЦикла;

	

	// запись в текстовый файл

	ПутьКФайлВыгр = "\\FG-1\1c_data\naSite\vigruz.csv";//"D:\!!!For1C!!!\naSite\vigruz.csv";

	Текст.Записать(ПутьКФайлВыгр, "windows-1251");

	КаталогНаSFTPСервере = "/sitetest.ru/public_html/p";	

	Попытка

		ИмяПользователя = "serveruser";

		ПарольПользователя = "password";

		Сервер = "192.253.6.47";

		Порт = "21";  		

		Прокси = Новый ИнтернетПрокси();

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

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

		

		FTPСоединение = Новый FTPСоединение(Сервер,,ИмяПользователя,ПарольПользователя,,Ложь);

		FTPСоединение.УстановитьТекущийКаталог(КаталогНаSFTPСервере);

		//FTPСоединение.ПассивныйРежим(Ложь);

		ТекущийКаталог = FTPСоединение.ТекущийКаталог();

	Исключение

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

	FTPСоединение.Записать(ПутьКФайлВыгр,"vigruz.csv"); 

	

	//Вызов PHP скрипта для иморта данных из csv файла на сайт

	НТТР = Новый HTTPСоединение("sitetest.ru");

	ФайлРезультата = ПолучитьИмяВременногоФайла();

	НТТР.Получить("/p/import_price.php", ФайлРезультата);



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

 &НаКлиенте

Процедура ПолучитьФоновыеЗадания(Команда)

	ПолучитьФоновыеЗаданияНаСервере();	

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

 &НаСервере

Процедура ПолучитьФоновыеЗаданияНаСервере()



	ПараметрыОтбора = Новый Структура("Наименование", "Тестовое задание");	

	СписокФоновыхЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(ПараметрыОтбора);

	

	Для каждого Задание Из СписокФоновыхЗаданий Цикл

		Сообщить(Задание.Наименование);

	КонецЦикла;



КонецПроцедуры // ПолучитьФоновыеЗаданияНаСервере()   

 //ПреобразоватьТекстCSVвТЗ () импортирует данные в ТЗ из текста формата CSV

//Параметры:

//ТекстCSV 		- Строка, содержащая текст в формате csv

//Разделитель 	- Для формата CSV разделителем является ',', но т.к. 

//				  Excel берет разделитель из региональных стандартов, то

//				  используется ';', поддерживает многострочные поля

//

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

Функция ПреобразоватьТекстCSVвТЗ(ТекстCSV="", Разделитель=";") Экспорт

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

	ОсобаяСтрока = "$#%^&*!xyxb$#%&*!^";	// для замены ""

	

	НомерСтроки = 1;

	Стр = СтрПолучитьСтроку(ТекстCSV,НомерСтроки);

	Пока НомерСтроки <= СтрЧислоСтрок(ТекстCSV) Цикл

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

		НомерПоля = 0;

		Пока Стр <> "" Цикл

			Токен = "";

			ПозицияРазделителя = Найти(стр, Разделитель);

			ПозицияОткрКавычек = Найти(стр, """");

			Если (ПозицияРазделителя > ПозицияОткрКавычек ИЛИ ПозицияРазделителя = 0) И ПозицияОткрКавычек > 0 Тогда

				// начинающееся с кавычек читаем до тех пор

				Токен = Сред(Стр, 1, ПозицияОткрКавычек);

				Стр = СтрЗаменить(Сред(Стр, ПозицияОткрКавычек+1), """""", ОсобаяСтрока);

				

				ПозицияЗакрКавычек = Найти(Стр, """");

				Пока ПозицияЗакрКавычек = 0 Цикл

					Токен = Токен + Стр + Символы.ПС;

					НомерСтроки = НомерСтроки + 1;

					Стр = СтрПолучитьСтроку(ТекстCSV, НомерСтроки);

					Стр = СтрЗаменить(Стр, """""", ОсобаяСтрока);

					// пока не встретим закрывающие

					ПозицияЗакрКавычек = Найти(Стр, """");

				КонецЦикла;

				ПозицияРазделителя=Найти(Сред(Стр,ПозицияЗакрКавычек), Разделитель);

				ПозицияРазделителя = ?(ПозицияРазделителя>0, ПозицияЗакрКавычек + ПозицияРазделителя-1, 0);

			КонецЕсли;



			Токен = Токен + ?(ПозицияРазделителя>0, Сред(Стр, 1, ПозицияРазделителя-1), Стр);

			Стр = ?(ПозицияРазделителя>0, Сред(Стр, ПозицияРазделителя+1), "");

			

			Если Лев(Токен, 1) = """" Тогда

				Токен = Сред(Токен, 2);

				Токен = ?(Прав(Токен, 1) = """", Сред(Токен, 1, СтрДлина(Токен)-1), Токен);

			КонецЕсли;

			Токен = СтрЗаменить(Токен, ОсобаяСтрока, """");

			

			НомерПоля = НомерПоля + 1;

			Если ТЗ.Колонки.Количество()<НомерПоля Тогда

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

			КонецЕсли;

			СтрокаТЗ[НомерПоля-1] = Токен;



		КонецЦикла;

		НомерСтроки = НомерСтроки + 1;

		Стр = СтрПолучитьСтроку(ТекстCSV, НомерСтроки);

	КонецЦикла;

	Возврат ТЗ;

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



//ПреобразоватьТЗвТекстCSV () экспортирует данные ТЗ в текст в формате CSV

//Параметры:

//ТЗ 			- Таблица значений данные которые сохраняются в файл

//флЭкспортироватьИменаКолонок - Первой строкой выводить имена колонок

//Разделитель 	- Для формата CSV разделителем является ',', но т.к. 

//				  Excel берет разделитель из региональных стандартов, то

//				  используется ';'

//

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

Функция ПреобразоватьТЗвТекстCSV(ТЗ, Разделитель = ";", флЭкспортироватьИменаКолонок = Ложь) Экспорт

		

	ТекстCSV = "";

	

	Если флЭкспортироватьИменаКолонок Тогда

		//Если нужно выгружать наименование колонок Выгружаем

		ПодготовленнаяСтрока = "";

		Для Каждого Колонка Из ТЗ.Колонки Цикл

			ПодготовленнаяСтрока = ПодготовленнаяСтрока + Колонка.Имя + Разделитель;

		КонецЦикла;

		ПодготовленнаяСтрока = Лев (ПодготовленнаяСтрока,СтрДлина(ПодготовленнаяСтрока)-1);

		

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

	КонецЕсли;

	

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

		ПодготовленнаяСтрока = "";

		Для Каждого Колонка Из ТЗ.Колонки Цикл

			ПреобразованноеПоле = Строка[Колонка.Имя];

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

			Если Найти(ПреобразованноеПоле,"""") Тогда

				ПреобразованноеПоле = СтрЗаменить(ПреобразованноеПоле,"""","""""");

			КонецЕсли;

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

			Если Найти(ПреобразованноеПоле,Разделитель) ИЛИ Найти(ПреобразованноеПоле,Символы.ПС) ИЛИ Найти(ПреобразованноеПоле,"""") Тогда

				ПреобразованноеПоле = """" + ПреобразованноеПоле + """";

			КонецЕсли;



			ПодготовленнаяСтрока = ПодготовленнаяСтрока + ПреобразованноеПоле + Разделитель;

		КонецЦикла;

		ПодготовленнаяСтрока = Лев (ПодготовленнаяСтрока,СтрДлина(ПодготовленнаяСтрока)-1);

		

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

	КонецЦикла;



	Возврат ТекстCSV;

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

 Функция ДатаСозданияСсылки(Ссылка) Экспорт

	

	Если НЕ ЗначениеЗаполнено(Ссылка) Тогда

		Возврат Неопределено;

	КонецЕсли;	

		

	Момент = Дата(1, 1, 1);

	Попытка

		

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

        УИ = ВРег(СтрЗаменить(УИ,"-",""));

		

		Если Сред(УИ, 13, 1) = "1" Тогда

			

            Значение16 = ВРег(Сред(УИ, 14, 3) + Сред(УИ, 9, 4) + Сред(УИ, 1, 8));

            Цифры16    = "123456789ABCDEF";

            Значение10 = 0;

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

			

			Для Ном = 1 По Длина16 Цикл

                Значение10 = Значение10 + Pow(16, Длина16-Ном)*Найти(Цифры16, Сред(Значение16, Ном, 1));

			КонецЦикла;

			

            Значение10 = Значение10/10000000;

            Момент     = Дата(1582, 10, 15, 3, 0, 0) + Значение10;

			

		КонецЕсли;

		

    Исключение

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

	

	Возврат Момент;

		

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

   

 // Выводит данные ДереваЗначений в ТекстовыйДокумент, пригодный к рассмотрению в отладчике, окне сообщений и показу.

//

// Параметры:

//    рВетка - дерево значений, подлежащее выводу. Может иметь почти любую глубину иерархии, количество и тип колонок. Если хватит

//        объявленных позиционных строк-заполнителей, всё поместится. Если иерархия слишком глубока, строки просто надо нарастить;

//    рТекст - на входе должен быть равен Неопределено; на выходе по окончании работы содержит результатный текстовый документ;

//    рПараметры - структура дополнительных настроек, допустимые ключи:

//        Колонки - структура колонок, которые подлежат выводу. Если пуста или имеет тип, отличный от структуры, выводятся все колонки;

//           если в ключах структуры указаны имена колонок, будут выведены только они. В значениях структуры можно передать строковое

//           представление формата, согласно которому должны будут форматироваться выводимые значения. По умолчанию формата нет;

//        ПоказыватьУровни - булево, управляет выводом №№ уровней (метод Уровень()), по умолчанию выключено;

//        ШагОтступа - число, определяющее шаг в символах, используемый для показа псевдографики иерархии веток в дереве.

//

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

Процедура ВывестиДеревоЗначенийВТекст(Знач рВетка,рТекст,Знач рПараметры=Неопределено)

Попытка

    Если рТекст=Неопределено Тогда // первая итерация, шапочный вызов исходной части

        //---------------------------------------------------------------------------------------------------------------------------

        // Разбираем входные данные

        Если ТипЗнч(рВетка)<>Тип("ДеревоЗначений") Тогда Возврат КонецЕсли;

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

        стрКолонок=?(рПараметры.Свойство("Колонки"),рПараметры.Колонки,Неопределено);

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

        рПоказыватьУровни=?(рПараметры.Свойство("ПоказыватьУровни"),рПараметры.ПоказыватьУровни,Ложь); // затратное дело, кстати

        рШагОтступа=?(рПараметры.Свойство("ШагОтступа"),рПараметры.ШагОтступа,2); // для отображения отступа в колонке иерархии





        //---------------------------------------------------------------------------------------------------------------------------

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

        // Также можно получить максимальный уровень, "плоско" перебрав все строки (например, получив их через НайтиСтроки)

        // и в цикле для каждой вызывая Уровень() и определяя максимум.

        // Вариант через СКД и служебное поле "Уровень" ни на одной известной мне платформе не работоспособен (нехватка памяти).

        //

        //

        //рДеревоДляТеста=КакНибудьСкопироватьДерево(рВетка);

        //рДеревоДляТеста.Колонки.Вставить(0,"_Level",Новый ОписаниеТипов("Булево")); // самый экономный вариант, с сохранением иерархии

        //мНенужных=Новый Массив;

        //Для й=1 По рДеревоДляТеста.Колонки.Количество()-1 Цикл

        //  мНенужных.Добавить(рДеревоДляТеста.Колонки[й]);

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

        //Для каждого кол Из мНенужных Цикл

        //  рДеревоДляТеста.Колонки.Удалить(кол);

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

        //

        рДеревоДляТеста=рВетка; // пока сериализуем прямо всё дерево (неоптимально, но...)

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

        рЗапись.УстановитьСтроку();

        СериализаторXDTO.ЗаписатьXML(рЗапись,рДеревоДляТеста);

        стро=рЗапись.Закрыть();

        //

        стро=СтрЗаменить(стро,"xmlns=","xmlns:myns1C="); // иначе не будет работать XPath

        //

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

        рЧтение.УстановитьСтроку(стро);

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

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





        рВыражение="/ValueTree/row"; максКолвоУровней=1;

        рРазыменователь=Новый РазыменовательПространствИменDOM(рДокументДОМ);

        Пока Истина Цикл

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

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

            #КонецЕсли

            рРезультат=рДокументДОМ.ВычислитьВыражениеXPath(рВыражение,рДокументДОМ,рРазыменователь,ТипРезультатаDOMXPath.Любой);

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

            рВыражение=рВыражение+"/row";

            максКолвоУровней=максКолвоУровней+1;

        КонецЦикла;

        максКолвоУровней=максКолвоУровней-1; // можно и так: СтрЧислоВхождений(рВыражение,"/row")-1;





        //---------------------------------------------------------------------------------------------------------------------------

        // готовим исходный макет вывода

        строПробелы="                                                                                                                                                                                                                 ";

        строРазделители="===============================================================================================";

        строОтступы="___________________________________________________________________________________________"; // тут нужны чуть для другого

        //

        секШапка1="|[_HCS"+Лев(строПробелы,максКолвоУровней*рШагОтступа)+"]|"; // HierarchyColumnShow

        секГорРазделитель1="|"+Лев(строОтступы,максКолвоУровней*рШагОтступа+6)+"|"; // здесь именно Отступы!

        рШиринаКолонкиИерархии=СтрДлина(секШапка1)-2;

        строПолейШапки="#Поле _HCS

        |   #Выравнивание Центр";

        строПолейЗаписи="";

        //

        Если рПоказыватьУровни Тогда

            секШапка1=секШапка1+"[_Level]|";

            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,8)+"|";

            строПолейШапки=строПолейШапки+"

            |#Поле _Level

            |   #Выравнивание Центр";

            строПолейЗаписи="#Поле _Level

            |   #Выравнивание Центр

            |   #Забивать Истина";

        КонецЕсли;

        //

        мИменКолонок=Новый Массив;

        Для каждого кол Из рВетка.Колонки Цикл

            Если стрКолонок.Количество()<>0 и не стрКолонок.Свойство(кол.Имя) Тогда Продолжить КонецЕсли; // чётко указаны конкретные колонки

            рДлинаИмениКолонки=СтрДлина(кол.Имя);

            рНужнаяШирина=Макс(?(кол.Ширина<3,10,кол.Ширина),рДлинаИмениКолонки);

            // к сожалению, ключевое слово "#Поля" неприменимо - платформа падает - поэтому делаем всё сами

            секШапка1=секШапка1+"["+кол.Имя+Лев(строПробелы,рНужнаяШирина-рДлинаИмениКолонки)+"]|";

            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,рНужнаяШирина+1)+"=|";

            строПолейШапки=строПолейШапки+"

            |#Поле "+кол.Имя+"

            |   #Выравнивание Центр";

            рОписТипов=кол.ТипЗначения;

            Если рОписТипов.Типы().Количество()=1 и рОписТипов.СодержитТип(Тип("Булево")) Тогда

                рВыравнивание="Центр";

            ИначеЕсли рОписТипов.СодержитТип(Тип("Число")) Тогда

                рВыравнивание="Право";

            ИначеЕсли рОписТипов.СодержитТип(Тип("Строка")) и рОписТипов.КвалификаторыСтроки.Длина=0 Тогда

                рВыравнивание="ПоШирине";

            Иначе

                рВыравнивание="Лево";

            КонецЕсли;

            строПолейЗаписи=строПолейЗаписи+?(ПустаяСтрока(строПолейЗаписи),"",Символы.ПС)+"#Поле "+кол.Имя+"

            |   #Выравнивание "+рВыравнивание;

            Попытка

                Если ЗначениеЗаполнено(стрКолонок[кол.Имя]) Тогда // указан формат, уточняющий показ колонки

                    строПолейЗаписи=строПолейЗаписи+"

                    |   #Формат """+СокрЛП(стрКолонок[кол.Имя])+"""";

                КонецЕсли;

            Исключение

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

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

        КонецЦикла;

        секШапка2=СтрЗаменить(СтрЗаменить(секШапка1,"[","<"),"]",">");

        секЗапись1=секШапка1; секЗапись2=секШапка2; // пусть они по дизайну пока не отличаются

        секГорРазделитель2=СтрЗаменить(СтрЗаменить(секГорРазделитель1,"=","-"),"|","+");

        // обработаем нормальное обрамление шапки колонки иерархии

        секГорРазделитель1=СтрЗаменить(секГорРазделитель1,"_","=");

        секГорРазделитель2=СтрЗаменить(секГорРазделитель2,"_"," ");

        //

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

        тМакет.ДобавитьСтроку("#Область Шапка");

        тМакет.ДобавитьСтроку(строПолейШапки);

        тМакет.ДобавитьСтроку(секГорРазделитель1);

        тМакет.ДобавитьСтроку(секШапка1);

        тМакет.ДобавитьСтроку(секШапка2);

        тМакет.ДобавитьСтроку(секГорРазделитель1);

        тМакет.ДобавитьСтроку("#КонецОбласти");

        тМакет.ДобавитьСтроку("");

        тМакет.ДобавитьСтроку("#Область Запись");

        тМакет.ДобавитьСтроку(строПолейЗаписи);

        тМакет.ДобавитьСтроку(секЗапись1);

        тМакет.ДобавитьСтроку(секЗапись2);

        тМакет.ДобавитьСтроку(секГорРазделитель2);

        тМакет.ДобавитьСтроку("#КонецОбласти");

        рПараметры.Вставить("ИсходныйМакет",тМакет); // пусть будет





        //---------------------------------------------------------------------------------------------------------------------------

        // Запускаем вывод в итоговый документ

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

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

        сек.Параметры._HCS="Иерархия";

        Для каждого имякол Из мИменКолонок Цикл

            кол=рВетка.Колонки[имякол];

            сек.Параметры[кол.Имя]=?(ПустаяСтрока(кол.Заголовок),кол.Имя,кол.Заголовок);

        КонецЦикла;

        рТекст.Вывести(сек);

        //

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

        пар.Вставить("МассивИмёнКолонок",мИменКолонок);

        пар.Вставить("ТекущаяСекция",тМакет.ПолучитьОбласть("Запись"));

        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);

        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);

        пар.Вставить("Отступ",0);

        пар.Вставить("ШагОтступа",рШагОтступа);

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





    Иначе

        // очередная итерация, вывод в текстовый документ

        мИменКолонок=рПараметры.МассивИмёнКолонок;

        рСекция=рПараметры.ТекущаяСекция;

        рОтступ=рПараметры.Отступ;

        рШиринаКолонкиИерархии=рПараметры.ШиринаКолонкиИерархии;

        рПоказыватьУровни=рПараметры.ПоказыватьУровни;

        //

        строОтступы="_________________________________________________________________________________________________________";

        строПробелы="                                                                                                                                                                                                                 ";

        //

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

        пар.Вставить("МассивИмёнКолонок",мИменКолонок);

        пар.Вставить("ТекущаяСекция",рПараметры.ТекущаяСекция);

        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);

        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);

        пар.Вставить("ШагОтступа",рПараметры.ШагОтступа);

        пар.Вставить("Отступ",рОтступ+рПараметры.ШагОтступа);

        //

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

            рСекция.Параметры._HCS=Лев(строПробелы,рОтступ)+"\"+Лев(строОтступы,рШиринаКолонкиИерархии-рОтступ-1);

            Если рПоказыватьУровни Тогда

                рСекция.Параметры._Level=рПодветка.Уровень();

            КонецЕсли;

            Для каждого имякол Из мИменКолонок Цикл

                рСекция.Параметры[имякол]=рПодветка[имякол];

            КонецЦикла;

            рТекст.Вывести(рСекция);

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

        КонецЦикла;

        //

    КонецЕсли;

Исключение

    Сообщить("ВывестиДеревоЗначенийВТекст, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);

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

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

 //     Путь к обновлениям

Перем мРасположениеОбновлений;





//Параметры для подключения к серверу обновления 1С

Перем мИтсЛогин;

Перем мИтсПароль;





//****

Перем home;

Перем DumpIB;





Перем ФайлСписокОбновленийZIP;

Перем ФайлСписокОбновленийXML;





Перем КодВозврата;





// Проверка существования файла или каталога.

//

// Параметр:

//  ПутьКФайлу   - Строка - путь к файлу или каталогу, существование которого

//                 нужно проверить.

//

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

//  Булево - признак существования файла или каталога.

//

Функция ФайлСуществует(Знач ПутьКФайлу) Экспорт

    

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

    Возврат Файл.Существует();

    

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





Процедура УстановитьКонстанты()

    каталог_tmplts = "D:\tmplts";

     мИтсЛогин = "---";

    мИтсПароль = "---";

    

    //**Ниже можно не менять.

    мРасположениеОбновлений = каталог_tmplts + "\1c";

    home = каталог_tmplts + "\1Cupdate";

    DumpIB = home + "\DumpIB\";

    ФайлСписокОбновленийXML = home + "\v8cscdsc.xml";

    ФайлСписокОбновленийZIP = home + "\v8upd11.zip";

    

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

        СоздатьКаталог(home); 

    КонецЕсли;

    

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

        СоздатьКаталог(DumpIB); 

    КонецЕсли;

    

    Если НЕ ФайлСуществует(мРасположениеОбновлений) Тогда

        СоздатьКаталог(мРасположениеОбновлений); 

    КонецЕсли;





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





Функция ВернутьРелизИПлатформу(мИмяСервера,мИмяБазы,мВерсияПлатформы,мБазаЛогин,мБазаПароль)





   ПараметрыБазы = Неопределено;

 

   Попытка

        //Создаем COM-объект с идентификатором V82.COMConnector

        COMОбъект = Новый COMОбъект("V"+мВерсияПлатформы+".COMConnector");   //выйдет V82.COMConnector

   Исключение

        Сообщить("Не удалось создать COM-объект!");    

        Возврат ПараметрыБазы;

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





    ПутьКБазе = "srvr="""+ СокрЛП(мИмяСервера) +""";" + "ref=""" + СокрЛП(мИмяБазы)  +""";";    





    СтрокаСоединения = ПутьКБазе + "Usr="""+ СокрЛП(мБазаЛогин) +""";" + "Pwd="""+ СокрЛП(мБазаПароль) + """;";    

 

     Попытка

        //Устанавливаем внешнее соединение с информационной базой через COM-соединение

        V82 = COMОбъект.Connect(СтрокаСоединения);

    Исключение

        Сообщить(СтрокаСоединения);

        Сообщить("Внешнее соединение не установлено!");    

        Возврат ПараметрыБазы;

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





     ПараметрыБазы = Новый Структура;

     ПараметрыБазы.Вставить("ТекущаяВерсия", v82.Метаданные.Версия);

     ПараметрыБазы.Вставить("ПутьКПлатформе",v82.КаталогПрограммы() + "1cv8.exe");





     Возврат ПараметрыБазы;

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





Процедура УстановитьCOMСоединение(мИмяСервера,мИмяБазы,мВерсияПлатформы,мБазаЛогин,мБазаПароль) 

   Попытка

        //Создаем COM-объект с идентификатором V82.COMConnector

        COMОбъект = Новый COMОбъект("V"+мВерсияПлатформы+".COMConnector");   //выйдет V82.COMConnector

   Исключение

        Сообщить("Не удалось создать COM-объект!");    

        Возврат;

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





    //Инициализируем строку подключения к информационной базе:    

 //   Если ФайловаяИБ Тогда

        //Файловый вариант 

   //     ПутьКБазе = "File="""+ СокрЛП(КаталогИБ) +""";";

//    Иначе

        //Серверных вариант    

        ПутьКБазе = "srvr="""+ СокрЛП(мИмяСервера) +""";"+

               "ref=""" + СокрЛП(мИмяБазы)  +""";";    

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

                

    СтрокаСоединения = ПутьКБазе +

            "Usr="""+ СокрЛП(мБазаЛогин) +""";"+

            "Pwd="""+ СокрЛП(мБазаПароль) +""";";    

        Сообщить(СтрокаСоединения);         

    Попытка

        //Устанавливаем внешнее соединение с информационной базой через COM-соединение

        V82 = COMОбъект.Connect(СтрокаСоединения);

    Исключение

        Сообщить(СтрокаСоединения);

        Сообщить("Внешнее соединение не установлено!");    

        Возврат;

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

             

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





        

        

        

// Загрузка списка обновлений из файла XML

// Достаем из XML файла, наибольший номер возможного обновления

Функция ВыполнитьЗагрузкуСпискаОбновлений(ИмяФайлаЗагрузки,ТекущаяВерсияКонфигурации)

    

    СообщениеОбОшибке = "Ошибка при чтении файла списка обновлений.";

    

    Если НЕ ФайлСуществует(ИмяФайлаЗагрузки) Тогда

        Сообщить("Нету XML файла (списка обновлений)");

        Возврат Неопределено;

    КонецЕсли;

    

    ВерсияДляОбновления = Неопределено;

    Попытка

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

//        ТаблицаЗначений.Колонки.Добавить("Конфигурация",          Тип("Строка"));

//        ТаблицаЗначений.Колонки.Добавить("Поставщик",             Тип("Строка"));

//        ТаблицаЗначений.Колонки.Добавить("Версия",                Тип("Строка"));

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

//        ТаблицаЗначений.Колонки.Добавить("ПутьКФайлуОбновления",  Тип("Строка"));

//        ТаблицаЗначений.Колонки.Добавить("РазмерФайлаОбновления", Тип("Число"));

        

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

        ЧтениеXML.ОткрытьФайл(ИмяФайлаЗагрузки);

        ЧтениеXML.Прочитать(); // <?xml version="1.0" encoding="UTF-8" ?> 

        

        // Дата формирования файла.

        ЧтениеXML.Прочитать();

        ЧтениеXML.Прочитать();

        ДатаФормирования = ЧтениеXML.Значение;

        ЧтениеXML.Прочитать();

        // Читаем начало элемента Update или конец элемента UpdateList.

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

            

            Если ЧтениеXML.Имя = "v8u:updateList" Тогда

                Прервать;                    

            Иначе        

                

                Конфигурация = ЧтениеXML.ПолучитьАтрибут("configuration");

                

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

                    

                    Если ЧтениеXML.Имя = "v8u:update" Тогда

                        Прервать;                    

                    Иначе        

                        

                        Если ЧтениеXML.Имя = "v8u:vendor" Тогда

                            ЧтениеXML.Прочитать();

                            Поставщик = ЧтениеXML.Значение;                            

                        ИначеЕсли ЧтениеXML.Имя = "v8u:version" Тогда

                            ЧтениеXML.Прочитать();

                            Версия = ЧтениеXML.Значение;

                        ИначеЕсли ЧтениеXML.Имя = "v8u:file" Тогда

                            ЧтениеXML.Прочитать();

                            ПутьКФайлуОбновления = ЧтениеXML.Значение;

                        ИначеЕсли ЧтениеXML.Имя = "v8u:size" Тогда

                            ЧтениеXML.Прочитать();

                            РазмерФайлаОбновления = ЧтениеXML.Значение;

                        ИначеЕсли ЧтениеXML.Имя = "v8u:target" Тогда

                            ЧтениеXML.Прочитать();

                        //    НоваяСтрока = ТаблицаЗначений.Добавить();

                        //    НоваяСтрока.Конфигурация          = Конфигурация;

                        //    НоваяСтрока.Поставщик             = Поставщик;

                        //    НоваяСтрока.Версия                = Версия;

                        //    НоваяСтрока.ВерсияДляОбновления      = ЧтениеXML.Значение;

                        //    НоваяСтрока.ПутьКФайлуОбновления  = ПутьКФайлуОбновления;

                        //    НоваяСтрока.РазмерФайлаОбновления = РазмерФайлаОбновления;

                            Если ЧтениеXML.Значение = ТекущаяВерсияКонфигурации Тогда   //279 Новые в конце. на последнюю полученную и будем обновяться

                                ВерсияДляОбновления = Версия;

                            КонецЕсли;

                        КонецЕсли;

                        

                        ЧтениеXML.Прочитать();

                        

                    КонецЕсли;

                    

                КонецЦикла;

                

            КонецЕсли;

            

        КонецЦикла;

        

    Исключение

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

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

        Возврат Неопределено;

        

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

    //Возврат ТаблицаЗначений;    

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

    Возврат ВерсияДляОбновления;

    

КонецФункции // ВыполнитьЗагрузкуСпискаОбновлений()









//Входящие Сервер - База - ТипКонфигурации - ВерсияРелиза - ВерсияПлатформы-ИТС логин и пароль необязательно

Процедура ПроверитьОбновлениеКонфигурации(мИмяСервера,мИмяБазы,мТипКонфигурации,мВерсияРелиза,мВерсияПлатформы,мБазаЛогин,мБазаПароль)    

    Сообщить("----------------------------------------------------------------------");

    //удалить старые файлы

    УдалитьФайлы(ФайлСписокОбновленийXML);

    УдалитьФайлы(ФайлСписокОбновленийZIP);    





    // Качаем v8cscdsc.xml в виде v8upd11.zip    

    // Создание HTTP-соединения с сервером обновлений

    СерверОбновлений = Новый HTTPСоединение("downloads.1c.ru",,мИтсЛогин,мИтсПароль,);

    ЗапросКСерверуОбновлений = Новый HTTPЗапрос("/ipp/ITSREPV/V8Update/Configs/"+мТипКонфигурации+"/"+мВерсияРелиза+"/"+мВерсияПлатформы+"/v8upd11.zip");

    СерверОбновлений.Получить(ЗапросКСерверуОбновлений,ФайлСписокОбновленийZIP);





    // Распаковываем v8cscdsc.xml

    ФайлZip = Новый ЧтениеZipФайла(ФайлСписокОбновленийZIP); 

    ФайлZip.ИзвлечьВсе(home);

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

    УдалитьФайлы(ФайлСписокОбновленийZIP);

    

    //+++++ Запрос версии конфигурации базы...

        ПараметрыComБазы = ВернутьРелизИПлатформу(мИмяСервера,мИмяБазы,мВерсияПлатформы,мБазаЛогин,мБазаПароль);

        

        Если ПараметрыComБазы = Неопределено Тогда 

            Возврат; 

        КонецЕсли;

        ВерсияДляОбновления = ВыполнитьЗагрузкуСпискаОбновлений(ФайлСписокОбновленийXML,ПараметрыComБазы.ТекущаяВерсия);

        ТребуетсяОбновление = Ложь;

        Если ВерсияДляОбновления = Неопределено Тогда 

            Сообщить(мИмяБазы + " ver: " +ПараметрыComБазы.ТекущаяВерсия+ " ОБНОВЛЕНИЕ НЕ ТРЕБУЕТСЯ");

            Возврат;

        КонецЕсли;

        Сообщить(мИмяБазы + " ver: " +ПараметрыComБазы.ТекущаяВерсия+ " update: " + ВерсияДляОбновления);

    //----- Запрос версии конфигурации базы...

    

    КомандаПакетногоАрхивирования = """" + ПараметрыComБазы.ПутьКПлатформе +""""+" CONFIG /S"+мИмяСервера+"\"+мИмяБазы+" /N"""+мБазаЛогин+""" /P"""+мБазаПароль+""" /DumpIB "+DumpIB + мИмяБазы + ".dt /OUT """+home+"\"+мИмяБазы+".log"" -NoTruncate";

    //NoTruncate - не очищать логи 

    //Сообщить(КомандаПакетногоАрхивирования);

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

    Если КодВозврата = 0  Тогда

        Сообщить("Резервная копия успешно создана.");

    Иначе

        Сообщить("Ошибка при создании резервной копии");

        Возврат;

    КонецЕсли;

    

    Версия_Для_Обновления = СтрЗаменить(ВерсияДляОбновления, ".", "_"); //в каталоге шаблонов через подчеркивание храняться





    //качаем новую версию, если уже не скачено

    Если НЕ ФайлСуществует(мРасположениеОбновлений +"\"+мТипКонфигурации+"\"+Версия_Для_Обновления+"\") Тогда

        //качаем новую

        // Создание HTTP-соединения с сервером обновлений

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

        Заголовки.Вставить("User-Agent", "1C+Enterprise/8.2");     //без заголовка сайт не даст скачать.

        СерверОбновлений = Новый HTTPСоединение("downloads.v8.1c.ru",,мИтсЛогин,мИтсПароль,);

        СтрокаЗапросHTTP = "/tmplts/1c/"+мТипКонфигурации+"/"+ Версия_Для_Обновления +"/1cv8.zip";

        Сообщить(СтрокаЗапросHTTP);

        ЗапросКСерверуОбновлений = Новый HTTPЗапрос(СтрокаЗапросHTTP,Заголовки);

        СерверОбновлений.Получить(ЗапросКСерверуОбновлений, мРасположениеОбновлений+"\1cv8.zip");

        

        ФайлZip = Новый ЧтениеZipФайла(мРасположениеОбновлений+"\1cv8.zip"); 

        ФайлZip.ИзвлечьВсе(мРасположениеОбновлений+"\"+мТипКонфигурации+"\"+Версия_Для_Обновления);

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

        

        УдалитьФайлы(мРасположениеОбновлений+"\1cv8.zip");

    КонецЕсли;

    //запускаем обновление                                                                                                                                                              

    КомандаПакетногоОбновления = """" + ПараметрыComБазы.ПутьКПлатформе +""""+" CONFIG /S"+мИмяСервера+"\"+мИмяБазы+" /N"""+мБазаЛогин+""" /P"""+мБазаПароль+""" /UpdateCfg "+мРасположениеОбновлений+"\"+мТипКонфигурации+"\"+Версия_Для_Обновления + "\1cv8.cfu /UpdateDBCfg /OUT """+home+"\"+мИмяБазы+".log"" -NoTruncate";

    //Сообщить(КомандаПакетногоОбновления);

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

    Если КодВозврата = 0 Тогда

        Сообщить("База Успешно обновлена");

    Иначе

        Сообщить("ОШИБКА ПРИ ОБНОВЛЕНИИ");

        Возврат;

    КонецЕсли;

    

    //Еще разок запрос версии

    //+++++ Запрос версии конфигурации базы...

        ПараметрыComБазы = ВернутьРелизИПлатформу(мИмяСервера,мИмяБазы,мВерсияПлатформы,мБазаЛогин,мБазаПароль);

        

        Если ПараметрыComБазы = Неопределено Тогда 

            Возврат; 

        КонецЕсли;

        ВерсияДляОбновления = ВыполнитьЗагрузкуСпискаОбновлений(ФайлСписокОбновленийXML,ПараметрыComБазы.ТекущаяВерсия);

        ТребуетсяОбновление = Ложь;

        Если ВерсияДляОбновления = Неопределено Тогда 

            Сообщить(мИмяБазы + " ver: " +ПараметрыComБазы.ТекущаяВерсия+ " ОБНОВЛЕНИЕ НЕ ТРЕБУЕТСЯ");

            Возврат;

        КонецЕсли;

        Сообщить(мИмяБазы + " ver: " +ПараметрыComБазы.ТекущаяВерсия+ " update: " + ВерсияДляОбновления);

    //----- Запрос версии конфигурации базы...





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

        

УстановитьКонстанты();

//ОСНОВНЫЕ





//ЗУП 2.5

ПроверитьОбновлениеКонфигурации("ka1sql1:1641","up_el","HRM","25","82","Администратор","Администратор");

ПроверитьОбновлениеКонфигурации("ka1sql1:1641","up_spb","HRM","25","82","Администратор","Администратор");



//БП 3.0

ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_domx","Accounting","30","83","Администратор","Администратор");

ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_el","Accounting","30","83","Администратор","Администратор");





//СВЕТЛАНЫ

//БП 3.0

ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_ip","Accounting","30","83","Администратор","Администратор");

ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_guild","Accounting","30","83","Администратор","Администратор");

ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_lebedeva","Accounting","30","83","Администратор","Администратор");

//ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_service","AccountingBase","30","83","Администратор","Администратор");

ПроверитьОбновлениеКонфигурации("ka1sql1:1741","bp_porsche","Accounting","30","83","Администратор","Администратор");





//ЗУП 2.5

ПроверитьОбновлениеКонфигурации("ka1sql1:1641","up_service","HRM","25","82","Администратор","Администратор");   

     <!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 Тогда

			Продолжить;

		КонецЕсли;

		

		КД = Долгота;

		КШ = Широта; 		

	КонецЦикла;	

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

 &НаКлиенте

Процедура фдОсновноеОписаниеПриИзменении(Элемент)

	Вложение = Новый Структура; текТекст ="";

	фдОсновноеОписание.ПолучитьHTML(текТекст,Вложение); 

	//Поправим валидность кода

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

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

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

	

	//Получим текст из BODY

	Содержимое=текТекст; НачалоБлока = "<body>"; КонецБлока = "</body>";

	текТекст = Сред(Содержимое, Найти(Содержимое, НачалоБлока) + СтрДлина(НачалоБлока), Найти(Содержимое, КонецБлока) - Найти(Содержимое, НачалоБлока) - СтрДлина(НачалоБлока));	  				

	

	Объект.ОписаниеОсновное = СокрЛП(текТекст);

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

 &НаСервере

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

	фдОсновноеОписание.УстановитьHTML(Объект.ОписаниеОсновное,Новый Структура);

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

 



Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1)  // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе

Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	

	Url = "http://www.bank.gov.ua/control/uk/curmetal/currency/search?formType=searchFormDate&time_step=" + ?(Ежедневно = 1, "daily", "monthly") + 

		"&date=" + Формат(ДатаКурса, "ДДДММГГГГ") + "&outer=table&execute=run&time=" + _GetPerformanceCounter();

	Сообщить(Url);

	Reader = СоздатьОбъект("MSXML2.XMLHTTP");

	Reader.Open("Get", Url, 0);

	Reader.Send();

	Пока Reader.ReadyState <> 4 Цикл

		Состояние("Чтение данных за <" + ДатаКурса + "> ");

	КонецЦикла;

	Док = СоздатьОбъект("HtmlFile");

	Док.open("text/html");

	Док.write(Reader.ResponseText);

	Док.close();

	HtmlTab	= Док.getElementsByTagName("table").item(5);

	ТабКурсов = СоздатьОбъект("ТаблицаЗначений");

	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");

	ТабКурсов.НоваяКолонка("БуквКод"	, "Строка", 3,  , "Букв. код");

	ТабКурсов.НоваяКолонка("Название"	, "Строка");

	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);

	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);

	Строк	= HtmlTab.rows.length;

	Для НомСтроки = 1 По Строк Цикл

		Р = HtmlTab.rows(НомСтроки - 1);

		Если (НомСтроки = 1) Или (Р.cells.length <> 5) Тогда // 1 - я заголовок, остальные не с данными

			Продолжить;

		КонецЕсли;

		ТабКурсов.НоваяСтрока();

		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);

		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);

		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);

		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");

		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");

	КонецЦикла;

	Reader = 0;

	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);

	Возврат ТабКурсов;

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