0
tesei
18.05.16
✎
09:53
|
Нужно в форме списка контрагентов вывести телефоны из контактов. Использую процедуру:
Процедура СправочникСписокПриПолученииДанных(Элемент, ОформленияСтрок)
МассивСсылокОформления = Новый Массив;
Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
МассивСсылокОформления.Добавить(ОформлениеСтроки.Данныестроки.Ссылка);
КонецЦикла;
//`````````````````````````````````````````````````````````````````````````
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ки.Объект,
| ки.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК ки
|ГДЕ
| ки.Объект В(&МассивСсылокОформления)
| ки.Тип = &Тип
| И ки.Вид = &Вид
|";
Запрос.УстановитьПараметр("МассивСсылокОформления", МассивСсылокОформления);
Запрос.УстановитьПараметр("Тип", Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
ТаблицаДанныхОформленияСтрок = Запрос.Выполнить().Выгрузить();
//`````````````````````````````````````````````````````````````````````````
Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка, "Объект");
Если Не СтрокаОформленияСтрок = Неопределено Тогда
ОформлениеСтроки.Ячейки.Телефон.УстановитьТекст(СтрокаОформленияСтрок.Представление);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Телефоны не выводятся, таблица запроса пустая. В ходе экспериментов удалось заставить работать, если убрать отбор по объектам, но это не вариант - явная избыточность данных и замедление работы. Помогите устранить ошибку.
|
|