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

11.08.16

Разработка - Запросы

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Отчет Закупки с контактной информацией
.erf 17,21Kb
11
11 Скачать (1 SM) Купить за 1 850 руб.

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

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

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

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

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

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

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

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

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

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

УниверсальныйОтчет контактная информация ДобавитьКонтактнуюИнформацияДляПоля ДобавитьВТекстЗапросаКонтактнуюИнформацию

См. также

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

15500 руб.

02.09.2020    182641    1013    403    

964

Обновление 1С Запросы Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 Абонемент ($m)

Данный инструмент помогает анализировать доработанную конфигурацию после обновления на новый релиз и находить «битые» тексты запросов, в которых участвуют несуществующие в новом релизе метаданные.

2 стартмани

06.02.2025    2100    17    XilDen    26    

36

Запросы Программист Платформа 1С v8.3 Запросы 1C:Бухгалтерия Бесплатно (free)

В статье приведена удобная возможность отладки исполняемого запроса динамического списка.

03.12.2024    5513    artemusII    11    

23

Запросы Программист Бесплатно (free)

Увидел cheatsheet по SQL и захотелось нарисовать подобное, но про запросы.

18.10.2024    12929    sergey279    18    

65

Запросы Программист Платформа 1С v8.3 Запросы 1C:Бухгалтерия Бесплатно (free)

Столкнулся с интересной ситуацией, которую хотел бы разобрать, ввиду её неочевидности. Речь пойдёт про использование функции запроса АВТОНОМЕРЗАПИСИ() и проблемы, которые могут возникнуть.

11.10.2024    8030    XilDen    36    

90

СКД Механизмы типовых конфигураций Запросы Программист Платформа 1С v8.3 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Россия Бесплатно (free)

Работая с типовыми отчетами в конфигурациях «Зарплата и управление персоналом, редакция 3», «Зарплата и кадры государственного учреждения, редакция 3» и подобных, в схемах компоновки данных можно встретить конструкции запросов, которые обращаются к некоторым виртуальным таблицам.

20.08.2024    3046    PROSTO-1C    0    

23

Запросы Программист Запросы Бесплатно (free)

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

16.08.2024    10623    user1840182    5    

29
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. script 128 11.08.16 18:00 Сейчас в теме
Спасибо. Похожее решение уже было на инфостарте, но там нужно было вновить изменения в текст запроса отчета и в модуль универсального отчета.

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

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

написать

УниверсальныйОтчет.ДобавитьКонтактнуюИнформацияДляПоля("ВзаиморасчетыСКонтрагентамиОстатки.Контрагент", "Контрагент" , "Контрагент", Перечисления.ВидыОбъектовКонтактнойИнформации.Контрагенты, "Справочник.Контрагенты");
4. xantif_2000 08.02.17 12:19 Сейчас в теме
5. Tangram 163 24.11.17 09:33 Сейчас в теме
Как все просто... В "Дебиторская задолженность по интервалам" понадобилось всего лишь 7 строк:

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


Вставляем сразу после формирования текста запроса, до добавления полей свойств.
6. userT 01.03.18 14:25 Сейчас в теме
Оставьте свое сообщение