8.х ОперацияБух [РЕШЕНО]

Код:

Процедура КнопкаВыполнитьНажатие(Кнопка)
     
 
    Операция = Документы.ОперацияБух.СоздатьДокумент();
    Операция.Дата = КонецДня(КонПериода);
    Операция.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
    Операция.Записать(РежимЗаписиДокумента.Запись);
    ОперацияСсылка = Операция.Ссылка;
 
    Проводки = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    //Проводки.Отбор.Регистратор.Установить(Операция.Ссылка);
    Проводки.Отбор.Регистратор.Значение = ОперацияСсылка;
    Проводки.Очистить();
    Операция.СпособЗаполнения = "Вручную";
    Проводки.Записать(Истина);
    Проводки.Записывать = Истина;
 
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ХозрасчетныйОбороты.Субконто2,
        |    ХозрасчетныйОбороты.КоличествоОборот,
        |    ХозрасчетныйОбороты.СуммаОборотДт,
        |    ХозрасчетныйОбороты.Организация.Наименование,
        |    ХозрасчетныйОбороты.Подразделение,
        |    ХозрасчетныйОбороты.Субконто1
        |ИЗ
        |    РегистрБухгалтерии.Хозрасчетный.Обороты(&С, &По, Месяц, Счет = &Счет, , , , ) КАК ХозрасчетныйОбороты";
    Запрос.УстановитьПараметр("По", КонецДня(КонПериода));
    Запрос.УстановитьПараметр("С", НачПериода);
    Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01"));
    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
        ОбщаяСумма = 0;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        //Сообщить(ВыборкаДетальныеЗаписи.Субконто2.Наименование + " " + Строка(ВыборкаДетальныеЗаписи.СуммаОборот));
        ОбщаяСумма = ОбщаяСумма + ВыборкаДетальныеЗаписи.СуммаОборотДт;
        Проводка = Проводки.Добавить();
        Проводка.СчетДт =  ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
       Проводка.СчетКт =  ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01");
     
        //Проводка.СубконтоДт = ВыборкаДетальныеЗаписи.Субконто2;
        Проводка.Сумма = ВыборкаДетальныеЗаписи.СуммаОборотДт;
        Проводка.Период          =  КонецДня(КонПериода);
        Проводка.ПодразделениеКт =  ВыборкаДетальныеЗаписи.Подразделение;
        //Проводка.СубконтоДт = ВыборкаДетальныеЗаписи.Субконто2;
        Проводка.СубконтоКт.СтатьиЗатрат         =  ВыборкаДетальныеЗаписи.Субконто2;
        Проводка.СубконтоДт.НоменклатурныеГруппы =  ВыборкаДетальныеЗаписи.Субконто1;
        Проводка.СубконтоКт.НоменклатурныеГруппы =  ВыборкаДетальныеЗаписи.Субконто1; 
    КонецЦикла;
 
    Операция.СуммаОперации = ОбщаяСумма;
    Проводки.Записать(Истина);
    Операция.Записать(РежимЗаписиДокумента.Запись);
    Операция.Проведен = Истина;
КонецПроцедуры

Люди добрый, подскажите пожалуйста, почему у меня документ, который я создаю, сам не проводится.
Только когда я захожу в него нажимаю записать, только тогда он создает проводку.

Операция.Записать();
Так надо?
я просто так пробовал уже.

--- Объединение сообщений, 18 июл 2014 ---

у данного документа, отключено же свойсвто "проведения",

он ругается и говорит:
{Форма.Форма.Форма(65)}: Ошибка при вызове метода контекста (Записать)
Операция.Записать(РежимЗаписиДокумента.Проведение);
по причине:
Для данного документа возможность проведения отключена.

Проведение этого документа задать программно, что бы не заходить в него повторно потом и не перезаписывать.

Я это понимаю, но как то же этот документ создает проводки, когда его записываешь вручную.
Неужели никто не сталкивался с этим?

Я не знаю как это сделать

На троечку.

Сам писал
Сейчас попробую)

--- Объединение сообщений, 18 июл 2014 ---

Спасибо тебе, ты был прав. Все получилось!!!
Я очень рад.