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