Разработка в 1С 8.0


         

Набор = РегистрыСведений.КурсыВалют.


//создадимновый пустой набор записей, действующий на весь регистр 

Набор = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();

 

//установим отбор по дате и валюте

//если этого не сделать, то весь регистр

//будет переписан новым набором

Набор.Отбор.Валюта.Значение = ВыбВалюта;

Набор.Отбор.Период.Значение = ВыбДата;

Набор.Отбор.Валюта.Использование = Истина;

Набор.Отбор.Период.Использование = Истина;

 

//добавим запись в набор (не в базу данных)

НовЗапись = Набор.Добавить();

НовЗапись.Валюта = ВыбВалюта;

НовЗапись.Период = ВыбДата;

НовЗапись.Курс = НовыйКурс;

 

//запишем набор в базу данных

//записи по заданному отбору будут переписаны 

Набор.Записать(Истина);

Содержание  Назад  Вперед