&НаСервере

Функция СоздатьПеремещениеНаСервере(ДанныеФормы)

	ДанныеФормы.Дата=ТекущаяДата();

	// ДанныеФормы.Номер="1";

	ДанныеФормы.СкладОтправитель =  Справочники.Склады.НайтиПоНаименованию("Склад гарантийного обслуживания");

	ДанныеФормы.СкладПолучатель = Справочники.Склады.НайтиПоНаименованию("Склад гарантийных");

	

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

	Для Каждого стр из Объект.ДанныеПоГН Цикл 

		Если стр.ДанныеПроверки=Перечисления.СтатусПроверкиГарантии.зн0 тогда //!В документ перемещение только записи статус=зн0

		новСП.Добавить(Строка(стр.НомерЗаводской));  н=н+1;

		КонецЕсли;

	КонецЦикла;

	

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

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

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

	"ВЫБРАТЬ

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

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

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

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

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

	|	ПРЕДСТАВЛЕНИЕ(РеализацияТоваровУслугСерии.Серия) КАК СерияСТР

	|ИЗ

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

	|ГДЕ

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

	|			(ВЫБРАТЬ

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

	|			ИЗ

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

	|			ГДЕ

	|				СерииНоменклатуры.Наименование В (&Наименование))

	|

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

	|	Серия

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

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

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

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

		

			НайденнаяСтрока=ТаблицаЗапроса.Найти(стр.Значение,"СерияСТР");

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

				//нет такого

			Иначе

				нстр=ДанныеФормы.Товары.Добавить();

				нстр.Номенклатура = НайденнаяСтрока.Номенклатура;

				нстр.Серия=НайденнаяСтрока.Серия; 

				нстр.КоличествоУпаковок=1;

				нстр.Количество=1;

				нстр.СтатусУказанияСерий=2;

				нстр.СтатусУказанияСерийОтправитель=2;

				нстр.СтатусУказанияСерийПолучатель=2;

				

				нстр=ДанныеФормы.Серии.Добавить();

				нстр.Номенклатура = НайденнаяСтрока.Номенклатура;

				нстр.Серия=НайденнаяСтрока.Серия; 

				нстр.Количество=1;    

			КонецЕсли;	

	КонецЦикла;

	КонецЕсли;

	Возврат ДанныеФормы;

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





&НаКлиенте

Процедура СоздатьПеремещение(Команда)

	Форма=ПолучитьФорму("Документ.ПеремещениеТоваров.ФормаОбъекта"); 

	ДанныеФормы=Форма.Объект;

	ДанныеФормы=СоздатьПеремещениеНаСервере(ДанныеФормы);

	КопироватьДанныеФормы(ДанныеФормы,Форма.Объект);

	Форма.Открыть();

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

   

 &НаКлиенте

Процедура ВерсииПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)

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

        Элемент.ТекущиеДанные.Дата = ТекущаяДата();

    КонецЕсли;

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

 Процедура СоставПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)



    // Заполнение поля СтавкаНДС значением по умолчанию.

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



        Элемент.ТекущиеДанные.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;



    КонецЕсли;



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

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

	

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

	

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





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





#Область НажатиеНаКнопку





// кнопка начала выгрузки

&НаКлиенте

Процедура Выгрузить(Команда)

	

	ОчиститьСообщения();

	// проверка на заполнение реквизита, существовавание каталога, на его "не пустоту"

	Если НЕ ЗначениеЗаполнено(Объект.КаталогВыгрузки) Тогда

		Сообщить("Укажите каталог для выгрузки");

		Возврат;

	КонецЕсли;

	Каталог = Новый Файл(Объект.КаталогВыгрузки);

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

		Сообщить("Указанный каталог не существует");

		Возврат;

	КонецЕсли;

	МассивФайлов = НайтиФайлы(Объект.КаталогВыгрузки,"*.*");

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

		ОписаниеОповещения = новый ОписаниеОповещения("ПодвержденияЗамещения",ЭтаФорма);

		ПоказатьВопрос(ОписаниеОповещения,"В каталоге есть файлы. При выгрузке будет выполнение замещение существующих."+Символы.ПС+"Начать выгрузку?",РежимДиалогаВопрос.ДаНет);

		Возврат;

	КонецЕсли;

	ВыгрузкаНачнись(); // проблем не обнаружили, давайте выгружать уже

	

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





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

&НаКлиенте

Процедура ПодвержденияЗамещения(ЧтоОтветилПользователь, Параметры) Экспорт

	

	Если ЧтоОтветилПользователь = КодВозвратаДиалога.Да Тогда

		ВыгрузкаНачнись();

	Иначе

		Возврат;

	КонецЕсли;

	

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





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





#Область СамаВыгрузка





&НаКлиенте

Процедура ВыгрузкаНачнись()

	

	ПолучаемыеФайлы = ПодготовимФайлыНаСервере(ЭтаФорма.УникальныйИдентификатор);

	Обработчик = Новый ОписаниеОповещения("ОбработкаРезультатаВыгрузки", ЭтотОбъект);

	НачатьПолучениеФайлов(Обработчик, ПолучаемыеФайлы, Объект.КаталогВыгрузки, Ложь);





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





&НаСервере

Функция ПодготовимФайлыНаСервере(ИдентификаторФормы)

	

	Массив = Новый Массив;

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

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

		Если ТипЗнч(Выборка.ХранилищеОбработки) = Тип("ХранилищеЗначения") Тогда

			Адрес = ПоместитьВоВременноеХранилище(Выборка.ХранилищеОбработки.Получить(),ИдентификаторФормы);

			Массив.Добавить(Новый ОписаниеПередаваемогоФайла(Выборка.ИмяФайла, Адрес));

		КонецЕсли;

	КонецЦикла;

	Возврат Массив;

	

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





&НаКлиенте

Процедура ОбработкаРезультатаВыгрузки(ПолученныеФайлы, ДополнительныеПараметры) Экспорт

	

	ПоказатьПредупреждение(,"Выгрузка в каталог завершена",10); // все готово, шеф!

	

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





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

   

 Процедура ПередЗаписью(Отказ, Замещение)

	Для Каждого ТекЗапись Из ЭтотОбъект Цикл

		Если ТекЗапись.СерияНоменклатуры.Восстановленный Тогда 

			ТекЗапись.Цвет="2551650";	

		Иначе

			ТекЗапись.Цвет="";

		КонецЕсли;

	КонецЦикла;	

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

 Процедура ПередЗаписью (Отказ, Замещение)

            ДатаРегистрации = Константы.ДатаРегистрации.Получить ();

            Для Каждого ТекЗапись Из ЭтотОбъект Цикл

             

                        Если ТекЗапись.Период < ДатаРегистрации Тогда

// Если период раньше даты регистрации

            Отказ = Истина; // отказ от записи

                        Сообщить(" Запись от " + ТекЗапись.Период +

                                               " с курсом " + ТекЗапись.Курс +

                                               " раньше даты регистрации фирмы!");

                        КонецЕсли;

            КонецЦикла;

             

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

            Сообщить ("Запись не выполнена!");

            КонецЕсли;

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

 &НаСервере

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

	Если Параметры.Ключ.Пустой() Тогда //ЭтоНовый

		

	КонецЕсли; 

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

 &НаСервере

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

	Если Параметры.Ключ.Пустой() Тогда //ЭтоНовый

		

	КонецЕсли; 

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



&НаКлиенте

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

	//1С советует и тут использовать Параметры.Ключ.Пустой()

	// но можно и так:

	Если Объект.Ссылка.Пустая() Тогда //ЭтоНовый

	//	

	КонецЕсли;

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

 Процедура ПроверкаВремениСозданияИИзмененияДокумента(Источник, Отказ)

	Если РольДоступна("ПолныеПрава") Тогда

		//Все можно		

	ИначеЕсли Источник.Проведен Тогда //Обрабатывае только Проведенные

		ТекДата=ТекущаяДата(); ЧасовРазрешено=24;

		Если ТипЗнч(Источник) = Тип("ДокументОбъект.РасходныйКассовыйОрдер") Тогда

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

		ИначеЕсли ТипЗнч(Источник) = Тип("ДокументОбъект.ПриходныйКассовыйОрдер") Тогда

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

		ИначеЕсли ТипЗнч(Источник) = Тип("ДокументОбъект.ПлатежноеПоручениеВходящее") Тогда

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

	     ИначеЕсли ТипЗнч(Источник) = Тип("ДокументОбъект.ПлатежноеПоручениеИсходящее") Тогда

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

		КонецЕсли;

	КонецЕсли;	

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

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

			Сообщить("Прошло более "+Строка(ЧасовРазрешено)+" часов с момента создания документа! Изменение запрещено и документ не может быть записан...", СтатусСообщения.Важное);

		КонецЕсли;

	#КонецЕсли

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

 <!DOCTYPE html>

<html>

<head>

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

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

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

<style type="text/css">

  html { height: 100% }

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

  #map { height: 100% }

</style>

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

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

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

<script type="text/javascript">

	var latlng;

	var markers = [];

	var myMap;

	var index = 1;

	var directionsDisplay;

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

	var infoWindow = new google.maps.InfoWindow;

	var clusterer, mcOptions;

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

	var trafficOn = false;

	var noclick = false;

	var PointArray = [];

	var polygons = [];





  	function initialize() {

  		directionsDisplay = new google.maps.DirectionsRenderer();

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

	  	var myOptions = {

		  zoom: 12,

		  center: latlng,

		  mapTypeId: google.maps.MapTypeId.ROADMAP,

		  disableDoubleClickZoom: true,

		  panControl: true,

		  zoomControl: true,

		  mapTypeControl: true,

		  scaleControl: true,

		  streetViewControl: true,

		  overviewMapControl: true

		};

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

	       myOptions);

	       

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

        	noclick = true;			

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

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

        });

        

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

	    	infoWindow.close();

	    	if (!noclick) {

				addMarker(event.latLng);

	      	}else{

	      		noclick = false;

	      	}

	    });          

	    

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

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

	    

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

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

        

        trafficControlDiv.style.padding = '5px';





        // Set CSS for the control border

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

        controlUI.style.backgroundColor = 'white';

        controlUI.style.borderStyle = 'solid';

        controlUI.style.borderWidth = '2px';

        controlUI.style.cursor = 'pointer';

        controlUI.style.textAlign = 'center';

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

        trafficControlDiv.appendChild(controlUI);





        // Set CSS for the control interior

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

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

        controlText.style.fontSize = '12px';

        controlText.style.paddingLeft = '4px';

        controlText.style.paddingRight = '4px';

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

        controlUI.appendChild(controlText);





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

			if (!trafficOn){

				trafficOn = true;

				trafficLayer.setMap(myMap);

			}else{

				trafficOn = false;

				trafficLayer.setMap(null);

			}

			});





        trafficControlDiv.index = 1;

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

	};

  

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

	function addMarker(location) {

		marker = new google.maps.Marker({

			position: location,

			map: myMap,

			title: 'Точка'+index

		});

		infoWindow.setContent(marker.title);

        infoWindow.open(myMap, marker);

		

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

			 var mark = this;

		     var latLng = mark.getPosition();

		     infoWindow.setContent(mark.title);

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

		

		markers.push(marker);

		index++;

		

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

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

	}

	

	function calcRoute(options) {

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

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

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

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

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

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

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

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

	  var waypts = [];

	  if(option2.length > 0) {

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

	  		temp = option2[i]; 

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

			waypts.push({

	          location:Qcoord,

	          stopover:true

	      });

		} 

	  }	 

	  //return;

	  var request = {

	      origin: start,

	      destination: end,

	      waypoints: waypts,

	      optimizeWaypoints: true,

	      travelMode: google.maps.TravelMode.DRIVING

	  };

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

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

	    	directionsDisplay.setMap(myMap);

	    	directionsDisplay.setDirections(response);

	      

	    	var total = 0; 

		    var myroute = response.routes[0];

		 

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

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

		    }

		  	total = total / 1000;

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

	        

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

	        var evt = document.createEventObject();

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

	    }else{

	    	alert(status);

	    }

	  });

	}

	

	function Reset(){

		directionsDisplay.setMap(null);

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

          markers[i].setMap(null);

        }

		markers = [];

		index = 1;

		

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

		clusterer.clearMarkers();

		

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

          polygons[i].setMap(null);

        }

		polygons = [];

		PointArray = [];

	}

	

	function FindAdres(Adres){

		Reset();

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

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

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

	        latlng = results[0].geometry.location;

			myMap.panTo(latlng);

			

			 marker = new google.maps.Marker({

	            map: myMap,

	            position: latlng,

	            animation: google.maps.Animation.BOUNCE,

	            title:Adres

	        });

	        

	        markers.push(marker);

	        

	        infoWindow.setContent(marker.title);

        	infoWindow.open(myMap, marker);

	      } else {

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

	      }

	    });

	}

	

	function ReverseSearchAdres(CoordX, CoordY, Adres){

		Reset();

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

		myMap.panTo(latlng);

		

		var marker = new google.maps.Marker({

	        map: myMap,

            position: latlng,

            animation: google.maps.Animation.BOUNCE,

            title:Adres

        });

        

        markers.push(marker);

        

        infoWindow.setContent(marker.title);

        infoWindow.open(myMap, marker);

	}

	

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

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

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

	  	PointArray.push(point);

	}

	

	function drawCluster(){

		clusterer.addMarkers(PointArray);

		//myMap.geoObjects.add(clusterer);

	}	

	

	function createPolygon(ArrayPoint, Name, color) {

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

		var paths = [];

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

	  		var temp = ArrayPoint[i]; 

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

			paths.push(Qcoord);

		};

	

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

		myPolygon = new google.maps.Polygon({

		    paths: paths,

		    strokeColor: color,

		    strokeOpacity: 0.6,

		    strokeWeight: 5,

		    fillColor: "#0000FF"

		  });

                    

        myPolygon.setMap(myMap);

        polygons.push(myPolygon);

    }

    

    function WebClientClick() {

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

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

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

    	

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

		//alert(WebClientOperation);

		switch (WebClientOperation) {

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

        	   var a = 1; 

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

        	    eval(WebClientOperation);

        }

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

	}

</script>

</head>





<body onload="initialize()">

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

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

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

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

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

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

</body>

</html>   

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

	

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

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

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

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

	КонецЕсли; 

	

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

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

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

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

	

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

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





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

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

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



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

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

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

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

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

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



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

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

	

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

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

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

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

	   КонецЦикла;

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

	

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

			КонецЦикла;	

			КонецЕсли;

	КонецЦикла;	

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





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

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

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





	

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

	Индекс = 0;

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

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

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

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

		Попытка

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

	Исключение

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

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

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

	КонецЦикла;

	

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



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

 

&НаКлиенте

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

	

	#Если МобильноеПриложениеКлиент  Тогда

		 Если НЕ СредстваМультимедиа.ПоддерживаетсяСканированиеШтрихКодов() Тогда

    		ВызватьИсключение НСтр("ru='Сканирование штрихкодов не поддерживается';en='Barcode scanning is not supported'");

			Возврат;

  		КонецЕсли;

		ОбработчикСканирования = Новый ОписаниеОповещения("ОбработкаСканирования", ЭтаФорма);

  		ОбработчикЗакрытия = Новый ОписаниеОповещения("ОбработкаЗакрытияИнтерфейса", ЭтаФорма);

  		СредстваМультимедиа.ПоказатьСканированиеШтрихКодов(НСтр("ru='Наведите камеру на штрихкод';en='Aim the camera at an barcode'"), ОбработчикСканирования, ОбработчикЗакрытия, ТипШтрихКода.Линейный);

	#конецесли



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





&НаКлиенте

Процедура ОбработкаСканирования(Штрихкод, Результат, Сообщение, ДополнительныеПараметры) Экспорт

	

	пТовар    = "";

	

	Если Результат Тогда

		

		Структура = ОбщегоНазначенияСервер.ПоискПоШтрихкодуОбъекта(ШтрихКод);			     			

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

			пТовар = Неопределено;

			//#Если МобильноеПриложениеКлиент  Тогда

			//	СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();

			//#конецесли

			Сообщение = "Не найден объект по штрихкоду " + Штрихкод;

		Иначе

			пТовар    = Структура.Наименование;

			

			Сообщение = сокрЛП(пТовар) + Символы.ПС + Штрихкод;

						

			ДобавитьТоварВТаблицу(пТовар);

			

		КонецЕсли;

		

	КонецЕсли;

	

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



&НаКлиенте

Процедура ОбработкаЗакрытияИнтерфейса(ДополнительныеПараметры) Экспорт

	

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

	//	можем встроить код открытия формы ввода количества

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



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

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

    

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

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

        "ВЫБРАТЬ

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

        |ИЗ

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

        |ГДЕ

        |    Номенклатура.Наименование ПОДОБНОНаименование";

        

        

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

    

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

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

    Массив = Таблица.ВыгрузитьКолонку("Ссылка");

    

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

    ДанныеВыбора.ЗагрузитьЗначения(Массив);

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

    

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

 &НаСервере

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

    // Создание и заполнение "обычного" объекта прикладного типа ДеревоЗначений,

    // который будет отображен на управляемой форме

    ДеревоОбъект = Новый ДеревоЗначений;

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

    Для к1 = 1 По 3 Цикл

        СтрокаУ1 = ДеревоОбъект.Строки.Добавить();

        СтрокаУ1.Узел = "Узел"+к1;

        Для к2 = 1 По 3 Цикл

            СтрокаУ2 = СтрокаУ1.Строки.Добавить();

            СтрокаУ2.Узел = СтрокаУ1.Узел+к2;

            Для к3 = 1 По 3 Цикл

                СтрокаУ3 = СтрокаУ2.Строки.Добавить();

                СтрокаУ3.Узел = СтрокаУ2.Узел+к3;

            КонецЦикла;

        КонецЦикла;

    КонецЦикла;





    // Создание Реквизита формы типа ДанныеФормыДерево

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

    МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Дерево", 

        Новый ОписаниеТипов("ДеревоЗначений")));

    Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл

        МассивДобавляемыхРеквизитов.Добавить(

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

    КонецЦикла;

    ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);





    // Преобразование объекта прикладного типа ДеревоЗначений 

    // в реквизит управляемой формы (данные формы)

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





    // Создание элемента формы типа ТаблицаФормы для отображения дерева

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

    ЭлементДерево.ПутьКДанным = "Дерево";

    ЭлементДерево.Отображение = ОтображениеТаблицы.Дерево;





    Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл

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

            ЭлементДерево);

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

        НовыйЭлемент.ПутьКДанным = "Дерево." + Колонка.Имя;

    КонецЦикла;



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

 Процедура ОбновлениеИндексы() Экспорт

ПолнотекстовыйПоиск.ОбновитьИндекс();

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

 Перем СписокПоиска;   

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

СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок();

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

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

СписокПоиска.СтрокаПоиска = ПоисковоеВыражение;

Попытка

СписокПоиска.ПерваяЧасть();

Исключение

Предупреждение(ОписаниеОшибки());

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

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

ЭлементыФормы.СообщениеОРезультате.Значение = "Не найдено";

ЭлементыФормы.РезультатПоиска.УстановитьТекст("");

Иначе

ВывестиРезультатПоиска();

КонецЕсли;

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

 Процедура ВывестиРезультатПоиска()

ЭлементыФормы.СообщениеОРезультате.Значение = "Показаны " + Строка(СписокПоиска.НачальнаяПозиция() + 1) + " - " + Строка(СписокПоиска.НачальнаяПозиция() +СписокПоиска.Количество()) + " из " + СписокПоиска.ПолноеКоличество();

Результат = СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.HTMLТекст);

ЭлементыФормы.РезультатПоиска.УстановитьТекст(Результат);

ДоступностьКнопок();

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

 Процедура ДоступностьКнопок()

ЭлементыФормы.СледующаяПорция.Доступность = (СписокПоиска.ПолноеКоличество() - СписокПоиска.НачальнаяПозиция()) > СписокПоиска.Количество();

ЭлементыФормы.ПредыдущаяПорция.Доступность = (СписокПоиска.НачальнаяПозиция() > 0);

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

 Процедура ПредыдущаяПорцияНажатие(Элемент)

СписокПоиска.ПредыдущаяЧасть();

ВывестиРезультатПоиска();

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

Процедура СледующаяПорцияНажатие(Элемент)

СписокПоиска.СледующаяЧасть();

ВывестиРезультатПоиска();

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

 Процедура РезультатПоискаonclick(Элемент, pEvtObj)

htmlElement = pEvtObj.srcElement;

// Проверить идентификатор элемента

Если (htmlElement.id = "FullTextSearchListItem") Тогда

// Получить имя файла (номер строки списка поиска),

// содержащегося в гиперссылке

НомерВСписке = Число(htmlElement.nameProp);

// Получить строку списка поиска по номеру

ВыбраннаяСтрока = СписокПоиска[НомерВСписке];

// Открыть форму найденного объекта

ОткрытьЗначение(ВыбраннаяСтрока.Значение);

pEvtObj.returnValue = Ложь;

КонецЕсли;

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

 &НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)



    //Помещаем обработку во временном хранилище

    АдресХранилища = "";

    Результат = ПоместитьФайл(АдресХранилища, "C:\ВнешняяОбработка.epf", , Ложь);

    ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);



    // Откроем форму подключенной внешней обработки

    ОткрытьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма");

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



&НаСервере

Функция ПодключитьВнешнююОбработку(АдресХранилища)

    Возврат ВнешниеОбработки.Подключить(АдресХранилища);

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

 



&НаСервере

Функция ПодключитьВнешнююОбработку(АдресХранилища)

	Возврат ВнешниеОбработки.Подключить(АдресХранилища);

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





&НаСервере

Функция ПодключитьВнешнийОтчет(АдресХранилища)

	Возврат ВнешниеОтчеты.Подключить(АдресХранилища);

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





&НаКлиенте

Процедура дзФайловВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь; ВыбСтрока=Элемент.ТекущиеДанные;

	Если НЕ ВыбСтрока.ЭтоГруппа Тогда

		АдресХранилища = "";

		Если ВыбСтрока.Расширение = ".epf" Тогда

			Рез=ПоместитьФайл(АдресХранилища,ВыбСтрока.ПолноеИмя, ,Ложь);

			ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);

			ОткрытьФорму("ВнешняяОбработка."+ИмяОбработки+".Форма");  			

		ИначеЕсли ВыбраннаяСтрока.Расширение = ".erf" Тогда

			Рез=ПоместитьФайл(АдресХранилища,ВыбСтрока.ПолноеИмя, ,Ложь);

			ИмяОбработки = ПодключитьВнешнийОтчет(АдресХранилища);

			ОткрытьФорму("ВнешнийОтчет."+ИмяОбработки+".Форма"); 			

		КонецЕсли;		

	КонецЕсли; 	

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

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

	Если Не Регистрировать Тогда

		ПринадлежностьПоследовательностям.Последовательность1.Очистить();

	КонецЕсли;

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

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) 

	ПринадлежностьПоследовательностям.Последовательность1.Очистить();

	Если ВидРегистрации = 1 Тогда

		ЗП = ПринадлежностьПоследовательностям.Последовательность1.Добавить();

		ЗП.Измерение = Реквизит1;

	ИначеЕсли ВидРегистрации = 2 Тогда

		ПринадлежностьПоследовательностям.Последовательность1.Добавить();

		ЗП.Измерение = Реквизит2;

	КонецЕсли;

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

   

 	// Зарегистрируем в последовательности УУ

		Если ОтражатьВУправленческомУчете Тогда

			ЗаписьРегистрации = ПринадлежностьПоследовательностям.ПартионныйУчет.Добавить();

			ЗаписьРегистрации.Период      = Дата;

		КонецЕсли;



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

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

	

	НаборЗаписей = Последовательности.Взаиморасчеты.СоздатьНаборЗаписей();

	НаборЗаписей.Отбор.Регистратор.Установить(ДокумСсылка);

	НоваяЗапись = НаборЗаписей.Добавить();

	НоваяЗапись.Регистратор = ДокумСсылка;

	НоваяЗапись.Период = ДокумСсылка.Дата;

	НаборЗаписей.Записать(); 

	

	//Установим границу последовательности на документ

	Последовательности.Взаиморасчеты.УстановитьГраницу(ДокументМоментВремени);

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



Функция ПолучитьГраницуПоследовательности(Организация = Неопределено) Экспорт

	

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

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

	"ВЫБРАТЬ

	|	ПартионныйУчетГраницы.МоментВремени

	|ИЗ

	|	Последовательность.ПартионныйУчет.Границы КАК ПартионныйУчетГраницы

	|";

	

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

	Если Выборка.Следующий() Тогда

		Возврат  Выборка.МоментВремени;

	Иначе

		Возврат Новый МоментВремени('00010101');

	КонецЕсли;



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



Процедура ОбновитьСписокПоследовательностей()

	

	Для каждого Последовательность Из Обр.СписокПоследовательностей Цикл

		ИмяПоследовательности = Последовательность.ИмяПоследовательности;

		ГраницаПоследовательности = Последовательности[ИмяПоследовательности].ПолучитьГраницу();

		ДатаГраницы = ГраницаПоследовательности.Дата;

		Последовательность.Актуальность = "" + ДатаГраницы + " " + ГраницаПоследовательности.Ссылка;

		Последовательность.ДатаГраницы = ДатаГраницы;

	КонецЦикла;

	

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



// Процедура выполняет поиск и исправление ошибок в последовательности.

//

Процедура КорректировкаРегистрацииВПоследовательности()





	Для Каждого ТекПоследовательность Из Метаданные.Последовательности Цикл

		ТекстЕстьДвижения = "

						|	ВЫБОР

						|		КОГДА СписанныеТоварыСрезПоследних.Регистратор ЕСТЬ NULL";

		Для Каждого ДвиженияВлияющиеНаПоследовательность Из ТекПоследовательность.Движения Цикл

			ТекстЕстьДвижения = ТекстЕстьДвижения + "

						|				И РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + ".Регистратор ЕСТЬ NULL";

		КонецЦикла;

		ТекстЕстьДвижения = ТекстЕстьДвижения + "

						|			ТОГДА ЛОЖЬ

						|		ИНАЧЕ ИСТИНА

						|	КОНЕЦ";





		ТекстЗапроса = "ВЫБРАТЬ

						|	Последовательность.Регистратор КАК Регистратор,

						|	Последовательность.Регистратор.Проведен КАК Проведен,

						|	Последовательность.Регистратор.Дата КАК Дата,

						|	Последовательность.Период КАК Период,

						|" + ТекстЕстьДвижения + " КАК ЕстьДвижения

						|ИЗ

						|	Последовательность." + ТекПоследовательность.Имя + " КАК Последовательность

						|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СписанныеТовары КАК СписанныеТоварыСрезПоследних

						|		ПО Последовательность.Регистратор = СписанныеТоварыСрезПоследних.Регистратор

						|		И СписанныеТоварыСрезПоследних.НомерСтроки = 1";

		Для Каждого ДвиженияВлияющиеНаПоследовательность Из ТекПоследовательность.Движения Цикл

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

						|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления." +ДвиженияВлияющиеНаПоследовательность.Имя + ".Обороты(, , Регистратор, ) КАК РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + "

						|		ПО Последовательность.Регистратор = РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + ".Регистратор";

		КонецЦикла;





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

						|ГДЕ

						|	НЕ (Последовательность.Регистратор.Проведен

						|	    И (Последовательность.Регистратор ССЫЛКА Документ.КорректировкаСтоимостиСписанияТоваров

						|	       ИЛИ Последовательность.Регистратор.Дата = Последовательность.Период)

						|       И " + ТекстЕстьДвижения + ")

						|";





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





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

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

			Если Не Выборка.Проведен Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Записать();

			ИначеЕсли (Выборка.Дата <> Выборка.Период)

			        И (ТипЗнч(Выборка.Регистратор) <> Тип("ДокументСсылка.КорректировкаСтоимостиСписанияТоваров")) Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Прочитать();

				Для Каждого СтрокаНабора Из НаборЗаписей Цикл

					СтрокаНабора.Период = Выборка.Дата;

				КонецЦикла;

				НаборЗаписей.Записать();

			КонецЕсли;





			Если Не Выборка.ЕстьДвижения Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Записать();

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;





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



Процедура УдалитьРегистрациюДокументаВПоследовательностях(ДокументОбъект, ПроверятьДвижения = Ложь)Экспорт

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

	Если ПроверятьДвижения Тогда

		ТаблицаРегистраций = ОпределитьНаличиеРегистрацииДокументаВПоследовательности(ДокументОбъект);

	КонецЕсли;      

	КоллекцияПоследовательностей = ДокументОбъект.ПринадлежностьПоследовательностям;

	Для Каждого НаборЗаписейРегистрацииВПоследовательности ИЗ КоллекцияПоследовательностей Цикл

		Если (НаборЗаписейРегистрацииВПоследовательности.Количество() > 0)

		  ИЛИ (ПроверятьДвижения И (НЕ ТаблицаРегистраций.Найти(НаборЗаписейРегистрацииВПоследовательности.Метаданные().Имя,"Имя") = Неопределено)) Тогда

		   НаборЗаписейРегистрацииВПоследовательности.Очистить();

		КонецЕсли;

	КонецЦикла;

КонецПроцедуры//УдалитьРегистрациюДокументаВПоследовательностях



Функция ОпределитьНаличиеРегистрацииДокументаВПоследовательности(ДокументОбъект) Экспорт

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

	

	Для Каждого Последовательность ИЗ ДокументОбъект.ПринадлежностьПоследовательностям Цикл

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

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

		|" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "

		|ВЫБРАТЬ """ + Последовательность.Метаданные().Имя 

		+  """ КАК Имя ИЗ " + Последовательность.Метаданные().ПолноеИмя()  

		+ " ГДЕ Регистратор =Регистратор";

		

	КонецЦикла;

	

	Если ТекстЗапроса = "" Тогда

		Возврат Новый ТаблицаЗначений();

	Иначе

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

		Запрос.УстановитьПараметр("Регистратор", ДокументОбъект.Ссылка);

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

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

	КонецЕсли;

	

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

 //Перехватываем событие вывода компоновки данных в табличный документ и выводим со своим заголовком

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

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

	УстановитьПривилегированныйРежим(Истина);	

	

	//Сформируем отчет

	СформироватьОтчет(ДокументРезультат, ДанныеРасшифровки);

	

	УстановитьПривилегированныйРежим(Ложь);

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

 //Перехватываем событие вывода компоновки данных в табличный документ и выводим со своим заголовком

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

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

	

	МЕ_ДляОтчетаСКД_ПривелРежим.СформироватьОтчетПривРеж(ДокументРезультат, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек);



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

 Процедура СформироватьОтчетПривРеж(ТабличныйДокумент, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек) Экспорт 



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

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; 	

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки,,,Ложь);

	

	ВнешниеНаборыДанных  = Новый Структура;

	/// можно передать внешние данные ВнешниеНаборыДанных.Вставить("тзПродаж", СформироватьТЗПродаж());

	

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,ВнешниеНаборыДанных,ДанныеРасшифровки);

	

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

	ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

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

 ПараметрыСеанса.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей=Ложь;   

 //примеры

ВЫРАЗИТЬ(ДокументыОплаты.Регистратор КАК Документ.ПлатежноеПоручениеВходящее).СуммаДокумента

//или так

ВЫБОР

 КОГДА РАЗНОСТЬДАТ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата,КонецПериода, ДЕНЬ) > ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности

   ТОГДА ДОБАВИТЬКДАТЕ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата, ДЕНЬ, ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности)

 ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1)

КОНЕЦ КАК ДеньВозникновенияЗадолженности



   

 // Процедура выполняет формирование табличного документа по настройкам СКД

Процедура СформироватьОтчет(ТабличныйДокумент, ДанныеРасшифровки) 

	УстановитьПривилегированныйРежим(Истина);	

	// если отчет открывается по расшифровке, отбору, упорядочиванию, 

	// группировке или условному оформлению - восстановим настройки вывода заголовка,

	// т.к., в переданных настройках при этом, вывод заголовка отключен

	// для того, чтобы не выводился встроенный заголовок компоновки.                                                                         

	ВосстановитьНастройкиВыводаЗаголовка();

	

	ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	

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

	

	// установим обязательные настройки отчета

	УстановитьПараметрыОтчета();

	

	// Сделаем копию настроек вывода заголовка

	СохранитьНастройкиВыводаЗаголовка();

	

	ВыводитьЗаголовок = ВыводитьЗаголовокОтчета();

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

		ПрисоединитьЗаголовокОтчетаКТабличномуДокументу(ТабличныйДокумент, ПолучитьТекстЗаголовкаОтчета());

		

		// Отключим в настройках вывод встроенного заголовка

		НайденнаяНастройкаВыводаЗаголовка = КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок");

		НайденнаяНастройкаВыводаЗаголовка.Значение		= ТипВыводаТекстаКомпоновкиДанных.НеВыводить;

		НайденнаяНастройкаВыводаЗаголовка.Использование	= Истина;

	КонецЕсли;

	

	КопияДополнительныхНастроек = УстановитьДополнительныеНастройкиДляРасшифровки();

	

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);

	

	// при необходимости вставим внешние наборы данных в СКД

	ВнешниеНаборыДанных = Новый Структура;

	

	ТаблицаВнешнегоНабораДанных = ПолучитьТаблицуВнешнегоНабораДанных();

	ВнешниеНаборыДанных.Вставить("ТаблицаВнешнегоНабораДанных",ТаблицаВнешнегоНабораДанных);

	

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,ВнешниеНаборыДанных,ДанныеРасшифровки);

	

	ВывестиРезультатКомпоновкиСАвтофиксациейСтрок(ТабличныйДокумент, ПроцессорКомпоновкиДанных, ДанныеРасшифровки.Элементы,,,КоличествоФиксируемыхСтолбцов);

	

	ДополнительнаяОбработкаРезультатаОтчета(ТабличныйДокумент);

	

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

		// вернем настройки вывода заголовка на место		

		ВосстановитьНастройкиВыводаЗаголовка();

	КонецЕсли;

	

	// восстановим дополнительные настройки

	Для Каждого ЭлементСтруктуры Из КопияДополнительныхНастроек Цикл

		КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить(ЭлементСтруктуры.Ключ, ЭлементСтруктуры.Значение);

	КонецЦикла;

	

	// сохраненные настройки нужны только при расшифровке и т.п.

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

	ОчиститьСохраненныеНастройкиВыводаЗаголовка();





	УстановитьВидимостьЗаголовкаОтчета(ТабличныйДокумент);

	УстановитьВидимостьПараметровОтчета(ТабличныйДокумент);    

    УстановитьПривилегированныйРежим(Ложь);

КонецПроцедуры // СформироватьОтчет()