Обновление данных в ячейках таблицы формы на управляемых формах


На очередном проекте решал задачу по расчету значений колонок в табличных полях формы. Задача казалась достаточно простой. Однако возникла необходимость работать не только с реквизитами формы типа «ТаблицаЗначений», но и с типом «ДеревоЗначений». Релиз платформы 8.3.13.1644

Используя механизмы работы с контекстом формы и преобразованием клиентского контекста данных формы в прикладные типы, с которыми можно выполнять любые действия, все получается. Сейчас писал про РеквизитФормыВЗначение() на серверной стороне. На клиенте, естественно, эта функция не работает.

При таком решении пользователи выразили глубочайший протест, потому что дерево сворачивается, фокус на изменяемых ячейках теряется, визуально таблицы смещаются. И прочие недочеты, которых пользователи увидели более чем достаточно.

В результате:

Пробовал перегнать таблицы в Табличные поля, группировать по необходимым признакам и работать с отдельными ячейками. Честно, не удобно и с точки зрения программирования и при работе в пользовательском режиме тоже не самолет.

Делал через СКД с построением готовых макетов и выводом результата на форму. Этот метод ресурсоемок и достаточно длительный. На больших данных выполняется медленно. И не все задачи решаются при использовании СКД без использования вставок кода. Опять же переформирование визуальной части.

В итоге нашел достаточно простое решение. Использование клиентского метода ПолучитьЭлементы(). Следует учитывать, что при использовании такого подхода не работают такие фишки как например, НайтиСтроки().

Тем не менее перебор и работа со строками становятся куда приятнее. А пользователи пищат от удовольствия, потому что работа становиться как в "Excel".

Пример кода, как собрать сумму подчиненных в дереве. Работает, естественно, только при изменении самых нижних веток дерева.

&НаКлиенте
Процедура ДеревоЦенаПриИзменении(Элемент)

ТекущаяСтрока = Элементы.Дерево.ТекущиеДанные;
ТекущаяСтрока.Сумма = ТекущаяСтрока.Количество * ТекущаяСтрока.Цена;
ОбновитьСуммыДереваНаКлиенте();

КонецПроцедуры

&НаКлиенте
Процедура ОбновитьСуммыДереваНаКлиенте ()

тЭлементы = Дерево.ПолучитьЭлементы();
Для каждого тЭлемент Из тЭлементы Цикл
ОбновитьСуммуЭлементаФормыСтрокаКоллекцииДереваНаКлиенте(тЭлемент);
КонецЦикла;

КонецПроцедуры

//Рекурсивная процедура обсчета строки
&НаКлиенте
Процедура ОбновитьСуммуЭлементаФормыСтрокаКоллекцииДереваНаКлиенте(ТекущаяСтрока)

тЭлементы = ТекущаяСтрока.ПолучитьЭлементы();

Если тЭлементы.Количество() > 0 Тогда
ТекущаяСтрока.Сумма = 0;
Для каждого тЭлемент Из тЭлементы Цикл
ОбновитьСуммуЭлементаФормыСтрокаКоллекцииДереваНаКлиенте(тЭлемент);
ТекущаяСтрока.Сумма = ТекущаяСтрока.Сумма + тЭлемент.Сумма;
КонецЦикла;
КонецЕсли;

КонецПроцедуры

Как поведет себя на больших объемах, пока не знаю. Не проверял. На 100 строках в таблице работает достаточно шустро. Видим прямую зависимость от мощей клиентского компьютера, т.к. все вычисления/переборы делаются именно на клиентской стороне. Более сложные расчеты, скорее всего, стоит перегонять в прикладные типы и передавать на сервер, для дальнейшего обсчета.

Обработка с примером реализации во вложении. Тестировалось на платформе 8.3.13.1644

2 Comments

  1. German_Tagil

    Ставлю +. Должно пригодиться

    Reply
  2. Yashazz

    ребятушки, а можно не выкладывать примитив от начинающих?.. ну невозможно же просто…

    Я могу порадоваться за новичков, открывших для себя азы программирования. Но зачем этим мусорить на ИС? Это же сайт «профессиональной», если не ошибаюсь, разработки…

    дерево у него сворачивается, фокус теряется… запоминай позицию по какому-нибудь ключу перед уходом на сервер и потом восстанавливай по возвращении, и будет тебе щастье. И прочие «нюансы» делаются на раз.

    …не, ну просто жесть. Ну давайте я расскажу, как выборку из справочника получить? Пацаны-то, походу, не знают!)

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *