8.х Договор

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

Вроде все правильно делаю:
в сообщении Договор1 выходит
в СубКонтоКТ1 Сотрудник тоже есть
а в СубКонтоКТ2 Договор1 отсутствует
Подскажите почему так
Благодарю Вас