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е субконто
|
|