Помогите с ошибкой

Вот в этой процедуре ошибка
Процедура СписаниеПартий(СтрокаДокумента, СтруктураПараметров, РегистрУчета)
КодыОпераций = Перечисления.КодыОперацийПартииТоваров;

// Партии для данного учета
ИмяРегистра = ПолучитьИмяРегистра("ПартииТоваров", РегистрУчета, СтрокаДокумента);

// Если нет регистра, по которому списываем, тогда пропускаем
Если ИмяРегистра="" Тогда
Возврат;
КонецЕсли;

ТаблицаПартий = СтруктураПараметров["Таблица"+ИмяРегистра] ;

НайденныеСтроки = ОтобратьСтрокиПартий(ТаблицаПартий, СтрокаДокумента, РегистрУчета);

// Найденные строки перенесем в таблицу значений, которую нужно отсортировать в соответствии со стратегией списания
ТаблицаОстатки = Новый ТаблицаЗначений;

// Добавим колонку с индексом
ТаблицаОстатки.Колонки.Добавить("ИндексНайденнойСтроки", ПолучитьОписаниеТиповЧисла(15, 2));

Для Каждого Кол Из ТаблицаПартий.Колонки Цикл
ТаблицаОстатки.Колонки.Добавить(Кол.Имя, Кол.ТипЗначения);
КонецЦикла;

Сч = 0;
Для Каждого Строка Из НайденныеСтроки Цикл
НоваяСтрока = ТаблицаОстатки.Добавить();
НоваяСтрока.ИндексНайденнойСтроки = Сч;
Для Каждого Кол Из ТаблицаПартий.Колонки Цикл
Если ПустаяСтрока(Кол.Имя) ИЛИ Кол.Имя = "QuieryId" Тогда
Продолжить;
КонецЕсли;

НоваяСтрока[Кол.Имя] = Строка[Кол.Имя];
КонецЦикла;
Сч = Сч + 1;
КонецЦикла;

// Сортировка партий по стратегии списания (fifo, lifo, по-средней + дополнительные правила)
ОтсортироватьПартииПоСтратегии(ТаблицаОстатки, СтрокаДокумента, СтруктураПараметров);

// Подлежащее погашению при списании количество
КоличествоОсталосьПогасить = СтрокаДокумента.Количество;

// В строке может быть указана стоимость поступления, если затем товар будет оприходован с другой стоимостью
СтоимостьПоступлениеОсталосьПогасить = 0;
Если СтрокаДокумента.ОтражатьВУправленческомУчете Тогда
СтоимостьПоступлениеОсталосьПогасить = СтрокаДокумента.СтоимостьПоступление;
КонецЕсли;

Для Каждого СтрокаПартии Из ТаблицаОстатки Цикл

Если КоличествоОсталосьПогасить <= 0 Тогда
Прервать;
КонецЕсли;

// Количество по строке больше 0
Если НЕ СтрокаПартии.Количество > 0 Тогда
Продолжить;
КонецЕсли;

// Проверки доп. условий
Если НЕ ПроверитьПартию(СтрокаПартии, СтрокаДокумента, СтруктураПараметров, РегистрУчета) Тогда
Продолжить
КонецЕсли;

Если СтрокаПартии.Количество >= КоличествоОсталосьПогасить Тогда
КоэффСписания = КоличествоОсталосьПогасить/СтрокаПартии.Количество;
Иначе
КоэффСписания = 1;
КонецЕсли;

// Добавим новую строку
Движение = ДобавитьДвижение(ПолучитьИмяРегистра("ПартииТоваров", РегистрУчета, СтрокаДокумента), СтруктураПараметров);

// Свойства
Движение.Период = СтрокаДокумента.Период;
Движение.Регистратор = СтрокаДокумента.Регистратор;
Движение.Активность = Истина;
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

// Измерения
Движение.Номенклатура = СтрокаПартии.Номенклатура;

// Ресурсы
Движение.Количество = Окр(СтрокаПартии.Количество * КоэффСписания,3,1);
Движение.Стоимость = Окр(СтрокаПартии.Стоимость * КоэффСписания,2,1);

Если Движение.Количество < КоличествоОсталосьПогасить Тогда
КоэффПоступления = Движение.Количество / КоличествоОсталосьПогасить;
Иначе
КоэффПоступления = 1;
КонецЕсли;

// Вспомогательное поле, не являющееся ресурсом, но используемое
// для формирования записей по переоценке принятого на комиссию.
Движение.СтоимостьПоступление = СтоимостьПоступлениеОсталосьПогасить * КоэффПоступления;
СтоимостьПоступлениеОсталосьПогасить = СтоимостьПоступлениеОсталосьПогасить - Движение.СтоимостьПоступление;

// Реквизиты
Движение.КодОперации = СтрокаДокумента.КодОперацииПартииТоваров;

КоличествоОсталосьПогасить = КоличествоОсталосьПогасить - Движение.Количество;

СтрокаПартии.Количество = СтрокаПартии.Количество - Движение.Количество;
СтрокаПартии.Стоимость = СтрокаПартии.Стоимость - Движение.Стоимость;

// Заполнение полей, специфических для учета
ЗаполнитьПоляЗаписиСписания(Движение, СтрокаПартии, СтрокаДокумента, СтруктураПараметров, РегистрУчета, КоэффСписания, КоэффПоступления);

// Обработка движений, связанных со списанием определенных партий по документу (специфика разных видов учета)
ВыполнитьСвязанныеСоСписаниемДвижения(СтрокаДокумента, СтруктураПараметров, Движение, КоэффСписания, КоэффПоступления);

// Обработка поступления
ВыполнитьКорДвижение(РегистрУчета, СтрокаДокумента, СтруктураПараметров, Движение);

КонецЦикла;

// Таблицу значений перенесем в найденные строки
Для Каждого Строка Из ТаблицаОстатки Цикл
Для Каждого Кол Из ТаблицаПартий.Колонки Цикл

Если ПустаяСтрока(Кол.Имя) ИЛИ Кол.Имя = "QuieryId" Тогда
Продолжить;
КонецЕсли;

НайденныеСтроки[Строка.ИндексНайденнойСтроки][Кол.Имя] = Строка[Кол.Имя];
КонецЦикла;
КонецЦикла;

// Товара не хватило
Если (КоличествоОсталосьПогасить > 0) Тогда
СообщитьОНехваткеПартии(СтрокаДокумента, СтруктураПараметров, РегистрУчета, КоличествоОсталосьПогасить);
КонецЕсли;

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

а именно тут
НайденныеСтроки[Строка.ИндексНайденнойСтроки][Кол.Имя] = Строка[Кол.Имя];
Наверное Кол.Имя косячное?