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