Да нашел, спасибо, а можно увидить скрин конечной формы ? ЗАбыл спросить а на м надо устанавливать SQL на саму аскозию или он уже там есть ?
Вродебы победил) ))) вот такой код получился....
Скрытый текст |
|---|
&НаКлиенте
Процедура ЗагрузитьПоследнииЗаписиИсторииЗвонковСАстериск1(Команда)
ЗагрузитьПоследнииЗаписиИсторииЗвонковСАстериск();
КонецПроцедуры |
Скрытый текст |
|---|
Процедура ЗагрузитьПоследнииЗаписиИсторииЗвонковСАстериск() Экспорт
ВремФайл=ПолучитьИмяВременногоФайла("txt");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
| МИКО_ИсторияЗвонков.AcctId КАК AcctId
|ИЗ
| РегистрСведений.МИКО_ИсторияЗвонков КАК МИКО_ИсторияЗвонков
|ГДЕ
| МИКО_ИсторияЗвонков.AcctId > 0
|
|УПОРЯДОЧИТЬ ПО
| AcctId УБЫВ";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Выборка.Следующий() Тогда
ПоследнийПолученныйПакет = Выборка.AcctId;
Иначе
ПоследнийПолученныйПакет = 1;
КонецЕсли;
АдресСервера="/1c/cdr.php?limit=400&offset="+Формат(ПоследнийПолученныйПакет,"ЧГ=");
//СтрокаРегистраИсторииЗвонков=РегистрыСведений.МИКО_ИсторияЗвонков.СоздатьМенеджерЗаписи();
Попытка
HTTP = Новый HTTPСоединение("192.168.0.9",56080,,,);
HTTP.Получить(АдресСервера,ВремФайл);
ТекстИстории = Новый ТекстовыйДокумент;
ТекстИстории.Прочитать(ВремФайл);
СтрокаРегистраИсторииЗвонков = Неопределено;
Для к=0 по ТекстИстории.КоличествоСтрок() Цикл
СтрокаДляРазбора=СокрЛП(ТекстИстории.ПолучитьСтроку(к));
ПозицияРазделителя = Найти(СтрокаДляРазбора,"=");
ДлинаСтроки = СтрДлина(СтрокаДляРазбора);
Если ПозицияРазделителя<>0 Тогда
Параметр=СокрЛП(Лев(СтрокаДляРазбора,ПозицияРазделителя-1));
Значение=СокрЛП(Прав(СтрокаДляРазбора,ДлинаСтроки-ПозицияРазделителя-1));
Если Параметр="AcctId" Тогда
Если СтрокаРегистраИсторииЗвонков<>Неопределено Тогда
СтрокаРегистраИсторииЗвонков.Записать(Ложь);
прервать;
КонецЕсли;
СтрокаРегистраИсторииЗвонков=РегистрыСведений.МИКО_ИсторияЗвонков.СоздатьМенеджерЗаписи()
ИначеЕсли Параметр="calldate" ИЛИ Параметр="end" Тогда
Значение=СтрЗаменить(СтрЗаменить(СтрЗаменить(Значение,"-",""),":","")," ","");
КонецЕсли;
СтрокаРегистраИсторииЗвонков[Параметр]=Значение;
КонецЕсли;
КонецЦикла;
Исключение
ЗаписьЖурналаРегистрации("МИКО.ЗагрузкаИсторииЗвонков", УровеньЖурналаРегистрации.Ошибка, , , ИнформацияОбОшибке());
КонецПопытки;
КонецПроцедуры |
Затем Осталось победить СИнтаксическую ошибку сделано было это следующим образом, Ресурс END (Совподает со штатным ) Был переименован в ENDTIME и все поехало и значения с атс записались в регистр. Но теперь возникла другая проблемма почемуто звонки загружаю тся только до AcctId=151 решил поменя значение в коде на XXX На 400 и почистил регистр МИКО_ИсториЗвонков и теперь туда вообще нечего не поподает, Вопорс Я наверное это зря сделал (
