//****************************************************************************************************************************
// Процедура СписокГрупп()
// Выводит отчет по группам ТС
//****************************************************************************************************************************
Процедура СписокГрупп()
ОчиститьОкноСообщений();
ТекВер=AG.CurrentVersion; // Текущая версия ПО «АвтоГРАФ»
ЧислоГрупп=AG.GroupsNum; // Количество групп ТС
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ГруппыТС");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Если ЧислоГрупп>0 Тогда
Для х = 1 По ЧислоГрупп Цикл
AG.GroupIndex = х; //******************************************************************************
ГрИмя = AG.GroupName; //
ГрАдрес = AG.GroupAddress; //
ГрКонтакт = AG.GroupContacts; // Выводим информацию по группе ТС
ГрФайлТС = AG.GroupFileName; //
ГрЧислоТС = AG.GroupCarsNum; //
Таб.ВывестиСекцию("ГруппаТС"); //******************************************************************************
Если ГрЧислоТС > 0 Тогда
Таб.ВывестиСекцию("ШапкаТС");
Для хх = 1 По ГрЧислоТС Цикл
AG.CarIndex = хх;
СерНом = AG.CarDevice; //****************************************************
Марка = AG.CarModel; //
НомерТС = AG.CarNumber; //
Название = AG.CarAlias; //
НомерТел = AG.CarTelNum; //
КонтрТ = AG.CarCheckPointsFile; //
Широта = Окр(AG.CarLatitude,5); //
Долгота = Окр(AG.CarLongitude,5); //
Направление = Окр(180 * AG.CarCourse / 3.1415,5); //
Скорость = Окр(AG.CarSpeed,5); // Выводим информацию по ТС
Простой = AG.CarParkTime; //
Если Широта = -1 Тогда //
Широта = ""; //
Долгота = ""; //
Направление = ""; //
Скорость = ""; //
Простой = ""; //
КонецЕсли; //
ПослЗапись = AG.CarLastTime; //
ПослТ = AG.CarLastATime; //
Таб.ВывестиСекцию("ТС"); //****************************************************
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("СПИСОК ГРУПП","");
КонецПроцедуры |
