видучетавремени » Поиск

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

Получить количество рабочих дней сотрудника

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

Код 1C v 8.х

  // Функции получения количества рабочих дней по графику работы сотрудника ил по производственному календарю 

Функция КоличествоРабочихДнейПоГрафикуРаботы(ДатаН, ДатаК, ГрафикРаботы)

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,

	|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ОсновноеЗначение) КАК ОсновноеЗначение,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ДополнительноеЗначение) КАК ДополнительноеЗначение,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ОсновноеЗначениеНорма) КАК ОсновноеЗначениеНорма,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ДополнительноеЗначениеНорма) КАК ДополнительноеЗначениеНорма

	|ИЗ

	|	РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ГрафикиРаботыПоВидамВремени

	|ГДЕ

	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы = &ГрафикРаботы

	|	И ГрафикиРаботыПоВидамВремени.Дата МЕЖДУ &ДатаН И &ДатаК

	|	И ГрафикиРаботыПоВидамВремени.ВидУчетаВремени = &ВидУчетаВремени

	|

	|СГРУППИРОВАТЬ ПО

	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,

	|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени";   	

	

	Запрос.УстановитьПараметр("ГрафикРаботы", ГрафикРаботы);

	Запрос.УстановитьПараметр("ДатаК", ДатаК);

	Запрос.УстановитьПараметр("ДатаН", ДатаН);

	Запрос.УстановитьПараметр("ВидУчетаВремени", Перечисления.ВидыУчетаВремени.ПоДням);

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		ОсновноеЗначение = Выборка.ОсновноеЗначение;

	Иначе

		ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение графика!");

		ОсновноеЗначение = 0;

	КонецЕсли;

	

	Возврат ОсновноеЗначение;

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



Функция КоличествоРабочихДнейПоПроизвКаленд(ДатаН, ДатаК)

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	СУММА(РегламентированныйПроизводственныйКалендарь.КалендарныеДни) КАК КоличествоДней,

	|	СУММА(РегламентированныйПроизводственныйКалендарь.Пятидневка) КАК Пятидневка,

	|	СУММА(РегламентированныйПроизводственныйКалендарь.Шестидневка) КАК Шестидневка

	|ИЗ

	|	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь

	|ГДЕ

	|	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря >= &ДатаН

	|	И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <= &ДатаК"; 



	Запрос.УстановитьПараметр("ДатаК", ДатаК);

	Запрос.УстановитьПараметр("ДатаН", ДатаН);

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		ОсновноеЗначение = Выборка.Пятидневка;

	Иначе

		ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение графика!");

		ОсновноеЗначение = 0;

	КонецЕсли;

	

	Возврат ОсновноеЗначение;

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

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

Добавление в набор сторно-записей

Если в рассчитываемом регистре установлено свойство Период действия, в сформированном наборе могут присутствовать записи, у которых период действия принадлежит более раннему периоду, чем период регистрации. В этом случае они могут вступать в конкуренцию на этом периоде действия с записями более раннего периода регистрации. Чтобы такие записи могли иметь непустой фактический период действия, необходимо допол- нить сформированный набор соответствующими сторно-записями.

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

Код 1C v 8.х

 // Добавить сторно-записи в набор и в табличную часть.

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

НаборЗаписей, ТабличнаяЧасть = Неопределено)

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

// Предопределенные поля.

Движение.ПериодРегистрации = ДанныеСтроки.ПериодРегистрацииСторно;

Движение.ПериодДействияНачало = ДанныеСтроки.ПериодДействияНачалоСторно;

Движение.ПериодДействияКонец = ДанныеСтроки.ПериодДействияКонецСторно;

Движение.ВидРасчета = ДанныеСтроки.ВидРасчета;

Движение.Сторно = Истина;

// Измерения.



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



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

// Реквизиты.

Движение.ГрафикРаботы = ДанныеСтроки.ГрафикРаботы;

Движение.Размер = ДанныеСтроки.Размер;

Движение.ВидУчетаВремени = ДанныеСтроки.ВидУчетаВремени;

Движение.Подразделение = ДанныеСтроки.Подразделение;

Движение.СтатьяЗатрат = ДанныеСтроки.СтатьяЗатрат;

Если Не ТабличнаяЧасть = Неопределено Тогда

НоваяСтрока = ТабличнаяЧасть.Добавить();

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

НоваяСтрока.ВидРасчета = ДанныеСтроки.ВидРасчета;

НоваяСтрока.ДатаНачало = ДанныеСтроки.ПериодДействияНачалоСторно;

НоваяСтрока.ДатаКонец = ДанныеСтроки.ПериодДействияКонецСторно;

НоваяСтрока.Размер = ДанныеСтроки.Размер;

НоваяСтрока.Подразделение = ДанныеСтроки.Подразделение;

НоваяСтрока.Сторно = Истина;

КонецЕсли;

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

// Процедура расчета основных начислений.

Процедура РассчитатьОсновныеНачисления() Экспорт

НачатьТранзакцию();

// Сформировать набор записей.

// …

// Сформировать таблицу сторно-записей.

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

// Добавить сторно-записи в набор.

Для Каждого СтрокаСторно из ТаблицаСторно Цикл

ДобавитьСтрокуСторноОсновныхНачислений(СтрокаСторно,

НаборОсновныеНачисления,

ОсновныеНачисления);

КонецЦикла;



// …

ЗафиксироватьТранзакцию();

КонецПроцедуры // РассчитатьОсновныеНачисления

При формировании сторно-записей данные всех измерений и реквизитов записи указаны в строке дополнения. Также в этой строке содержатся данные о периоде регистрации и периоде действия сторно-записи. Ресурсы сторно-записи не заполняются, так как запись будет рассчитана в общем порядке

Категория: Регистры расчета

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

Для формирования записей регистра расчета используется метод Добавить() объекта РегистрРасчетаНаборЗаписей

Код 1C v 8.2 УП

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



// Процедура добавляет запись в регистр основных начислений.

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



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



// Предопределенные поля. 

Движение.ПериодРегистрации = ПериодРегистрации; 

Движение.ПериодДействияНачало = ДанныеСтроки.ДатаНачало; 

Движение.ПериодДействияКонец = ДанныеСтроки.ДатаКонец; 

Движение.ВидРасчета = ДанныеСтроки.ВидРасчета; 

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



// Измерения.

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



// Ресурсы.

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



// Реквизиты.

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

Движение.Размер = ДанныеСтроки.Размер;

Движение.ВидУчетаВремени = ДанныеСтроки.ВидРасчета.ВидУчетаВремени; 

Движение.Подразделение = ДанныеСтроки.Подразделение; 

Движение.СтатьяЗатрат = ДанныеСтроки.ВидРасчета.СтатьяЗатрат;



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



// Обработка проведения.

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



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



// Сформировать запрос по табличной части при помощи функции общего модуля. ВыборкаОсновныеНачисления = ОбщегоНазначения.

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



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

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

настройка алгоритмов расчета



КонецЦикла;



// Запись дополнительных начислений в регистр.

ВыборкаДополнительныеНачисления = ОбщегоНазначения.

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



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



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



КонецЦикла;



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

Категория: Регистры расчета

Сторнирование уже произведенных расчетов прошлых периодов?

Аналогично делается сторнирование по регистрам накопления и бухгалтерии

Пример для регистра расчета ОсновныеНачисленияРаботниковОрганизации:

Код 1C v 8.х

 

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



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



	// Добавить сторно-записи в набор записей регистра. 

	// Новая запись движений. 

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



	// Заполнить свойства. 

	Движение.ПериодРегистрации = Строка.ПериодРегистрацииСторно; 

	Движение.ПериодДействияНачало = Строка.ПериодДействияНачалоСторно; 

	Движение.ПериодДействияКонец = Строка.ПериодДействияКонецСторно; 

	Движение.БазовыйПериодНачало = Строка.БазовыйПериодНачало; 

	Движение.БазовыйПериодКонец = Строка.БазовыйПериодКонец; 

	Движение.ВидРасчета = Строка.ВидРасчета; 

	Движение.Сторно = Истина; 



	// Заполнить измерения. 

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

	Движение.Приказ = Строка.Приказ; 

	Движение.Организация = Строка.Организация; 



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

	// только подготовка новой записи 



	// Заполнить реквизиты. 

	Движение.ГрафикРаботы = Строка.ГрафикРаботы; 

	Движение.Размер = Строка.Размер; 

	Движение.ВидУчетаВремени = Строка.ВидУчетаВремени; 

	Движение.ПодразделениеОрганизации = Строка.ПодразделениеОрганизации; 

	Движение.ПериодРасчетаСреднегоЗаработкаНачало = Строка.ПериодРасчетаСреднегоЗаработкаНачало; 

	Движение.ПериодРасчетаСреднегоЗаработкаОкончание = Строка.ПериодРасчетаСреднегоЗаработкаОкончание; 

КонецЦикла; 



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

Категория: Регистры расчета