Процедура Отчет(ДатаНач, ДатаКон) Экспорт 
	Запрос = Новый Запрос; 
	// Сбор данных. 
	Запрос.Текст = "ВЫБРАТЬ 
	|	Событие.Ответственный КАК Ответственный, 
	|	Событие.Дата, 
	|	Событие.ВидСобытия, 
	|	Событие.Контрагент, 
	|	Событие.СодержаниеСобытия, 
	|	Событие.ОписаниеСобытия 
	|ИЗ 
	|	Документ.Событие КАК Событие 
	|ГДЕ 
	|	Событие.Дата МЕЖДУ &ДатаНач И &ДатаКон И (Событие.Проведен) И Событие.СостояниеСобытия = &Завершено 
	|УПОРЯДОЧИТЬ ПО 
	|	Ответственный"; 
	Запрос.УстановитьПараметр("ДатаКон", ДатаКон); 
	Запрос.УстановитьПараметр("ДатаНач", ДатаНач); 
	Запрос.УстановитьПараметр("Завершено", Перечисления.СостоянияСобытий.Завершено); 
	Результат = Запрос.Выполнить(); 
	// Сформировать табличный документ. 
	Макет = ПолучитьМакет("Отчет"); 
	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); 
	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы"); 
	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали"); 
	ТабДок = Новый ТабличныйДокумент; 
	ОбластьЗаголовок.Параметры.ДатаНач = ДатаНач; 
	ОбластьЗаголовок.Параметры.ДатаКон = ДатаКон; 
	ТабДок.Вывести(ОбластьЗаголовок); 
	ТабДок.Вывести(ОбластьШапкаТаблицы); 
	ВыборкаДетали = Результат.Выбрать(); 
	Пока ВыборкаДетали.Следующий() Цикл 
		ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали); 
		ОбластьДетальныхЗаписей.Область("Описание").Примечание.Текст = ВыборкаДетали.СодержаниеСобытия; 
		ТабДок.Вывести(ОбластьДетальныхЗаписей); 
	КонецЦикла; 
	ТабДок.Показать(); 
КонецПроцедуры