1C Предприятие 7.7 521 релиз подготовка сведений для ПФР

[arcady2010]

У меня вопрос связан с тем , что при заполнении пачки СЭВ6.2 почему то не все работники попали в состав этой пачки. Мною проверено было, что есть приказ о приеме и уволнении. Зарплата начислялась, отчисления все были во все фонды, порядок документов не нарушен, я имею ввиду закрытие месяца замыкает список. Человек который не попал в список был принят на работу в начале месяца и уволен был в конце месяца, тоесть проработал где-то дней 15

[arcady2010]

Этот сотрудник не попадает , он не проходит проверку в глобальном модуле в функции
Функция глСотрудникЧислитсяРаботающим(Сотр, ДатаЗнач) Экспорт

Если ПустоеЗначение(Сотр.ТекущийЭлемент()) = 1 Тогда
Возврат 0;

ИначеЕсли Сотр.Выбран() = 0 Тогда
Возврат 0;
КонецЕсли;

ХарактерРаботы = Сотр.ХарактерРаботы.Получить(НачМесяца(ДатаЗнач));
Если (ХарактерРаботы = Перечисление.ХарактерРаботы.ТрудовойДоговор) или
(ХарактерРаботы = Перечисление.ХарактерРаботы.ДоговорГражданскоПравовогоХарактера) или
(ХарактерРаботы = Перечисление.ХарактерРаботы.ДоговорГражданскоПравовогоХарактераВзносы) Тогда
Возврат 1;
КонецЕсли;

ХарактерРаботы = Сотр.ХарактерРаботы.Получить(КонМесяца(ДатаЗнач));
Если (ХарактерРаботы = Перечисление.ХарактерРаботы.ТрудовойДоговор) или
(ХарактерРаботы = Перечисление.ХарактерРаботы.ДоговорГражданскоПравовогоХарактера) или
(ХарактерРаботы = Перечисление.ХарактерРаботы.ДоговорГражданскоПравовогоХарактераВзносы) Тогда
Возврат 1;
КонецЕсли;

Если (Сотр.ХарактерРаботы.Получить(НачМесяца(ДатаЗнач)) = Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены)
И (Сотр.ХарактерРаботы.Получить(КонМесяца(ДобавитьМесяц(ДатаЗнач,-1))) <> Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены) Тогда
Возврат 1;
КонецЕсли;

Если (ПустоеЗначение(Сотр.ХарактерРаботы.Получить(НачМесяца(ДатаЗнач))) = 1)
И (Сотр.ХарактерРаботы.Получить(КонМесяца(ДатаЗнач)) = Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены) Тогда
Возврат 1;
КонецЕсли;

Возврат 0;

КонецФункции // глСотрудникЧислитсяРаботающим()
Пока до конца не разобрался но думаю причина в дате приема или увольнения.
Эта функция вызывается в запросе
Функция ПолучитьСписокСотрудников(ДатаНачала, ДатаОкончания=0)

Если ДатаОкончания = 0 Тогда
ДатаОкончания = глПолучитьДатуОкончанияОтчетногоПериодаСЗВ(ДатаНачала);
КонецЕсли;

Январь=Строка(ДатаГод(ДатаНачала))+глДополнитьСтроку(ДатаМесяц(ДатаНачала),2);
Декабрь=Строка(ДатаГод(ДатаОкончания))+глДополнитьСтроку(ДатаМесяц(ДатаОкончания),2);

СписокСотрудников = СоздатьОбъект("СписокЗначений");

ЗапросКСправочникам=СоздатьОбъект("Запрос");

ТекстЗапроса =
"//{{ЗАПРОС(СписокСотрудников)
|Без итогов;
|Сотрудник = Справочник.Сотрудники.ТекущийЭлемент;
|СтрахНомер = Справочник.Сотрудники.СтраховойНомерПФР;
|Группировка Сотрудник без групп все;
|"//}}ЗАПРОС
;

Если ЗапросКСправочникам.Выполнить(ТекстЗапроса)=1 Тогда
Пока ЗапросКСправочникам.Группировка() = 1 Цикл
Если ПустоеЗначение(СтрЗаменить(ЗапросКСправочникам.СтрахНомер,"-","")) = 1 Тогда
Продолжить
КонецЕсли;
Сотрудник = ЗапросКСправочникам.Сотрудник;
Если СокрЛП(Сотрудник) = "Абдувасылов Данияр Абдугапарович" Тогда
Сообщить(глСотрудникЧислитсяРаботающим(Сотрудник, ДатаНачала));
Сообщить(глСотрудникЧислитсяРаботающим(Сотрудник, ДатаОкончания));
КонецЕсли;

Если (глСотрудникЧислитсяРаботающим(Сотрудник, ДатаНачала) = 1)
ИЛИ (глСотрудникЧислитсяРаботающим(Сотрудник, ДатаОкончания) = 1) Тогда
Если СписокСотрудников.НайтиЗначение(Сотрудник) = 0 Тогда
//Сообщить(Сотрудник);
СписокСотрудников.ДобавитьЗначение(Сотрудник);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;

[Octopus]

arcady2010, собственно, в чем вопрос? Ошибку вы выявили, проблем с исправлением быть не должно.