[РЕШЕНО] Итоги в дереве значений

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем User, 10 окт 2014.

0/5, Голосов: 0
  1. TopicStarter Overlay
    User
    Offline

    User Опытный в 1С

    Регистрация:
    4 фев 2013
    Сообщения:
    151
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте. Подскажите, пожалуйста, как вывести итоги в дереве значений с несколькими уровнями вложения.
    В процедуре расчета
    Код:
    Для Каждого СтрокаДереваЗначений Из ДеревоРезультат.Строки Цикл
        РассчитатьОбщуюСтоимость(СтрокаДереваЗначений);
КонецЦикла;
    и
    Код:
    Процедура РассчитатьОбщуюСтоимость(СтрокаДереваЗначений) Экспорт
    Если СтрокаДереваЗначений.Уровень() = 0 Тогда
        СтрокаРодитель = СтрокаДереваЗначений;
    Иначе
        СтрокаРодитель = СтрокаДереваЗначений.Родитель;
    КонецЕсли; 
    СуммаВсего = 0;
    Для Каждого Строка Из СтрокаРодитель.Строки Цикл
        СуммаВсего = СуммаВсего + Строка.Сумма;
    КонецЦикла;
    СтрокаРодитель.Сумма = СуммаВсего;
КонецПроцедуры
    В данном случае итоговая сумма собирает только суммы первого уровня. Как заставить считать суммы всех уровней?
    User, 10 окт 2014
    #1
  2. nickpugachev
    Offline

    nickpugachev Профессионал в 1С Команда форума

    Регистрация:
    28 май 2012
    Сообщения:
    3.397
    Симпатии:
    156
    Баллы:
    104
    прочитать про рекурсивные процедуры.

    просто вызывайте эту процедуру для строки, если у нее есть зависимые строки, а если нет - берите сумму из этой строки
    nickpugachev, 10 окт 2014
    #2
    User нравится это.
  3. TopicStarter Overlay
    User
    Offline

    User Опытный в 1С

    Регистрация:
    4 фев 2013
    Сообщения:
    151
    Симпатии:
    0
    Баллы:
    26
    Благодарю. Получилось!
    User, 10 окт 2014
    #3
  4. nickpugachev
    Offline

    nickpugachev Профессионал в 1С Команда форума

    Регистрация:
    28 май 2012
    Сообщения:
    3.397
    Симпатии:
    156
    Баллы:
    104
    Код:
    Функция СуммаСтрок(СтрокаДерева, Поле)
  Сумма = 0;
  Для Каждого ДочерняяСтрока Из СтрокаДерева.Строки Цикл
    Если ДочерняяСтрока.Строки.Количество()=0 Тогда
      Сумма = Сумма+ДочерняяСтрока[Поле];
    Иначе
      Сумма = Сумма+СуммаСтрок(ДочерняяСтрока, Поле);
    КонецЕсли;
  КонецЦикла;

  Возврат Сумма;
КонецФункции
    nickpugachev, 13 окт 2014
    #4
Похожие темы
  1. DmitryV

    [РЕШЕНО] Флажок в дереве значений

    DmitryV, 16 окт 2014, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    2
    Просмотров:
    3.076
    DmitryV
    17 окт 2014
  2. alboldinov

    8.х Как в дереве значений скрыть Родителя строки?

    alboldinov, 14 апр 2015, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    0
    Просмотров:
    848
    alboldinov
    14 апр 2015
  3. Samouchka

    8.х Элементы и атрибуты в дереве значений

    Samouchka, 18 окт 2015, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    0
    Просмотров:
    874
    Samouchka
    18 окт 2015
  4. LizaVETTA

    8.х Заполнить список выбора в дереве значений

    LizaVETTA, 10 фев 2016, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    0
    Просмотров:
    622
    LizaVETTA
    10 фев 2016
Загрузка...