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