v8: Бухгалтерия 3.0

 Док=Новый Структура("ТипДокумента,НомерДокумента,ДатаДокумента,Комментарий,Организация,ИД,ВыбраннаяОрганизация,СуммаПоУслугам..........

//заполняю данными структуру....

 

 

Документ=Документы.ОперацияБух.СоздатьДокумент();        

Документ.Дата=Док.ДатаДокумента;        

Документ.Комментарий=Док.ИД;        

Документ.Организация =Док.ВыбраннаяОрганизация;

Документ.Содержание =Док.ТипДокумента;        

Документ.СуммаОперации=Док.СуммаПоУслугам;        

Документ.Записать();                 

 

//в этот момент создается документ "операция бух" - все в порядке

 

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();        

НаборЗаписей.Отбор.Регистратор.Установить(Документ.Ссылка);        

НаборЗаписей.Прочитать();

 

Выручка = НаборЗаписей.Добавить();

Выручка.Регистратор = Документ.Ссылка;

Выручка.Период = Док.ДатаДокумента;

Выручка.Сумма=Док.ЦенаЗаБезнал;        

Выручка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04");        

Выручка.СубконтоДт.Контрагенты=Справочники.ФизическиеЛица.НайтиПоКоду(Док.Клиент);

Выручка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.2");

Выручка.СубконтоКт.НоменклатурныеГруппы=Справочники.НоменклатурныеГруппы.НайтиПоКоду(Док.ЦФУ);        

Выручка.СубконтоКт.НаправленияПродаж=Справочники.НаправленияПродаж.НайтиПоКоду(Док.Направление);        

Выручка.Содержание="Выручка от визита за безнал";        

 

НаборЗаписей.Записать();

 

//по идее должна появляться проводка в регистре бухгалтерии "Хозрасчетный", но ее нет!!!!!!!!

 

Объект=Документ.ПолучитьФорму();                                      

Объект.Открыть();                                      

Объект.ЗаписатьВФорме(РежимЗаписиДокумента.Проведение);

Объект.Закрыть();

 

//открываю форму, программно записываю и провожу - все в порядке, движения в регистре появляются. Но это работало в редакции 2.0.