&НаКлиенте
Процедура УставновитьРеквизит(Команда)

//Вызиваем серверную процедуру
УставновитьРеквизитСервер();

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

&НаСервере
Процедура УставновитьРеквизитСервер()

// Выбираем все элементы справочника Номенклатура
Выборка = Справочники.Номенклатура.Выбрать();

// Обходим выборку в цикле
Пока Выборка.Следующий() Цикл
//Выбирамем только те элементы каторые не являются ГРУППОЙ("ПАПКОЙ")
Если НЕ Выборка.ЭтоГруппа Тогда
//В цикле получаем объект конкретного элемента справочника Номенклатура
НоменклатураОбъект = Выборка.ПолучитьОбъект();
//Приравниваем реквизит конкретного элемента справочника Номенклатуры
// к нужному нам значению
НоменклатураОбъект.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
//Записываем объект для сохранения всех изменений
НоменклатураОбъект.Записать();
КонецЕсли;
КонецЦикла;

//После изменения реквизита ТипНоменклатуры у всех Элементов справочника Номенклатура
//выводим сообщение пользователю.
Сообщить("Изменение реквизитов завершено успешно");

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