Добавление, изменение, удаление записей регистра сведений в 1С Предприятие 8.3

Опубликовано автором

Выборка записей по партнеру

filter = new structure;
filter.insert("Партнер", СсылкаНаПартнера);

res = РегистрыСведений.ПартнерыСегмента.Выбрать(filter);

while res.next() do
	recordManager = res.ПолучитьМенеджерЗаписи();
	recordManager.Прочитать();
	message("" + recordManager.Сегмент);
enddo;

Выбрать записи из регистра сведений

Валюта = Справочники.Валюты.НайтиПоНаименованию("EUR");
Отбор = Новый Структура("Валюта");
Отбор.Валюта = Валюта;	
Выборка = РегистрыСведений.КурсыВалют.Выбрать(,,Отбор);

Пока Выборка.Следующий() Цикл

	МенеджерЗаписи = Выборка.ПолучитьМенеджерЗаписи();
	МенеджерЗаписи.Прочитать();
	
	//Изменить существующую запись
	МенеджерЗаписи.Валюта = Валюта;	
	МенеджерЗаписи.Период = ТекущаяДата();
	МенеджерЗаписи.Курс = 10.00;
	МенеджерЗаписи.Записать();
	
	//Удалить существующую запись
	МенеджерЗаписи.Удалить();

КонецЦикла;

Добавить, изменить, удалить запись

МенеджерЗаписи = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();
Валюта = Справочники.Валюты.НайтиПоНаименованию("EUR");
МенеджерЗаписи.Валюта = Валюта;
МенеджерЗаписи.Период = ТекущаяДата();
МенеджерЗаписи.Прочитать();

Если НЕ МенеджерЗаписи.Выбран() Тогда
	
	//Добавить новую запись
	МенеджерЗаписи.Валюта = Валюта;	
	МенеджерЗаписи.Период = ТекущаяДата();
	МенеджерЗаписи.Курс = 10.00;
	
Иначе
	
	//Изменить существующую запись
	МенеджерЗаписи.Валюта = Валюта;
	МенеджерЗаписи.Период = ТекущаяДата();
	МенеджерЗаписи.Курс = 10.00;
	
КонецЕсли;
	
//После добавления или изменения записи 
//необходимо вызвать метод Записать
МенеджерЗаписи.Записать();

//Удалить существующую запись
МенеджерЗаписи.Удалить();

Добавить, изменить, удалить набор записей

НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();
Валюта = Справочники.Валюты.НайтиПоНаименованию("EUR");
НаборЗаписей.Отбор.Валюта.Установить(Валюта);
НаборЗаписей.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборЗаписей.Прочитать();

Если НаборЗаписей.Количество() = 0 Тогда
	
	//Добавление новой записи	
	НоваяЗапсиь = НаборЗаписей.Добавить();
	НоваяЗапсиь.Валюта = Валюта;
	НоваяЗапсиь.Период = ТекущаяДата();
	НоваяЗапсиь.Курс = 10.00;
	
Иначе	
	
	//Изменение существующей записи
	НаборЗаписей[0].Валюта = Валюта;
	НаборЗаписей[0].Период = ТекущаяДата();
	НаборЗаписей[0].Курс = 10.00;
	
КонецЕсли;

//Удалить существующую запись
НаборЗаписей.Удалить(НаборЗаписей[0]);

//После добавления, изменения, удаления записей 
//необходимо вызвать метод Записать
НаборЗаписей.Записать();

Очистить регистр сведений

//Удаление всех записей регистра сведений ЦеныНоменклатуры
НаборЗаписей = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
НаборЗаписей.Записать();