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

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

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

При доработке ЗУПа потребовалось во фронте расчетчика информативно выводить все плановые начисления и удержания по сотруднику на текущий момент. В результате 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")+ " - "+Строка(Сост.Состояние)+"!", СтатусСообщения.ОченьВажное);

					Отказ = Истина; // Запрет проведения

				КонецЕсли;

			КонецЕсли;

		КонецЦикла;

	КонецЕсли;  	

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

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