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