Имя: Пароль:
1C
1С v8
Автограф и 1С
0 Ruslan_
culeiman
 
18.01.17
17:24
Приветствую, кому приходилось интегрировать Автограф и 1С подскажите как достать значения сливов из Автографа, не могу найти это поле в Com объекте?
1 zak555
 
18.01.17
17:46
Автограф -- это группа что ли ?
2 Ruslan_
culeiman
 
19.01.17
12:03
(1) Нет это такая программа.
В общем разобрался. Надо было не в Com искать, а сперва в dbf выгрузить и там разбирать. Может кому пригодится

    AG.SetGroupIndexByFileName(ГрФайл);
    AG.SetCarIndexByDevice(IDАвтограф);
    AG.WaitForComputing(ГрФайл, IDАвтограф, ТСПериодНач, ТСПериодКон, "GSM", 1);
    
    Временный = ПолучитьИмяВременногоФайла()+".dbf";
    AG.ExportListToFile(Временный,"trips","",1,1);
3 Patric
 
19.01.17
12:14
я это так делаю

        СтруктураОтвета = ВыполнитьЗапрос("GetStage?schemaID="+Схема+"&IDs="+СписокАГ+"&SD="+ДатаНачал+"&ED="+ДатаКонеч+"&stageName=*");
                                          
        Если НЕ СтруктураОтвета = Неопределено Тогда
            
            Для аг = 0 по (МасОборудование.Количество()-1) Цикл
                
                Оборудование = МасОборудование.Получить(аг);
                
                ИнфоАГ = СтруктураОтвета.Получить("a"+Оборудование);
                
                Если ИнфоАГ = Неопределено Тогда
                    Продолжить;
                КонецЕсли;    
                
                ТаблицаОтрезков = ИнфоАГ.Получить("Items");
                Для каждого ТекСтрокаТаблицаОтрезков Из ТаблицаОтрезков Цикл
                    ТекCaption = ТекСтрокаТаблицаОтрезков.Получить("Caption");
                    ED = ТекСтрокаТаблицаОтрезков.Получить("ED");
                    SD = ТекСтрокаТаблицаОтрезков.Получить("SD");
                    
                    
                    Если ТекCaption = "Заправка" Тогда
                        
                        ПараметрыРейса = тзПоказанийДатчиков.Добавить();
                        ПараметрыРейса.ТС = ТС;
    
                        
                        ЗаправленоЛ = Окр(ТекСтрокаТаблицаОтрезков.Получить("Values")[20], 0);
                        ВремяЗаправкиС = ТекСтрокаТаблицаОтрезков.Получить("Values")[8];
                        ВремяЗаправкиПо = ТекСтрокаТаблицаОтрезков.Получить("Values")[9];
                    ПараметрыРейса.Начало = ПолучитьДату(ВремяЗаправкиС);
                    ПараметрыРейса.Окончание = ПолучитьДату(ВремяЗаправкиПо);
                    ПараметрыРейса.Значение = ЗаправленоЛ;//заправлено л
                        
                        Сообщить("" + ЗаправленоЛ + " время% с:" +  ВремяЗаправкиС +  " по: " + ВремяЗаправкиПо);
                    КонецЕсли;
                    
                КонецЦикла;
4 Patric
 
19.01.17
12:14
а подключаюсь так:

    ТекстЗапроса = "{""UserName"": """+ Логин +""", ""Password"":"""+ Пароль +"""}";
    
    ВременныйФайл     = ПолучитьИмяВременногоФайла();
    Отправка         = Новый HTTPСоединение("agf.gygol.ru/ServiceJSON",,,,);
    ФайлЗапроса     = ПолучитьИмяВременногоФайла("xml");
    
    ТекстовыйФайл     = Новый ТекстовыйДокумент;
    ТекстовыйФайл.УстановитьТекст(ТекстЗапроса);
    ТекстовыйФайл.Записать(ФайлЗапроса, КодировкаТекста.ANSI);
    
    ФайлОтправки     = Новый Файл(ФайлЗапроса);
    РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());
    ФайлРезультата     = ПолучитьИмяВременногоФайла("xml");
    
    ЗаголовокHTTP     = Новый Соответствие;
    ЗаголовокHTTP.Вставить("Content-Type", "text/json");
    ЗаголовокHTTP.Вставить("Content-Length",РазмерФайлаОтправки);
    
    Попытка
        Отправка.ОтправитьДляОбработки(ФайлЗапроса, "/Login", ФайлРезультата, ЗаголовокHTTP);
    
        ТекстовыйФайлОтвет = Новый ТекстовыйДокумент;
        ТекстовыйФайлОтвет.Прочитать(ФайлРезультата,КодировкаТекста.UTF8,Символы.ПС);
        
        Токен = ТекстовыйФайлОтвет.ПолучитьТекст();
        
        ID_Подключения = ?(Найти(Токен," ") ИЛИ СтрДлина(Токен) = 0, "", Токен);
        
        Возврат ?(ID_Подключения = "", ЛОЖЬ, ID_Подключения);
        
    Исключение
        Сообщить("Не удалось выполнить аудентификацию: " + ОписаниеОшибки());
        
        Возврат Ложь;
    КонецПопытки;