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