Написал процедуру запроса сервиса.

binexekb · Sep 9, 2016 · 9fbf009 · 9fbf009
1 parent b7893ab
commit 9fbf009
Show file tree

Hide file tree

Showing 5 changed files with 759 additions and 8 deletions.
diff --git a/dadata.ru/СервисРаспознанияАдресов.epf b/dadata.ru/СервисРаспознанияАдресов.epf
diff --git a/src/dadata.ru/СервисРаспознанияАдресов/Form/Форма/Форма.bsl b/src/dadata.ru/СервисРаспознанияАдресов/Form/Форма/Форма.bsl
@@ -1 +1,23 @@
-
+
+&НаКлиенте
+Процедура Проверить(Команда)
+	Если ПроверитьЗаполнение() Тогда
+		ПроверитьНаСервере();
+	КонецЕсли; 
+КонецПроцедуры
+
+&НаСервере
+Процедура ПроверитьНаСервере()
+	ТекстЗапроса = "[ """+ИсходноеЗначение+""" ]";
+
+	ХТТПЗапрос = Новый HTTPЗапрос();
+	ХТТПЗапрос.АдресРесурса = "/api/v2/clean/address";
+	ХТТПЗапрос.Заголовки.Вставить("Content-Type", "application/json");
+	ХТТПЗапрос.Заголовки.Вставить("Authorization", "Token " + АпиКлюч);
+	ХТТПЗапрос.Заголовки.Вставить("X-Secret", СекретныйКлюч);
+
+	ХТТПЗапрос.УстановитьТелоИзСтроки(ТекстЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
+	Соединение = Новый HTTPСоединение("dadata.ru",,,,Новый ИнтернетПрокси,, Новый ЗащищенноеСоединениеOpenSSL);
+	ОтветHTTP = Соединение.ОтправитьДляОбработки(ХТТПЗапрос);
+	Ответ = ОтветHTTP.ПолучитьТелоКакСтроку();	
+КонецПроцедуры
diff --git a/src/dadata.ru/СервисРаспознанияАдресов/maps.txt b/src/dadata.ru/СервисРаспознанияАдресов/maps.txt
@@ -1 +1 @@
-Form\Форма\Форма.bsl-->3e57e184-d47e-438c-923c-44a9524769cd.0 (46, 46)
+Form\Форма\Форма.bsl-->3e57e184-d47e-438c-923c-44a9524769cd.0 (645, 668)
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		Form\Форма\Форма.bsl-->3e57e184-d47e-438c-923c-44a9524769cd.0 (46, 46)
		Form\Форма\Форма.bsl-->3e57e184-d47e-438c-923c-44a9524769cd.0 (645, 668)