периодзавершения » Поиск

Результаты по ключевому слову: периодзавершения

Функции получения всех плановых Начислений и Удержаний сотрудника

При доработке ЗУПа потребовалось во фронте расчетчика информативно выводить все плановые начисления и удержания по сотруднику на текущий момент. В результате 2 удобные функции, результат возвращают в виде таблицы значений:

Код 1C v 8.3

 Функция ПолучитьСписокПлановыхНачислений(Организация, Сотрудник, ДатаО) Экспорт


	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ПлановыеНачисленияСрезПоследних.Период,
	|	ПлановыеНачисленияСрезПоследних.ВидРасчета,
	|	ПлановыеНачисленияСрезПоследних.Показатель1,
	|	ПлановыеНачисленияСрезПоследних.Валюта1,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд1,
	|	ПлановыеНачисленияСрезПоследних.Показатель2,
	|	ПлановыеНачисленияСрезПоследних.Валюта2,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд2,
	|	ПлановыеНачисленияСрезПоследних.Показатель3,
	|	ПлановыеНачисленияСрезПоследних.Валюта3,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд3,
	|	ПлановыеНачисленияСрезПоследних.Показатель4,
	|	ПлановыеНачисленияСрезПоследних.Валюта4,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд4,
	|	ПлановыеНачисленияСрезПоследних.Показатель5,
	|	ПлановыеНачисленияСрезПоследних.Валюта5,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд5,
	|	ПлановыеНачисленияСрезПоследних.Показатель6,
	|	ПлановыеНачисленияСрезПоследних.Валюта6,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд6,
	|	ПлановыеНачисленияСрезПоследних.Действие,
	|	ПлановыеНачисленияСрезПоследних.ПериодЗавершения,
	|	ПлановыеНачисленияСрезПоследних.ВидРасчетаЗавершения,
	|	ПлановыеНачисленияСрезПоследних.ДействиеЗавершения,
	|	ПлановыеНачисленияСрезПоследних.Показатель1Завершения,
	|	ПлановыеНачисленияСрезПоследних.Показатель2Завершения,
	|	ПлановыеНачисленияСрезПоследних.Показатель3Завершения,
	|	ПлановыеНачисленияСрезПоследних.Показатель4Завершения,
	|	ПлановыеНачисленияСрезПоследних.Показатель5Завершения,
	|	ПлановыеНачисленияСрезПоследних.Показатель6Завершения,
	|	ПлановыеНачисленияСрезПоследних.Валюта1Завершения,
	|	ПлановыеНачисленияСрезПоследних.Валюта2Завершения,
	|	ПлановыеНачисленияСрезПоследних.Валюта3Завершения,
	|	ПлановыеНачисленияСрезПоследних.Валюта4Завершения,
	|	ПлановыеНачисленияСрезПоследних.Валюта5Завершения,
	|	ПлановыеНачисленияСрезПоследних.Валюта6Завершения,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд1Завершения,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд2Завершения,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд3Завершения,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд4Завершения,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд5Завершения,
	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд6Завершения,
	|	ПлановыеНачисленияСрезПоследних.Регистратор
	|ИЗ
	|	РегистрСведений.ПлановыеНачисленияРаботниковОрганизаций.СрезПоследних(
	|			&ДатаСреза,
	|			Организация =ГоловнаяОрганизация
	|				И Сотрудник =Ссылка) КАК ПлановыеНачисленияСрезПоследних
	|ГДЕ
	|	ВЫБОР
	|			КОГДА ПлановыеНачисленияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)
	|					И ПлановыеНачисленияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)
	|				ТОГДА ЛОЖЬ
	|			КОГДА ПлановыеНачисленияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)
	|					И ПлановыеНачисленияСрезПоследних.ДействиеЗавершения <> ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)
	|					ИДатаСреза < ПлановыеНачисленияСрезПоследних.ПериодЗавершения
	|				ТОГДА ЛОЖЬ
	|			КОГДА ПлановыеНачисленияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)
	|					ИДатаСреза >= ПлановыеНачисленияСрезПоследних.ПериодЗавершения
	|				ТОГДА ЛОЖЬ
	|			ИНАЧЕ ИСТИНА
	|		КОНЕЦ";
	
	Запрос.УстановитьПараметр("ГоловнаяОрганизация", Организация);
	Запрос.УстановитьПараметр("ДатаСреза", ДатаО);
	Запрос.УстановитьПараметр("Ссылка", Сотрудник);
	Возврат Запрос.Выполнить().Выгрузить();


КонецФункции


Функция ПолучитьСписокПлановыхУдержаний(Организация, Сотрудник, ДатаО) Экспорт


	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ПлановыеУдержанияСрезПоследних.Период,
	|	ПлановыеУдержанияСрезПоследних.ВидРасчета,
	|	ПлановыеУдержанияСрезПоследних.Показатель1,
	|	ПлановыеУдержанияСрезПоследних.Валюта1,
	|	ПлановыеУдержанияСрезПоследних.Показатель2,
	|	ПлановыеУдержанияСрезПоследних.Валюта2,
	|	ПлановыеУдержанияСрезПоследних.Показатель3,
	|	ПлановыеУдержанияСрезПоследних.Валюта3,
	|	ПлановыеУдержанияСрезПоследних.Показатель4,
	|	ПлановыеУдержанияСрезПоследних.Валюта4,
	|	ПлановыеУдержанияСрезПоследних.Показатель5,
	|	ПлановыеУдержанияСрезПоследних.Валюта5,
	|	ПлановыеУдержанияСрезПоследних.Показатель6,
	|	ПлановыеУдержанияСрезПоследних.Валюта6,
	|	ПлановыеУдержанияСрезПоследних.Действие,
	|	ПлановыеУдержанияСрезПоследних.ПериодЗавершения,
	|	ПлановыеУдержанияСрезПоследних.ДействиеЗавершения,
	|	ПлановыеУдержанияСрезПоследних.Показатель1Завершения,
	|	ПлановыеУдержанияСрезПоследних.Показатель2Завершения,
	|	ПлановыеУдержанияСрезПоследних.Показатель3Завершения,
	|	ПлановыеУдержанияСрезПоследних.Показатель4Завершения,
	|	ПлановыеУдержанияСрезПоследних.Показатель5Завершения,
	|	ПлановыеУдержанияСрезПоследних.Показатель6Завершения,
	|	ПлановыеУдержанияСрезПоследних.Валюта1Завершения,
	|	ПлановыеУдержанияСрезПоследних.Валюта2Завершения,
	|	ПлановыеУдержанияСрезПоследних.Валюта3Завершения,
	|	ПлановыеУдержанияСрезПоследних.Валюта4Завершения,
	|	ПлановыеУдержанияСрезПоследних.Валюта5Завершения,
	|	ПлановыеУдержанияСрезПоследних.Валюта6Завершения,
	|	ПлановыеУдержанияСрезПоследних.Регистратор
	|ИЗ
	|	РегистрСведений.ПлановыеУдержанияРаботниковОрганизаций.СрезПоследних(
	|			&ДатаСреза,
	|			Организация =ГоловнаяОрганизация
	|				И Физлицо =Ссылка) КАК ПлановыеУдержанияСрезПоследних
	|ГДЕ
	|	ВЫБОР
	|			КОГДА ПлановыеУдержанияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)
	|					И ПлановыеУдержанияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)
	|				ТОГДА ЛОЖЬ
	|			КОГДА ПлановыеУдержанияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)
	|					И ПлановыеУдержанияСрезПоследних.ДействиеЗавершения <> ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)
	|					ИДатаСреза < ПлановыеУдержанияСрезПоследних.ПериодЗавершения
	|				ТОГДА ЛОЖЬ
	|			КОГДА ПлановыеУдержанияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)
	|					ИДатаСреза >= ПлановыеУдержанияСрезПоследних.ПериодЗавершения
	|				ТОГДА ЛОЖЬ
	|			ИНАЧЕ ИСТИНА
	|		КОНЕЦ";
	
	Запрос.УстановитьПараметр("ГоловнаяОрганизация", Организация);
	Запрос.УстановитьПараметр("ДатаСреза", ДатаО);
	Запрос.УстановитьПараметр("Ссылка", Сотрудник.Физлицо);
	Возврат Запрос.Выполнить().Выгрузить();
КонецФункции

Категория: 1С Зарплата и Управление Персоналом 2.5

Полезные функции: Принятые и Уволенные, работающие сотрудники, Неполное рабочее время, Отпуск без ЗП

Дорабатывая у клиента отчет по данным для предоставления в статистику - появилось несколько готовых функций, которые Вам наверняка понадобятся:

Код 1C v 8.х

 Функция ПолучитьКоличествоСотрудниковСНеполнымРабочимДнём(Запрос)
 
                Запрос.Текст =
                "ВЫБРАТЬ
                |             МАКСИМУМ(Работники.НеполноеРабочееВремя) КАК НеполноеРабочееВремя,
                |             Работники.Сотрудник КАК Сотрудник
                |ПОМЕСТИТЬ ВТ_СписокРаботниковНаНеполномРабочемГрафике
                |ИЗ
                |             (ВЫБРАТЬ
                |                             РаботникиОрганизацийСрезПоследних.Сотрудник КАК Сотрудник,
                |                             РаботникиОрганизацийСрезПоследних.ГрафикРаботы.СокращенноеРабочееВремя КАК НеполноеРабочееВремя
                |             ИЗ
                |                             РегистрСведений.РаботникиОрганизаций.СрезПоследних(&НачалоПериода, Организация =Организация) КАК РаботникиОрганизацийСрезПоследних
                |             ГДЕ
                |                             РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
                |                             И РаботникиОрганизацийСрезПоследних.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
                |            
                |             ОБЪЕДИНИТЬ ВСЕ
                |            
                |             ВЫБРАТЬ
                |                             РаботникиОрганизаций.Сотрудник,
                |                             РаботникиОрганизаций.ГрафикРаботы.СокращенноеРабочееВремя
                |             ИЗ
                |                             РегистрСведений.РаботникиОрганизаций КАК РаботникиОрганизаций
                |             ГДЕ
                |                             РаботникиОрганизаций.Период МЕЖДУНачалоПериода ИКонецПериода
                |                             И РаботникиОрганизаций.Организация =Организация
                |                             И РаботникиОрганизаций.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)) КАК Работники
                |ГДЕ
                |             Работники.НеполноеРабочееВремя
                |
                |СГРУППИРОВАТЬ ПО
                |             Работники.Сотрудник
                |;
                |
                |////////////////////////////////////////////////////////////////////////////////
                |ВЫБРАТЬ
                |             КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВТ_СписокРаботниковНаНеполномРабочемГрафике.Сотрудник) КАК КоличествоСотрудниковНаСокрРабВремени
                |ИЗ
                |             ВТ_СписокРаботниковНаНеполномРабочемГрафике КАК ВТ_СписокРаботниковНаНеполномРабочемГрафике";
               
                Выборка = Запрос.Выполнить().Выбрать();
               
                Если Выборка.Следующий() Тогда
                               Возврат Выборка.КоличествоСотрудниковНаСокрРабВремени
                Иначе
                               Возврат 0
                КонецЕсли;
               
КонецФункции //ПолучитьКоличествоСотрудниковСНеполнымРабочимДнём()
 
Функция ПолучитьКоличествоСотрудниковИмевшихОтпускаБезСохраненияЗП(Запрос)
               
                Запрос.Текст =
                "ВЫБРАТЬ
                |             СостояниеРаботниковСрезПоследних.Сотрудник КАК Сотрудник
                |ПОМЕСТИТЬ ВТ_СотрудникиВОтпускахБезСохрЗП
                |ИЗ
                |             РегистрСведений.СостояниеРаботниковОрганизаций.СрезПоследних(&НачалоПериода, Организация =Организация) КАК СостояниеРаботниковСрезПоследних
                |ГДЕ
                |             СостояниеРаботниковСрезПоследних.Состояние = ЗНАЧЕНИЕ(Перечисление.СостоянияРаботникаОрганизации.ОтпускБезСохраненияЗарплаты)
                |             И ВЫБОР
                |                                             КОГДА СостояниеРаботниковСрезПоследних.ПериодЗавершения <> ДАТАВРЕМЯ(1, 1, 1)
                |                                                            ТОГДА СостояниеРаботниковСрезПоследних.ПериодЗавершения >=НачалоПериода
                |                                             ИНАЧЕ ИСТИНА
                |                             КОНЕЦ
                |             И СостояниеРаботниковСрезПоследних.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
                |
                |ОБЪЕДИНИТЬ ВСЕ
                |
                |ВЫБРАТЬ
                |             СостояниеРаботниковОрганизаций.Сотрудник
                |ИЗ
                |             РегистрСведений.СостояниеРаботниковОрганизаций КАК СостояниеРаботниковОрганизаций
                |ГДЕ
                |             СостояниеРаботниковОрганизаций.Период МЕЖДУНачалоПериода ИКонецПериода
                |             И СостояниеРаботниковОрганизаций.Состояние = ЗНАЧЕНИЕ(Перечисление.СостоянияРаботникаОрганизации.ОтпускБезСохраненияЗарплаты)
                |             И СостояниеРаботниковОрганизаций.Организация =Организация
                |             И СостояниеРаботниковОрганизаций.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
                |;
                |
                |////////////////////////////////////////////////////////////////////////////////
                |ВЫБРАТЬ
                |             КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВТ_СотрудникиВОтпускахБезСохрЗП.Сотрудник) КАК КоличествоСотрудниковВОтпускеБезСохраненияЗП
                |ИЗ
                |             ВТ_СотрудникиВОтпускахБезСохрЗП КАК ВТ_СотрудникиВОтпускахБезСохрЗП";
               
                Выборка = Запрос.Выполнить().Выбрать();
                Если Выборка.Следующий() Тогда
                               Возврат Выборка.КоличествоСотрудниковВОтпускеБезСохраненияЗП
                Иначе
                               Возврат 0
                КонецЕсли;
               
КонецФункции //ПолучитьКоличествоСотрудниковИмевшихОтпускаБезСохраненияЗП()
 
Функция ПолучитьКоличествоПринятыхСотрудников(Запрос)
               
                Запрос.Текст =
                "ВЫБРАТЬ
                |             ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник
                |ПОМЕСТИТЬ ВТ_СотрудникиПринятыеПоПриемуНаРаботу
                |ИЗ
                |             Документ.ПриемНаРаботуВОрганизацию.РаботникиОрганизации КАК ПриемНаРаботуВОрганизациюРаботникиОрганизации
                |ГДЕ
                |             ПриемНаРаботуВОрганизациюРаботникиОрганизации.ДатаПриема МЕЖДУНачалоПериода ИКонецПериода
                |             И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.Проведен
                |             И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.Организация =Организация
                |             И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
                |;
                |
                |////////////////////////////////////////////////////////////////////////////////
                |ВЫБРАТЬ
                |             КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВТ_СотрудникиПринятыеПоПриемуНаРаботу.Сотрудник) КАК КоличествоСотрудниковПринятыхНаРаботу
                |ИЗ
                |             ВТ_СотрудникиПринятыеПоПриемуНаРаботу КАК ВТ_СотрудникиПринятыеПоПриемуНаРаботу";
               
                Выборка = Запрос.Выполнить().Выбрать();
                Если Выборка.Следующий() Тогда
                               Возврат Выборка.КоличествоСотрудниковПринятыхНаРаботу
                Иначе
                               Возврат 0
                КонецЕсли;
 
КонецФункции //ПолучитьКоличествоПринятыхСотрудников()
 
Функция ПолучитьКоличествоУволенныхСотрудников(Запрос)
               
                Запрос.Текст =
                "ВЫБРАТЬ
                |             УвольнениеИзОрганизацийРаботникиОрганизации.Сотрудник
                |ПОМЕСТИТЬ ВТ_СотрудникиУволенные
                |ИЗ
                |             Документ.УвольнениеИзОрганизаций.РаботникиОрганизации КАК УвольнениеИзОрганизацийРаботникиОрганизации
                |ГДЕ
                |             УвольнениеИзОрганизацийРаботникиОрганизации.ДатаУвольнения МЕЖДУНачалоПериода ИКонецПериода
                |             И УвольнениеИзОрганизацийРаботникиОрганизации.Ссылка.Проведен
                |             И УвольнениеИзОрганизацийРаботникиОрганизации.Ссылка.Организация =Организация
                |             И УвольнениеИзОрганизацийРаботникиОрганизации.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
                |;
                |
                |////////////////////////////////////////////////////////////////////////////////
                |ВЫБРАТЬ
                |             КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВТ_СотрудникиУволенные.Сотрудник) КАК КоличествоУволенныхСотрудников
                |ИЗ
                |             ВТ_СотрудникиУволенные КАК ВТ_СотрудникиУволенные";
               
                Выборка = Запрос.Выполнить().Выбрать();
                Если Выборка.Следующий() Тогда
                               Возврат Выборка.КоличествоУволенныхСотрудников;         
                Иначе
                               Возврат 0
                КонецЕсли;
               
КонецФункции
 
Функция ПолучитьКоличествоСотрудниковСписочногоСостава(Запрос)
               
                Запрос.Текст =
                "ВЫБРАТЬ
                |             РаботникиОрганизацийСрезПоследних.Сотрудник
                |ПОМЕСТИТЬ ВТ_СотрудникиСписочногоСостава
                |ИЗ
                |             РегистрСведений.РаботникиОрганизаций.СрезПоследних(ДОБАВИТЬКДАТЕ(&КонецПериода, СЕКУНДА, 1), Организация =Организация) КАК РаботникиОрганизацийСрезПоследних
                |ГДЕ
                |             РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
                |             И (РаботникиОрганизацийСрезПоследних.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
                |             ИЛИ РаботникиОрганизацийСрезПоследних.Сотрудник.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.Совместительство))
                |;
                |
                |////////////////////////////////////////////////////////////////////////////////
                |ВЫБРАТЬ
                |             КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВТ_СотрудникиСписочногоСостава.Сотрудник) КАК КоличествоСотрудниковСписочногоСостава
                |ИЗ
                |             ВТ_СотрудникиСписочногоСостава КАК ВТ_СотрудникиСписочногоСостава";
               
                Выборка = Запрос.Выполнить().Выбрать();
                Если Выборка.Следующий() Тогда
                               Возврат Выборка.КоличествоСотрудниковСписочногоСостава;        
                Иначе
                               Возврат 0
                КонецЕсли;
               
КонецФункции
 
---------- Использование -------------------
 
Запрос = Новый Запрос;
                Запрос.УстановитьПараметр("Организация", Организация);
                Запрос.УстановитьПараметр("НачалоПериода", НачалоДня(мДатаНачалаПериодаОтчета));
                Запрос.УстановитьПараметр("КонецПериода", КонецДня(мДатаКонцаПериодаОтчета));
               
                // Сотрудники с неполным рабочим днём
                СтруктураПолей.П0001000201 = ПолучитьКоличествоСотрудниковСНеполнымРабочимДнём(Запрос);
                              
                // Отпуска без сохранения зп
                СтруктураПолей.П0001000501 = ПолучитьКоличествоСотрудниковИмевшихОтпускаБезСохраненияЗП(Запрос);
               
                // Принятые сотрудники
                СтруктураПолей.П0001000601 = ПолучитьКоличествоПринятыхСотрудников(Запрос);
               
                // Выбывшие сотрудники
                СтруктураПолей.П0001000801 = ПолучитьКоличествоУволенныхСотрудников(Запрос);
                // По собственному желанию
                СтруктураПолей.П0001001201 = СтруктураПолей.П0001000801;
               
                // Количество сотрудников списочного состава на конец месяца
                СтруктураПолей.П0001001301 = ПолучитьКоличествоСотрудниковСписочногоСостава(Запрос);

Категория: 1С Зарплата и Управление Персоналом 2.5

Как в запросе указать пустую дату? - ДАТАВРЕМЯ()

Для указания Даты и Времени в запросе предназначена функция ДАТАВРЕМЯ(

ДАТАВРЕМЯ ( <Целое число>, <Целое число>, <Целое число>[, <Целое число>, <Целое число>, <Целое число>] )
Значения типа дата задаются с помощью ключевого слова ДАТАВРЕМЯ, после которого в скобках последовательно указываются год, месяц, день, час, минута, секунда. Последние три указывать необязательно.

Максимальная дата которую возможно задать при помощи литерала ДАТАВРЕМЯ – 31.12.3999 23:59:59.

Код 1C v 8.х

 ВЫБРАТЬ НачалоПериода(ДатаВремя(2002, 10, 12, 10, 15, 34), Месяц)

Код 1C v 8.х

 Запрос = Новый Запрос;
Запрос.Текст = 
	"ВЫБРАТЬ
	|	НаборЗаписей.Период,
	|	НаборЗаписей.ФизЛицо,
	|	ВЫБОР
	|		КОГДА НаборЗаписей.Организация.ГоловнаяОрганизация = ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка)
	|			ТОГДА НаборЗаписей.Организация
	|		ИНАЧЕ НаборЗаписей.Организация.ГоловнаяОрганизация
	|	КОНЕЦ КАК Организация,
	|	НаборЗаписей.ПринятПоДолгосрочномуДоговору,
	|	ВЫБОР
	|		КОГДА НаборЗаписей.ПериодЗавершения = ДАТАВРЕМЯ(1, 1, 1)
	|			ТОГДА НаборЗаписей.ПериодЗавершения
	|		ИНАЧЕ КОНЕЦПЕРИОДА(НаборЗаписей.ПериодЗавершения, МЕСЯЦ)
	|	КОНЕЦ КАК ПериодЗавершения,
	|	НаборЗаписей.Документ
	|ИЗ
	|	ВТНаборЗаписей КАК НаборЗаписей";
	ЭтотОбъект.Загрузить(Запрос.Выполнить().Выгрузить());

Категория: Запросы

Подписка на событие, Проверка состояния работников при перемещении и увольнении

Необходимо при Увольнении или Перемещении работников проверять - работает ли сотрудник? или он в отпуске, болеет и т.д.?

Для решение этого создадим в разделе Подписки на события, подписку "ПриПроведенииПроверкаСостоянияРаботников"
title

и укажем в её свойствах:
title

А это код обработки из Обработчика:

Код 1C v 8.х

 //Проверка Состояния Сотрудников // для обработчика Подписка на Событие
Процедура ПриПроведенииПроверкаСостоянияРаботниковОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
	ОчиститьСообщения();
	Если ТипЗнч(Источник.Ссылка) = Тип("ДокументСсылка.УвольнениеИзОрганизаций") Тогда
		Для Каждого Сотр из Источник.РаботникиОрганизации Цикл
			Сост=РегистрыСведений.СостояниеРаботниковОрганизаций.ПолучитьПоследнее(Сотр.ДатаУвольнения, Новый Структура("Сотрудник",Сотр.Сотрудник));
			Если НЕ Сост.Состояние = Перечисления.СостоянияРаботникаОрганизации.Работает Тогда 
				Если Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаУвольнения < Сост.ПериодЗавершения Тогда
					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаУвольнения, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"! Можно уволить после "+Формат(Сост.ПериодЗавершения, "ДЛФ=DD") , СтатусСообщения.ОченьВажное);		
					Отказ = Истина; // Запрет проведения
				ИначеЕсли НЕ Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаУвольнения < Сост.ПериодЗавершения Тогда
					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаУвольнения, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"!", СтатусСообщения.ОченьВажное);
					Отказ = Истина; // Запрет проведения
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	ИначеЕсли ТипЗнч(Источник.Ссылка) = Тип("ДокументСсылка.КадровоеПеремещениеОрганизаций") Тогда
	     Для Каждого Сотр из Источник.РаботникиОрганизации Цикл
			Сост=РегистрыСведений.СостояниеРаботниковОрганизаций.ПолучитьПоследнее(Сотр.ДатаНачала, Новый Структура("Сотрудник",Сотр.Сотрудник));
			Если НЕ Сост.Состояние = Перечисления.СостоянияРаботникаОрганизации.Работает Тогда 
				Если Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаНачала < Сост.ПериодЗавершения Тогда
					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаНачала, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"! Можно переместить после "+Формат(Сост.ПериодЗавершения, "ДЛФ=DD") , СтатусСообщения.ОченьВажное);		
					Отказ = Истина;  // Запрет проведения
				ИначеЕсли НЕ Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаНачала < Сост.ПериодЗавершения Тогда
					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаНачала, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"!", СтатусСообщения.ОченьВажное);
					Отказ = Истина; // Запрет проведения
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;  	
КонецПроцедуры

Категория: Документы