Формирование проводок в регистре бухгалтерии

 
// Задать выбираемые значения. 
ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Иванцова"); 
ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду("00027"); 
ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00013"); 
ВыбранныйДокумент = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру(2, '20050101'); 
ВыбранныйСчет = Справочники.БанковскиеСчета.НайтиПоКоду("00001"); 
ВыбраннаяСтатья = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("00002"); 
ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("00001"); 
ВыбраннаяВалюта = Справочники.Валюты.НайтиПоКоду(810); 

// Создать будущий регистратор. 
ДатаЗаписи = ТекущаяДата(); 
Документ = Документы.ОперацияБух.СоздатьДокумент(); 
Документ.Дата = ДатаЗаписи; 
Документ.Организация = ВыбраннаяОрганизация; 
Документ.Ответственный = ВыбранныйОтветственный; 
Документ.Содержание = "Оплата поставщику"; 
Документ.Записать(); 

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

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

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

// Заполнить счет дебета. 
Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); 

// Заполнить аналитику счета дебета. 
Движение.СубконтоДт.Контрагенты = ВыбранныйКонтрагент; 
Движение.СубконтоДт.Договоры = ВыбранныйДоговор; 
Движение.СубконтоДт.ДокументыРасчетовСКонтрагентами = ВыбранныйДокумент; 

// Заполнить счет кредита. 
Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("51"); 

// Заполнить аналитику счета кредита. 
Движение.СубконтоКт.БанковскиеСчета = ВыбранныйСчет; 
Движение.СубконтоКт.СтатьиДвиженияДенежныхСредств = ВыбраннаяСтатья; 

// Балансовое измерение. 
Движение.Организация = ВыбраннаяОрганизация; 

// Балансовый ресурс. 
Движение.Сумма = 300000; 

// Реквизиты.Движение.НомерЖурнала = "БК"; 
Движение.Содержание = "Оплата поставщику"; 

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