Модуль формы обработки «Статистика ремонта»

Процедура КнопкаВыполнитьНажатие(Кнопка)

МойАнализДанных = Новый АнализДанных;

МойАнализДанных.ТипАнализа=Тип ("АнализДанныхОбщаяСтатистика");

МойАнализДанных.ИсточникДанных = ЭлементыФормы.ТабличноеПоле1.Значение;

РезультатАнализаДанных = МойАнализДанных.Выполнить();

Построитель = Новый ПостроительОтчетаАнализаДанных();

Построитель.Макет = Неопределено;

Построитель.ТипАнализа = Тип ("АнализДанныхОбщаяСтатистика");

ТабДок = Новый ТабличныйДокумент;

Построитель.Вывести(РезультатАнализаДанных, ТабДок);

ТабДок.Показать();

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

Процедура Кнопка1Нажатие(Элемент)

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

| Наряд_на_ремонт.ТипКонструкции,

| Наряд_на_ремонт.Затраты

|ИЗ

| Документ.Наряд_на_ремонт КАК Наряд_на_ремонт

|ГДЕ

| Наряд_на_ремонт.АдресДома = &АдресДома";

Запрос.УстановитьПараметр("АдресДома",ЭлементыФормы.ПолеВвода1.Значение);

Результат = Запрос.Выполнить();

ЭлементыФормы.ТабличноеПоле1.Значение=Результат.Выгрузить();

ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();

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

Модуль формы обработки «Поиск последовательностей»

Процедура КнопкаВыполнитьНажатие(Кнопка)

Анализ = Новый АнализДанных;

Анализ.ТипАнализа =

Тип("АнализДанныхПоискПоследовательностей");

Анализ.ИсточникДанных = ЭлементыФормы.ТабличноеПоле1.Значение;

//Анализ.НастройкаКолонок.Период.ТипКолонки = ТипКолонкиАнализаДанныхПоискПоследовательностей.Время;

РезультатАнализа = Анализ.Выполнить();

//РезультатАнализа.ШаблоныПоследовательностей[0].Элементы[0][0];

табл=новый ТаблицаЗначений;

а=РезультатАнализа.ШаблоныПоследовательностей[0].Элементы[0][0];

количколонок=0;

для б=0 по РезультатАнализа.ШаблоныПоследовательностей.количество()-1 цикл

табл.Добавить();

если РезультатАнализа.ШаблоныПоследовательностей[б].элементы.количество()>количколонок тогда

количколонок=РезультатАнализа.ШаблоныПоследовательностей[б].элементы.количество();

КонецЕсли;

КонецЦикла;

для в=0 по количколонок-1 цикл

табл.Колонки.Добавить();

КонецЦикла;

//табл[0].Установить(0,а);

для б=0 по РезультатАнализа.ШаблоныПоследовательностей.количество()-1 цикл

для в=0 по РезультатАнализа.ШаблоныПоследовательностей[б].элементы.количество()-1 цикл

табл[б].Установить(в,РезультатАнализа.ШаблоныПоследовательностей[б].Элементы[в][0]);

КонецЦикла;

КонецЦикла;

ЭлементыФормы.ТабличноеПоле2.Значение=табл;

ЭлементыФормы.ТабличноеПоле2.СоздатьКолонки();

Построитель = Новый ПостроительОтчетаАнализаДанных();

Построитель.Макет = Неопределено;

Построитель.ТипАнализа =Тип("АнализДанныхПоискПоследовательностей");

ТабДок = Новый ТабличныйДокумент;

Построитель.Вывести(РезультатАнализа, ТабДок);

ТабДок.Показать();

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

Процедура Кнопка1Нажатие(Элемент)

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

| Наряд_на_ремонт.Дата,

| Наряд_на_ремонт.АдресДома,

| Наряд_на_ремонт.ТипКонструкции

|ИЗ

| Документ.Наряд_на_ремонт КАК Наряд_на_ремонт";

//Запрос.УстановитьПараметр("АдресДома",ЭлементыФормы.ПолеВвода1.Значение);

Результат = Запрос.Выполнить();

ЭлементыФормы.ТабличноеПоле1.Значение=Результат.Выгрузить();

ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();

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

Лист

46