Синхронизация 1с и сигур

	Сообщить("Согласование с базой СКУД. Пожалуйста, подождите... "  + ТекущееВремя(),"i");
	
    /////////////////////////////////////////////////
    //Обновление по данным СКУД "СИГУР" (БД MySQL)//
    /////////////////////////////////////////////////
	
	Соединение = СоздатьОбъект("ADODB.Connection");
	Соединение.ConnectionString = ("DSN=Данные СКУД");

	Попытка 
		Соединение.Open();
		
		Команда = СоздатьОбъект("ADODB.Command");
		Команда.ActiveConnection = Соединение;
		Команда.CommandType = 4;
		Команда.CommandText = "get_data";
		                                                
		НаборЗаписей = Команда.Execute("get_data");
		                        
		ТЗ = СоздатьОбъект("ТаблицаЗначений");
		КоличествоПолей = НаборЗаписей.Fields.Count - 1;
		
		// Циклом пробегаем по всем полям в наборе данных 
		// и  создаем поля в таблице значений
		Для ПолеСч = 0 по КоличествоПолей Цикл 
			//firma, podr, fio, dolgn, tabid, codekey, id
			ИмяКолонки = НаборЗаписей.Fields.item(ПолеСч).name;
			ТЗ.ВставитьКолонку(ИмяКолонки);
		КонецЦикла;
		
		// Заполнение таблицы значений
		НаборЗаписей.MoveFirst();

		Пока НаборЗаписей.Eof()=0 Цикл
			ТЗ.НоваяСтрока();
			Для ПолеСч = 0 по КоличествоПолей Цикл
				Если ПолеСч = 5 Тогда
					HEXКодКарты = Сред(НаборЗаписей.Fields(ПолеСч).Value, 3, 6);
					ТекстКодКарты = глПолучитьТекстовыйКодКарты(HEXКодКарты);
					ТЗ.УстановитьЗначение(ТЗ.НомерСтроки, ПолеСч+1, ТекстКодКарты);
				Иначе
					ТЗ.УстановитьЗначение(ТЗ.НомерСтроки, ПолеСч+1, НаборЗаписей.Fields(ПолеСч).Value);
				КонецЕсли;
			КонецЦикла;
			НаборЗаписей.MoveNext();
		КонецЦикла;
	Исключение
		Для счет = 1 По Соединение.Errors.Count Цикл
			Сообщить(Соединение.Errors.Item(счет - 1).Description);
		КонецЦикла;
		Соединение.Errors.Clear();
	КонецПопытки;  
	
	НаборЗаписей.Close();
	Соединение.Close();