|
Автограф и 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_Подключения); Исключение Сообщить("Не удалось выполнить аудентификацию: " + ОписаниеОшибки()); Возврат Ложь; КонецПопытки; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |