|
Как оптимизировать процесс Ø (H A D G E H O G s 24.01.2013 14:07) |
☑ |
0
Sky69
24.01.13
✎
14:02
|
Что быстрее сработает через запрос или так и еще вопрос как вывести в статусную строку сообщение(чтоб знать какие процессы выполняются):
вых = ЛОЖЬ;
Если ДатаНеявки<>ТекДата-1 тогда
K = ТекДата-1-ДатаНеявки;
Дата1=ТекДата-1;
Отбор1 = новый структура();
Для i = 1 по K Цикл
// Проверяем в ТЗВыходные выходной день или нет
Отбор1.Вставить("Сотрудник",Сотрудник);
НайденнаяСтрока = ТЗВыходные.НайтиСтроки(Отбор1);
i = НайденнаяСтрока.Количество();
Если i=0 тогда //Если день не выходной
вых = ЛОЖЬ;
прервать;
Иначе
Для K=0 по i-1 цикл
Строка = НайденнаяСтрока[K];
Если Строка.НомерМесяца = НомерМесяца И Строка.НомерДня = Дата1 И Строка.Год = Год тогда
вых = Истина;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Дата1 = Дата1-1;
КонецЦикла;
КонецЕсли;
|
|
1
Fedot200
24.01.13
✎
14:03
|
жосткий код, однако
|
|
2
Sky69
24.01.13
✎
14:04
|
надо оптимизировать
|
|
3
Sky69
24.01.13
✎
14:04
|
вот и думаю может запросом будет быстрей
|
|
4
Domanoff26
24.01.13
✎
14:06
|
а задача какая, в этой аьракадабре тяжко понять цель
|
|
5
H A D G E H O G s
модератор
24.01.13
✎
14:06
|
Учитесь оформлять темы правильно.
|
|