Используя механизмы работы с контекстом формы и преобразованием клиентского контекста данных формы в прикладные типы, с которыми можно выполнять любые действия, все получается. Сейчас писал про РеквизитФормыВЗначение() на серверной стороне. На клиенте, естественно, эта функция не работает.
При таком решении пользователи выразили глубочайший протест, потому что дерево сворачивается, фокус на изменяемых ячейках теряется, визуально таблицы смещаются. И прочие недочеты, которых пользователи увидели более чем достаточно.
В результате:
Пробовал перегнать таблицы в Табличные поля, группировать по необходимым признакам и работать с отдельными ячейками. Честно, не удобно и с точки зрения программирования и при работе в пользовательском режиме тоже не самолет.
Делал через СКД с построением готовых макетов и выводом результата на форму. Этот метод ресурсоемок и достаточно длительный. На больших данных выполняется медленно. И не все задачи решаются при использовании СКД без использования вставок кода. Опять же переформирование визуальной части.
В итоге нашел достаточно простое решение. Использование клиентского метода ПолучитьЭлементы(). Следует учитывать, что при использовании такого подхода не работают такие фишки как например, НайтиСтроки().
Тем не менее перебор и работа со строками становятся куда приятнее. А пользователи пищат от удовольствия, потому что работа становиться как в "Excel".
Пример кода, как собрать сумму подчиненных в дереве. Работает, естественно, только при изменении самых нижних веток дерева.
&НаКлиенте
Процедура ДеревоЦенаПриИзменении(Элемент)
ТекущаяСтрока = Элементы.Дерево.ТекущиеДанные;
ТекущаяСтрока.Сумма = ТекущаяСтрока.Количество * ТекущаяСтрока.Цена;
ОбновитьСуммыДереваНаКлиенте();
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьСуммыДереваНаКлиенте ()
тЭлементы = Дерево.ПолучитьЭлементы();
Для каждого тЭлемент Из тЭлементы Цикл
ОбновитьСуммуЭлементаФормыСтрокаКоллекцииДереваНаКлиенте(тЭлемент);
КонецЦикла;
КонецПроцедуры
//Рекурсивная процедура обсчета строки
&НаКлиенте
Процедура ОбновитьСуммуЭлементаФормыСтрокаКоллекцииДереваНаКлиенте(ТекущаяСтрока)
тЭлементы = ТекущаяСтрока.ПолучитьЭлементы();
Если тЭлементы.Количество() > 0 Тогда
ТекущаяСтрока.Сумма = 0;
Для каждого тЭлемент Из тЭлементы Цикл
ОбновитьСуммуЭлементаФормыСтрокаКоллекцииДереваНаКлиенте(тЭлемент);
ТекущаяСтрока.Сумма = ТекущаяСтрока.Сумма + тЭлемент.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Как поведет себя на больших объемах, пока не знаю. Не проверял. На 100 строках в таблице работает достаточно шустро. Видим прямую зависимость от мощей клиентского компьютера, т.к. все вычисления/переборы делаются именно на клиентской стороне. Более сложные расчеты, скорее всего, стоит перегонять в прикладные типы и передавать на сервер, для дальнейшего обсчета.
Обработка с примером реализации во вложении. Тестировалось на платформе 8.3.13.1644
Вступайте в нашу телеграмм-группу Инфостарт
