laperuz
Дмитрий Кашпаров

&НаСервере
Функция ПолучитьГеозоныОтслеживания()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |   Геозона.Ссылка КАК Ссылка,
               |   Геозона.Наименование КАК Наименование,
               |   Геозона.Широта КАК Широта,
               |   Геозона.Долгота КАК Долгота,
               |   Геозона.Радиус КАК Радиус
               |ИЗ
               |   Справочник.Геозона КАК Геозона";  

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

МассивГеозон = Новый Массив;

Пока Выборка.Следующий() Цикл                                     
   КоординатыГеозоны = Новый ГеографическиеКоординаты(Выборка.Широта, Выборка.Долгота);
   Геозона = Новый Геозона(Выборка.Ссылка, Выборка.Наименование, КоординатыГеозоны, Выборка.Радиус);
   
   МассивГеозон.Добавить(Геозона);
КонецЦикла;

Возврат МассивГеозон;
КонецФункции

&НаКлиенте
Процедура ВключитьОтслеживаниеПересеченияГраниц()
    МассивГеозон = ПолучитьГеозоныОтслеживания();
    ВключитьОтслеживаниеГеозон(МассивГеозон);
    ОбработчикПересечения = Новый ОписаниеОповещения("ПриПересеченииГраницыГеозоны", ЭтаФорма);
    ПодключитьОбработчикПересеченияГраницОтслеживаемыхГеозон(ОбработчикПересечения);
КонецПроцедуры;

&НаКлиенте
Процедура ПриПересеченииГраницыГеозоны(Геозона, ПоложениеОтносительноГеозоны, ДополнительныеПараметры)
    Если Геозона.Идентификатор = "ГеозонаМосква" Тогда
        Если ПоложениеОтносительноГеозоны = ПоложениеОтносительноГеозоны.Внутри Тогда
            Сообщить("Вы въехали в Москву");
        Иначе
            Сообщить("Вы выехали из Москвы");
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

Запрос = Новый Запрос;    
   МВТ = Новый МенеджерВременныхТаблиц;
   Запрос.МенеджерВременныхТаблиц = МВТ;
   Запрос.Текст = "ВЫБРАТЬ
                  |   КадровыйПереводСпискомСотрудники.Сотрудник КАК Сотрудник,
                  |   КадровыйПереводСпискомСотрудники.ДатаНачала КАК Период
                  |ПОМЕСТИТЬ ВТНаДатуСписокСотрудников
                  |ИЗ
                  |   Документ.КадровыйПереводСписком.Сотрудники КАК КадровыйПереводСпискомСотрудники
                  |ГДЕ
                  |   КадровыйПереводСпискомСотрудники.Ссылка = &Ссылка
                  |
                  |ОБЪЕДИНИТЬ ВСЕ
                  |
                  |ВЫБРАТЬ
                  |   КадровыйПереводСпискомСотрудники.Сотрудник,
                  |   ДОБАВИТЬКДАТЕ(КадровыйПереводСпискомСотрудники.ДатаНачала, СЕКУНДА, -1)
                  |ИЗ
                  |   Документ.КадровыйПереводСписком.Сотрудники КАК КадровыйПереводСпискомСотрудники
                  |ГДЕ
                  |   КадровыйПереводСпискомСотрудники.Ссылка = &Ссылка";  
   Запрос.УстановитьПараметр("Ссылка", КадровыйПеревод);
   
   Запрос.Выполнить();
   
   ОписательВременныхТаблиц = КадровыйУчет.ОписательВременныхТаблицДляСоздатьВТКадровыеДанныеСотрудников(
      МВТ, "ВТНаДатуСписокСотрудников");
   
   ОписательВременныхТаблиц.ИмяВТКадровыеДанныеСотрудников = "ВТГрафикиСотрудников";
   
   КадровыйУчет.СоздатьВТКадровыеДанныеСотрудников(ОписательВременныхТаблиц, Истина, "ГрафикРаботы");
   
   Запрос.Текст = "УНИЧТОЖИТЬ ВТНаДатуСписокСотрудников";
   Запрос.Выполнить();   
   
   Запрос.Текст = "ВЫБРАТЬ
                  |   ВТГрафикиСотрудников.Сотрудник КАК Сотрудник,
                  |   МАКСИМУМ(ВЫБОР
                  |         КОГДА СЕКУНДА(ВТГрафикиСотрудников.Период) = 59
                  |            ТОГДА ВТГрафикиСотрудников.ГрафикРаботы
                  |      КОНЕЦ) КАК ПрошлыйГрафик,
                  |   МАКСИМУМ(ВЫБОР
                  |         КОГДА СЕКУНДА(ВТГрафикиСотрудников.Период) = 0
                  |            ТОГДА ВТГрафикиСотрудников.ГрафикРаботы
                  |      КОНЕЦ) КАК ТекущийГрафик
                  |ИЗ
                  |   ВТГрафикиСотрудников КАК ВТГрафикиСотрудников
                  |
                  |СГРУППИРОВАТЬ ПО
                  |   ВТГрафикиСотрудников.Сотрудник";
   
   ТаблицаГрафиков = Запрос.Выполнить().Выгрузить();