Как составить отчет, выводящий сотрудников, работавших на дату в 77?

"1С 77.025 ЗиК 7.70.295<br>Нужен отчет, который выбирал бы сотрудников, работавших на предприятии на определенную дату. В Отчеты - Произвольные нет реквизита отбора по датам (т.е. показать всех, у кого Дата приема на работу > произвольная дата < увольнения или работа по н.в) Как его составить? Или сделать обработку?<br><br>Нашел в интернете:<br><br>СпрСот = СоздатьОбъект("Справочник.Сотрудники"); <br>СпрСот.ВыбратьЭлементы();<br>Пока СпрСот.ПолучитьЭлемент() = 1 Цикл <br>Если СпрСот.СостояниеФизЛица.Получить(ДатаДок) = Перечисление.СостояниеФизЛица.СотрудникОсновной Тогда<br>НоваяСтрока();<br>Сотрудник = СпрСот.ТекущийЭлемент();<br>ТипЧасов = Типч;<br>КонецЕсли; <br>КонецЦикла;<br><br>Запускаю во внешней обработке, но у меня она выдает:<br><br>Если СпрСот.СостояниеФизЛица.Получить(ДатаДок<<?>>) = Перечисление.СостояниеФизЛица.СотрудникОсновной Тогда<br>{\\BASE\EXTFORMS\SOTR_NA_DATU.ERT(6)}: Переменная не определена (ДатаДок)<br>НоваяСтрока<<?>>();<br>{\\BASE\EXTFORMS\SOTR_NA_DATU.ERT(7)}: Процедура не обнаружена (НоваяСтрока)<br>ТипЧасов = Типч<<?>>;<br>{\\BASE\EXTFORMS\SOTR_NA_DATU.ERT(9)}: Переменная не определена (Типч)"

"То что вы нашли в интернете, это довольно простой кусок алгоритма с точки зрения корректности собираемых данных. Его особенности:<br>- не будут выведены все сотрудники, находящиеся в отпуске по уходу за ребенком<br>- не будут выведены все сотрудники, являющиеся внешними совместителями<br>- не будут выведены все сотрудники, работающие по договору гражданско-правового характера<br><br>Сразу у вас оно не заработало потому что алгоритм, который вы видите написан для заполнения табличной части какого то документа, вероятно табеля учета рабочего времени и ожидается, что есть табличная часть, предопределенный реквизит ДатаДок, описывающий момент, на который происходит выборка и все такое. Короче, в чистом виде, как вы это нашли, вас это не устроит, совершенно точно.<br>Алгоритм должен быть примерно такой:<br><br>НужнаяДата=Дата("26.03.2006"); //какая то дата, на которую формируем выборку<br>Сотрудники=СоздатьОбъект("Справочник.Сотрудники");<br>Сотрудники.ВыбратьЭлементы(0);<br>Пока Сотрудники.ПолучитьЭлемент(1)=1 Цикл<br> ТекСотрудник=Сотрудники.ТекущийЭлемент()<br> Если ПустоеЗначение(ТекСотрудник.СостояниеФизЛица.Получить(НужнаяДата))=0 Тогда<br>       Сообщить(ТекСотрудник);<br> ИначеЕсли глВидРасчетаДействует(ТекСотрудник,,НужнаяДата,НужнаяДата)=1 Тогда<br>       Сообщить(ТекСотрудник);<br> КонецЕсли;<br>КонецЦикла;"