заполнение субконто в проводке счет 70

[pevgeni]

Добрый день всем ! Помогите начинающему программисту 1С. Создаю обработку по формировании операции с проводками. Все создается, не могу заполнить Субконто - сотрудника по счету 70. Весь интернет облазил.
Нужен пример рабочий создания Операции и привязка простых проводок.

[MuI_I_Ika]

Проводка.СубконтоКт.Сотрудники = Сотрудник;

[pevgeni]

Проводка.СубконтоКт.Сотрудники = Сотрудник;

Пишет Поле объекта не обнаружено.
Субконто у 70 сч оказывается физлицо.
пробовал подставить физлицо - то же самое.

Вот текст. Если СубконтоКт[0] подставлять - то все проходит но остается незаполненным субконто.
НоваяПроводка.СубконтоКт[0]=НайденныйСотр;


НоваяПроводка = ДокОперация.Движения.Хозрасчетный.Добавить();
   
   
   Если СтрДлина(Планысчетов.Хозрасчетный.НайтиПоКоду(СокрЛП(База.DB)))>0 Тогда
      СчетДт1=Планысчетов.Хозрасчетный.НайтиПоКоду(СокрЛП(База.DB));
         НоваяПроводка.СчетДт=СчетДт1 ;
      Сообщить("Счет Дб="+СчетДт1.Наименование+", "+счетДт1.Код);
   Иначе Сообщить("Не найден в Плане счетов Дб="+СокрЛП(База.DB));
    tok=0;
    КонецЕсли;                           
   
   Если СтрДлина(Планысчетов.Хозрасчетный.НайтиПоКоду(СокрЛП(База.KR)))>0 Тогда
     СчетКт1=Планысчетов.Хозрасчетный.НайтиПоКоду(СокрЛП(База.KR));   
     НоваяПроводка.СчетКТ=СчетКт1 ;
      Сообщить("Счет Кт="+СчетКт1.Наименование+", "+счетКт1.Код);


     Если СтрДлина(СокрЛП(База.KRNAME))>0 Тогда
      СпрСотр=Справочники.ФизическиеЛица; 
      //СпрСотр = Справочники.Сотрудники;
        НайденныйСотр = СпрСотр.НайтиПоНаименованию(СокрЛП(База.KRNAME)); //по наименованию
        Если НайденныйСотр = Неопределено Тогда
       Сообщить("Не найден "+База.KRNAME);
    Иначе
         
       //  НоваяПроводка.СубконтоКт.Сотрудники = НайденныйСотр;
       НоваяПроводка.СубконтоКт[0]=НайденныйСотр; 
      
      
        Сообщить(НайденныйСотр.ФИО);
       КонецЕсли;
        
      КонецЕсли;
   
    Иначе Сообщить("Не найден в Плане счетов Кт="+СокрЛП(База.KR));
    tok=0;
    КонецЕсли;
   
   
   НоваяПроводка.Период=ТекущаяДата();
    НоваяПроводка.Сумма = База.Summa;
   НоваяПроводка.Содержание=База.NAME;
   НоваяПроводка.Активность=истина;