ОперацияБух не отображается в оборотке

(1) Вроде бы поставил, все равно не помогло. Вот код:

        ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
        Смена=ТаблСмен.Найти(стр.Смена,"КодСмены");
        ДокОперация.Дата = Смена.Начало;
        ДокОперация.Организация = Справочники.Организации.НайтиПоКоду("00000002 ");;
        ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокОперация, глЗначениеПеременной("глТекущийПользователь"), Константы.ВалютаРегламентированногоУчета.Получить(), "Продажа",);
        Контр=ПолучитьКонтрагента(стр.КодОснования,стр.КодАЗс);
        Если стр.КодОснования=12 Тогда
            ДокОперация.Содержание = "Физические лица, Бонус наличные деньги";
            ДокОперация.Комментарий = "Физические лица, Бонус наличные деньги";
        ИначеЕсли стр.КодОснования=13 Тогда
            ДокОперация.Содержание = ""+Контр+", Бонус безналичный расчет";
            ДокОперация.Комментарий =""+Контр+", Бонус безналичный расчет";
        КонецЕсли;
        ДокОперация.СпособЗаполнения = "Вручную";
        ДокОперация.Записать();
        ДокОперацияСсылка = ДокОперация.Ссылка;
        Строка1 = ДокОперация.ЭтотОбъект.Движения.Хозрасчетный.Добавить();
        Строка1.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
        Строка1.СубконтоДт.ПрочиеДоходыИРасходы=Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00284");
        Строка1.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.05");
        Строка1.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("з00001480");
        Строка1.СубконтоКт.Договоры =Строка1.СубконтоКт.Контрагенты.ОсновнойДоговорКонтрагента;
        Строка1.Сумма= Окр(стр.ФактСумма/100*2,2);
        Строка1.Содержание  = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
        Строка1.Период = ДокОперация.Дата;
        Строка1.Активность=Истина;
        ДокОперация.СуммаОперации=Строка1.Сумма;
        ДокОперация.Записать(РежимЗаписиДокумента.Запись);
        Сообщить(ДокОперация);