Остатки отпусков при переходе на ЗУП 3.0

Задача

Заказчик решил переходить на ЗУП 3.0 (ранее учёт вёлся не в 1С). Основное условие - полный перенос кадровой истории по сотрудникам (работающим на текущий момент) для отражения в Т-2 (в части касающейся текущей задачи это отпуска).

А как же это реализовать?

Ввести остатки отпусков при переходе или переносе данных возможно двумя способами:

1. документ "Ввод начальных остатков отпусков"
2. документ "Данные на начало эксплуатации"

Т.к. мы по задаче переносим кадровую историю, включающую данные по предоставленным ранее отпускам, то наш единственный выбор "Ввод начальных остатков отпусков". Но тут оказалась проблема: если в программе введены данные по фактическим отпускам ранее даты ввода остатков (а у нас как раз такой случай), то ввести остатки не получится! [это задача №1]

Остаток по виду отпуска на определённую дату в общем случае есть разность данных регистра сведений "Заработанные права на отпуска" и регистра накопления "Фактические отпуска", но для верного расчёта остатков в нашем случае необходимо отбросить данные фактических отпусков ранее "глобальной" даты начала ведения учёта в программе (заработанные отпуска автоматически скорректируются документом "Ввод начальных остатков отпусков" на дату ввода). [это задача №2]

Ну и напоследок необходимо верно отображать отчёты по отпускам: печатная форма "Справка по отпускам сотрудника" и отчёт "Остатки отпусков". [это задача №3]

Задача №1

Данная корректировка потребуется только на момент ввода документов "Ввод начальных остатков отпусков".

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

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

	//	Если (ТаблицаСотрудниковИОтпусков.Количество() > 0) И (СуществуютДвиженияФактическихОтпусковРанее(ТаблицаСотрудниковИОтпусков)) Тогда
	//		
	//		ТекстОшибки = НСтр("ru = 'Нельзя вводить остатки датой более поздней, чем зарегистрированные в системе отпуска.'");
	//			
	//		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , , , Отказ);
	//		
	//	КонецЕсли;
	//
	//КонецЕсли;
	
	УдалитьЗаписиЗаработанныхОтпусков(ЭтотОбъект);
	
	УстановитьПривилегированныйРежим(Ложь);
	
КонецПроцедуры

Задача №2

"Глобальная дата" - что в конкретном случае это будет такое, следует решать исходя из обстоятельств. В нашем случае это была дата начала года (все данные мы переносили на 1-ое января), а кому-то может потребоваться и "плавающая" дата. Мы же отделались добавлением экспортной (она нам потребуется в задаче №3) функции ПолучитьДатуНачалаВеденияУчета в общем модуле "ОстаткиОтпусков":

Функция ПолучитьДатуНачалаВеденияУчета() Экспорт

	Возврат Дата("20150101000000");

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

Помимо этого, были внесены изменения в функцию ИсходныеДанныеДляРасчетаОстатков (корректировка запроса):

	|ИЗ
	|	ВТТаблицаДанных КАК ТаблицаДанных
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ФактическиеОтпуска КАК ФактическиеОтпуска
	|			ЛЕВОЕ СОЕДИНЕНИЕ ВТДатаНачальныхОстатковПоВидамОтпусков КАК ДатаНачальныхОстатков
	|			ПО ФактическиеОтпуска.Сотрудник = ДатаНачальныхОстатков.Сотрудник
	|				И ФактическиеОтпуска.ВидЕжегодногоОтпуска = ДатаНачальныхОстатков.ВидЕжегодногоОтпуска
	// Необходимый функционал в рамках задачи по учету остатков отпусков: отбросим фактические отпуска, введённые ранее даты начала учета в ЗУП
	//|				И ФактическиеОтпуска.Период < ДатаНачальныхОстатков.ДатаНачальногоОстатка
	|				И ФактическиеОтпуска.Период < &НачалоУчетаЗУП
	//
	|			ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТКадровыеДанныеСотрудников КАК ТекущиеКадровыеДанныеСотрудников
	|			ПО ФактическиеОтпуска.Сотрудник = ТекущиеКадровыеДанныеСотрудников.Сотрудник
	|		ПО ТаблицаДанных.Сотрудник = ФактическиеОтпуска.Сотрудник

Задача №3

Оказалось, что печатная форма самостоятельно рассчитывает данные по остаткам отпусков, тогда как отчёт целиком строится на данных ранее озвученных регистров по описанной схеме. В реализации на помощь пришёл механизм БСП :-)

Печатная форма "Справка по отпускам сотрудника" заработает после внесения вышеописанных изменений, но в нашем случае Заказчик пожелал видеть данную справку в "старом" формате (изначально перекочевавшем из ЗУП 2.5, но впоследствии изменённом в ЗУП 3.0). Также добавили возможность формирования справки на рабочую дату (удобно для сверки данных на определённый момент в прошлом или будущем периодах).

Основные доработки коснулись отчёта "Остатки отпусков": по аналогии с кодом запроса в функции из общего модуля "ОстаткиОтпусков" (ранее по тексту) был добавлен фильтр на фактические отпуска ранее даты начала учёта.

Эти печатную форму и отчёт приложу для тех, у кого могут возникнуть затруднения в самостоятельной реализации.

Послесловие

Я не стал описывать механизм загрузки остатков в документ "Ввод начальных остатков отпусков" (у нас он был реализован в виде внешней обработки, читающей данные из заранее подготовленных файлов Excel по определённому алгоритму) - реализацию каждый придумает сам. Уточню только, что может быть несколько документов ввода остатков на разные даты и разные виды отпусков (ведь бывает ситуация, когда имеются остатки за разные периоды, но я бы порекомендовал по возможности свести всё на один конкретный период).

Описанный механизм вполне может быть использован для "быстрой" корректировки (без разбирательств в причинах) остатков отпусков по всем сотрудникам (т.к. использует "глобальную" дату).

Также регулярно советую смотреть в типовой отчёт "ОстаткиОтпусков" и актуализировать модифицированный (уже были исправления ошибок от 1С в данном отчёте).

Данный механизм успешно был применён и пока работает (но не исключаю, что однажды 1С что-то изменят и всё сломается).