Здравствуйте, есть проблемка.

Бухгалтерия 3.0.31.11 и ранее. Было сделана дописка в базе, которая на основании документа реализации создавался документ "Операция Бу и НУ" вот по такому коду:

ИначеЕсли (ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РеализацияТоваровУслуг")) Тогда
        ДокументОснование = ДанныеЗаполнения.ПолучитьОбъект();
        ДокументОбъект.Содержание = ДокументОснование.Комментарий;
        ДокументОбъект.Организация = ДокументОснование.Организация;
        ДокументОбъект.Дата = ?(НачалоДня(ДокументОснование.Дата) = НачалоДня(ТекущаяДата()),ТекущаяДата(),ДокументОснование.Дата+2);
        ДокументОбъект.СпособЗаполнения = "Вручную";
        ДокументОбъект.СуммаОперации =  ДокументОснование.СуммаДокумента;
        
        РегЗапись = ДокументОбъект.Движения.Хозрасчетный.Добавить();
        РегЗапись.Период = ДокументОбъект.Дата;
        РегЗапись.Регистратор = ДокументОбъект.Ссылка;
        РегЗапись.Организация = ДокументОбъект.Организация;
        РегЗапись.Содержание  = ДокументОснование.Комментарий;
        РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", ДокументОснование.Контрагент);
        РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Контрагенты", ДокументОснование.Контрагент);
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Договоры", ДокументОснование.ДоговорКонтрагента);
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "ДокументыРасчетовСКонтрагентами", ДанныеЗаполнения);
        РегЗапись.Сумма = ДокументОснование.СуммаДокумента;
        
        РегЗапись = ДокументОбъект.Движения.Хозрасчетный.Добавить();
        РегЗапись.Период = ДокументОбъект.Дата;
        РегЗапись.Регистратор = ДокументОбъект.Ссылка;
        РегЗапись.Организация = ДокументОбъект.Организация;
        РегЗапись.Содержание  = ДокументОснование.Комментарий;
        РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ПрочиеДоходыИРасходы", Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Услуги банка"));
        РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Контрагенты", ДокументОснование.Контрагент);
        РегЗапись.Сумма = ДокументОснование.СуммаДокумента*0.018;
    КонецЕсли;

После обновления в Бухгалтерии, поменялся вид форм документов.

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


Знаю есть еще один метод записи документа основания.

        ИначеЕсли (ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РеализацияТоваровУслуг")) Тогда
        ДокументОснование = ДанныеЗаполнения.ПолучитьОбъект();
        ДокументОбъект.Содержание = ДокументОснование.Комментарий;
        ДокументОбъект.Организация = ДокументОснование.Организация;
        ДокументОбъект.Дата = ?(НачалоДня(ДокументОснование.Дата) = НачалоДня(ТекущаяДата()),ТекущаяДата(),ДокументОснование.Дата+2);
        ДокументОбъект.СпособЗаполнения = "Вручную";
        ДокументОбъект.СуммаОперации =  ДокументОснование.СуммаДокумента;
        ДокументОбъект.Записать();
        
        РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        РегХозрасчетный.Отбор.Регистратор.Значение = ДокументОбъект.Ссылка;
        РегЗапись = РегХозрасчетный.Добавить();
        РегЗапись.Период = ДокументОбъект.Дата;
        РегЗапись.Регистратор = ДокументОбъект.Ссылка;
        РегЗапись.Организация = ДокументОбъект.Организация;
        РегЗапись.Содержание  = ДокументОснование.Комментарий;
        РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", ДокументОснование.Контрагент);
        РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Контрагенты", ДокументОснование.Контрагент);
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Договоры", ДокументОснование.ДоговорКонтрагента);
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "ДокументыРасчетовСКонтрагентами", ДанныеЗаполнения);
        РегЗапись.Сумма = ДокументОснование.СуммаДокумента;
        
        РегЗапись = РегХозрасчетный.Добавить();
        РегЗапись.Период = ДокументОбъект.Дата;
        РегЗапись.Регистратор = ДокументОбъект.Ссылка;
        РегЗапись.Организация = ДокументОбъект.Организация;
        РегЗапись.Содержание  = ДокументОснование.Комментарий;
        РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ПрочиеДоходыИРасходы", Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Услуги банка"));
        РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Контрагенты", ДокументОснование.Контрагент);
        РегЗапись.Сумма = ДокументОснование.СуммаДокумента*0.018;
        РегХозрасчетный.Записать();


Но документ открывается и он тоже пустой! А если закрыть и открыть заного, то все появляется! Но нужно, чтобы сразу можно было посмотреть, что записалось, а не закрыть, заного открыть. Помогите=))