Имя: Пароль:
1C
1C 7.7
v7: Не отображать суммирование
0 aleksander1sk
 
03.09.15
15:36
Есть обработка:
                              //*******************************************

// Процедура генерации запроса Сформировать.
//        

Процедура ОбработкаПодбора(Эл, Конт)
    Если Эл.Вид() = "дТовары" Тогда
        Если спТовары.Принадлежит(Эл.ТекущийЭлемент()) = 0 Тогда
            спТовары.ДобавитьЗначение(Эл.ТекущийЭлемент(), ?(Эл.ЭтоГруппа() = 1, ВРег(Эл.Наименование), Эл.Наименование));
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
Процедура ДобавитьТовар()
    Перем Конт;
    ОткрытьПодбор("Справочник.дТовары", "ФормаСписка", Конт, 1);
    Конт.ВыборГруппы(1);
КонецПроцедуры
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;

//    сз = СоздатьОбъект("СписокЗначений");
    //спр = СоздатьОбъект("Справочник.дТовары");
    //спр.НайтиПоКоду("9906");
    //сз.ДобавитьЗначение(спр.текущийЭлемент());
    сз2 = СоздатьОбъект("СписокЗначений");
    спр = СоздатьОбъект("Справочник.дПунктыДоставки");
    спр.НайтиПоКоду("0002927-01");
    сз2.ДобавитьЗначение(спр.текущийЭлемент());
    //Создание объекта типа Запрос

    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)

    |Период с ВыбНачПериода по ВыбКонПериода;
    |Обрабатывать НеПомеченныеНаУдаление;
    |Продажи = Регистр.Продажи.Товар;
    |ТочкаДоставки = Регистр.Продажи.ТекущийДокумент.дкРасходнаяНакладная.рПунктДоставки;
    |Сумма = Регистр.Продажи.Сумма;
    |ТП = Регистр.Продажи.ТП;
    |Товар = Регистр.Продажи.Товар;
    |дкРасходнаяНакладная = Регистр.Продажи.ТекущийДокумент.дкРасходнаяНакладная.ТекущийДокумент;
    |Клиент = Регистр.Продажи.ТекущийДокумент.дкРасходнаяНакладная.рКлиент;
    |Функция СуммаСумма = Сумма(Сумма);
    |Функция Счётчик = Счётчик(дкРасходнаяНакладная);
    |Группировка ТП;
      |Группировка Клиент без групп;
    |Группировка дкРасходнаяНакладная упорядочить по дкРасходнаяНакладная.рПунктДоставки без групп;
//  |Группировка Продажи1 по дкРасходнаяНакладная.рПунктДоставки;
    |Условие(ТП в ВыбТП);
    |Условие(Товар в спТовары);
    |Условие(НЕ(ТочкаДоставки в сз2));
    |"//}}ЗАПРОС

    ;
    // Если ошибка в запросе, то выход из процедуры

    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    // Подготовка к заполнению выходных форм данными запроса

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    // Заполнение полей "Заголовок"

    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    ДДО = 0;
    Пока Запрос.Группировка(1) = 1 Цикл
        // Заполнение полей ТП

        Таб.ВывестиСекцию("ТП");
        Пока Запрос.Группировка(2) = 1 Цикл
            // Заполнение полей дкРасходнаяНакладная

            Таб.ВывестиСекцию("дкРасходнаяНакладная");
             Пока Запрос.Группировка(3) = 1 Цикл
                 
            // Заполнение полей дкРасходнаяНакладная

                Таб.ВывестиСекцию("дкРасходнаяНакладная");
                ДДО = ДДО+1;
            КонецЦикла;
        КонецЦикла;
        ДДО = ДДО + 1;
    КонецЦикла;
    // Заполнение полей "Итого"

    Таб.ВывестиСекцию("Итого");
    // Вывод заполненной формы

    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать", "");
КонецПроцедуры

В таблице отображается:
Воловик Володимир    Вощина***** О. В. п\п         493,19
Воловик Володимир    Вощина***** О. В. п\п    Магазин "Рос"-побутова хімія    182,32
Воловик Володимир    Вощина***** О. В. п\п    Магазин "Рос"-побутова хімія    148,54
Воловик Володимир    Вощина***** О. В. п\п    Магазин "Рос"-побутова хімія    162,33
Как сделать так, чтобы суммирующей строки не было:
Воловик Володимир    Вощина***** О. В. п\п         493,19
1 lubitelxml
 
03.09.15
16:31
Таб.ВывестиСекцию("ТП"); - убери и первую группировку выводить не будет
2 lubitelxml
 
03.09.15
16:32
Пока Запрос.Группировка(1) = 1 Цикл
    // Заполнение полей ТП
    Пока Запрос.Группировка(2) = 1 Цикл
Независимо от того, куда вы едете — это в гору и против ветра!