//slawa Нач 20200407 13:04 (ID:374GZ8)
Если Отказ <> Истина Тогда
ВнНомера = ТекущийОбъект.КонтактнаяИнформация.НайтиСтроки(Новый Структура("Вид", Справочники.ВидыКонтактнойИнформации.ПолучитьСсылку(Новый УникальныйИдентификатор("8270dae9-3df7-11e7-80ca-c80aa91f9e91")))); // Внутренний телефон
Если ТекущийОбъект.Недействителен Тогда
Для каждого внНомер Из ВнНомера Цикл
внНомер.Представление = "";
внНомер.ЗначенияПолей = "";
внНомер.НомерТелефона = "";
внНомер.НомерТелефонаБезКодов = "";
КонецЦикла;
Иначе // проверка на уникальность внутреннего номера
массВнНомера = Новый Массив;
Для каждого внНомер Из ВнНомера Цикл
Если ЗначениеЗаполнено(СокрЛП(внНомер.НомерТелефона)) Тогда
массВнНомера.Добавить(СокрЛП(внНомер.НомерТелефона));
КонецЕсли;
КонецЦикла;
Если массВнНомера.Количество() > 0 Тогда
ЗапросПоВнНомерам = Новый Запрос;
ЗапросПоВнНомерам.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПользователиКонтактнаяИнформация.Ссылка,
| ПользователиКонтактнаяИнформация.Ссылка.Наименование как Пользователь,
| ПользователиКонтактнаяИнформация.НомерТелефона
|ИЗ
| Справочник.Пользователи.КонтактнаяИнформация КАК ПользователиКонтактнаяИнформация
|ГДЕ
| ПользователиКонтактнаяИнформация.Ссылка <> &Ссылка
| И ПользователиКонтактнаяИнформация.Вид = &Вид
| И ПользователиКонтактнаяИнформация.НомерТелефона В(&массВнНомера)
|
|УПОРЯДОЧИТЬ ПО
| ПользователиКонтактнаяИнформация.Ссылка.Наименование";
ЗапросПоВнНомерам.УстановитьПараметр("массВнНомера", массВнНомера);
ЗапросПоВнНомерам.УстановитьПараметр("Ссылка", ТекущийОбъект.Ссылка);
ЗапросПоВнНомерам.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.ПолучитьСсылку(Новый УникальныйИдентификатор("8270dae9-3df7-11e7-80ca-c80aa91f9e91"))); // Внутренний телефон
резЗапросПоВнНомерам = ЗапросПоВнНомерам.Выполнить();
Если не резЗапросПоВнНомерам.Пустой() Тогда
выбЗапросПоВнНомерам = резЗапросПоВнНомерам.Выбрать();
Пока выбЗапросПоВнНомерам.Следующий() Цикл
Сообщить("У пользователя "+выбЗапросПоВнНомерам.Пользователь+" существует номер "+выбЗапросПоВнНомерам.НомерТелефона);
Отказ = Истина;
КонецЦикла;
КонецЕсли;
Если Отказ = Истина Тогда
Сообщить("Запись не возможна! Не должно быть дубликатов номеров");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
//slawa Кон 374GZ8
//slawa Нач 20200407 13:04 (ID:374GZ8)
КонтактнаяИнформацияПоле8270dae9x3df7x11e7x80caxc80aa91f9e911 = ""; // Внутренний телефон
//slawa Кон 374GZ8