refactor(bitra-patch): email через РегистрСведений.КонтактнаяИнформация БСП (1 запрос, без ПолучитьОбъект)

2026-05-15 18:04:28 +05:00
parent 252c5e38a7
commit 432cfd3413
2 changed files with 13 additions and 40 deletions
@@ -129,44 +129,6 @@

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

-// Извлекает email из ТЧ КонтактнаяИнформация пользователя.
-//
-Функция ИзвлечьEmail(Знач Пользователь) Экспорт
-
-	Если НЕ ЗначениеЗаполнено(Пользователь) Тогда
-		Возврат "";
-	КонецЕсли;
-
-	Попытка
-		Объект = Пользователь.ПолучитьОбъект();
-	Исключение
-		Возврат "";
-	КонецПопытки;
-
-	Если Объект = Неопределено Тогда
-		Возврат "";
-	КонецЕсли;
-
-	Попытка
-		Для Каждого Стр Из Объект.КонтактнаяИнформация Цикл
-			ВидНаименование = "";
-			Если ЗначениеЗаполнено(Стр.Вид) Тогда
-				ВидНаименование = Строка(Стр.Вид);
-			КонецЕсли;
-			Если СтрНайти(НРег(ВидНаименование), "email") > 0 ИЛИ СтрНайти(НРег(ВидНаименование), "почта") > 0 Тогда
-				Если ЗначениеЗаполнено(Стр.Представление) Тогда
-					Возврат Стр.Представление;
-				КонецЕсли;
-			КонецЕсли;
-		КонецЦикла;
-	Исключение
-		Возврат "";
-	КонецПопытки;
-
-	Возврат "";
-
-КонецФункции
-
 // Лимит выборки из query-параметра.
 //
 Функция ПарсЛимит(Знач Запрос, Знач MaxDefault = 1000, Знач MaxAllowed = 10000) Экспорт