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