собственно проблема у счета есть 2 субконто Виды затрат и филиалы. когда делаю запрос по итогам, выбирается только одно субконто. как только пытаюсь выбрать второе субконто обработка падает в бесконечный цикл и в отладчике показывает

Ит.Субконто(1) = пустота
Ит.Субконто(2) = пустота

собственно код


Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыЗатрат);
Ит.ИспользоватьСубконто(ВидыСубконто.Филиалы);
Ит.ВключатьСубСчета(-1);
Ит.ВыполнитьЗапрос(НачМесяца(ДатаДок),КонМесяца(ДатаДок),"93");
Ит.ВыбратьСубконто(ВидыСубконто.ВидыЗатрат);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ВидыЗатрат) = 1 Цикл
Ит.ВыбратьСубконто(ВидыСубконто.Филиалы);
Пока Ит.ВыбратьСубконто(ВидыСубконто.Филиалы) = 1 Цикл
 СуммаПлюс=0;
 СуммаПлюс2=0;
 СчетВр=Ит.Счет;
 Сумма=0;
 Кво=0;
 СуммаВал=0;
 Сумма=Ит.ДО(1)-Ит.КО(1);
 Табл2.НоваяСтрока();
 Табл2.СчетК=Ит.Счет;
 Табл2.СубкД1=Ит.Субконто(ВидыСубконто.Филиалы);
 Табл2.СубкД2=0;
 Табл2.СубкД3=0;
 Табл2.СубкК1=Ит.Субконто(ВидыСубконто.ВидыЗатрат);
 Табл2.СубкК2=Ит.Субконто(ВидыСубконто.Филиалы);
 Табл2.СубкК3=0;
 Табл2.Сумма=Сумма;
 Табл2.Кво=Кво;
 Табл2.Валюта=0;
 Табл2.СуммаВал=СуммаВал;
 ЧислоКода=Сред(СчетВр.Код,2,1);
 Если (Число(ЧислоКода)>=0) и (Число(ЧислоКода)<5) Тогда
  Табл2.СчетД=СчетПоКоду("79.1");
 ИначеЕсли (Число(ЧислоКода)>=5) и (Число(ЧислоКода)<7) Тогда
  Табл2.СчетД=СчетПоКоду("79.2");
 ИначеЕсли (Число(ЧислоКода)>=7) Тогда
  Табл2.СчетД=СчетПоКоду("79.3");
 КонецЕсли;
КонецЦикла;
КонецЦикла;

ВыбратьСубконто часто применяешь

(1) хотя нет, это я протупил...
тут думаю реиндекс и пересчет бухитогов.

сейчас попробуем...с проблемой такой не сталкивался...при чем на одних счетах работает корректно а на других вот так падает

(2) нет, все равно падает в бесконечный цикл

собственно падает когда выбираю именно субконто "Филиалы"...
не пойму в чем дело

(1)(2) Все правильно пишешь, нельзя в цикле так писать.

(6)+ Втрой цикл переписать нужно.

(6)конструкция с одним субконто тоже валится в цикл

Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыЗатрат);
Ит.ИспользоватьСубконто(ВидыСубконто.Филиалы);
Ит.ВыполнитьЗапрос(НачМесяца(ДатаДок),КонМесяца(ДатаДок),"93");
Ит.ВыбратьСубконто(ВидыСубконто.Филиалы);
Пока Ит.ВыбратьСубконто(ВидыСубконто.Филиалы) = 1 Цикл

(8) неправильное использование ИспользоватьСубконто детектед.

(9) поясни

(9) где ты увидел неправильное использование?

   Ит=СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(ВидыСубконто.ВидыЗатрат);
   Ит.ИспользоватьСубконто(ВидыСубконто.Филиалы);
   Ит.ВыполнитьЗапрос(НачМесяца(ДатаДок),КонМесяца(ДатаДок),"93");
   Ит.ВыбратьСубконто(1);
   Пока Ит.ПолучитьСубконто(1) = 1 Цикл
       Ит.ВыбратьСубконто(2);
       Пока Ит.ВыбратьСубконто(2) = 1 Цикл

мне нужно выбрать отдельные суммы в разрезе виды затрат и филиалов...на другом счете такая конструкция проходит нормально

(11) это же очевидно: последняя строчка кода должна быть
ит.Получитьсубконто(2)

Ит.ВыполнитьЗапрос(НачМесяца(ДатаДок),КонМесяца(ДатаДок),"93");
   Ит.ВыбратьСубконто(1);
   Пока Ит.ПолучитьСубконто(1) = 1 Цикл
       Ит.ВыбратьСубконто(2);
//        Пока Ит.ВыбратьСубконто(2) = 1 Цикл   //Чудило ты, мля
       Пока Ит.ПолучитьСубконто(2) = 1 Цикл

+(14) Все советчики тоже

(14) мля, не могли показать сразу))
приелся уже код этот

спасибо всем

(15) ну и чем моя это отличается от (13)?

(17) тем что я был уверен на все 100 что последней строкой у меня и так стоит получить субконто =) машинально не то набрал

Не (15) конкретно наехал, требую сатисфакции, он что (13) тупо подставить в последнюю строчку (11) как написано в (13) не понял?

(15) Копипастер ты, а не советчик))

(19) (6)(7)(9) )))

он все равно нагляднее ткнул носом :D

Ну если вам (13) не помогло, то (9) вам пусть (21) объяснит)).

(23) это по поводу кода в(8).

Понятно хоть, почему (8) не работает, знатоки ?))

ну вырезал я там кусок из (0) просто) переписывать лень было т.к. уверен был что там и так стоит получитьсубконто)

я таки был прав (1), не ругайтесь
а потом не прав (2)
))))

О чем и речь, но приходит(15) и всех обси...рает)).Нормально , так?

(28) Какие мы нежные.
Где ч/ю обронил? Сходи поищи, пока не подобрали.

(29) Кто слово мля выкинул?Что неправильно я посоветовал начиная с (6) по (11)?