izmenit_zapis_registra_svedenij_nezavisimyj [wiki.hostingcloud.com.ua]

Это старая версия документа!

НаборЗаписей = РегистрыСведений.НумерацияДоговоров.СоздатьНаборЗаписей();  			
НаборЗаписей.Отбор.Период.Установить(НачалоГода(Дата));
НаборЗаписей.Отбор.Организация.Установить(Организация);
НаборЗаписей.Прочитать();
Если НаборЗаписей.Количество() = 0 Тогда
		НовыйНомер = НаборЗаписей.Добавить();
		НовыйНомер.Организация = Организация;
		НовыйНомер.Период = НачалоГода(Дата);
		НовыйНомер.Номер = 2; ном=1;
ИначеЕсли НаборЗаписей.Количество() = 1 Тогда
		НовыйНомер = НаборЗаписей[0];
		ном = НовыйНомер.Номер;
		НовыйНомер.Номер = ном+1;
КонецЕсли;
	НаборЗаписей.Записать();