Процедура ПриОткрытии()
Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначений" тогда
СЗ=Форма.Параметр;
Команда=СЗ.Получить("Команда");
Если "пуск"=Команда тогда
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
сообщить(НомерСтроки);
Если ПустоеЗначение(КолОтъе)=0 Тогда
ИзмКолОтъ();
КонецЕсли;
КонецЦикла;
СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецЕсли;КонецПроцедуры
Уходит в бесконечный цикл, НомерСтроки показывает всегда равен 1. То есть:
1
1
1
1
1
...
и так до бесконечности
ИзмКолОтъ:
стрКол=0;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(Опорос)=0 Тогда
стрКол=стрКол+1
КонецЕсли;
КонецЦикла;
Если стрКол>0 Тогда
ЖиНаОп=Итог("Жи")/стрКол;
МеНаОп=Итог("Ме")/стрКол;
ОтьНаОп=Итог("КолОтъе")/стрКол;
НепрДниНаОп=Итог("НЕ")/стрКол;
КонецЕсли;Я так понимаю что это из-за того что два раза обрабатывает ВыбратьСтроки()? Если да, то как это можно обойти?
Для т=1 По КоличествоСтрок() Цикл
ПолучитьСтрокуПоНомеру(т);
сообщить(НомерСтроки);
Если ПустоеЗначение(КолОтъе)=0 Тогда
ИзмКолОтъ();
КонецЕсли;
КонецЦикла;Вродь работает. Всем спасибо
