Так заработало я прос запросом хотел но не количество различных,а количество одинаковых)))в итоге кодом сделал)
только не смейтесь))
ТаблицаНоменклатуры = Новый ТаблицаЗначений;
ТаблицаНоменклатуры.Колонки.Добавить("Номенклатура");
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕдиницыИзмерения.Владелец КАК Владелец,
| ЕдиницыИзмерения.Наименование
|ИЗ
| Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
|ГДЕ
| НЕ ЕдиницыИзмерения.ПометкаУдаления
|ИТОГИ ПО
| Владелец";
Пока ВыборкаВладелец.Следующий() Цикл
ДобавитьНоменклатуру = Ложь;
ВыборкаДетальныеЗаписи = ВыборкаВладелец.Выбрать();
ЕдИзм = "";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ЗначениеЗаполнено(ЕдИзм) = Ложь Тогда
ЕдИзм = ВыборкаДетальныеЗаписи.Наименование;
Иначе
Если ЕдИзм =ВыборкаДетальныеЗаписи.Наименование Тогда
ДобавитьНоменклатуру=Истина;
КонецЕсли;
КонецЕсли;
КонецЦикла;
ЕдИзм = "";
Если ДобавитьНоменклатуру Тогда
новст = ТаблицаНоменклатуры.Добавить();
новст.Номенклатура = ВыборкаВладелец.Владелец;
КонецЕсли;
КонецЦикла;
Так этот код не радует проблема в этом.Результат точен как стеклышко
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой