v7: Использование НайтиСсылки. Ошибка.

Вот в эту процедуру передаются данные справочника порциями (т.к. при передаче в НайтиСсылки справочника целиком, платформа падала) по 2000.
Код выполняется некоторое количество раз (например 14) и программа закрывается с ошибкой.
Что можно предпринять?

Процедура ОбработатьСписок(Список,ТаблицаСоотв,Вид,ТаблицаОстатков = "")

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

КонецЕсли;
КонецЦикла;
ТаблицаСоотв.УдалитьСтроки();
//ЗафиксироватьТранзакцию();

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