Не заполняются реквизиты

"Доброго времени суток!
Прошу помощи в решении следующей проблемы

Из внешней обработки создаю документ. После записи документа, в журнале документа информация о контрагенте появляется, а в самом документе поле незаполнено.
Тип значения реквизита - "Справочник"
Реквизит счета в документе также остается пустым, заполнена только сумма.

Процедура Сформировать()
Док = СоздатьОбъект("Документ.РасхНалоговаяНакладная");
Scet = CreateObject("Счет");
Kontragent = CreateObject("Справочник.Контрагенты");
Док.Новый();

Kontragent.НайтиПоКоду("371");
Док.СчетПокупателя = Scet.НайтиПоКоду("221.1");
Док.НазначитьТип("СубкПокупателя1",Scet.ВидСубконто(1));
Док.НазначитьТип("СубкПокупателя2",Scet.ВидСубконто(2));
Док.СубкПокупателя1 = Kontragent.ТекущийЭлемент();
       Док.НоваяСтрока();
       Док.ВалСум = 300;
Док.Записать();
КонецПроцедуры

Подскажите, пожалуйста, в чем загвоздка "

Scet.НайтиПоКоду("221.1")
Возвращает 0 или 1, т.е. найдено или не найдено, а не элемент справочника.

спасибо, а слона то я и не заметил )

Ой, это же план счетов, а не справочник, но сути не меняет
А почему не используете СчетПоКоду()?

удачи во всем и еще раз спасибо!!!