5.
Onegsky
9
12.12.12 12:45
Сейчас в теме
() ffv,
Здравствуйте, ffv.
Обработка для ЗиК. Просто наша конфигурация содержит ряд добавленных объектов, в том числе, справочник "глСпрРарус_ОтпускаПрошлыхГодов", добавленный когда-то Рарусом.
Вам нужно закомментировать строки 47 - 85:
//Изменения {начало} СофтПоинт СотникСА 19.07.2011 от РХ
//Заполним все отклонения от нормы рабочего графика
ЭтоСотрудникСВ = глЭтоСотрудникСВ(Сотрудник);
Если ЭтоСотрудникСВ = 1 Тогда
Если ДатаНачала < '08.04.2011' Тогда
ДнейПо = Мин(ДатаОкончания, '07.04.2011') - ДатаНачала;
глСпрРарус_ОтпускаПрошлыхГодов.ИспользоватьВладельца(Сотрудник);
глСпрРарус_ОтпускаПрошлыхГодов.ВыбратьЭлементы();
Пока глСпрРарус_ОтпускаПрошлыхГодов.ПолучитьЭлемент() = 1 Цикл
Если (глСпрРарус_ОтпускаПрошлыхГодов.Начало >= ДатаНачала)
ИЛИ (глСпрРарус_ОтпускаПрошлыхГодов.Окончание >= ДатаНачала) Тогда
ДатаКон= МИН(глСпрРарус_ОтпускаПрошлыхГодов.Окончание, ДатаОкончания);
ДатаНач= глСпрРарус_ОтпускаПрошлыхГодов.Начало;
Если (глСпрРарус_ОтпускаПрошлыхГодов.Начало < ДатаНачала)
И (глСпрРарус_ОтпускаПрошлыхГодов.Окончание >= ДатаНачала) Тогда
ДатаНач=МАКС(глСпрРарус_ОтпускаПрошлыхГодов.Начало, ДатаНачала);
КонецЕсли;
ИндНач = ДатаНач - ДатаНачала;
ИндКон = ДатаКон - ДатаНачала;
Для инд = ИндНач По ИндКон Цикл
Если (ДатаНачала+инд) < ДатаПриема Тогда
Продолжить;
КонецЕсли;
ИндДня = НомерДняПериода(ДатаНачала, ДатаНачала + инд);
МассивДней[ИндДня] = "Х";
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
СписокВР.ДобавитьЗначение(ВидРасчета.ПроизвольнаяДоплата27); // Оплата по окладу СВ
КонецЕсли;
//Изменения {окончание} СофтПоинт СотникСА 24.08.2011 от РХ