Справочник

	

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


КонецПроцедуры