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

  // Функции получения количества рабочих дней по графику работы сотрудника ил по производственному календарю 
Функция КоличествоРабочихДнейПоГрафикуРаботы(ДатаН, ДатаК, ГрафикРаботы)
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,
	|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени,
	|	СУММА(ГрафикиРаботыПоВидамВремени.ОсновноеЗначение) КАК ОсновноеЗначение,
	|	СУММА(ГрафикиРаботыПоВидамВремени.ДополнительноеЗначение) КАК ДополнительноеЗначение,
	|	СУММА(ГрафикиРаботыПоВидамВремени.ОсновноеЗначениеНорма) КАК ОсновноеЗначениеНорма,
	|	СУММА(ГрафикиРаботыПоВидамВремени.ДополнительноеЗначениеНорма) КАК ДополнительноеЗначениеНорма
	|ИЗ
	|	РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ГрафикиРаботыПоВидамВремени
	|ГДЕ
	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы = &ГрафикРаботы
	|	И ГрафикиРаботыПоВидамВремени.Дата МЕЖДУ &ДатаН И &ДатаК
	|	И ГрафикиРаботыПоВидамВремени.ВидУчетаВремени = &ВидУчетаВремени
	|
	|СГРУППИРОВАТЬ ПО
	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,
	|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени";   	
	
	Запрос.УстановитьПараметр("ГрафикРаботы", ГрафикРаботы);
	Запрос.УстановитьПараметр("ДатаК", ДатаК);
	Запрос.УстановитьПараметр("ДатаН", ДатаН);
	Запрос.УстановитьПараметр("ВидУчетаВремени", Перечисления.ВидыУчетаВремени.ПоДням);
	Выборка = Запрос.Выполнить().Выбрать();
	Если Выборка.Следующий() Тогда
		ОсновноеЗначение = Выборка.ОсновноеЗначение;
	Иначе
		ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение графика!");
		ОсновноеЗначение = 0;
	КонецЕсли;
	
	Возврат ОсновноеЗначение;
КонецФункции

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

	Запрос.УстановитьПараметр("ДатаК", ДатаК);
	Запрос.УстановитьПараметр("ДатаН", ДатаН);
	Выборка = Запрос.Выполнить().Выбрать();
	Если Выборка.Следующий() Тогда
		ОсновноеЗначение = Выборка.Пятидневка;
	Иначе
		ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение графика!");
		ОсновноеЗначение = 0;
	КонецЕсли;
	
	Возврат ОсновноеЗначение;
КонецФункции   

 // Добавить сторно-записи в набор и в табличную часть.
Процедура ДобавитьСтрокуСторноОсновныхНачислений(ДанныеСтроки,
НаборЗаписей, ТабличнаяЧасть = Неопределено)
Движение = НаборЗаписей.Добавить();
// Предопределенные поля.
Движение.ПериодРегистрации = ДанныеСтроки.ПериодРегистрацииСторно;
Движение.ПериодДействияНачало = ДанныеСтроки.ПериодДействияНачалоСторно;
Движение.ПериодДействияКонец = ДанныеСтроки.ПериодДействияКонецСторно;
Движение.ВидРасчета = ДанныеСтроки.ВидРасчета;
Движение.Сторно = Истина;
// Измерения.

Движение.ФизЛицо = ДанныеСтроки.ФизЛицо;

Движение.Организация = ДанныеСтроки.Организация;
// Реквизиты.
Движение.ГрафикРаботы = ДанныеСтроки.ГрафикРаботы;
Движение.Размер = ДанныеСтроки.Размер;
Движение.ВидУчетаВремени = ДанныеСтроки.ВидУчетаВремени;
Движение.Подразделение = ДанныеСтроки.Подразделение;
Движение.СтатьяЗатрат = ДанныеСтроки.СтатьяЗатрат;
Если Не ТабличнаяЧасть = Неопределено Тогда
НоваяСтрока = ТабличнаяЧасть.Добавить();
НоваяСтрока.ФизЛицо = ДанныеСтроки.ФизЛицо;
НоваяСтрока.ВидРасчета = ДанныеСтроки.ВидРасчета;
НоваяСтрока.ДатаНачало = ДанныеСтроки.ПериодДействияНачалоСторно;
НоваяСтрока.ДатаКонец = ДанныеСтроки.ПериодДействияКонецСторно;
НоваяСтрока.Размер = ДанныеСтроки.Размер;
НоваяСтрока.Подразделение = ДанныеСтроки.Подразделение;
НоваяСтрока.Сторно = Истина;
КонецЕсли;
КонецПроцедуры // ДобавитьСтрокуСторноОсновныхНачислений
// Процедура расчета основных начислений.
Процедура РассчитатьОсновныеНачисления() Экспорт
НачатьТранзакцию();
// Сформировать набор записей.
// …
// Сформировать таблицу сторно-записей.
ТаблицаСторно = НаборОсновныеНачисления.ПолучитьДополнение();
// Добавить сторно-записи в набор.
Для Каждого СтрокаСторно из ТаблицаСторно Цикл
ДобавитьСтрокуСторноОсновныхНачислений(СтрокаСторно,
НаборОсновныеНачисления,
ОсновныеНачисления);
КонецЦикла;

// …
ЗафиксироватьТранзакцию();
КонецПроцедуры // РассчитатьОсновныеНачисления   

 //Формирование записей регистра расчета

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

Движение = НаборЗаписей.Добавить();

// Предопределенные поля. 
Движение.ПериодРегистрации = ПериодРегистрации; 
Движение.ПериодДействияНачало = ДанныеСтроки.ДатаНачало; 
Движение.ПериодДействияКонец = ДанныеСтроки.ДатаКонец; 
Движение.ВидРасчета = ДанныеСтроки.ВидРасчета; 
Движение.Сторно = ДанныеСтроки.Сторно;

// Измерения.
Движение.ФизЛицо = ДанныеСтроки.ФизЛицо; Движение.Организация= Организация;

// Ресурсы.
Движение.Результат = ДанныеСтроки.Результат;

// Реквизиты.
Движение.ГрафикРаботы = ДанныеСтроки.ФизЛицо.ГрафикРаботы; 
Движение.Размер = ДанныеСтроки.Размер;
Движение.ВидУчетаВремени = ДанныеСтроки.ВидРасчета.ВидУчетаВремени; 
Движение.Подразделение = ДанныеСтроки.Подразделение; 
Движение.СтатьяЗатрат = ДанныеСтроки.ВидРасчета.СтатьяЗатрат;

КонецПроцедуры // ДобавитьСтрокуОсновныхНачислений

// Обработка проведения.
Процедура ОбработкаПроведения(Отказ)

Движения.ОсновныеНачисленияРегл.Записывать = Истина; Движения.ДополнительныеНачисленияРегл.Записывать = Истина;

// Сформировать запрос по табличной части при помощи функции общего модуля. ВыборкаОсновныеНачисления = ОбщегоНазначения.
СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ОсновныеНачисления").Выбрать();

// По каждой строке табличной части сформировать запись в регистр. Пока ВыборкаОсновныеНачисления.Следующий() Цикл
ДобавитьСтрокуОсновныхНачислений(ВыборкаОсновныеНачисления, Движения.ОсновныеНачисленияРегл);
настройка алгоритмов расчета

КонецЦикла;

// Запись дополнительных начислений в регистр.
ВыборкаДополнительныеНачисления = ОбщегоНазначения.
СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ДополнительныеНачисления").Выбрать();

Пока ВыборкаДополнительныеНачисления.Следующий() Цикл

ДобавитьСтрокуДополнительныхНачислений(ВыборкаДополнительныеНачисления, Движения.ДополнительныеНачисленияРегл);

КонецЦикла;

КонецПроцедуры // ОбработкаПроведения   

 
ТаблицаСторноЗаписей = Движения.ОсновныеНачисленияРаботниковОрганизации.ПолучитьДополнение(); 

Для каждого СтрокаСторно Из ТаблицаСторноЗаписей Цикл 

	// Добавить сторно-записи в набор записей регистра. 
	// Новая запись движений. 
	Движение = Движения.ОсновныеНачисленияРаботниковОрганизации.Добавить(); 

	// Заполнить свойства. 
	Движение.ПериодРегистрации = Строка.ПериодРегистрацииСторно; 
	Движение.ПериодДействияНачало = Строка.ПериодДействияНачалоСторно; 
	Движение.ПериодДействияКонец = Строка.ПериодДействияКонецСторно; 
	Движение.БазовыйПериодНачало = Строка.БазовыйПериодНачало; 
	Движение.БазовыйПериодКонец = Строка.БазовыйПериодКонец; 
	Движение.ВидРасчета = Строка.ВидРасчета; 
	Движение.Сторно = Истина; 

	// Заполнить измерения. 
	Движение.ФизЛицо = Строка.ФизЛицо; 
	Движение.Приказ = Строка.Приказ; 
	Движение.Организация = Строка.Организация; 

	// Ресурсы не заполнять, потому что здесь не происходит расчет, 
	// только подготовка новой записи 

	// Заполнить реквизиты. 
	Движение.ГрафикРаботы = Строка.ГрафикРаботы; 
	Движение.Размер = Строка.Размер; 
	Движение.ВидУчетаВремени = Строка.ВидУчетаВремени; 
	Движение.ПодразделениеОрганизации = Строка.ПодразделениеОрганизации; 
	Движение.ПериодРасчетаСреднегоЗаработкаНачало = Строка.ПериодРасчетаСреднегоЗаработкаНачало; 
	Движение.ПериодРасчетаСреднегоЗаработкаОкончание = Строка.ПериодРасчетаСреднегоЗаработкаОкончание; 
КонецЦикла; 

Движения.ОсновныеНачисленияРаботниковОрганизации.Записать();