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

Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |    Контрагенты.Ссылка КАК Контрагент,
    |    ДоговорыКонтрагентов.Ссылка КАК Договор
    |ИЗ
    |    Справочник.Контрагенты КАК Контрагенты
    |        ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
    |        ПО Контрагенты.Ссылка = ДоговорыКонтрагентов.Владелец.Ссылка
    |ГДЕ
    |    Контрагенты.ПометкаУдаления = ЛОЖЬ
    |    И Контрагенты.ЭтоГруппа = ЛОЖЬ
    |    И ДоговорыКонтрагентов.Ссылка ЕСТЬ NULL
    |    И Контрагенты.Ссылка В ИЕРАРХИИ(&Группа)
    |
    |УПОРЯДОЧИТЬ ПО
    |    Контрагент";
    Запрос.УстановитьПараметр("Группа", Група);
    Запрос.УстановитьПараметр("ПустойДоговор", Справочники.ДоговорыКонтрагентов.ПустаяСсылка());
    Запрос.УстановитьПараметр("ПустойДоговор", Справочники.ДоговорыКонтрагентов.ПустаяСсылка());
    Результат = Запрос.Выполнить().Выбрать();
    //Результат.Свернуть("Контрагент", "Договор");

    Пока Результат.Следующий() Цикл

    Если ПоКупатель Тогда
        СпрКонтр = Результат.Контрагент.ПолучитьОбъект();
        СпрКонтр.Покупатель = Истина;
        СпрКонтр.Записать();

        НовыйДоговорПокуп = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
        НовыйДоговорПокуп.Наименование = "Основний(покупатель)";
        НовыйДоговорПокуп.НаименованиеДляПечати = "Основний(покупатель)";
        НовыйДоговорПокуп.Организация = Справочники.Организации.НайтиПоКоду("000000001");
        НовыйДоговорПокуп.Владелец = Результат.Контрагент;
        НовыйДоговорПокуп.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
        НовыйДоговорПокуп.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
        НовыйДоговорПокуп.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду("980");
        НовыйДоговорПокуп.ВестиПоДокументамРасчетовСКонтрагентом = Истина;
        НовыйДоговорПокуп.ВестиПоДокументамРасчетовСКонтрагентомРегл = Истина;
        НовыйДоговорПокуп.ВидУсловийДоговора = Перечисления.ВидыУсловийДоговоровВзаиморасчетов.БезДополнительныхУсловий;
        НовыйДоговорПокуп.ОсновнаяСтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ОплатаПокупателя;
        НовыйДоговорПокуп.СхемаНалоговогоУчета = Справочники.СхемыНалоговогоУчетаПоДоговорамКонтрагентов.ПоПервомуСобытию;
        НовыйДоговорПокуп.ВидДоговораПоГК = Справочники.ВидыДоговоровПоГК.НайтиПоКоду("00000000014");
        НовыйДоговорПокуп.ФормаРасчетов = "Оплата з поточного рахунку";
        Сообщить("Створено договір ""Покупки"" для контрагента " + Результат.Контрагент);
        НовыйДоговорПокуп.Записать();

        СпрКонтр = Результат.Контрагент.ПолучитьОбъект();
        СпрКонтр.ОсновнойДоговорКонтрагента = НовыйДоговорПокуп.Ссылка;
        СпрКонтр.Записать();

    Иначе
        СпрКонтр = Результат.Контрагент.ПолучитьОбъект();
        СпрКонтр.Поставщик = Истина;
        СпрКонтр.Записать();

        НовыйДоговорПостав = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
        НовыйДоговорПостав.Наименование = "Основний(поставщик)";
        НовыйДоговорПостав.НаименованиеДляПечати = "Основний поставщик)";
        НовыйДоговорПостав.Организация = Справочники.Организации.НайтиПоКоду("000000001");
        НовыйДоговорПостав.Владелец = Результат.Контрагент;
        НовыйДоговорПостав.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
        НовыйДоговорПостав.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
        НовыйДоговорПостав.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду("980");
        НовыйДоговорПостав.ВестиПоДокументамРасчетовСКонтрагентом = Истина;
        НовыйДоговорПостав.ВестиПоДокументамРасчетовСКонтрагентомРегл = Истина;
        НовыйДоговорПостав.ВидУсловийДоговора = Перечисления.ВидыУсловийДоговоровВзаиморасчетов.БезДополнительныхУсловий;
        НовыйДоговорПостав.ОсновнаяСтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ОплатаПоставщику;
        НовыйДоговорПостав.СхемаНалоговогоУчета = Справочники.СхемыНалоговогоУчетаПоДоговорамКонтрагентов.ПоПервомуСобытию;
        НовыйДоговорПостав.ВидДоговораПоГК = Справочники.ВидыДоговоровПоГК.Поставка;
        НовыйДоговорПостав.ФормаРасчетов = "Оплата з поточного рахунку";
        НовыйДоговорПостав.Записать();
        Сообщить("Створено договір ""Поставки"" для контрагента " + Результат.Контрагент);

        СпрКонтр = Результат.Контрагент.ПолучитьОбъект();
        СпрКонтр.ОсновнойДоговорКонтрагента = НовыйДоговорПостав.Ссылка;
        СпрКонтр.Записать();
    КонецЕсли;
    КонецЦикла;