Проверка наличия подписки ИТС по регистрационному номеру поставки

01.07.11

–

Быстро, на коленке написал проверку наличия подписки ИТС по регистрационному номеру поставки через сайт 1С. Может быть изобрел велосипед, но готового решения не нашел.

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Проверка наличия подписки ИТС .epf 7,33Kb 152	.epf		7,33Kb	152	Скачать

Собственно код:

Функция РазборСтроки(знач Стр, Разделитель) Экспорт

    МассивЗначений = Новый Массив;

    Символ = Найти(Стр, Разделитель);
    Пока Символ > 0 Цикл

        МассивЗначений.Добавить(Лев(Стр, Символ - 1));
        Стр = Прав(Стр, СтрДлина(Стр) - Символ);

        Символ = Найти(Стр, Разделитель);
    КонецЦикла;
    МассивЗначений.Добавить(Стр);

    Возврат МассивЗначений;
КонецФункции

Функция ПроверитьПодпискуИТС(НомерДляПроверкиРегистрации)
URL = "1c.ru";

URLПроверки = "/rus/support/its/js-check-subscribe.jsp?rn="+НомерДляПроверкиРегистрации;
Коннект = Новый HTTPСоединение(URL);
ЧтениеТекста = Новый ТекстовыйДокумент;

СтруктураПараметров = Новый Структура;

ИмяВременногоФайла=ПолучитьИмяВременногоФайла("txt");
Коннект.Получить(URLПроверки,ИмяВременногоФайла);

ЧтениеТекста.Прочитать(ИмяВременногоФайла);
Для НомерСтроки=1 по ЧтениеТекста.КоличествоСтрок() Цикл

    Стр = ЧтениеТекста.ПолучитьСтроку(НомерСтроки);
    Если Найти(Стр,"ajaxCheck")>0 Тогда

        Стр = СтрЗаменить(Стр,"ajaxCheck","");
        Стр = СтрЗаменить(Стр,"(","");

        Стр = СтрЗаменить(Стр,")","");
        МассивСтроки = РазборСтроки(Стр,",");

        СтруктураПараметров.Вставить("РегНомер",МассивСтроки[0]);
        СтруктураПараметров.Вставить("ПодпискаАктивна",МассивСтроки[1]);

        СтруктураПараметров.Вставить("ТребуетсяПодписка",МассивСтроки[2]);
    КонецЕсли;
КонецЦикла;

   Возврат СтруктураПараметров;
КонецФункции

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)

    ДанныеОПодписке = ПроверитьПодпискуИТС("1234567");

    Сообщить(ДанныеОПодписке.РегНомер);
    Сообщить(ДанныеОПодписке.ПодпискаАктивна);

    Сообщить(ДанныеОПодписке.ТребуетсяПодписка);


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

Как и обещал, выкладываю обработку.

–

См. также

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

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

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

36000 руб.

03.08.2020 15963 13 18

Управление доставками Boxberry, СДЭК, ЭкстраПочта, Почта России, Энергия, DPD, ПЭК, Grastin, Деловые Линии, КСЕ, Dalli

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

Управление доставками в транспортных компаниях из 1С.

18000 руб.

10.03.2016 56835 289 97

Все службы доставки в Вашей 1С! Без изменения конфигурации! УТ, ERP, КА, УНФ

WEB-интеграция Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

40+ служб доставки для 1С в одном модуле! Внешняя обработка, которая НЕ изменяет Вашу конфигурацию! Подписная модель на 1 год.

19200 руб.

22.03.2017 36524 16 47

Интеграция с OpenCart 2.x, 3x

WEB-интеграция Оптовая торговля Розничная торговля Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Внешняя обработка, позволяет обмениваться данными между OpenCart (самая популярная бесплатная cms для интернет-магазинов) и 1С:Предприятие 8.

6800 руб.

17.11.2015 116050 344 137

213

SALE! 10%

Автоматическая загрузка файлов (например, прайс-листов) из электронной почты, FTP, HTTP, их обработка и выгрузка на FTP (на сайт) и для других целей

Прайсы WEB-интеграция Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Автомобили, автосервисы Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Программа с заданным интервалом времени (или по ручной команде) скачивает файлы (например, прайс-листы поставщиков) из различных источников: письма электронной почты, FTP или HTTP-адреса, и сохраняет их в каталог упорядоченной структуры. При этом извлекает файлы из архивов, может переименовывать файлы и менять их формат (csv, xls, txt). Можно настроить выгрузку обработанных файлов на сайт (через FTP-подключение). Программа будет полезна компаниям, у которых есть большое количество поставщиков и/или прайс-листы поставщиков обновляются часто (необязательно прайс-листы, файлы могут быть любого назначения). Собранные таким образом актуальные версии прайс-листов можно выгрузить с помощью программы себе на сайт (или на любой FTP-сервер) или выполнить другие необходимые задачи.

~~28000~~ 25200 руб.

28.05.2015 84927 28 51

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

Обмен с ГосИС 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 89053 163 216

319

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

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

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

8400 руб.

01.02.2019 25897 9 0

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

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

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

12000 руб.

02.02.2021 16501 42 49

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

0. smirnov.a 621 30.06.11 17:53 Сейчас в теме

Перейти к публикации

1. artbear 1526 30.06.11 17:55 Сейчас в теме

ИМХО
1. Сразу бы выложил и готовую обработку.
2. код Выполнить не очень корректен, если подписки нет, будет ошибка выполнения :(
3. Я ни разу не пробовал так проверять, поэтому вопрос: ты юзаешь открытый ресурс, верно?

2. smirnov.a 621 01.07.11 07:57 Сейчас в теме

1. Сделаю, не вопрос. Просто думал что как обработка она мало полезна, а как алгоритм напротив.
2. Соответственно поправлю.
3. Конечно открытый, все по данным http://1c.ru/rus/support/its/its.htm