Имя: Пароль:
1C
1C 7.7
v7: Число фильтров субконто превысило допустимое значение!
0 Uragan_a
 
26.12.13
09:54
Пока Ит.ПолучитьКорСубконто(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");    
                    
                    
                КонецЦикла;
            КонецЕсли;
            Расшифровка.Установить("КорВидСубконто2");
            Расшифровка.Установить("КорСубконто2");
        КонецЦикла;
        Расшифровка.Установить("КорВидСубконто1");
        Расшифровка.Установить("КорСубконто1");
    КонецЦикла;


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

Что не так?
1 Uragan_a
 
26.12.13
09:55
Если убрать

Если Ит.ВыбратьКорСубконто(3)=1 Тогда
                    Пока Ит.ПолучитьКорСубконто(3) = 1 Цикл
                    
                            
                            Если ПустоеЗначение(Ит.КорСубконто(3)) = 0 Тогда
                                Расшифровка.Установить("КорВидСубконто3",Ит.КорСчет.ВидСубконто(3));
                                Расшифровка.Установить("КорСубконто3",Ит.КорСубконто(3));
                            КонецЕсли;
                    Т.ВывестиСекцию("Секция_9");    
                КонецЦикла  
            КонецЕсли;

то норм, но мне нужно 3е субконто
2 Uragan_a
 
26.12.13
09:59
нашел)
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс