Нужно поставить договор в документе. Выбрав договоры по контрагенту. Ну и подставить в поле выбора. В документе при выборе договоры выскакивает меню с выбором вида договора(договоры с контрагентами и основные договоры).

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

       //как выбрать и подставить созданный договор?????
           Параметр=СоздатьОбъект("СписокЗначений");
           Параметр.ДобавитьЗначение(ВыбраннаяФирма);
           Параметр.ДобавитьЗначение(Док.Контрагент);
       
       Иначе
           
   КонецЦикла;
КонецПроцедуры

бухия 77 ?

Док.Договор = дог.ТекущийЭлемент();
док.Записать();

(1)Бхия только Бюджетная

за создание объекта в цикле, где этого не требуется - пожизненный эцих с гвоздями.

>>
Если Док.ОснованиеРасчетов.Выбран()=0 Тогда
           Сообщить("Нет договора у "+ док.Контрагент.Наименование);

Весьма спорное утверждение...

(4)как перебрать тогда???

(6) согласно правилам хорошего тона, договор перед созданием неплохо бы поискать. если договор не выбран в документе, это еще не значит, что его нет...

(6)Это ясно. Вопрос как поставить его???

дог.родитель - хня! наверное дог.владелец

(5)не могу понять как проверить на пустое значение???

Как-то так

   Док=СоздатьОбъект("Документ.ХХХ");
   Док.ВыбратьДокументы(НачДата,КонДата);
   Пока Док.ПолучитьДокумент() = 1 Цикл
       Если Док.ОснованиеРасчетов.Выбран()=0 Тогда
           Сообщить("Скорее всего Нет договора у "+ док.Контрагент.Наименование);
           Дог=СоздатьОбъект("Справочник.Договоры");
           //* проверим это
           Дог.ИспользоватьВладельца(док.Контрагент);
           ЕстьДог = 0;
           
           //* Вариант 1 - когда тупо надо наличие хоть какого-то договора
           ЕстьДог = Дог.ВыбратьЭлементы();
               
           //* Вариант 2 - когда надо наличие договора с определенными параметрами,
           Дог.ВыбратьЭлементы();
           Пока Дог.ПолучитьЭлемент() = 1 Цикл
               Если Дог.ПометкаУдаления() = 0
               Тогда
                   Продолжить;
               КонецЕсли;
               
               //* тут проверка на существование нужных значений у полей договора
               //* например договоры с датой больше, чем у документа - не интересны
               Если Дог.ДатаДоговора > Док.ДатаДок
               Тогда
                   Продолжить;
               КонецЕсли;
               ЕстьДог = 1;
           КонецЦикла;
           
           Если ЕстьДог = 0
           Тогда
               Дог.Новый();
               Дог.Наименование= "Дог с " + Док.Контрагент.Наименование;
               Дог.Записать();
               
               Если ПустоеЗначение(Док.Контагент.ОсновнойДоговор) = 0 // или как у тебя в кофе называется поле для основного договора у Контра?
               Тогда
                   спрКонтр = СоздатьОбъект("Справочник.Контрагенты");
                   спрКонтр.НайтиЭлемент(Док.Контрагент);
                   спрКонтр.ОсновнойДоговор = Дог.ТекущийЭлемент();
                   спрКонтр.Записать();
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;



в коде из (11) есть несколько ошибок в условиях:

...
//Если Дог.ПометкаУдаления() = 0
Если Дог.ПометкаУдаления() = 1
...
//Если ПустоеЗначение(Док.Контагент.ОсновнойДоговор) = 0 // или как у тебя
Если ПустоеЗначение(Док.Контагент.ОсновнойДоговор) = 1 // или как у тебя
...


Если Док.ОснованиеРасчетов.Выбран()=0 Тогда


не проверяет(это при выборе наверно), как правильно проверить на наличие поставленного договора???

Если ПустоеЗначение(Док.ОснованиеРасчетов) = 0

Если ПустоеЗначение(Док.ОснованиеРасчетов) = 1

- значение неопределенного типа - всегда пустое;