Для Каждого Стр Из НаВходе Цикл

		нСтр = ПроверкаСовпадений.Добавить();

		нСтр.Адрес = Стр.Адрес;

		нСтр.Контрагент = Стр.Контрагент;

		//Если адрес начальный или конечный - пропускаем

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

			Продолжить;

		КонецЕсли;

		опАдреса = опАдреса + "

		|waypts.push({location:'" + нСтр.Адрес + "',stopover:true});";

	КонецЦикла;

	//Подставляем параметры в макет "Карта"

	опМаршрут = ПолучитьМакет("Карта").ПолучитьТекст();

	опМаршрут = СтрЗаменить(опМаршрут,"[=-опАдреса-=]",опАдреса);

	опМаршрут = СтрЗаменить(опМаршрут,"[=-опНач-=]",опНач);

	опМаршрут = СтрЗаменить(опМаршрут,"[=-опКон-=]",опКон);

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

 <HTML><HEAD>

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

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

<STYLE type=text/css>HTML {

	HEIGHT: 100%

}

BODY {

	HEIGHT: 100%; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; PADDING-LEFT: 0px; MARGIN: 0px; PADDING-RIGHT: 0px

}

#map_canvas {

	HEIGHT: 100%

}

</STYLE>





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

</SCRIPT>





<SCRIPT type=text/javascript>

var directionDisplay;

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

var map;





function initialize() {

 

  directionsDisplay = new google.maps.DirectionsRenderer();

  var chicago = new google.maps.LatLng(55.81234, 37.664425);

  var myOptions = {

    zoom: 6,

    mapTypeId: google.maps.MapTypeId.ROADMAP,

    center: chicago

  }

  map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);

 

 

   directionsDisplay.setMap(map);

   calcRoute();

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

trafficLayer.setMap(map);

}

  

function calcRoute() {

  var start = "[=-опНач-=]";

  var end = "[=-опКон-=]";

  var waypts = [];

  var checkboxArray = document.getElementById("waypoints");

  [=-опАдреса-=]

  var request = {

      origin: start, 

      destination: end,

      waypoints: waypts,

      optimizeWaypoints: true,

      travelMode: google.maps.DirectionsTravelMode.DRIVING

  };

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

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

      directionsDisplay.setDirections(response);

      var route = response.routes[0];

      var summaryPanel = document.getElementById("directions_panel");

      summaryPanel.innerHTML = "";

      // For each route, display summary information.

      

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

        var routeSegment = i+1;

        summaryPanel.innerHTML += 'опЗаполнитьМаршрут("' + String.fromCharCode(routeSegment+65) + '","' + String.fromCharCode(route.legs.length+65) + '","' + route.legs[i].start_address + '","' + route.legs[i].end_address + '","' + route.legs[i].distance.text + '");';

      }

      

    }

  });

}



</SCRIPT>



<META name=GENERATOR content="MSHTML 11.00.9600.17239"></META><BASE href="v8config://c924c032-2565-45e2-b49f-9a30494bc69f/mdobject/ida329e781-b8d1-431e-9e2f-8321c1a691fc/8eb4fad1-1fa6-403e-970f-2c12dbb43e23"></BASE></HEAD>

<BODY onload=initialize()>

<DIV id=map_canvas style="HEIGHT: 100%; WIDTH: 100%"></DIV>

<DIV id=directions_panel style="MARGIN: 20px; DISPLAY: none; BACKGROUND-COLOR: #ffee77"></DIV></BODY></HTML>

   

 ПредопределенноеЗначение("Справочник.Контрагенты.ПустаяСсылка")   

  //Примеры

ПредопределенноеЗначение("Справочник.Организации.УправленческаяОрганизация");

ПредопределенноеЗначение("Справочник.КонтактныеЛицаПартнеров.ПустаяСсылка");

ПредопределенноеЗначение("Перечисление.ТипыКарт.Смешанная");

ПредопределенноеЗначение("Справочник.Склады.ПустаяСсылка");



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



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

		Если ЭтоРасчетыСКлиентами Тогда

			Заказ = ПредопределенноеЗначение("Документ.ЗаказКлиента.ПустаяСсылка");

		Иначе

			Заказ = ПредопределенноеЗначение("Документ.ЗаказПоставщику.ПустаяСсылка");

		КонецЕсли;

	КонецЕсли;

   

 ПредопределенноеЗначение(<ИмяПредопределенногоЗначения>)   

 &Наклиенте

Процедура ГрафикРемонтовСпособВыполненияПриИзменении(Элемент)



СтрокаТабличнойЧасти = Элементы.ГрафикРемонтов.ТекущиеДанные;



Если СтрокаТабличнойЧасти.СпособВыполнения = ПредопределенноеЗначение("Перечисление.СпособыВыполненияРемонтныхРабот.Подрядный") Тогда

Элементы.ГрафикРемонтовИсполнитель.ОграничениеТипа = Новый ОписаниеТипов("СправочникСсылка.Контрагенты");

иначе

Элементы.ГрафикРемонтовИсполнитель.ОграничениеТипа = Новый ОписаниеТипов("СправочникСсылка.ПодразделенияОрганизации");



КонецЕсли;

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

  &НаКлиенте

Процедура ПриИзменениеСтатусаЗаказа()

     Если Объект.Статус = ПредопределенноеЗначение("Перечисление.СтатусыЗаказов.Завершен") Тогда

         ЗакрытьЗаказ();

     КонецЕсли;

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

  // НЕ РАБОТАЕТ

&НаКлиенте

Процедура ПриИзменениеСтатусаЗаказа()

     Если Объект.Статус = Перечисления.СтатусыЗаказов.Завершен Тогда

         ЗакрытьЗаказ();

     КонецЕсли;

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

 ГДЕ Город = ЗНАЧЕНИЕ(Справочник.Города.Москва)

ГДЕ Город = ЗНАЧЕНИЕ(Справочник.Города.ПустаяСсылка)

ГДЕ ТипТовара = ЗНАЧЕНИЕ(Перечисление.ВидыТоваров.Услуга)

ГДЕ ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)

ГДЕ ТочкаМаршрута = ЗНАЧЕНИЕ(БизнесПроцесс.БизнесПроцесс1.Точка.Действие1)   

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

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

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

    |    ВидыНоменклатуры.Порядок

    |ИЗ

    |    Перечисление.ВидыНоменклатуры КАК ВидыНоменклатуры

    |ГДЕ

    |    ВидыНоменклатуры.Ссылка = Значение(Перечисление.ВидыНоменклатуры.Услуга) ";



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

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

    ЭлементыФормы.ТабличноеПоле1.Значение = ТЗ;

    ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();

   

 // Возвращает менеджер объекта по переданной ссылке.

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

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

	

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

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

	

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

		Возврат Справочники[ИмяОбъекта];

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

		Возврат Документы[ИмяОбъекта];

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

		Возврат БизнесПроцессы[ИмяОбъекта];

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

		Возврат ПланыВидовХарактеристик[ИмяОбъекта];

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

		Возврат ПланыСчетов[ИмяОбъекта];

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

		Возврат ПланыВидовРасчета[ИмяОбъекта];

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

		Возврат Задачи[ИмяОбъекта];

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

		Возврат ПланыОбмена[ИмяОбъекта];

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

		Возврат Перечисления[ИмяОбъекта];

	Иначе

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

	КонецЕсли;

	

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

 

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

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

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

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

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

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



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

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



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

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



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

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



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

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



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

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



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

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



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

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



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

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



	Иначе

		Возврат "";



	КонецЕсли;

	

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