Конфликт блокировок при выполнении транзакции: Неустранимый конфликт блокировок

&НаКлиенте
Процедура Тык(Команда)
	ТыкНаСервере();
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ТыкНаСервере()
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Валюты.Ссылка,
		|	Валюты.ПометкаУдаления
		|ИЗ
		|	Справочник.Валюты КАК Валюты";
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Если ВыборкаДетальныеЗаписи.ПометкаУдаления Тогда
			НеправильнаяВалюта = ВыборкаДетальныеЗаписи.Ссылка;
		Иначе
			ПравильнаяВалюта = ВыборкаДетальныеЗаписи.Ссылка;
		КонецЕсли;
	КонецЦикла;
	
	МассивСсылка = Новый Массив;
	МассивСсылка.Добавить(НеправильнаяВалюта);
	ТабСсылок = НайтиПоСсылкам(МассивСсылка);
	Первые10 = 0;
	Для Каждого Ссылка из ТабСсылок Цикл
		
		Попытка //получить объект
			ОбъектПоССылке = Ссылка[1].ПолучитьОбъект();
		Исключение
			//Не объектный тип данных просто пропустим
			Продолжить;
		КонецПопытки;
		
		ОбъектМетаданных = Метаданные.НайтиПоТипу(ТипЗнч(ОбъектПоССылке));
		КоллекцияРеквизитов = ОбъектМетаданных.Реквизиты;
		
		Для Каждого Реквизит Из КоллекцияРеквизитов Цикл
			Если ОбъектПоССылке[Реквизит.Имя] = НеправильнаяВалюта Тогда
				ОбъектПоССылке[Реквизит.Имя] = ПравильнаяВалюта;
			КонецЕсли;
		КонецЦикла;
		
		НачатьТранзакцию();
			Если НЕ ОбъектПоССылке.ПометкаУдаления Тогда //Непомеченный на удаление объект
				
				//Определим является ли объект документом
				Если Метаданные.Документы.Содержит(ОбъектМетаданных) Тогда
					ЭтоДокумент = Истина;
				Иначе
					ЭтоДокумент = Ложь;
				КонецЕсли;
				
				Если ЭтоДокумент Тогда
					Если ОбъектПоССылке.Проведен Тогда
						ОбъектПоССылке.Записать(РежимЗаписиДокумента.ОтменаПроведения);
						ОбъектПоССылке.Записать(РежимЗаписиДокумента.Проведение);	
					Иначе 
						ОбъектПоССылке.Записать();
					КонецЕсли; 
				Иначе
					ОбъектПоССылке.Записать();
				КонецЕсли;
				
			Иначе	//Помеченные на удаление объекты просто перезаписываем.
				//Может и не надо 2 раза записывать, я хз. На всякий.
				ОбъектПоССылке.Записать();	
				ОбъектПоССылке.УстановитьПометкуУдаления(Ложь);
				ОбъектПоССылке.Записать();
				ОбъектПоССылке.УстановитьПометкуУдаления(Истина);
				ОбъектПоССылке.Записать();
			КонецЕсли;
		ЗафиксироватьТранзакцию();
		
		Сообщить ("" + СокрЛП(Ссылка[0]) + "  " + СокрЛП(Ссылка[1]));
		
		//Первые10 = Первые10 + 1;
		//Если Первые10 >1000 Тогда
		//	Прервать;
		//КонецЕсли;
	КонецЦикла;

	
КонецПроцедуры