Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 15:48

Анализ данных "общая статистика"

Автор Fenlou, 15 мар 2015, 09:46

0 Пользователей и 1 гость просматривают эту тему.

Fenlou

Здравствуйте, есть анализ данных общая статистика. Нужно вытащить оттуда значения, при нажатии соответствующей кнопки в другую форму или на этой же, в другое табличное поле: наибольше встречаемые клиенты. Обработка и скриншот, из которого нужно вывести значения прикреплены ниже. Т.е. в другом табличном поле должны быть Иванов Иван Иванович и Григорьев Иван Владимирович

Fenlou

&НаСервере
Процедура Анализ(ТабДок)
Анализ = Новый АнализДанных;
Анализ.ТипАнализа = Тип ("АнализДанныхОбщаяСтатистика");
Анализ.ИсточникДанных = РеквизитФормыВЗначение("ОбщаяСтатистика");
РезультатАнализаДанных = Анализ.Выполнить();
Построитель = Новый ПостроительОтчетаАнализаДанных();
Построитель.Макет = Неопределено;
Построитель.ТипАнализа = Тип ("АнализДанныхОбщаяСтатистика");
ТабДок = Новый ТабличныйДокумент;
Построитель.Вывести(РезультатАнализаДанных, ТабДок);
КонецПроцедуры

&НаСервере
Процедура ПриОткрытииСервер()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               | РасчетОСАГО.Клиент,
               | РасчетОСАГО.Клиент.Пол КАК Пол,
               | РасчетОСАГО.Возраст,
               | РасчетОСАГО.Стаж
               |ИЗ
               | Документ.РасчетОСАГО КАК РасчетОСАГО";
ОбщаяСтатистика.Загрузить(Запрос.Выполнить().Выгрузить());
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьАнализ(Команда)
ТабДок = Новый ТабличныйДокумент;
Анализ(ТабДок);
ТабДок.Показать();
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПриОткрытииСервер();
КонецПроцедуры

&НаКлиентеСервера
Процедура Вывести(Команда)

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

Добавлено: 15 мар 2015, 16:56


Сделал :)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск