Код

Если Константа.SQLотладкаАвтоПроведения<>0 Тогда
	Запрос_К = СоздатьОбъект("ODBCRecordset");
	Если Запрос_К.Открыть("Exec ('DBCC ActiveCursors (@@spid)')") = 0 Тогда  // ошибка или нет открытых курсоров
	    Ошибка = Запрос_К.ПолучитьОписаниеОшибки();
	    Если ПустаяСтрока(Ошибка) = 0 Тогда
		  ткст="ODBCRecordset	error:"+РазделительСтрок+Запрос_К.ПолучитьОписаниеОшибки();
			ЗаписатьВЛог("@"+ткст);
		КонецЕсли;
	    Запрос_К.Закрыть();
	Иначе
	    СЗ_К=СоздатьОбъект("СписокЗначений");
	    СЗ_К=Запрос_К.ПолучитьЗначенияСЗ(2);
	    Запрос_К.Закрыть();
	    Если СЗ_К.РазмерСписка() > 2 Тогда
		  Сообщить(СЗ_К.РазмерСписка());
		  Для ии=1 По СЗ_К.РазмерСписка() Цикл
			Сообщить(СЗ_К.ПолучитьЗначение(ии));
				ЗаписатьВЛог("@очистка:"+СЗ_К.ПолучитьЗначение(ии));
		  КонецЦикла;
	    КонецЕсли;
	КонецЕсли;
КонецЕсли;