Не могу создать документ ОперацияБух

[Leviathan]

Друзья, помогите плз, всю голову уже сломал.
Бухгалтерия предприятия, редакция 3.0 (3.0.36.21)

Пытаюсь создать Операцию с проводками. Код в таком виде находил в инете в нескольких местах. У всех работает, понимаешь...

Код Выделить Развернуть

Опер = Документы.ОперацияБух.СоздатьДокумент();
Опер.Дата = '20150302';
Опер.Организация =  Справочники.Организации.НайтиПоКоду("000000003"); 
Опер.Содержание = "Пример программного создания документа 'ОперацияБух'";

НовПроводка = Опер.Движения.Хозрасчетный.Добавить();
НовПроводка.Активность = Истина;
НовПроводка.Организация = Справочники.Организации.НайтиПоКоду("000000003");
НовПроводка.Период = Опер.Дата;
НовПроводка.Содержание = "Оплата от покупателя";
НовПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
НовПроводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("000");
НовПроводка.Сумма = 1008;

Опер.СуммаОперации = 1008;
Опер.Записать(РежимЗаписиДокумента.Запись);
Сообщить(Опер);

Операция создается, сумма операции стоит. Но проводки НЕТ!

[Leviathan]

Кому интересно, удалось победить эту гидру. См. код, изменение выделено комментарием:

Код Выделить Развернуть

Опер = Документы.ОперацияБух.СоздатьДокумент();
Опер.Дата = '20150304';
Опер.Организация =  Справочники.Организации.НайтиПоКоду("000000003"); 
Опер.Содержание = "Пример программного создания документа 'ОперацияБух'";

Опер.Движения.Хозрасчетный.Записывать = Истина;        //Вот чего не хватало для счастья!!!
НовПроводка = Опер.Движения.Хозрасчетный.Добавить();
НовПроводка.Регистратор = Опер.Ссылка;
НовПроводка.Активность = Истина;
НовПроводка.Организация = Справочники.Организации.НайтиПоКоду("000000003");
НовПроводка.Период = Опер.Дата;
НовПроводка.Содержание = "Оплата от покупателя";
НовПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
НовПроводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("000");
НовПроводка.Сумма = 1008;

Опер.СуммаОперации = 1008;
Опер.Записать(РежимЗаписиДокумента.Запись);
Сообщить(Опер);