Процедура ПривестиЗначениеСубконто(ТабличноеПоле, ДтКт, СведенияОСчете) Экспорт
Для СчетчикСубконто = 1 По 3 Цикл
Если СведенияОСчете.КоличествоСубконто >= СчетчикСубконто Тогда
ТабличноеПоле.ТекущиеДанные["Субконто"+ДтКт+СчетчикСубконто] = СведенияОСчете["ТипСубконто"+СчетчикСубконто].ПривестиЗначение(ТабличноеПоле.ТекущиеДанные["Субконто"+ДтКт+СчетчикСубконто]);
Иначе
ТабличноеПоле.ТекущиеДанные["Субконто"+ДтКт+СчетчикСубконто] = Неопределено;
КонецЕсли;
КонецЦикла;
КонецПроцедуры // ПривестиЗначениеСубконто
Ну почему нельзя было сделать:
Для СчетчикСубконто = 1 По СведенияОСчете.КоличествоСубконто Цикл
(1) У нас бух-извращенцы, требуют 4 субконто и иногда даже дублировать аналитику по дебету и кредиту.
(3) Не аргумент, система позволяет увеличивать число субконто, следовательно уж в общих модулях могли бы предусмотреть этот факт. Про документы ладно, динамическое количество полей это видимо задача уже не для 1С =)
(6) В этом и суть общего модуля. Что если разрабатываю свой документ под 3+ субконто или дорабатываю типовой, то вынужден просто менять общие модули, что не есть хорошо.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший