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