ненене так не кошерно, кошенрно будет так
Регистр = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();
Регистр.Отбор.Валюта.Установить(Справочники.Валюты.НайтиПоКоду(643));
Регистр.Отбор.Период.Установить(Дата('20000101000000'));
Регистр.Прочитать();
Регистр = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();
Регистр.Отбор.Валюта.Установить(Справочники.Валюты.НайтиПоКоду(643));
Регистр.Отбор.Период.Установить(Дата('20000102000000'));
Регистр.Прочитать();
Регистр = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();
Регистр.Отбор.Валюта.Установить(Справочники.Валюты.НайтиПоКоду(643));
Регистр.Отбор.Период.Установить(Дата('20000103000000'));
Регистр.Прочитать();
.......
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший