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