(
2)
...
НомераТелефонов = ПолучитьНомераТелефоновКЛ();
Элементы.НомерТелефона.СписокВыбора.Очистить();
Элементы.НомерТелефона.СписокВыбора = НомераТелефонов;
....
Функция ПолучитьНомераТелефоновКЛ()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВЫБОР
| КОГДА КонтактныеЛицаКонтактнаяИнформация.НомерТелефона <> """"
| ТОГДА ПОДСТРОКА(КонтактныеЛицаКонтактнаяИнформация.Вид.Наименование, 1, 999) + "": "" + ПОДСТРОКА(КонтактныеЛицаКонтактнаяИнформация.Представление, 1, 999)
| КОНЕЦ КАК НомерТелефона
|ИЗ
| Справочник.КонтактныеЛица.КонтактнаяИнформация КАК КонтактныеЛицаКонтактнаяИнформация
|ГДЕ
| КонтактныеЛицаКонтактнаяИнформация.Ссылка = &СсылкаНаКЛ";
Запрос.УстановитьПараметр("СсылкаНаКЛ", Объект.КонтактноеЛицо);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
 //МассивТелефонов = Новый Массив;
 //Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
 // ТекНомер = ВыборкаДетальныеЗаписи.НомерТелефона;
 // Если ЗначениеЗаполнено(ТекНомер) Тогда
 // МассивТелефонов.Добавить(ТекНомер);
 // КонецЕсли;
 //КонецЦикла;
 //
 //Возврат МассивТелефонов;
СписокЗначений = Новый СписокЗначений;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ТекНомер = ВыборкаДетальныеЗаписи.НомерТелефона;
Если ЗначениеЗаполнено(ТекНомер) Тогда
СписокЗначений.Добавить(ТекНомер, "1");
КонецЕсли;
КонецЦикла;
Возврат СписокЗначений;
КонецФункции// ПолучитьНомераТелефоновКЛ()