Справочник ОС

&НаСервере
Процедура ВыполнитьНаСервере()
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
	               |	СостоянияОСОрганизацийСрезПервых.Регистратор КАК Регистратор,
	               |	СостоянияОСОрганизацийСрезПервых.ОсновноеСредство КАК ОсновноеСредство,
	               |	СостоянияОСОрганизацийСрезПервых.Организация КАК Организация,
	               |	СостоянияОСОрганизацийСрезПервых.ДатаСостояния КАК ДатаСостояния,
	               |	СостоянияОСОрганизацийСрезПервых.Состояние КАК Состояние,
	               |	СостоянияОСОрганизацийСрезПервых.Период КАК Период
	               |ИЗ
	               |	РегистрСведений.СостоянияОСОрганизаций.СрезПервых(
	               |			,
	               |			ОсновноеСредство = &ОсновноеСредство
	               |				И Состояние = &Состояние) КАК СостоянияОСОрганизацийСрезПервых
	               |
	               |СГРУППИРОВАТЬ ПО
	               |	СостоянияОСОрганизацийСрезПервых.ОсновноеСредство,
	               |	СостоянияОСОрганизацийСрезПервых.Регистратор,
	               |	СостоянияОСОрганизацийСрезПервых.Организация,
	               |	СостоянияОСОрганизацийСрезПервых.ДатаСостояния,
	               |	СостоянияОСОрганизацийСрезПервых.Состояние,
	               |	СостоянияОСОрганизацийСрезПервых.Период";
	Запрос.УстановитьПараметр("ОсновноеСредство", Объект.ОсновноеСредство);
	Запрос.УстановитьПараметр("Состояние", Перечисления.СостоянияОС.ПринятоКУчету);
	Результат = Запрос.Выполнить();
	Если НЕ Результат.Пустой() Тогда
		Выборка = Результат.Выгрузить().Получить(0);
		РГ = РегистрыСведений.СостоянияОСОрганизаций;
		НаборЗаписей = РГ.СоздатьНаборЗаписей();
		НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);
		
		НоваяЗапись = НаборЗаписей.Добавить();
		НоваяЗапись.Период = Выборка.Период;
		НоваяЗапись.Организация = Выборка.Организация;
		НоваяЗапись.ОсновноеСредство = Объект.ОсновноеСредство;
		НоваяЗапись.ДатаСостояния = Объект.ДатаСостояния;
		НоваяЗапись.Состояние = Выборка.Состояние;
		НоваяЗапись.Регистратор = Выборка.Регистратор;
		Сообщить("Изменена дата состояния ОС: с " + Выборка.ДатаСостояния + " на " + Объект.ДатаСостояния);
		НаборЗаписей.Записать(Истина);
	Иначе
		Сообщить("Нет данных по ОС!");
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ЗаменаДатыСостояния(Команда)
	ВыполнитьНаСервере();
КонецПроцедуры