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