helpf.pro
Регистрация
 +9 
Распечатать

1С 8.x : Как получить Норму Дней и Норму Часов

Код 1C v 8.х
  // Отбирать нужно за 1 месяц
// Выводит: Сотрудник, Организация, Норма в часах, норма в днях
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| НАЧАЛОПЕРИОДА(Норма.ДатаКалендаря, МЕСЯЦ) КАК ПериодДействия,
| СотрудникиОрганизаций.Ссылка КАК Сотрудник,
| СотрудникиОрганизаций.ОбособленноеПодразделение КАК Организация,
| СУММА(ВЫБОР
| КОГДА Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу
| И Норма.ДатаКалендаря <= СотрудникиОрганизаций.ДатаУвольнения
| ИЛИ Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу
| И СотрудникиОрганизаций.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
| ТОГДА Норма.НормаВЧасах
| ИНАЧЕ 0
| КОНЕЦ) КАК НормаЧасов,
| СУММА(ВЫБОР
| КОГДА Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу
| И Норма.ДатаКалендаря <= СотрудникиОрганизаций.ДатаУвольнения
| ИЛИ Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу
| И СотрудникиОрганизаций.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
| ТОГДА Норма.НормаВДнях
| ИНАЧЕ 0
| КОНЕЦ) КАК НормаДней
|ИЗ
| (ВЫБРАТЬ
| СУММА(ВЫБОР
| КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
| ТОГДА 8
| ИНАЧЕ ВЫБОР
| КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)
| ТОГДА 7
| ИНАЧЕ 0
| КОНЕЦ
| КОНЕЦ) КАК НормаВЧасах,
| Норма.ДатаКалендаря КАК ДатаКалендаря,
| ВЫБОР
| КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
| ТОГДА 1
| ИНАЧЕ ВЫБОР
| КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)
| ТОГДА 1
| ИНАЧЕ 0
| КОНЕЦ
| КОНЕЦ КАК НормаВДнях
| ИЗ
| РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК Норма
| ГДЕ
| Норма.ДатаКалендаря МЕЖДУ &НачалоПериода И &КонецПериода
|
| СГРУППИРОВАТЬ ПО
| Норма.ДатаКалендаря,
| ВЫБОР
| КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
| ТОГДА 1
| ИНАЧЕ ВЫБОР
| КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)
| ТОГДА 1
| ИНАЧЕ 0
| КОНЕЦ
| КОНЕЦ) КАК Норма,
| Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
|
|СГРУППИРОВАТЬ ПО
| НАЧАЛОПЕРИОДА(Норма.ДатаКалендаря, МЕСЯЦ),
| СотрудникиОрганизаций.Ссылка,
| СотрудникиОрганизаций.ОбособленноеПодразделение";
Запрос.УстановитьПараметр("КонецПериода", Дата("31.05.2012 0:00:00"));
Запрос.УстановитьПараметр("НачалоПериода", Дата("01.05.2012 0:00:00"));

Результат = Запрос.Выполнить();
Выборка = Результат.Выгрузить();
Для каждого СтрокаТЗ Из Выборка Цикл
КонецЦикла;
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 31285
 +9 
Распечатать
Возможно, вас также заинтересует
Cклонения по падежам 6
НаКлиенте Процедура Команда1(Команда) ФИО = " Иванов Иван Иванович" ; Падеж = 2; Пол = 1; Результат = СклонениеФИО(ФИО, Падеж, пол); Сообщить(Результат); КонецПроцедуры НаСервере Функция СклонениеФИО(ФИО, Падеж, пол) Результат = " " ;
Данные Графика регистра расчета 0
Виртуальная таблица " РегистрРасчета. ИмяРегистра .ДанныеГрафика " определена для тех регистров расчета, которые поддерживают период действия . При конфигурировании с таким регистром расчета необходимо связать непериодический регистр сведений кото
Как вычислить разницу между двумя датами в часах и минутах 13
Функция РазностьВремени(Время1, Время2); Разность = Время1 - Время2; Если Разность 0 Тогда Часов = Цел(Разность / 3600); Минут = Цел((Разность - Часов * 3600) / 60); Возврат Дата(1, 1, 1, Часов, Минут, 0); Иначе Возврат Дата(1,1,1,0,0,0);
Как добавить движение в регистр накопления 28
НаборЗаписей = РегистрыНакопления.ОплаченоДней.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка); Запись = НаборЗаписей.ДобавитьПриход(); Запись.Регистратор = ЭтотОбъект.Ссылка; Запись.Сотрудник = Строка.сотрудн
Как запретить изменять документы после 8 часов с момента их создания 3
Обратился ко мне клиент с задачей: Нужно запретить изменение всех видов платежных документов (ПП, РКО, ПКО) спустя 8 часов с момента проведения соответствующего документа Для реализации этого я использовал Подписку на событие: ПередЗаписьюДокуме
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.