док= Документы.НалоговаяНакладная.СоздатьДокумент().ЭтотОбъект;
////
..........................

дог_= Справочники.ДоговорыКонтрагентов.Выбрать( ,предпр,,);
Если дог_ = Справочники.ДоговорыКонтрагентов.ПустаяСсылка()
Тогда
Сообщить("нееее");
Иначе
док.ДоговорКонтрагента=дог_.ПолучитьОбъект().Ссылка;
КонецЕсли;
//////////
трабла - не записует договоры

док.ДоговорКонтрагента=дог_.ПолучитьОбъект().Ссылка;
нужно
док.ЭтотОбьект.ДоговорКонтрагента=дог_.Ссылка;