Заполнение счетов

Создаю программно документ Реализация товаров и услуг. Вводятся услуги, используется упрощенка. Счета расчетов и прочие реквизиты заполняются нормально, а вот заполнение счетов доходов и расходов не производится. В справочнике "номенклатура" указана корреспонденция для номенклатуры которая вносится в документ
СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(мОрганизация, мКонтрагент, мДоговорКонтрагента);

РТУ = Документы.РеализацияТоваровУслуг.СоздатьДокумент();

РТУ.Дата = ТекущаяДата();
РТУ.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
РТУ.Организация = мОрганизация;
РТУ.Контрагент = мКонтрагент;
РТУ.ДоговорКонтрагента = мДоговорКонтрагента;
РТУ.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить();
РТУ.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
РТУ.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя;
РТУ.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя;

Для каждого СтрокаТЗ из ТЗ Цикл
СтрокаТЧ = РТУ.Услуги.Добавить();
СтрокаТЧ.Номенклатура = СтрокаТЗ.Номенклатура;
СтрокаТЧ.Сумма = СтрокаТЗ.СтоимостьУслуги;
СтрокаТЧ.СчетДоходов = СчетаУчета.СчетДоходов;
СтрокаТЧ.СчетРасходов = СчетаУчета.СчетРасходов;
КонецЦикла;

РТУ.Записать(РежимЗаписиДокумента.Проведение);