Как программно создать договор контрагента.

Первый раз пишу в 1Cv8.
Импортирую контрагентов из excel. Надо записать договор, взял из формы справочника процедуру.

Процедура ПроверитьОсновнойДоговорКонтрагента(Контрагент, НовыйОсновнойДоговорУказан)

НайденныйДоговорОбъект = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
НайденныйДоговорОбъект.Наименование = "Основной договор";

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

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

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

НайденныйДоговорОбъект.Владелец = Контрагент;
НайденныйДоговорОбъект.ВидУсловийДоговора = Перечисления.ВидыУсловийДоговоровВзаиморасчетов.БезДополнительныхУсловий;

Если Контрагент.Покупатель Тогда
НайденныйДоговорОбъект.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
НайденныйДоговорОбъект.ТипЦен = Справочники.ТипыЦенНоменклатуры.ПустаяСсылка();
ИначеЕсли Контрагент.Поставщик Тогда
НайденныйДоговорОбъект.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
НайденныйДоговорОбъект.ТипЦен = Справочники.ТипыЦенНоменклатурыКонтрагентов.ПустаяСсылка();
Иначе
НайденныйДоговорОбъект.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.Прочее;
КонецЕсли;

НайденныйДоговорОбъект.Записать();
!!!!!/////////////////////ОШИБКА:Вид договора "С поставщиком" может устанавливаться только когда у контрагента указано что он является поставщиком.
!!!!////////////////////////////////////////
ОсновнойДоговорКонтрагента = НайденныйДоговорОбъект.Ссылка;
НовыйОсновнойДоговорУказан = Истина;

КонецПроцедуры

Записываю элемент так:

НовыйКонтрагент=Справочники.Контрагенты.СоздатьЭлемент();
НовыйКонтрагент.Родитель=Родитель;
НовыйКонтрагент.Наименование=Зн;
НовыйКонтрагент.НаименованиеПолное=Зн;
НовыйКонтрагент.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
НовыйКонтрагент.Поставщик=Истина;
НовыйКонтрагент.НаименованиеПолное=Зн;
НовыйКонтрагент.Записать();
Состояние("Записано "+Ы+" Контрагентов");

НовыйОсновнойДоговорУказан = Ложь;
ПроверитьОсновнойДоговорКонтрагента(НовыйКонтрагент, НовыйОсновнойДоговорУказан);

Происходит ошибка: Вид договора "С поставщиком" может устанавливаться только когда у контрагента указано что он является поставщиком.
в процедуре ПередЗаписью() формы справочника.
Как это правильно сделать?
Заранее спасибо.