Вывести список Авто из прибора в Таблицу 1С

29.04.15

✎

13:38

http://lvkr.ru/f/U4eFSQ/1280.jpg
http://lvkr.ru/f/6qNCcV/1280.jpg
Нужно вывести список AUTO показанный в красном прямоугольнике на первом скрине в таблицу тз_ТранспортныхСредств
Подскажите пожалуйста как осуществить?
Соединение COM работает отлично
нужно вывести список AUTO в таблицу.

Работа со списками ТС
Свойства общие    Описание    Тип    Операции
GroupsNum    Число групп    long    только чтение

&НаКлиенте
Процедура ПолучитьТС(Команда)
    //Соединение
    //==========================================================================================
        Попытка
        // Создаем COM-объект
        Состояние("Подключаемся к прибору ...");
        AG    = Новый COMObject("Auto.HAutomation");
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось создать COM-объект";
        //AG.HideApplication();
        // Ждем окончания инициализации объекта
        ddd    = AG.WaitForInitializing();
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось создать COM-объект ";
        Сообщение.Сообщить();
        Отказ = Истина;
        Возврат;
    КонецПопытки;
//=========================================================================================


        ЧислоГрупп=AG.GroupsNum; //Определяем число групп ТС
    Если ЧислоГрупп>0 Тогда
        Для х = 1 По ЧислоГрупп Цикл // Перебираем все группы
            AG.GroupIndex = х; //Передаем индекс (номер) группы в АГ
            ГрЧислоТС = AG.GroupCarsNum; //Определяем число ТС в группе
        Для хх = 1 По ГрЧислоТС Цикл // Перебираем все ТС в группе
            AG.CarIndex = хх;                            // Передаем индекс (номер) ТС внутри группы в АГ
            КонецЦикла;
        КонецЦикла;
    КонецЕсли;

    //    Объект.тз_ТранспортныхСредств = РеквизитФормыВЗначение("Объект");
    //    Объект.тз_ТранспортныхСредств.Очистить();
    //Для Каждого Стр Из ddd Цикл
    //        НоваяСтрока = Объект.тз_ТранспортныхСредств.Добавить();
    //
    //        НоваяСтрока.GroupsNum = Стр.GroupsNum;
    //
    //    КонецЦикла;

КонецПроцедуры

1 DrShad

29.04.15

✎

13:45

на клиенте создавать СОМ объекты!?

2 Олеся999

29.04.15

✎

13:50

(1) Да на клиенте

3 AllJoke

29.04.15

✎

13:53

НоваяСтрока = Таблица.Добавить();

4 AllJoke

29.04.15

✎

13:53

НоваяСтрока.Свойство1 = ....
НоваяСтрока.Свойство2 = ....

5 AllJoke

29.04.15

✎

13:54

Только на сервере

6 1Сергей

29.04.15

✎

13:55

что за прибор? барометр?

7 AllJoke

29.04.15

✎

13:55

УправляемаяФорма (ManagedForm)
РеквизитФормыВЗначение (FormAttributeToValue)
Синтаксис:

РеквизитФормыВЗначение(<ИмяРеквизита>, <Тип>)
Параметры:

<ИмяРеквизита> (обязательный)

Тип: Строка.
Имя реквизита формы, который необходимо преобразовать.
Может быть указан реквизит данных формы (см. описание параметра <Объект> метода ДанныеФормыВЗначение).
<Тип> (необязательный)

Тип: Тип.
Тип значения, получаемого из реквизита формы (данных формы). Если данный параметр не указан, то он также получается из реквизита формы. Если реквизит является составным типом и значение параметра не указано, генерируется исключение времени выполнения.
Возвращаемое значение:

Тип: Произвольный.

Описание:

Преобразует указанный реквизит формы в объект прикладного типа.

Доступность:

Сервер, мобильное приложение(сервер).

ВОТ - Доступность:

Сервер, мобильное приложение(сервер).

8 AllJoke

29.04.15

✎

13:55

(6) Видать ГПС датчики авто

9 Олеся999

29.04.15

✎

14:02

(4)
    Для Каждого Стр Из ddd Цикл
            НоваяСтрока = тз_ТранспортныхСредств.Добавить();

            НоваяСтрока.GroupsNum = Стр.GroupsNum;

        КонецЦикла;
Так вот ?)

10 Олеся999

29.04.15

✎

15:32

(8) (6) Отслеживает Трансп. средства и передает показания на сервер

11 Олеся999

30.04.15

✎

07:47

Написала так :
НоваяСтрока = тз_ТранспортныхСредств.Добавить();

            НоваяСтрока.GroupsNum = Элементы.тз_ТранспортныхСредствGroupsNum;

Вывело :
ПолеФормы

http://lvkr.ru/d5PqJW.jpg
А как вывести список  AUTO?

12 Олеся999

05.05.15

✎

11:19

http://lvkr.ru/f/TguvjR/800.jpg

Вывела список Транспортных средств :

&НаКлиенте
Процедура ПолучитьТС(Команда)
    //Соединение
    //==========================================================================================
        Попытка
        // Создаем COM-объект
        Состояние("Подключаемся к Автограф ...");
        AG    = Новый COMObject("AutoGRAPH.AutoGRAPHAutomation");
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось создать COM-объект";
        //AG.HideApplication();
        // Ждем окончания инициализации объекта
        ddd    = AG.WaitForInitializing();
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось создать COM-объект ";
        Сообщение.Сообщить();
        Отказ = Истина;
        Возврат;
    КонецПопытки;
//=========================================================================================


        ЧислоГрупп=AG.GroupsNum; //Определяем число групп ТС
    Если ЧислоГрупп>0 Тогда
        Для х = 1 По ЧислоГрупп Цикл // Перебираем все группы
            AG.GroupIndex = х; //Передаем индекс (номер) группы в АГ

            ГрЧислоТС = AG.GroupCarsNum; //Определяем число ТС в группе


            Для хх = 1 По ГрЧислоТС Цикл // Перебираем все ТС в группе
            AG.CarIndex = хх;    // Передаем индекс (номер) ТС внутри группы в АГ
            НоваяСтрока = тз_ТранспортныхСредств.Добавить();
             НоваяСтрока.GroupsNum = AG.CarModel;
             НоваяСтрока.CarDevice = AG.CarDevice;
             НоваяСтрока.GroupFileName= AG.GroupFileName;

            //Если Элементы.тз_ТранспортныхСредствФлаг = Истина тогда
            //Инф = AG.WaitForComputing(тз_ТранспортныхСредств.GroupFileName, тз_ТранспортныхСредств.CarDevice, тз_информация.Начало, тз_информация.Конец, "GSM", 0);
            //
            //Для Стр = 1 По Инф Цикл
            //AG.TripIndex = Стр;
            //НоваяСтрока2 = тз_информация.Добавить();
            //НоваяСтрока2.Пробег = AG.TripDistance;


//КонецЦикла;

                КонецЦикла;

            КонецЦикла;
    КонецЕсли;



КонецПроцедуры

А как сделать чтобы пробег вывелся в  нижнию таблицу "тз_информация" ?

Описание свойств и функций
http://lvkr.ru/f/ge6Kh9/1024.jpg
http://lvkr.ru/f/Hx0tU5/1024.jpg
http://lvkr.ru/f/FP8nu6/1024.jpg

13 Олеся999

05.05.15

✎

11:44

Нужно сделать при активации строки в верхней таблицы "тз_ТранспортныхСредств"