Ведение журнала регистрации 1С 8.1 в отдельной базе MSSQL.

Процедура ВыгрузкаЖурналаРегистрации() Экспорт
	
	СтрокаСоединения = "ЗДЕСЬ ПРОПИСЫВАЕТСЯ СТРОКА СОЕДНИНЕНИЯ С SQL-БАЗОЙ.(Можно взять из строки соединения обработки 'ПервоначальнаяВыгрузкаЖурналаРегистрации.epf')";
	СоединениеАДО = Новый COMОбъект("ADODB.Connection");
	Попытка
		СоединениеАДО.ConnectionTimeout = 0;
		СоединениеАДО.CommandTimeout = 0;
		СоединениеАДО.Open(СтрокаСоединения);
	Исключение
		Сообщить("Ошибка соединения с базой: "+ ОписаниеОшибки());
		Возврат ;
	КонецПопытки;
	
	
	//Выгружаем журнал регистрации за период во временный xml файл
	СтруктураОтбора = Новый Структура("ДатаНачала,ДатаОкончания",НачПериода,КонПериода);
	ИмяФайла = ПолучитьИмяВременногоФайла("xml");
	ВыгрузитьЖурналРегистрации(ИмяФайла,СтруктураОтбора);	  
	
	//Парсим xml файл в таблицу значений
	ТабЖурнала = Новый ТаблицаЗначений();
	СтруктураКолонок = СтрЗаменить("ДатаВремя,РежимЗаписи,Транзакция,Пользователь,Хост,Приложение,НомерСоединения,Событие,ТипСобытия,Комментарий,КодМетаданных,Данные,ПредставлениеДанных,РабочийСервер,ОсновнойIPПорт,ВспомогательныйIPПорт",",",Символы.ПС);
	АнглийискиеИменаКолонок =  СтрЗаменить("Date,TransactionStatus,TransactionID,UserID,Computer,ApplicationName,Connection,EventName,Level,Comment,MetadataName,Data,DataPresentation,ServerName,Port,SyncPort",",",Символы.ПС);
	СоотвКолонок = Новый Соответствие();					   
	Для К = 1 По СтрЧислоСтрок(СтруктураКолонок) Цикл
		ТабЖурнала.Колонки.Добавить(СтрПолучитьСтроку(СтруктураКолонок,К));
		СоотвКолонок.Вставить(СтрПолучитьСтроку(АнглийискиеИменаКолонок,К),СтрПолучитьСтроку(СтруктураКолонок,К));
	КонецЦикла;	
	ТабЖурнала.Колонки.Добавить("КодТаблицы");
	
	ПотокXML = Новый ЧтениеXML;
	ПотокXML.ОткрытьФайл(ИмяФайла);
	ИмяПоля = Неопределено; 
	Итерация = 0;
	Пока ПотокXML.Прочитать() Цикл
		
		ОбработкаПрерыванияПользователя();
		
		Если ПотокXML.ЛокальноеИмя = "Event" И ПотокXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
			СтрТаб = ТабЖурнала.Добавить();
		КонецЕсли;
		Если ПустаяСтрока(ПотокXML.ЛокальноеИмя) Тогда
			Если ЗначениеЗаполнено(ПотокXML.Значение) И ПотокXML.КонтекстПространствИмен.Глубина = 3 Тогда
				ИмяКолонки = СоотвКолонок[ИмяПоля];
				Если ИмяКолонки <> Неопределено Тогда
					СтрТаб[ИмяКолонки] = ПотокXML.Значение;
				КонецЕсли;
			КонецЕсли;
			
		Иначе
			ИмяПоля = ПотокXML.ЛокальноеИмя;
			Если ИмяПоля = "Data"  И ПотокXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ПотокXML.КоличествоАтрибутов() > 1 Тогда
				СтрТаб.КодТаблицы = ПотокXML.ПолучитьАтрибут(1);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	ПотокXML.Закрыть();
	ОбработанныеМетаданные = Новый Соответствие();
	
	
	//Закачиваем полученную таблицу в SQL базу с помощью двух хранимых процедур _UpdateMetadata и _InsertLogData
	Command = Новый COMОбъект("ADODB.Command");
	Command.CommandTimeout = 0;
	Command.ActiveConnection = СоединениеАДО;  
	Command.CommandType = 1;
	
	Итерация = 0;
	ВсегоСтрокЖурнала = ТабЖурнала.Количество();
	Для Каждого СтрТаб Из ТабЖурнала Цикл
		
		
		//Обновляем метаданные
		ТекОбъектМД = СтрТаб.КодМетаданных;
		Если НЕ ПустаяСтрока(ТекОбъектМД) И ОбработанныеМетаданные[ТекОбъектМД] = Неопределено Тогда  	
			ОбработанныеМетаданные.Вставить(ТекОбъектМД,Истина);
			ОбъектМД = НайтиОбъектМД(ТекОбъектМД);						
			Если Найти(ВРег(ТекОбъектМД),ВРег("Recalculation")) > 0 Тогда
				ПредставлениеМетаданных = "Перерасчет. " + ОбъектМД.Синоним;
			Иначе 
				Если ОбъектМД = Неопределено Тогда 
					Продолжить;			
				КонецЕсли;
				ТекОбектМДПоРусски = Строка(ОбъектМД.ПолноеИмя());
				ПредставлениеМетаданных = СформироватьОписание(Лев(ТекОбектМДПоРусски,Найти(ТекОбектМДПоРусски,".")-1)) + 
						" " + Метаданные.НайтиПоПолномуИмени(ТекОбъектМД).Представление();
			КонецЕсли;
			ПредставлениеСсылки = ПолучитьПредставлениеСсылки(ТекОбъектМД);
			
			Если ПредставлениеСсылки <> "" Тогда 
				СтрокаДляСтрокиВнутр = Лев(ПредставлениеСсылки,42);
				НомерТаблицы = Сред(ПредставлениеСсылки,43,Найти(ПредставлениеСсылки,":")-43);
				ТекстЗапроса = "
					|exec _UpdateMetadata 
					|	@MetaData = '" + ТекОбъектМД + "',
					|	@MetaDataPresentation = '" + ПредставлениеМетаданных + "', 
					|	@TabNum = " + НомерТаблицы + ",
					|	@ValueToStringInternal = '"+ СтрокаДляСтрокиВнутр +"'";
			Иначе
				ТекстЗапроса = "
					|exec _UpdateMetadata 
					|	@MetaData = '" + ТекОбъектМД + "',
					|	@MetaDataPresentation = '" + ПредставлениеМетаданных + "' ";
			КонецЕсли;
			
			Command.CommandText = ТекстЗапроса;
		    Попытка
				Command.Execute();
			Исключение
				Возврат;
			КонецПопытки;
			
		КонецЕсли;	
		
		//Загружаем события жунала
		РежимЗаписи = "N";
		Если нрег(СтрТаб.РежимЗаписи) = "committed" Тогда
			РежимЗаписи = "C";
		ИначеЕсли нрег(СтрТаб.РежимЗаписи) = "RolledBack"	Тогда
			РежимЗаписи = "R";
		КонецЕсли;
		
		Данные = "";
		Если НЕ ПустаяСтрока(СтрТаб.Данные) И НЕ ПустаяСтрока(СтрТаб.КодТаблицы) Тогда
			ВнутрДанные = СтрЗаменить(ПолучитьПредставлениеСсылки(СтрТаб.КодТаблицы,СтрТаб.Данные),",",Символы.ПС);
			Данные = СтрПолучитьСтроку(ВнутрДанные,3);
		КонецЕсли;
		
		ТекстЗапроса = " exec _InsertLogData
			|'"+СтрЗаменить(СтрТаб.ДатаВремя,"T"," ")+"' ,
			|'"+РежимЗаписи+"',
			|'"+СтрТаб.Транзакция+"',
			|'"+СтрТаб.Пользователь+"', 
			|'"+СтрТаб.Хост+"',
			|'"+СтрТаб.Приложение+"',
			|'"+ПредставлениеПриложения(СтрТаб.Приложение)+"',
			|"+СтрТаб.НомерСоединения+",
			|'"+СтрТаб.Событие+"',
			|'"+ПредставлениеСобытияЖурналаРегистрации(СтрТаб.Событие)+"',
			|'"+Лев(СтрТаб.ТипСобытия,1)+"',
			|'"+Сред(СтрТаб.Комментарий,1,500) +"',
			|'"+СтрТаб.КодМетаданных+"',	
			|'"+Данные+"',
			|'"+СтрТаб.ПредставлениеДанных+"',
			|'"+СтрТаб.РабочийСервер+"',
			|"+СтрТаб.ОсновнойIPПорт+",
			|"+СтрТаб.ВспомогательныйIPПорт+"
			|";
			
		Command.CommandText = ТекстЗапроса;
	    Попытка
			Command.Execute();
		Исключение
			Возврат;
		КонецПопытки;
		
	КонецЦикла;		
КонецПроцедуры