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