Передо мной стояла задача дать возможность пользователю (УПП 1.3) вывести в типовой отчет Закупки контактную информацию контрагентов. Вид контактной информации должен выбираться пользователем.
После непродолжительных поисков была найдена вот эта публикаци //infostart.ru/public/259016/, в которой описываются два способа решения проблемы: 1 - модифицировать УниверсальныйОтчет; 2 - вручную задать текст запроса.
1 способ не подошел, т.к. не было возможности вносить изменения, влияющие на типовое поведение объектов системы.
2 посчитал неоптимальным, т.к. теряется гибкость, да и не хотелось заморачиваться.
Описываемый мною лёгкий способ позволяет использовать преимущества обоих без свойственных им недостатков.
Итак, в модуле объекта модифицируемого отчета присутствует процедура "УстановитьНачальныеНастройки(ДополнительныеПараметры = Неопределено) Экспорт" в теле которой, после строки "УниверсальныйОтчет.УстановитьНачальныеНастройки(Истина);" добавляем следующий код:
ТекстЗапроса = УниверсальныйОтчет.ПостроительОтчета.Текст;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//ПОЛЯ_СВОЙСТВА", "//ПОЛЯ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//ПОЛЯ_СВОЙСТВА");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//ПСЕВДОНИМЫ_СВОЙСТВА", "//ПСЕВДОНИМЫ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//ПСЕВДОНИМЫ_СВОЙСТВА");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//СОЕДИНЕНИЯ", "" + Символы.Таб + "//КОНТАКТНАЯИНФОРМАЦИЯ_СОЕДИНЕНИЯ" + Символы.ВК + Символы.Таб + "//СОЕДИНЕНИЯ");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//УСЛОВИЯ_СВОЙСТВА", "//УСЛОВИЯ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//УСЛОВИЯ_СВОЙСТВА");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//ИТОГИ_СВОЙСТВА", "//ИТОГИ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//ИТОГИ_СВОЙСТВА");
УниверсальныйОтчет.ДобавитьКонтактнуюИнформацияДляПоля("ИсточникДанных.Контрагент", "Контрагент" , "Контрагент", Перечисления.ВидыОбъектовКонтактнойИнформации.Контрагенты, "Справочник.Контрагенты");
УниверсальныйОтчет.ДобавитьВТекстЗапросаКонтактнуюИнформацию(ТекстЗапроса);
УниверсальныйОтчет.ПостроительОтчета.Текст = ТекстЗапроса;
УниверсальныйОтчет.УстановитьПредставленияПолей(УниверсальныйОтчет.мСтруктураПредставлениеПолей, УниверсальныйОтчет.ПостроительОтчета);
УниверсальныйОтчет.ПостроительОтчета.ВыбранныеПоля.Очистить();
Таким образом, мы получили текст запроса, добавили в него нужный комментарий, использовали типовой механизм УниверсальногоОтчета для добавления контактной информации, обновили представление добавленных полей и очистили выбранные поля.
В результате, после открытия отчета, мы имеем возможность добавить в дополнительные поля контактную информацию любого вида. Чтобы добавить нужное поле необходимо: октрыть Настройки - Включить расширеныне настройки - Перейти на страницу Дополнительные поля - Нажать "Добавить" - Раскрыть "Контрагент" - Выбрать поле в списке. См. скриншот.
Кому совсем лень, может скачать файл за плюс в карму)
