Код

Перем спСобытий;

********
Процедура Сформировать()
	Таблица.Очистить();
	логи = СоздатьОбъект("ПоставщикДанныхЖурналРегистрации");
	логи.открытьфайл();
	логи.УстановитьПериод(ДатаНачала,ДатаКонца);
	Если ТипЗначенияСтр(объект) = "Документ" Тогда
		логи.ИзменитьФильтр(141,объект.ТекущийДокумент());
	Иначе      
		логи.ИзменитьФильтр(141,объект.текущийэлемент());
	КонецЕсли;
	логи.УстановитьФильтр(1);

	Если логи.выбратьстроки()=1 Тогда
		Пока логи.получитьстроку() = 1 Цикл  
			Сообщить(""+логи.дата+логи.время+" "+логи.комментарий);
			Состояние("идет вывод строк ");
			стрТ = Таблица.ПолучитьСекцию("строка");
			стрТ.Дата 			= логи.дата;
			стрТ.Время			= логи.время;
			стрТ.Комментарий   	= Строка(логи.Комментарий);
			стрТ.Пользователь	= логи.Пользователь;
			Если спСобытий.найтизначение(логи.событие) > 0 Тогда  
				стрТ.событие	= спсобытий.Получитьзначение(спсобытий.НайтиЗначение(логи.событие));
			иначе
				стрТ.Событие	= логи.Событие;
			КонецЕсли;
			Таблица.ВывестиСекцию(стрТ);
		КонецЦикла;
	Иначе
		Сообщить("выборка пустая");
	КонецЕсли;
	логи.закрытьфайл();
	Попытка
		Таблица.Показать();
	Исключение
	КонецПопытки;
КонецПроцедуры

********
Процедура приОткрытии()  
	Таблица.Опции(0,0,0,0,,"ИсторияОбъекта");
	если ПустоеЗначение(Форма.Параметр) = 1 Тогда  
		Предупреждение("это служебная обработка");СтатусВозврата(0);Возврат;
	Иначе
		форма.объект.НазначитьТип(ТипЗначенияСтр(Форма.Параметр));
		объект = Форма.Параметр;
	КонецЕсли;
	ДатаНачала = ТекущаяДата();ДатаКонца = ТекущаяДата();

	Сформировать();
КонецПроцедуры

********

спСобытий = СоздатьОбъект("СписокЗначений");
спСобытий.ДобавитьЗначение("RefWrite"	,"Элемент справочника записан");
спСобытий.ДобавитьЗначение("DocOpen"	,"Документ открыт");  
спСобытий.ДобавитьЗначение("DocNew"		,"Создан новый документ");  
спСобытий.ДобавитьЗначение("DocNotWrite","Документ не записан");  
спСобытий.ДобавитьЗначение("DocWriteNew","Записан новый документ");  
спСобытий.ДобавитьЗначение("DocPassed"	,"Документ проведен");  
спСобытий.ДобавитьЗначение("RefNew"		,"Создан новый элемент сравочника");