Интеграция с WEB-регистратором Калуга Астрал

Расширение содержит ряд запросов, которые далее парсятся на записи регистра. Записи регистра содержат данные начала и окончания лицензии и сертификата. Это основа, далее можно расписать дополнительный функционал (автоматические рассылки данных по продлениям клиентам, дописать функционал по выполнению одобрений заявлений прям из программы, проверка состава заявления и т.д.).

Написал эту обработку, чтобы контролировать продления в своём френче) Буду рад, если кому-то тоже поможет.

Для подключения обработки рекомендуется использовать платформу не ниже 8.3.23.1739, так как обработка содержит некоторые функции по конвертации JSON. Для использования необходимо нажать кнопку "Получить данные" в регистре сведений "Астрал Отчетность Сведения", после получения данных рекомендуется воспользоваться отчетом, встроенным в обработку для проверки полученных сведений.

Для авторизации в Web-регистраторе требуется Запрос1 и Запрос2 (в Запрос 2 передаются логин и пароль):

Логин = ЛогинКалуга;
Пароль = ПарольКалуга;
СоединениеАстрал = Новый HTTPСоединение("reg.astralnalog.ru",,,,,,Новый ЗащищенноеСоединениеOpenSSL());
		
Запрос1 = Новый HTTPЗапрос("/Authorisation.aspx");		
Запрос1.Заголовки.Вставить("accept","*/*");
Запрос1.Заголовки.Вставить("User-Agent","PostmanRuntime/7.42.0");
Запрос1.Заголовки.Вставить("cookie","");
Запрос1.Заголовки.Вставить("Accept-Encoding","gzip, deflate, br");
Запрос1.Заголовки.Вставить("keep-alive","keep-alive");    	
Результат1 = СоединениеАстрал.Получить(Запрос1);  	
Куки1 = Результат1.Заголовки.Получить("Set-Cookie");	
Куки1 = СтрЗаменить(Куки1, ",", ";");
		
		
//Устанавливаем в тело запрос логин и пароля для получения тикета	
Запрос2 = Новый HTTPЗапрос("POST"); 
Запрос2.АдресРесурса = "Authorisation.aspx/LogOn";		
ТЕЛО = "{""login"": """ + Логин + """, ""password"": """ +Пароль+ """,""base64SignedData"": null}";		  
Запрос2.Заголовки.Вставить("HOST", "reg.astralnalog.ru");	
Запрос2.Заголовки.Вставить("Content-type", "application/json");	
Запрос2.Заголовки.Вставить("Cookie", (Куки1));	
Запрос2.Заголовки.Вставить("Origin", "https://reg.astralnalog.ru");	
Запрос2.УстановитьТелоИзСтроки(ТЕЛО);
Результат2 = СоединениеАстрал.ВызватьHTTPМетод("POST", Запрос2);
//Куки2 - хранит тикет
Куки2 = Результат2.Заголовки.Получить("Set-Cookie");
Куки2 = СтрЗаменить(Куки2, ",", ";");

//Здесь указывает дату начала и окончания для запроса, дата проставлена статично при необходимости
//нужные реквизиты создадите в форме самостоятельно ;)		
//ДатаФильтраНачало = Формат(ЭтаФорма.Отчет.Период.ДатаНачала, "ДФ=dd.MM.yyyy");
//ДатаФильтраКонец = Формат(ЭтаФорма.Отчет.Период.ДатаОкончания, "ДФ=dd.MM.yyyy");    
ДатаФильтраНачало = Формат(ДатаНачала, "ДФ=dd.MM.yyyy");
ДатаФильтраКонец = Формат(ДатаОкончания, "ДФ=dd.MM.yyyy");   
		
СтраницаТекущая = 1;
ВсегоСтраниц = 2;
		

//В условии была раньше проверка на успешный запрос, но оставлю пока что без проверки... Почему? Потамушта...		
Если Истина Тогда 
	Пока СтраницаТекущая < ВсегоСтраниц Цикл  
        //В запросе записей указано rows - 10 и это максимум, указывать больше смысла нет, а вот меньше указать можно
        //проходимся по страницам, пока не закончатся страницы. получить количество страниц можно через "total"
        ЗапросЗаписей = "{""_search"":false,""nd"":1732556914754,""rows"":10,""page"":" + Строка(СтраницаТекущая) +",""sidx"":""AbonentName"",""sord"":""asc"",""filterContext"":{""currentPageIndex"":" + Строка(СтраницаТекущая) + ",""productTypeFilter"":""4"",""dateFilterType"":""tariffActual"",""beginDate"":""" + ДатаФильтраНачало + """,""endDate"":""" + ДатаФильтраКонец + """,""PartnerNameFilter"":null,""SortOrder"":""asc"",""SortColumn"":""AbonentName""}}";
		Запрос3 = Новый HTTPЗапрос("/ReportModule/GetTariffValidityPeriodReportData"); 
		Запрос3.АдресРесурса = "/ReportModule/GetTariffValidityPeriodReportData";				
		Запрос3.Заголовки.Вставить("HOST", "reg.astralnalog.ru");	
		Запрос3.Заголовки.Вставить("Content-type", "application/json");	
		Запрос3.Заголовки.Вставить("Cookie", (Куки2));	
		Запрос3.Заголовки.Вставить("accept", "application/json, text/javascript, */*; q=0.01");
		Запрос3.УстановитьТелоИзСтроки(ЗапросЗаписей);				
		Результат3 = СоединениеАстрал.ВызватьHTTPМетод("POST", Запрос3);	
		ЭлементыСтрока = Результат3.ПолучитьТелоКакСтроку();		
		МассивЭлементов = ПрочитатьЗначениеJSON(ЭлементыСтрока);	
		ВсегоСтраниц = МассивЭлементов.total;//всего страниц
		СписокАбонентов = МассивЭлементов.rows;// записей на странице, обычно не больше 10
		
        
		//Тут мы получили все записи со страницы и проходимся по ним 
		Для Каждого С1 из СписокАбонентов Цикл   
			с = С1.cell;
			НоваяЗапись = РегистрыСведений.АстралОтчетностьСведения.СоздатьМенеджерЗаписи();
			НоваяЗапись.Период = ТекущаяДата();
					
					
			НоваяЗапись.ДатаНачалаД = (с[4] + " 00:00:00");     
			НоваяЗапись.ДатаНачалаДействияСертификата = Дата(с[7]+ " 00:00:00"); 
			НоваяЗапись.ДатаОкончанияДействияСертификата = Дата(с[8]+ " 00:00:00");
			НоваяЗапись.ДатаНачалаДействияТарифа = Дата(с[5]+ " 00:00:00");
			НоваяЗапись.ДатаОкончанияДействияТарифа = Дата(с[6]+ " 00:00:00");
			НоваяЗапись.ИНН = с[1];
			НоваяЗапись.КПП = с[2];
            //поиск клиента по инн и кпп на уникальность		
			ПроверкаКлиентаПоИННИКПП = "ВЫБРАТЬ
					                         |	Клиенты.Ссылка КАК Ссылка,
					                         |	Клиенты.ИНН КАК ИНН,
					                         |	Клиенты.КПП КАК КПП
					                         |ИЗ
					                         |	Справочник.Клиенты КАК Клиенты
					                         |ГДЕ
					                         |	Клиенты.ИНН = &ИНН
					                         |	И Клиенты.КПП = &КПП";
			ЗапросПроверки = Новый Запрос(ПроверкаКлиентаПоИННИКПП);
			ЗапросПроверки.УстановитьПараметр("ИНН", с[1]);
			ЗапросПроверки.УстановитьПараметр("КПП", с[2]);
			РезультатПроверки = ЗапросПроверки.Выполнить();
            
            //Проверка Результата
			Если РезультатПроверки.Пустой() Тогда 
				новыйЭлемент = Справочники.Клиенты.СоздатьЭлемент(); //Если клиента не существует, то
				новыйЭлемент.Наименование = с[0];                    //Создаётся новый элемент и ему
				новыйЭлемент.ИНН = с[1];                             //прописываются значение реквизитов
				новыйЭлемент.КПП = с[2];                             //
				новыйЭлемент.Записать();                             //
				НоваяЗапись.Клиент = новыйЭлемент.Ссылка;            //
				НоваяЗапись.НаименованиеТарифа = с[9];               //
				НоваяЗапись.Записать(Истина);                        //Потом записывается в регистр сведений
			Иначе            
				РезультатВыборки = РезультатПроверки.Выбрать();      // Тут всё тоже самое, но
				РезультатВыборки.Следующий();                        // Новый клиент не создаётся
				НоваяЗапись.Клиент = РезультатВыборки.Ссылка;	
				НоваяЗапись.НаименованиеТарифа = с[9];  	
				НоваяЗапись.Записать(Истина);	
			КонецЕсли;
		КонецЦикла; 
		СтраницаТекущая = СтраницаТекущая + 1;
	КонецЦикла;                
КонецЕсли;	 

Тестирование проводилось на платформе 8.3.27.1508, но использование обработки доступно с платформы начиная с версии 8.3.23.1739.

Если вам пригодился этот код, то прошу лайкнуть статью. Если рейтинг поднимется до 100, то выложу код интеграцию с сервисами ИТС на примере 1С-Облачный архив (получение тикета + авторизация в сервисе). Так же, возможно, выложу коллекцию postman по астралу и ИТС, а так же допишу функционал продлений в веб регистраторе через 1С)

Пишите в личные сообщения, если у вас есть идеи или вы хотите поучаствовать в совместной разработке)