Имя: Пароль:
1C
1С v8
Повторяющиеся записи Ед Изм
0 Nenaviwu1c20
 
25.09.13
13:43
Народ хелп.Помогите набросать отчет в котором я увижу Номенклатуру у которой 2 или более Ед изм с одинаковым названием
1 Nenaviwu1c20
 
25.09.13
13:47
ап
2 eklmn
 
гуру
25.09.13
13:48
Че ап то? обычная работа 1сника, вперед и с песней!
3 eklmn
 
гуру
25.09.13
13:49
хотя.. тут уже есть пару лодырей за которых миста работает, еще 1го не заметит
4 Nenaviwu1c20
 
25.09.13
13:51
не надо написал уже спасиб)
5 catena
 
25.09.13
13:51
Тут так не принято. Выложи, как пытаешься, если сильно смешно, то в итоге помогут :)
6 Nenaviwu1c20
 
25.09.13
13:59
Так заработало я прос запросом хотел но не количество различных,а количество одинаковых)))в итоге кодом сделал)
только не смейтесь))
ТаблицаНоменклатуры = Новый ТаблицаЗначений;
    ТаблицаНоменклатуры.Колонки.Добавить("Номенклатура");
         //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЕдиницыИзмерения.Владелец КАК Владелец,
        |    ЕдиницыИзмерения.Наименование
        |ИЗ
        |    Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
        |ГДЕ
        |    НЕ ЕдиницыИзмерения.ПометкаУдаления
        |ИТОГИ ПО
        |    Владелец";

    Результат = Запрос.Выполнить();

    ВыборкаВладелец = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаВладелец.Следующий() Цикл
        ДобавитьНоменклатуру = Ложь;

        ВыборкаДетальныеЗаписи = ВыборкаВладелец.Выбрать();
        ЕдИзм = "";
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Если ЗначениеЗаполнено(ЕдИзм) = Ложь Тогда
                ЕдИзм = ВыборкаДетальныеЗаписи.Наименование;
            Иначе
                Если ЕдИзм =ВыборкаДетальныеЗаписи.Наименование Тогда
                    ДобавитьНоменклатуру=Истина;
                КонецЕсли;
                
                
            КонецЕсли;
            
        КонецЦикла;
        ЕдИзм = "";
        Если ДобавитьНоменклатуру Тогда
        новст = ТаблицаНоменклатуры.Добавить();
        новст.Номенклатура = ВыборкаВладелец.Владелец;
        КонецЕсли;
    КонецЦикла;

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
7 Nenaviwu1c20
 
25.09.13
14:02
cate
8 eklmn
 
гуру
25.09.13
14:12
(8) нормально, результат то радует?
9 Nenaviwu1c20
 
25.09.13
14:16
Так этот код не радует проблема в этом.Результат точен как стеклышко