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