Выборка = Справочники.ЕдиницыИзмерения.Выбрать( , Владелец); 

КоличествоЭлементов = 0; 

Пока Выборка.Следующий() Цикл 

	КоличествоЭлементов = КоличествоЭлементов + 1; 

КонецЦикла; 



Запрос = Новый Запрос; 

Запрос.Текст = "ВЫБРАТЬ 

|	КОЛИЧЕСТВО(*) КАК КоличествоЗаписей 

|ИЗ 

|	Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения 

|ГДЕ 

|	ЕдиницыИзмерения.Владелец = &Владелец"; 



Запрос.УстановитьПараметр("Владелец", Владелец); 

Выборка = Запрос.Выполнить().Выбрать(); 

Если Выборка.Следующий() Тогда 

	КоличествоЗаписей = Выборка.КоличествоЗаписей; 

КонецЕсли;