SaveText.Ru

        //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