//************************************************************************************************************************************************************************
// Процедура ОтчетПоКоординатам()
//************************************************************************************************************************************************************************
Процедура ОтчетПоКоординатам()
ТабТС.ВыбратьСтроки();
ПроцВсе=0;
ВсегоТС=0;
ОбработаноТС=0;
ТабТС.ВыбратьСтроки();
Пока ТабТС.ПолучитьСтроку() = 1 Цикл
Если ТабТС.Метка = "+" Тогда ВсегоТС = ВсегоТС + 1; КонецЕсли;
КонецЦикла;
ТабТС.ВыбратьСтроки();
Пока ТабТС.ПолучитьСтроку() > 0 Цикл
Если ТабТС.Метка = "" Тогда Продолжить; КонецЕсли;
ТСПериодНач=Формат(ДатаЧисло(ВыбНачПериода),"Ч(0)2.0")+"."+Формат(ДатаМесяц(ВыбНачПериода),"Ч(0)2.0")+"."+Строка(ДатаГод(ВыбНачПериода))+" 00:00:00";
ТСПериодКон=Формат(ДатаЧисло(ВыбКонПериода),"Ч(0)2.0")+"."+Формат(ДатаМесяц(ВыбКонПериода),"Ч(0)2.0")+"."+Строка(ДатаГод(ВыбКонПериода))+" 23:59:59";
AG.SetGroupIndexByFileName(ТабТС.ГрФайл);
AG.SetCarIndexByDevice(ТабТС.СерНом);
AG.WaitForComputing(ТабТС.ГрФайл,ТабТС.СерНом,ТСПериодНач,ТСПериодКон,"GSM",1);
ОбработаноТС=ОбработаноТС+1;
Форма.Проц.Заголовок(Строка(Окр(100/ВсегоТС*ОбработаноТС,0))+" %");
КолРейсов = AG.TripsNum;
Если КолРейсов=0 Тогда
Предупреждение("Рейсов не обнаружено");
Иначе
Для х = 1 По КолРейсов Цикл
AG.TripIndex = х;
ЧислоКоординатныхЗаписей = AG.TripCrdEntriesNum;
Для НомерТочкиТрека = 1 По числоКоординатныхЗаписей Цикл
AG.CrdEntryIndex = НомерТочкиТрека;
ТочкаВремя = AG.CrdEntryTime;
ТочкаДолгота = AG.CrdEntryLongitude;
ТочкаШирота = AG.CrdEntryLatitude;
ТочкаПробег = AG.CrdEntryDistance;
ТочкаСкорость = AG.CrdEntrySpeed;
ТочкаВход1 = AG.CrdEntrySensor1; // Датчик 1 (0 – выключен, 1 – включен)
ТочкаВход2 = AG.CrdEntrySensor2; // Датчик 2 (0 – выключен, 1 – включен)
ТочкаВход5 = AG.CrdEntrySensor5; // Датчик 5 (0 – выключен, 1 – включен)
ТочкаВход7 = AG.CrdEntrySensor7; // Датчик 7 (0 – выключен, 1 – включен)
ТочкаLLS1 = AG.CrdEntryLLS1; // Показание датчика LLS 1
ТочкаLLS2 = AG.CrdEntryLLS2; // Показание датчика LLS 2
ТочкаLLS5 = AG.CrdEntryLLS5; // Показание датчика LLS 5
// и так далее - какие надо данные в точке...
Сообщить("Время: "+Строка(ТочкаВремя)+СимволТабуляции+"Долгота: "+Лев(Строка(ТочкаДолгота),7)+СимволТабуляции+"Широта: "+Лев(Строка(ТочкаШирота),7)
+СимволТабуляции+"Скорость: "+Лев(Строка(ТочкаСкорость),5)+СимволТабуляции+"LLS1: "+Строка(ТочкаLLS1)+СимволТабуляции+"Вход1: "+Строка(ТочкаВход1));
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры //ОтчетПоКоординатам() |