Помогите криворукому нубу. Идет обработка конкретных субконто из списка, но выдаются нулевые значения. УСН 1.3.
       Ж=1;
   Ав=СоздатьОбъект("СписокЗначений");
       Ав.ДобавитьЗначение("60 Транспортная");
   Ав.ДобавитьЗначение("Прочее");
   Сп=СоздатьОбъект("СписокЗначений");
   Пока Ж<2  цикл
   БИ.ИспользоватьСубконто(ВидыСубконто.ВидыДеятельности,Ав.ПолучитьЗначение(Ж));
   БИ.ВыполнитьЗапрос(НачГода(ДатаНач),ДатаКон,"90.1");
   БИ.ВыбратьСубконто();  
   если БИ.ПолучитьСубконто()=1 тогда
       Сп.ДобавитьЗначение(БИ.КО());
       иначе Сп.ДобавитьЗначение(0);
       КонецЕсли;
       Ж=Ж+1;
   КонецЦикла;

Пока БИ.ПолучитьСубконто.... - где?

КонецЦикла;

(1)А если БИ.ПолучитьСубконто()=1 тогда чем плохо?

ВидыДеятельности - справочник, надо искать элементы по наименованию.

Ав.ДобавитьЗначение("60 Транспортная"); - этим ты добавляешь строку, а не элемент справочника.

(2) А это
Пока Ж<2  цикл

зачем?

(4)там просто элементов больше 100 это для простоты приведено

(5) Какая разница сколько элементов, накуя бухзапрос в цикле?

(6)Мне нужен доступ к конкретным субконто, создал список. С помощью цикла собираюсь получить доступ к каждому элементу списка. Без цикла идет отбор по всем субконто конкретного вида.

(7)Ну и передай свой список, как параметр, в БухЗапрос.

(8)Список в данном виде тоже игнорируется - отбираются все субконто.

(9)если сувать вместо агрегата строки, то, конечно...

(10)Это мне уже сказали. Лучше подскажите как "агрегат сунуть"

Ав=СоздатьОбъект("СписокЗначений");
Спр = СоздатьОбъект("Справочник.ВидыДеятельности");
Если Спр.НайтиПоНаименованию("60 Транспортная", 0, 0) = 1 Тогда
  Ав.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли;

(12) Спасибо

(7) Для начала типовую поизучай, а то таким кодом как в (0) только студентов смешить

Теперь выводятся значения только для каждого второго субконто из списка

обновленный код покажи

Ав=СоздатьОбъект("СписокЗначений");
...
См=СоздатьОбъект("СписокЗначений");
   Спр = СоздатьОбъект("Справочник.ВидыДеятельности");
   Пока Ж<22 цикл
       Если Спр.НайтиПоНаименованию(Ав.ПолучитьЗначение(Ж), 0, 0) = 1 Тогда
             См.ДобавитьЗначение(Спр.ТекущийЭлемент());
       КонецЕсли;
     Ж=Ж+1;
     КонецЦикла;
   Сп=СоздатьОбъект("СписокЗначений");
   Ж=1;
   БИ.ИспользоватьСубконто(ВидыСубконто.ВидыДеятельности,См);

   БИ.ВыполнитьЗапрос(НачГода(ДатаНач),ДатаКон,"90.1");
   БИ.ВыбратьСубконто();  
   Пока Ж<22  цикл
       
           Если   БИ.ПолучитьСубконто()=1 тогда
               Сп.ДобавитьЗначение(БИ.КО());
           иначе Сп.ДобавитьЗначение(0);
           КонецЕсли;
       
       Ж=Ж+1;
   КонецЦикла;

Может кто-нибудь подскажет вариант как используя
Пока   БИ.ПолучитьСубконто()=1 цикл ... КонецЦикла;
к субконто не участвующим  сопоставлять БИ.КО()=0.

(17)Тебе же в (1) ещё написали юзай Пока БИ.ПолучитьСубконто.
Если критична последовательность, в которой надо получать субконто, то юзай свой Если, но передавай в ПолучитьСубконто конкретное значение субконто.

(18)Если бы не СЗ, а ТЗ, то заполнить колонку нулями, а в цикле заполнять через НайтиЗначение. Привязываться к абстрактному номеру в списке - не айс, потому и мучаешься.

(17) Если ставить конкретное субконто, выдает надпись "Число фильтров субконто превысило допустимое значение!"

(18) расшифруй, не догоняю

(21) Так а сколько у тебя этих фильтров субконто?

(22)Важна последовательность субконто. Если его можно получить, то сопоставить БИ.КО, если нет 0.
То есть на выходе получить вид типа
15
23
5
0
22
7
0
9

(23) Не знаю. Я нуб.

(24) бухзапросом пихаешь обороты в ТЗ, потом перебирашь список на предмет присутствия значений оборотов в ТЗ, если есть, то подставляешь значение, если нет, то "0"

(26) А каким образом узнать название субконто для которого получен оборот?

(27)    
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто()=1 Цикл
Если Ит.КО()<>0 Тогда
Таб.НоваяСтрока();
Таб.Субконто=Ит.Субконто();  
Таб.КО=Ит.КО();
КонецЕсли;
КонецЦикла;

Спасибо за помощь и за терпение.