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