Добрый день! Есть Документ Табель в конфигурации УСФ. Там у меня каждая строка это день месяца, а всего их 31. Заказчик захотел, чтобы в отдельной колонке показывалось количество дней отработанных за месяц. Сейчас это реализовано в виде цикла из 31 итераций с какой то формулой (уже сам не помню) по часам в каждом дне, результатом которой является количество дней. Все бы хорошо, но это занимает около 5 секунд. Есть ли другие более быстрые варианты решения этой задачи?

что такое усф ?

цикл по колонкам + суммирование

управление строительной фирмой

(1) стройфирма наверное

"с какой то формулой (уже сам не помню)"

придется вспомнить

(0)Расчет идет только по данным строки или еще куда то смотрит?

(2) запром это можно реализовать ?

(7) можно

(2) я так и делаю сейчас,
(5) не так важно, максимум 3 строчки кода, суть вопроса в том как обойтись без цикла

Если расчет только по данным строки, то можно сделать просто добавочной колонкой и расчитывать  в ПриПолученииДанных()

(6) только по данным строки

(11)Тогда см. (10)

это какое то событие ячейки?

(13)Это событие табличного поля

(13)При каждом выводе порции строк на экран они будут расчитываться.Но только те что на показаны экране

такого события нету

(16)Есть.  Хотя если у тебя УФ, то тогда не знаю.

(16) ты выдели все табличное поле, а не колонку/поле ввода

сейчас это работает через событие "ПриИзменении" табличного поля

вообще всей таблицы

(19) а вот у таб. поля нет такого события. Настоятельно рекомендую перечитывать (18) до просветления

(21) в УФ есть

(22) спс, ща курну

(19)
http://s1.ipicture.ru/uploads/20130603/3TUqMaTz.jpg

Покажи код своего цикла

(24) у меня 8.2

(26)Ты не поверишь...

(25)

&НаКлиенте
Процедура ОтработанноеВремяПоДнямПриИзменении(Элемент)
   ТекущаяСтрока = Элементы.ОтработанноеВремяПоДням.ТекущиеДанные;
   ПосчитатьСтроку(ТекущаяСтрока);
   //ТекущаяСтрока.КолДней=Колдней;
КонецПроцедуры




&НаКлиенте
Процедура ПосчитатьСтроку(Строка)
   строка.КолДней=0;
   Для й=1 по 31 цикл
       тип=ПолСправочник(Строка["ПервыйВидВремени"+й]);
       чс= Строка["ПервыйЧасы"+й];
       Если тип <> неопределено и чс> 0 тогда
           строка.КолДней=строка.КолДней+чс/8;    
       КонецЕсли;
   КонецЦикла;    
КонецПроцедуры

(27) во что?

вот эту процедуру суда выложи
ПолСправочник()

Скорее всего сервер на каждой итерации дергается...

(30) у меня нет такой процедуры, один раз отправляю на сервер

(22) курнул, благодарю еще раз
(27) реально, таб. поле в УФ называется "Таблица" и автор не врет :) https://dl.dropboxusercontent.com/u/4517049/106.png

(32) Посмотри в модуле объекта

(34) причем тут модуль объекта? изменения происходят на клиенте

какие еще идеи?

(35) Что там делается в ПолСправочник(), нам отсюда не видать...

(35) тебе (34) говорит, мол, поищи функцию "ПолСправочник" в модуле объекта

сорри, сейчас увидел

&НаКлиенте
Процедура ПосчитатьСтроку(Строка)
   строка.КолДней=0;
   Для й=1 по 31 цикл
       тип=ПолСправочник(Строка["ПервыйВидВремени"+й]);
       чс= Строка["ПервыйЧасы"+й];
       Если тип <> неопределено и чс> 0 тогда
           строка.КолДней=строка.КолДней+чс/8;    
       КонецЕсли;
   КонецЦикла;    
КонецПроцедуры
   

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

Запусти для профилактики замер производительности в начале цикла, и останови после цикла.

(39) Переделывай, что бы один раз сервер вызывался.

я 31 раз обращаюсь на сервер

сейчас попробую

На будущее называй переменные и функции более корректно.
Функция ПолСправочник(Справочник)
Лучше было бы как-то так
Функция ВходитВОтработанныеЧасы(ВидВремени)

все, переписал, теперь не тормозит

&НаКлиенте
Процедура ПосчитатьСтроку(Строка)
   строка.КолДней=0;
   струк=новый Структура;
   Для й=1 по 31 цикл
   струк.Вставить("ПервыйВидВремени"+й,Строка["ПервыйВидВремени"+й])
   КонецЦикла;

   тп=ПолСправочник(струк);
   
   Для й=1 по 31 цикл
       тип=тп[Строка("ПервыйВидВремени"+й)];
       чс= Строка["ПервыйЧасы"+й];
       Если тип <> неопределено и чс> 0 тогда
           строка.КолДней=строка.КолДней+чс/8;    
       КонецЕсли;
   КонецЦикла;    
   
   
   
   //Для й=1 по 31 цикл
   //    тип=ПолСправочник(Строка["ПервыйВидВремени"+й]);
   //    чс= Строка["ПервыйЧасы"+й];
   //    Если тип <> неопределено и чс> 0 тогда
   //        строка.КолДней=строка.КолДней+чс/8;    
   //    КонецЕсли;
   //КонецЦикла;    

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

&НаСервере
Функция ПолСправочник(струк)
   тп=новый структура;
   Для й=1 по 31 цикл
   
   Зпр=новый Запрос;
   зпр.текст="ВЫБРАТЬ
             |    ВидыРабочегоВремени.Код
             |ИЗ
             |    Справочник.ВидыРабочегоВремени КАК ВидыРабочегоВремени
             |ГДЕ
             |    ВидыРабочегоВремени.Ссылка = &Справочник";
             Зпр.УстановитьПараметр("Справочник",струк[Строка("ПервыйВидВремени"+й)]);
             рез=Зпр.Выполнить().Выбрать();
             тип=Неопределено;
             Если рез.Следующий() тогда
                 Если рез.Код="20" или рез.Код="24" или рез.Код="28" тогда
                      тп.Вставить(Строка("ПервыйВидВремени"+й),55);
                  иначе
                     тп.Вставить(Строка("ПервыйВидВремени"+й),Неопределено);
                 КонецЕсли;
                 
                 //возврат тип;
                  иначе
                     тп.Вставить(Строка("ПервыйВидВремени"+й),Неопределено);
             КонецЕсли;
             
         КонецЦикла;
         
         Возврат тп;
КонецФункции

(44) учту

(45) Если будет предпраздничный день с семью часами, сколько получится отработанных дней?

на 1/8 дня меньше

(48) Первый раз, встретил, когда дни дробными считают.