Пока Ит.ПолучитьКорСубконто(1) = 1 Цикл
Если ПустоеЗначение(Ит.КорСубконто(1)) = 0 Тогда
Расшифровка.Установить("КорВидСубконто1",Ит.КорСчет.ВидСубконто(1));
Расшифровка.Установить("КорСубконто1",Ит.КорСубконто(1));
КонецЕсли;
Т.ВывестиСекцию("Секция_7");
Если Ит.ВыбратьКорСубконто(2)=1 Тогда
Пока Ит.ПолучитьКорСубконто(2) = 1 Цикл
Если ПустоеЗначение(Ит.КорСубконто(2)) = 0 Тогда
Расшифровка.Установить("КорВидСубконто2",Ит.КорСчет.ВидСубконто(2));
Расшифровка.Установить("КорСубконто2",Ит.КорСубконто(2));
КонецЕсли;
Т.ВывестиСекцию("Секция_8");
Если Ит.ВыбратьКорСубконто(3)=1 Тогда
Пока Ит.ПолучитьКорСубконто(3) = 1 Цикл
Если ПустоеЗначение(Ит.КорСубконто(3)) = 0 Тогда
Расшифровка.Установить("КорВидСубконто3",Ит.КорСчет.ВидСубконто(3));
Расшифровка.Установить("КорСубконто3",Ит.КорСубконто(3));
КонецЕсли;
Т.ВывестиСекцию("Секция_9");
КонецЦикла
КонецЕсли;
Расшифровка.Установить("КорВидСубконто3");
Расшифровка.Установить("КорСубконто3");
Если Ит.ВыбратьКорСубконто(3)=1 Тогда
{C:\USERS\ADMIN\DESKTOP\АНАЛИЗСЧЕТАПОКОРСУБКОНТОРУС.ERT(87)}: Число фильтров субконто превысило допустимое значение!