Имя: Пароль:
1C
1С v8
Как оптимизировать процесс
Ø (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
Учитесь оформлять темы правильно.
Основная теорема систематики: Новые системы плодят новые проблемы.