Проблема. Медленно открывается список сотрудников.

odines

New Member

17 апр 2014 09:57 #1

#1 от odines

При большом количестве сотрудников медленно открывается форма списка справочника сотрудники. У нас 1600 сотрудников, актуальные 800. Задержка примерно 10 секунд.

Найдено решение - временная заплатка.
В динамический список передается массив сотрудников, который используется в условии в запросе. Лучше в этом месте использовать не массив, а список значений.

Скорость возросла на порядок.

Тема закрыта.

odines

New Member

17 апр 2014 10:11 #2

#2 от odines

Что б было понятнее.
Было:

ВНИМАНИЕ: Спойлер!

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

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

	Выборка = Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		ТС = Выборка.СотрудникКод + Выборка.СтатусРаботы;
		Если СотрудникиСп.Найти(Выборка.Сотрудник) = Неопределено Тогда
			СС.Добавить(ТС);	
		КонецЕсли;		
	КонецЦикла;

	СписокОрг = Новый Массив;
	Если ЗначениеЗаполнено(Организация) Тогда
		СписокОрг.Добавить(Организация);
	Иначе
		Выборка = Справочники.Организации.Выбрать();
		Пока Выборка.Следующий() Цикл
			Если НЕ Выборка.ПометкаУдаления Тогда
				СписокОрг.Добавить(Выборка.Ссылка);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;

	Список.Параметры.УстановитьЗначениеПараметра("СС", СС);
	Список.Параметры.УстановитьЗначениеПараметра("Организации", СписокОрг);
	Список.Параметры.УстановитьЗначениеПараметра("ДатаА", КонецДня(ТекущаяДатаСеанса()));
	
	Элементы.Список.Обновить();	
КонецПроцедуры

стало:

ВНИМАНИЕ: Спойлер!

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

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

	Запрос.УстановитьПараметр("СотрудникиСп",СотрудникиСп);
	Выборка = Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		ТС = Выборка.СотрудникКод + Выборка.СтатусРаботы;
		//Если СотрудникиСп.Найти(Выборка.Сотрудник) = Неопределено Тогда
			СС.Добавить(ТС);	
		//КонецЕсли;		
	КонецЦикла;

	СписокОрг = Новый Массив;
	Если ЗначениеЗаполнено(Организация) Тогда
		СписокОрг.Добавить(Организация);
	Иначе
		Выборка = Справочники.Организации.Выбрать();
		Пока Выборка.Следующий() Цикл
			Если НЕ Выборка.ПометкаУдаления Тогда
				СписокОрг.Добавить(Выборка.Ссылка);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;

	Список.Параметры.УстановитьЗначениеПараметра("СС", СС);
	Список.Параметры.УстановитьЗначениеПараметра("Организации", СписокОрг);
	Список.Параметры.УстановитьЗначениеПараметра("ДатаА", КонецДня(ТекущаяДатаСеанса()));
	
	Элементы.Список.Обновить();	
КонецПроцедуры

Тема закрыта.

Спасибо сказали: Андрей Ланьшин, Антон

Антон

Elite Member

206

205

17 апр 2014 12:35 #3

#3 от Антон

Попробовал применить, но не получилось.
Платформа не осуществляет отбор, если в ачестве параметра динамического списка передать не массив, а список значений. Если передать массив - работает.
Т. е. получается, если передать список значений, то при открытии формы списка ошибок не выдается, но пропадают данные в колонках кадровых сведений (Табельный номер, подразделение и т. п.) - возможно поэтому и выросла скорость - платформа просто не отбирает данные по списку значений.

Бурашников Антон, фирма КАМИН

Тема закрыта.

Спасибо сказали: Андрей Ланьшин

odines

New Member

17 апр 2014 14:19 #4

#4 от odines

Точно. Нужно что то другое.

PS: Совсем пока это условие в запросе динамического списка убрал.

Тема закрыта.

Андрей Ланьшин

Administrator

3421

974

19 апр 2014 14:15 #5

#5 от Андрей Ланьшин

odines
Точно. Нужно что то другое.

PS: Совсем пока это условие в запросе динамического списка убрал.

Базу можете предоставить на hotline@kamin.kaluga.ru для анализа производительности и оптимизации?

Ланьшин Андрей, фирма КАМИН
Правильно заданный вопрос содержит половину ответа!

Тема закрыта.