3
mobile-1c
25.05.16
✎
18:17
|
вот можешь так:
&НаКлиенте
Функция ОпределитьТекущиеГеокоординаты(ТекущееМестоположение) Экспорт
#Если МобильноеПриложениеКлиент Тогда
ТекущийПровайдер = "gps";
Попытка
ДМ = СредстваГеопозиционирования.ПолучитьПоследнееМестоположение(ТекущийПровайдер);
Исключение
ДМ = Неопределено;
КонецПопытки;
Если ДМ = Неопределено Тогда
ТекущийПровайдер = "network";
Попытка
ДМ = СредстваГеопозиционирования.ПолучитьПоследнееМестоположение(ТекущийПровайдер);
Исключение
ДМ = Неопределено;
КонецПопытки;
КонецЕсли;
Если ДМ = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Если ТекущаяДата() - МестноеВремя(ДМ.Дата) > 300 Тогда
СредстваГеопозиционирования.ОбновитьМестоположение(ТекущийПровайдер, 5);
ДМ = СредстваГеопозиционирования.ПолучитьПоследнееМестоположение(ТекущийПровайдер);
КонецЕсли;
ДА = ПолучитьАдресПоМестоположению(ДМ.Координаты);
Если ДА = Неопределено Тогда
ТекущееМестоположение = "Lat: " + ДМ.Координаты.Широта + ", Lon: " + ДМ.Координаты.Долгота;
Иначе
ТекущееМестоположение = СтрЗаменить(ДА.Представление, Символы.ПС, ", ");
КонецЕсли;
ТекущееМестоположение = ТекущееМестоположение + "Date: " + МестноеВремя(ДМ.Дата) + ", Provider: " + ТекущийПровайдер;
Возврат ДМ.Координаты;
#Иначе
Возврат Неопределено;
#КонецЕсли
КонецФункции
|
|