Сотрудник = НайтиСотрудника(ФИО);
НайденныйДоговор = Справочники.ДоговорыКонтрагентов.Выбрать(,Сотрудник,,);
 Пока НайденныйДоговор.Следующий() Цикл
   Если Сред(НайденныйДоговор.Наименование,1,13)="Договор займа" Тогда
          Сотрудник1=НайденныйДоговор.Наименование;
   КонецЕсли;
 КонецЦикла;
Функция НайтиСотрудника(НаименованиеСотрудника)
НайденныйСотрудник = Справочники.Контрагенты.НайтиПоНаименованиюНаименованиеСотрудника,Истина);
  Если НайденныйСотрудник.Пустая() Тогда
		НовыйСотрудник = Справочники.Контрагенты.СоздатьЭлемент();
		НовыйСотрудник.Наименование       = НаименованиеСотрудника;
		НовыйСотрудник.НаименованиеПолное = НаименованиеСотрудника;
		НовыйСотрудник.УстановитьНовыйКод();
		НовыйСотрудник.Записать();
		НовыйСотрудник.ГоловнойКонтрагент = НовыйСотрудник.Ссылка;
		НовыйСотрудник.Записать();
		НайденныйСотрудник = НовыйСотрудник.Ссылка;
 КонецЕсли;
		Возврат НайденныйСотрудник;
	КонецФункции 

Сотрудник = НайтиСотрудника(ФИО);
	НайденныйДоговор = Справочники.ДоговорыКонтрагентов.Выбрать(,Сотрудник,,);
	Пока НайденныйДоговор.Следующий() Цикл
	Сотрудник1=НайденныйДоговор.Наименование;
			Сообщить(Сотрудник1,СтатусСообщения.Важное);
	 КонецЦикла;
 Проводка.СчетКт      = ПланыСчетов.Хозрасчетный.ПредоставленныеЗаймы;
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, 1, Сотрудник);
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, 2, Сотрудник1);