gifts2017

Контактная информация в отчетах на основе Универсального отчета встроенными средствами

Опубликовал Перец Старый (Cmapnep) в раздел Программирование - Практика программирования

Лёгкий способ добавить контактную информацию в типовые отчеты (Закупки, Продажи и т.п.) на основе УниверсальногоОтчета (УТ 10, УПП 1.3, КА). Позволяет выводить контактную информацию любого вида без необходимости вручную задавать текст запроса. Достаточно после инициализации настроек добавить код из 11 строк. Подходит для внешних отчетов.

Передо мной стояла задача дать возможность пользователю (УПП 1.3) вывести в типовой отчет Закупки контактную информацию контрагентов. Вид контактной информации должен выбираться пользователем.

После непродолжительных поисков была найдена вот эта публикаци http://infostart.ru/public/259016/, в которой описываются два способа решения проблемы: 1 - модифицировать УниверсальныйОтчет; 2 - вручную задать текст запроса.

1 способ не подошел, т.к. не было возможности вносить изменения, влияющие на типовое поведение объектов системы.

2 посчитал неоптимальным, т.к. теряется гибкость, да и не хотелось заморачиваться.

Описываемый мною лёгкий способ позволяет использовать преимущества обоих без свойственных им недостатков.

Итак, в модуле объекта модифицируемого отчета присутствует процедура "УстановитьНачальныеНастройки(ДополнительныеПараметры = Неопределено) Экспорт" в теле которой, после строки "УниверсальныйОтчет.УстановитьНачальныеНастройки(Истина);" добавляем следующий код:

ТекстЗапроса = УниверсальныйОтчет.ПостроительОтчета.Текст;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//ПОЛЯ_СВОЙСТВА", "//ПОЛЯ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//ПОЛЯ_СВОЙСТВА");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//ПСЕВДОНИМЫ_СВОЙСТВА", "//ПСЕВДОНИМЫ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//ПСЕВДОНИМЫ_СВОЙСТВА");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//СОЕДИНЕНИЯ", "" + Символы.Таб + "//КОНТАКТНАЯИНФОРМАЦИЯ_СОЕДИНЕНИЯ" + Символы.ВК + Символы.Таб + "//СОЕДИНЕНИЯ");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//УСЛОВИЯ_СВОЙСТВА", "//УСЛОВИЯ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//УСЛОВИЯ_СВОЙСТВА");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//ИТОГИ_СВОЙСТВА", "//ИТОГИ_КОНТАКТНАЯИНФОРМАЦИЯ" + Символы.ВК + Символы.Таб + "//ИТОГИ_СВОЙСТВА");
УниверсальныйОтчет.ДобавитьКонтактнуюИнформацияДляПоля("ИсточникДанных.Контрагент", "Контрагент" , "Контрагент", Перечисления.ВидыОбъектовКонтактнойИнформации.Контрагенты, "Справочник.Контрагенты");
УниверсальныйОтчет.ДобавитьВТекстЗапросаКонтактнуюИнформацию(ТекстЗапроса);
УниверсальныйОтчет.ПостроительОтчета.Текст = ТекстЗапроса;
УниверсальныйОтчет.УстановитьПредставленияПолей(УниверсальныйОтчет.мСтруктураПредставлениеПолей, УниверсальныйОтчет.ПостроительОтчета);
УниверсальныйОтчет.ПостроительОтчета.ВыбранныеПоля.Очистить();

Таким образом, мы получили текст запроса, добавили в него нужный  комментарий, использовали типовой механизм УниверсальногоОтчета для добавления контактной информации, обновили представление добавленных полей и очистили выбранные поля.

В результате, после открытия отчета, мы имеем возможность добавить в дополнительные поля контактную информацию любого вида. Чтобы добавить нужное поле необходимо: октрыть Настройки - Включить расширеныне настройки - Перейти на страницу Дополнительные поля - Нажать "Добавить" - Раскрыть "Контрагент" - Выбрать поле в списке. См. скриншот.

Кому совсем лень, может скачать файл за плюс в карму)

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
Отчет Закупки с контактной информацией
.erf 17,21Kb
11.08.16
1
.erf 17,21Kb 1 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. script Мальчинко (script) 11.08.16 18:00
Спасибо. Похожее решение уже было на инфостарте, но там нужно было вновить изменения в текст запроса отчета и в модуль универсального отчета.

А тут все просто и лаконично, в общем гениально.
2. Перец Старый (Cmapnep) 12.08.16 09:32
(1) script, спасибо за лестную оценку! ))
3. Maga (Areal) 14.09.16 10:22
Эта решение оказалось для меня просто спасением! Спасибо автору! Далее, в первую очередь для себя, напишу кое-какие заметки:
Можно сохранить из конфы отчет, как внешний и в нем, после строки "УниверсальныйОтчет.ПостроительОтчета.Текст = ТекстЗапроса;" добавить весь этот код от автора, заменив в коде "ИсточникДанных.Контрагент" само "ИсточникДанных" на используемый в отчете регистр, то все будет работать.

Пример: в отчете "Задолженность по контрагентам" вместо предлагаемого автором кода
УниверсальныйОтчет.ДобавитьКонтактнуюИнформацияДляПоля("ИсточникДанных.Контрагент", "Контрагент" , "Контрагент", Перечисления.ВидыОбъектовКонтактнойИнформации.Контрагенты, "Справочник.Контрагенты");

написать

УниверсальныйОтчет.ДобавитьКонтактнуюИнформацияДляПоля("ВзаиморасчетыСКонтрагентамиОстатки.Контрагент", "Контрагент" , "Контрагент", Перечисления.ВидыОбъектовКонтактнойИнформации.Контрагенты, "Справочник.Контрагенты");
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа