Проверка актуальных релизов (Платформа 8.2.18)

18.04.14

Интеграция - WEB-интеграция

Простая обработка для парсинга актуальных обновлений с сайта 1с. Код выложен для обычной формы. В обработке присутствует также Управляемая форма. Писалась просто для себя. Может быть использована для дальнейшей доработки своих решений =)

Как выяснилось httpЗапрос появился в версии платформы 8.2.18, будьте бдительны

Скачать файлы

Наименование Файл Версия Размер
Проверка актуальных обновлений
.epf 11,30Kb
14
.epf 1.0 11,30Kb 14 Скачать

Функция РазложитьДатуОбновления(СтрокаДаты)

Год = Сред(СтрокаДаты, 7, 4);
Месяц = Сред(СтрокаДаты, 4, 2);
День = Лев(СтрокаДаты, 2);

Часы = Сред(СтрокаДаты, 12, 2);
Минуты = Прав(СтрокаДаты, 2);

Возврат Дата(Год + Месяц + День + Часы + Минуты + "00");

КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
Дерево.Строки.Очистить();

АдресСервера = "downloads.1c.ru";
АдресСТранички = "/release_info/categ_js.jsp?GroupID=88";

Соединение = Новый HTTPСоединение(АдресСервера);

Запрос = Новый HTTPЗапрос;
Запрос.АдресРесурса = АдресСТранички;

Ответ = Соединение.Получить(Запрос);
Тело = Ответ.ПолучитьТелоКакСтроку();
Тело = СтрЗаменить(Тело, "document.write('", "");
Тело = СтрЗаменить(Тело, "');", "");
Тело = СтрЗаменить(Тело, Символы.ПС, "");

ЧтениеHTML = Новый ЧтениеHTML;
ЧтениеHTML.УстановитьСтроку(Тело);

ПостроительDOM = Новый ПостроительDOM;
ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);

ЭлементыDOM = ДокументHTML.ПолучитьЭлементыПоИмени("tr");

Для каждого ЭлементDOM Из ЭлементыDOM Цикл
ДочерниеУзлы = ЭлементDOM.ПолучитьЭлементыПоИмени("td");
Если ДочерниеУзлы.Количество()= 0 Тогда
Продолжить;
КонецЕсли;

Если ДочерниеУзлы.Количество()= 1 Тогда
Корень = Дерево.Строки.Добавить();
Корень.Конфигурация = ЭлементDOM.ТекстовоеСодержимое;
КОрень.НедавноОбновлено = Ложь;
ИначеЕсли ДочерниеУзлы.Количество()= 3 Тогда
ЕщеДочерниеУзлы = ДочерниеУзлы[0].ПолучитьЭлементыПоИмени("span");
ВетвьКорня = Корень.Строки.Добавить();
Если ЕщеДочерниеУзлы[0].ИмяКласса = "new" Тогда
ВетвьКорня.НедавноОбновлено = Истина;
Корень.НедавноОбновлено = Истина;
Иначе
ВетвьКорня.НедавноОбновлено = Ложь;

КонецЕсли;

ВетвьКорня.Конфигурация = ДочерниеУзлы[1].ТекстовоеСодержимое;
ВетвьКорня.ДатаОбновления = РазложитьДатуОбновления(ДочерниеУзлы[0].ТекстовоеСодержимое);
ВетвьКорня.НомерРелиза = ДочерниеУзлы[2].ТекстовоеСодержимое;
КонецЕсли;
КонецЦикла;
ЭлементыФормы.Дерево.СоздатьКолонки();
ЭлементыФОрмы.Дерево.Колонки.НедавноОбновлено.Видимость = Ложь;
КонецПроцедуры

Процедура ДеревоПриПолученииДанных(Элемент, ОформленияСтрок)
Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
Если ОформлениеСтроки.ДанныеСтроки.НедавноОбновлено Тогда
ОформлениеСтроки.ЦветФона = Новый Цвет(255, 50, 50);
КонецЕсли;
КонецЦикла;

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

Дерево.Колонки.Добавить("Конфигурация", Новый ОписаниеТипов("Строка"));
Дерево.Колонки.Добавить("НедавноОбновлено");

Дерево.Колонки.Добавить("ДатаОбновления");
Дерево.Колонки.Добавить("НомерРелиза", Новый ОписаниеТипов("Строка"));

Актуальные релизы обновления

См. также

Интеграция Альфа Авто 5 / Альфа Авто 6 и AUTOCRM / Инфотек

Сайты и интернет-магазины WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 11 Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Интеграционный модуль обмена между конфигурацией Альфа Авто 5 и Альфа Авто 6 и порталом AUTOCRM. Данный модуль универсален. Позволяет работать с несколькими обменами AUTOCRM разных брендов в одной информационной базе в ручном и автоматическом режиме.

36000 руб.

03.08.2020    15748    10    17    

11

Интеграция 1С — Битрикс24. Обмен задачами

Сайты и интернет-магазины Интеграция WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 Управленческий учет Платные (руб)

Интеграция 1С и Битрикс24. Разработка имеет двухстороннюю синхронизацию 1С и Битрикс24 задачами. Решение позволяет создавать пользователя в 1С из Битрикс24 и наоборот. Данная разработка технически подходит под все основные конфигурации линейки продуктов 1С:Предприятие 8.3 (8.3.18.1289). При приобретении предоставляется 1 месяц бесплатных обновлений разработки. Доступна демо-версия продукта с подключением Вашего Битрикс24

5040 руб.

04.05.2021    17551    6    15    

13

Интеграция с сервисом vetmanager

WEB-интеграция Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бытовые услуги, сервис Платные (руб)

Внешняя обработка разрабатывалась для загрузки документов из Ветменеджер в 1С: Бухгалтерия 3.0

12000 руб.

02.02.2021    16360    42    49    

23

[Расширение] БОР-Навигатор.Культура

Зарплата Бюджетный учет WEB-интеграция Обмен с ГосИС Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Расширение конфигурации, включающее в себя объекты, необходимые для подготовки и сдачи отчета "Штатная численность" системы "БОР-Навигатор.Культура" в программе "1С:Зарплата и кадры государственного учреждения", редакция 3.1.

8400 руб.

01.02.2019    25741    9    0    

7

Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС

Обмен с ГосИС WEB-интеграция Платформа 1С v8.3 Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Обработка является альтернативой механизму, разработанному фирмой 1С и заполняющему реквизиты контрагента по ИНН или наименованию. Не требуется действующей подписки ИТС. Вызывается как внешняя дополнительная обработка, т.е. используется, непосредственно, из карточки контрагента. Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС (egrul.nalog.ru) для БП 2.0, БП 3.0, БГУ 1.0, БГУ 2.0, УТ 10.3, УТ 11.x, КА 1.1, КА 2.x, УПП 1.x, ERP 2.x, УНФ 1.5, УНФ 1.6, УНФ 3.0, ДО 2.1

2400 руб.

28.04.2016    88581    160    215    

318
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Kyrales 144 18.04.14 05:10 Сейчас в теме
При нажатии на кнопку "Получить обновления":

{Форма.ФормаУпр.Форма(28)}: Ошибка при вызове метода контекста (Получить)
Ответ = Соединение.Получить(Запрос);
по причине:
Ошибка работы с Интернет: Не могу установить соединение
2. CyberWo1f 6 18.04.14 06:54 Сейчас в теме
Возможно у вас интернет через прокси. Там надо в соединении прописать настройки прокси.

Прокси = Новый ИнтернетПрокси(Истина);
Прокси.Пользователь = "user";
Прокси.Пароль = "123";
Прокси.НеИспользоватьПроксиДляЛокальныхАдресов = Ложь;
Соединение = Новый HTTPСоединение(АдресСервера,,,,Прокси)

Попробуйте так
4. CyberWo1f 6 18.04.14 08:37 Сейчас в теме
Я беру обновления с открытого источника. А там вроде как нужен логи и пароль для входа
5. help1Ckr 23.04.14 10:59 Сейчас в теме
Спасибо за выложенный код.
6. CyberWo1f 6 23.04.14 13:27 Сейчас в теме
(5) help1Ckr, Да не за что =) Я Его выложил, потому что обработка достаточно простая =) Скачать могут те, у кого денег много, а у кого нет, можете скопировать код
7. пользователь 01.02.15 16:41
Сообщение было скрыто модератором.
...
Оставьте свое сообщение