Рабочий год в Отпусках организации

Новая тема
Здравствуйте! Конфигурация ЗУП 2.5.58.1 Скажите, пожалуйста, почему в документе Отпуска организации не проставляется рабочий год? Может, ошибка обновления? Не повлияет ли это на что-то? Помогите, пожалуйста, а то кадровики нервничают!!
Мы удаляем дату окончания отпуска и снова ее вставляем, тогда появляется рабочий период.
У меня в бюджетке такая же проблема. Но как вы удаляете дату окончания? Бьюсь - не получается никак. Вместе с датой начала?
"У 1С есть зарегистрированная ошибка:
Код ошибки: 20011342
Дата публикации: 23 ноября 2012 г.
Описание: При вводе фактического отпуска не считается рабочий год, если дата окончания отпуска приходится на первую половину первого месяца рабочего года.

Если это ваш случай, то либо ждать исправления, либо вносить год вручную, либо доработать общий модуль по отпускам: В месте формирования рабочих годов (Функция ОстаткиОтпусков(ТаблицаДанных)) добавить вместо Прервать следующий код (выделен жирным):


Если СтрокаЗаработанныхДней.Период > СтрокаДанных.ДатаОстатков И НовыйРабочийГод Тогда
//Прервать;
//ошибка 20011342 ( после устранения ошибки в релизе - убрать
Если НЕ ПроверитьУсловиеПоОшибке20011342(СтрокаДанных.ДатаОстатков, СтрокаЗаработанныхДней.ДатаНачала) Тогда
Прервать;
КонецЕсли;
//ошибка 20011342 )



КонецЕсли; 


После функции ОстаткиОтпусков добавить следующую функцию:

Функция ПроверитьУсловиеПоОшибке20011342(ДатаОкончанияФактическогоОтпуска, НачалоРабочегоГода)
РезультатПроверки = Ложь;
СерединаМесяца = Цел(Окр((КонецМесяца(НачалоРабочегоГода) - НачалоМесяца(НачалоРабочегоГода)) / (60 * 60 * 24), 0) / 2);
ПериодПерваяПоловинаПервогоМесяцаРабочегоГода = Новый Структура("ДатаНачала, ДатаОкончания", НачалоДня(НачалоРабочегоГода), Дата(Год(НачалоРабочегоГода), Месяц(НачалоРабочегоГода), СерединаМесяца, 23, 59, 59));
Если ДатаОкончанияФактическогоОтпуска >= ПериодПерваяПоловинаПервогоМесяцаРабочегоГода.ДатаНачала И ДатаОкончанияФактическогоОтпуска <= ПериодПерваяПоловинаПервогоМесяцаРабочегоГода.ДатаОкончания Тогда
РезультатПроверки = Истина;
КонецЕсли;
Возврат РезультатПроверки;
КонецФункции
"
Ясно, спасибо. Не хочется код ломать, там пока не ломанная конфа ) Будем ждать обновления...
Bloodwiser, Спасибо!
Читают тему
(гостей: 1)

Быстрый переход