Фрагмент листинга программного кода реализации метода экспертных оценок

Процедура РанжированиеФакторовПриИзменении(Элемент)

если ЭлементыФормы.РанжированиеФакторов.Значение.Пустая() тогда

доступность(ложь);

иначе

доступность(Истина);

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

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

| РанжированиеФакторовРанжированиеКритериев.Факторы.Наименование,

| РанжированиеФакторовРанжированиеКритериев.Факторы,

| РанжированиеФакторовРанжированиеКритериев.Wi

|ИЗ

| Документ.РанжированиеФакторов.РанжированиеКритериев КАК РанжированиеФакторовРанжированиеКритериев

| ЛЕВОЕ СОЕДИНЕНИЕ Документ.РанжированиеФакторов КАК РанжированиеФакторов

| ПО РанжированиеФакторовРанжированиеКритериев.Ссылка = РанжированиеФакторов.Ссылка

|ГДЕ

| РанжированиеФакторов.Ссылка = &Ссылка";

Запрос.УстановитьПараметр("Ссылка",ЭлементыФормы.РанжированиеФакторов.Значение);

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

ОценкиФакторов=Результат.Выгрузить();

колонка= новый СписокЗначений;

таблзн=Результат.Выгрузить();

Для каждого строка Из таблзн Цикл

колонка.Добавить(строка.Получить(0));

КонецЦикла;

ЭлементыФормы.ПолеВыбора1.СписокВыбора=колонка;

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

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

// | Банки.Ссылка

// |ИЗ

// | Справочник.Банки КАК Банки";

//

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

//

//

//

//если ЭлементыФормы.РанжированиеБанковПоФактору1.Значение.Количество()=0 и ЭлементыФормы.РанжированиеБанковПоФактору2.Значение.Количество()=0 и ЭлементыФормы.РанжированиеБанковПоФактору3.Значение.Количество()=0 и ЭлементыФормы.РанжированиеБанковПоФактору4.Значение.Количество()=0 и ЭлементыФормы.РанжированиеБанковПоФактору5.Значение.Количество()=0 и ЭлементыФормы.РанжированиеБанковПоФактору6.Значение.Количество()=0 и ЭлементыФормы.РанжированиеБанковПоФактору7.Значение.Количество()=0 тогда

// таблзн=Результат.Выгрузить();

//Для каждого строка Из таблзн Цикл

//РанжированиеБанковПоФактору1.Добавить();

//РанжированиеБанковПоФактору2.Добавить();

//РанжированиеБанковПоФактору3.Добавить();

//РанжированиеБанковПоФактору4.Добавить();

//РанжированиеБанковПоФактору5.Добавить();

//РанжированиеБанковПоФактору6.Добавить();

//РанжированиеБанковПоФактору7.Добавить();

//КонецЦикла;

//конецесли;

//РанжированиеБанковПоФактору1.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

//РанжированиеБанковПоФактору2.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

//РанжированиеБанковПоФактору3.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

//РанжированиеБанковПоФактору4.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

//РанжированиеБанковПоФактору5.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

//РанжированиеБанковПоФактору6.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

//РанжированиеБанковПоФактору7.ЗагрузитьКолонку(Результат.Выгрузить().ВыгрузитьКолонку(0),0);

КонецЕсли;

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

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

//количество банков

РезультирующиеОценки.Очистить();

количествобанков=СписокБанков.Количество();

для счетчик=1 по количествобанков Цикл

РезультирующиеОценки.Добавить();

КонецЦикла;

РезультирующиеОценки.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0; //Wi

В=новый Массив(ОценкиФакторов.Количество());

В=ОценкиФакторов.ВыгрузитьКолонку(2);

//итоговая оценка

оценки=новый Массив(количествобанков);

//Х ф-факторы б-банки э-эгсперты

Х=новый Массив(количествобанков,3);

для э=0 по 2 цикл

для б=0 по количествобанков-1 цикл

Х[б][э]=0.0;

конеццикла;

конеццикла;

для э=0 по 2 цикл

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору1.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[0];

конеццикла;

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору2.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[1];

конеццикла;

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору3.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[2];

конеццикла;

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору4.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[3];

конеццикла;

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору5.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[4];

конеццикла;

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору6.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[5];

конеццикла;

колонка1=ЭлементыФормы.РанжированиеБанковПоФактору7.Значение.ВыгрузитьКолонку(э+1);

для б=0 по количествобанков-1 цикл

Х[б][э]=Х[б][э]+колонка1[б]*В[6];

конеццикла;

конеццикла;

для б=0 по количествобанков-1 цикл

оценки[б]=0.0;

КонецЦикла;

для б=0 по количествобанков-1 цикл

для э=0 по 2 цикл

оценки[б]=оценки[б]+Х[б][э];

конеццикла;

конеццикла;

РезультирующиеОценки.ЗагрузитьКолонку(оценки,1);

//ИТОГОВЫЕ РАНГИ

ранги=новый Массив(оценки.Количество());

мах=оценки[0];

м=0;

для а=0 по оценки.Количество()-1 цикл

если мах<оценки[а] тогда

м=а;

КонецЕсли;

КонецЦикла;

мах=оценки[м];

предмах=мах;

к=1;

ранги[м]=к;

для а=0 по ранги.Количество()-1 цикл

м=0;

для б=0 по ранги.Количество()-1 цикл

если оценки[м]<оценки[б] и предмах>оценки[б] тогда

м=б;

КонецЕсли;

КонецЦикла;

мах=оценки[м];

предмах=мах;

ранги[м]=к;

к=к+1;

КонецЦикла;

РезультирующиеОценки.ЗагрузитьКолонку(ранги,2);

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

Процедура СписокБанковПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)

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

Процедура СписокБанковПослеУдаления(Элемент)

РанжированиеБанковПоФактору2.Очистить();РанжированиеБанковПоФактору4.Очистить();РанжированиеБанковПоФактору6.Очистить();

РанжированиеБанковПоФактору1.Очистить();РанжированиеБанковПоФактору5.Очистить();РанжированиеБанковПоФактору7.Очистить();

РанжированиеБанковПоФактору3.Очистить();

количествобанков=СписокБанков.Количество();

для счетчик=1 по количествобанков Цикл

РанжированиеБанковПоФактору1.Добавить();

РанжированиеБанковПоФактору2.Добавить();

РанжированиеБанковПоФактору3.Добавить();

РанжированиеБанковПоФактору4.Добавить();

РанжированиеБанковПоФактору5.Добавить();

РанжированиеБанковПоФактору6.Добавить();

РанжированиеБанковПоФактору7.Добавить();

КонецЦикла;

РанжированиеБанковПоФактору1.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору2.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору3.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору4.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору5.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору6.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору7.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

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

Процедура СписокБанковБанкПриИзменении(Элемент)

РанжированиеБанковПоФактору2.Очистить();РанжированиеБанковПоФактору4.Очистить();РанжированиеБанковПоФактору6.Очистить();

РанжированиеБанковПоФактору1.Очистить();РанжированиеБанковПоФактору5.Очистить();РанжированиеБанковПоФактору7.Очистить();

РанжированиеБанковПоФактору3.Очистить();

количествобанков=СписокБанков.Количество();

для счетчик=1 по количествобанков Цикл

РанжированиеБанковПоФактору1.Добавить();

РанжированиеБанковПоФактору2.Добавить();

РанжированиеБанковПоФактору3.Добавить();

РанжированиеБанковПоФактору4.Добавить();

РанжированиеБанковПоФактору5.Добавить();

РанжированиеБанковПоФактору6.Добавить();

РанжированиеБанковПоФактору7.Добавить();

КонецЦикла;

РанжированиеБанковПоФактору1.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору2.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору3.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору4.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору5.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору6.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

РанжированиеБанковПоФактору7.ЗагрузитьКолонку(СписокБанков.ВыгрузитьКолонку(0),0);

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

Дата добавления: 2015-08-17