Отображение карты

Функция СтрокаЧисло(Ч)

	Возврат Формат(Ч,"ЧДЦ=6; ЧРД=.; ЧН=0.0; ЧГ=0");

КонецФункции // СтрокаЧисло()

&НаСервере
Процедура ПостроитьКарту()
	
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	КоординатыКонтрагентов.Контрагент.Наименование КАК Наименование,
	|	КоординатыКонтрагентов.latitude КАК latitude,
	|	КоординатыКонтрагентов.longitude КАК longitude
	|ИЗ
	|	РегистрСведений.КоординатыКонтрагентов КАК КоординатыКонтрагентов
	|ГДЕ
	|	КоординатыКонтрагентов.latitude <> 0
	|	И КоординатыКонтрагентов.longitude <> 0";
	
	
	ШиротаЦентр = 0;
	ДолготаЦентр = 0;
	
	ДобавитьМаркеры = "";
	Номер = 0;
	Выборка = запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
	
		ДобавитьМаркеры = ""+ДобавитьМаркеры+"
			|var m"+Номер+"=L.marker(["+СтрокаЧисло(Выборка.latitude)+","+СтрокаЧисло(Выборка.longitude)+"],{title:'"+Выборка.Наименование+"'}).addTo(map);";
	
		Номер = Номер+1;
		
		Если ШиротаЦентр = 0 Тогда
		
			ШиротаЦентр = Выборка.latitude;
			ДолготаЦентр = Выборка.longitude;
		
		КонецЕсли; 
		
	КонецЦикла; 
	
	ТекстСтраницы = ПолучитьОбщийМакет("ПросмторКартыLeafletHTML").ПолучитьТекст();
	
	ТекстСтраницы = СтрЗаменить(ТекстСтраницы,"&Широта",СтрокаЧисло(ШиротаЦентр));
	ТекстСтраницы = СтрЗаменить(ТекстСтраницы,"&Долгота",СтрокаЧисло(ДолготаЦентр));
	ТекстСтраницы = СтрЗаменить(ТекстСтраницы,"&ДобавитьМаркеры",ДобавитьМаркеры);
	
	ОкноКарты = ТекстСтраницы;
	
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
  ПостроитьКарту();
КонецПроцедуры