Параметр

Обязательный

Описание

Параметры заголовка запроса

Cookie

Да

Для аторизации

Параметры GET-строки запроса

claimid

Да

Id заявки

&НаСервере

Процедура МетодAnswerTypeНаСервере(Знач ClaimID)

Адрес = "eds.mosreg.ru";               

            Соединение = Новый HTTPСоединение(Адрес, 443,,,,30, Новый ЗащищенноеСоединениеOpenSSL);  

            Запрос = Новый HTTPЗапрос("/login?login-form-email=" + "1234567" + "&login-form-password=" + "7654321");

            Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);    

            Если Ответ.КодСостояния = 200 Тогда

                        Куки = Ответ.Заголовки.Получить("Set-Cookie");

                        Куки = СтрЗаменить(Куки, ";", Символы.ПС);

                        Куки = СтрЗаменить(Куки, ",", Символы.ПС);

                        MosregToken = СтрПолучитьСтроку(Куки, 1);               

                        JSessionID =  СокрЛП(СтрПолучитьСтроку(Куки, 5));

                        ЧтениеJSON = Новый ЧтениеJSON();

                        ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));

                        Ответ1 = ПрочитатьJSON(ЧтениеJSON);

                        ЧтениеJSON.Закрыть();

                        //////////////////////////////////////////////////////

                        //2-й запрос

                        Заголовки = Новый Соответствие;             

                        Заголовки.Вставить("Cookie", JSessionID + ";" + MosregToken);

                        Запрос2 = Новый HTTPЗапрос("/api/answerType/" + ClaimID, Заголовки); 

                        Ответ2 = Соединение.ВызватьHTTPМетод("GET", Запрос2);   

                        Если Ответ2.КодСостояния = 200 Тогда

                                   ЧтениеJSON = Новый ЧтениеJSON();

                                    ЧтениеJSON.УстановитьСтроку(Ответ2.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));

                                   Ответ22 = ПрочитатьJSON(ЧтениеJSON);

                                   ЧтениеJSON.Закрыть();        

                        Иначе  

                                   Сообщить("Запрос 2, ошибка: " + Ответ2.КодСостояния);

                        КонецЕсли;

            Иначе

                        Сообщить("Запрос 1, ошибка " + Ответ.КодСостояния);

            КонецЕсли;

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

&НаКлиенте

Процедура МетодAnswerType(Команда)

            МетодAnswerTypeНаСервере("2345678");//Тестовая заявка

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