1C Программирование и поддержка - [74] :: Прикладное программирование

softechhh
ну что непонятного?

Код:

Функция ПолучитьДниУчастка()

Дата1 = НачМесяца(ДатаДок);
Дата2 = КонМесяца(ДатаДок);

ЗапросТабель = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с Дата1 по Дата2;
|Док = Документ.ТабельПоДням.ТекущийДокумент;
|Сотр = Документ.ТабельПоДням.Сотр;
|СтрокаДокумента = Документ.ТабельПоДням.ТекущийДокумент.НомерСтроки;
|Группировка Док упорядочить по Док.ДатаДок;
|Группировка Сотр без Групп;
|Группировка СтрокаДокумента;
|Условие(Сотрудник=Сотр);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если ЗапросТабель.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат 0;
КонецЕсли;

Пока ЗапросТабель.Группировка(1) = 1 Цикл
Пока ЗапросТабель.Группировка(2) = 1 Цикл
Пока ЗапросТабель.Группировка(3) = 1 Цикл
_док = ЗапросТабель.Док;
_док.ПолучитьСтрокуПоНомеру(ЗапросТабель.СтрокаДокумента);
_дней = 31;
Если (ТекущаяДата()>=Дата1)и(ТекущаяДата()<=Дата2) Тогда
_дней = Мин(ДатаЧисло(ТекущаяДата()),ДатаЧисло(Дата2));
КонецЕсли;
день = 0;
Для й=1 По _дней Цикл
Атрибут = "Д"+?(й<10,"0","")+СокрЛП(Строка(й));
день=день + ?(_док.ПолучитьАтрибут(Атрибут).Значение>0,1,0);
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Сообщить(день);
Возврат день;
КонецФункции

----------
Век живи - век учись!

Модерирует : ShIvADeSt
ShIvADeSt (03-04-2009 02:03): Продолжение тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100