Ошибку воспроизвел https://www.hostedredmine.com/issues/952356
Текст ошибки нужен, чтобы его находил поиск и я мог копировать.
Исправить самостоятельно можно так (добавленные строки прокомментированы "Новое")
Код
Если ЗначениеЗаполнено(мИмяТаблицыОстатков) Тогда // Новое
мИменаИзмеренийСВидами = ирОбщий.СкопироватьУниверсальнуюКоллекциюЛкс(мИменаИзмерений);
Если Метаданные.РегистрыБухгалтерии.Индекс(мОбъектМДРегистра) >= 0 Тогда
ОписаниеТиповВидаСубконто = Новый ОписаниеТипов(ирОбщий.ИмяТипаИзПолногоИмениМДЛкс(мОбъектМДРегистра.ПланСчетов.ВидыСубконто.ПолноеИмя()));
Для Каждого КолонкаТЗ Из НоваяТаблица.СкопироватьКолонки().Колонки Цикл
Если ирОбщий.СтрНачинаетсяСЛкс(КолонкаТЗ.Имя, "Субконто") Тогда
ИмяНовойКолонки = "Вид" + КолонкаТЗ.Имя;
НоваяТаблица.Колонки.Вставить(НоваяТаблица.Колонки.Индекс(НоваяТаблица.Колонки.Найти(КолонкаТЗ.Имя)), ИмяНовойКолонки, ОписаниеТиповВидаСубконто, ирОбщий.ПредставлениеИзИдентификатораЛкс(ИмяНовойКолонки));
мИменаИзмеренийСВидами.Добавить(ИмяНовойКолонки);
КонецЕсли;
КонецЦикла;
Для Каждого СтрокаОстатка Из НоваяТаблица Цикл
Для Счетчик = 1 По СтрокаОстатка.Счет.ВидыСубконто.Количество() Цикл
ВидСубконто = СтрокаОстатка.Счет.ВидыСубконто[Счетчик - 1].ВидСубконто;
СтрокаОстатка["ВидСубконто" + Счетчик] = ВидСубконто;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЕсли; // Новое