Не получается вывести движения у Поступления на расчетный счет

Для Каждого ТекСтрока из Выборка Цикл
		Док = ТекСтрока.Ссылка.ПолучитьОбъект();
		//Док = Документы.ПоступлениеНаРасчетныйСчет.СоздатьДокумент();
		Док.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПоступленияОтПродажПоПлатежнымКартамИБанковскимКредитам;
		Док.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
		Док.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию("Комиссия банка");
		Для Каждого ТекСтр из Док.РасшифровкаПлатежа Цикл
			ТекСтр.СуммаУслуг = (ТекСтрока.СуммаДокумента/(984/1000))*(16/1000);
			ТекСтр.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
		КонецЦикла;
		Док.СубконтоКт1 = Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Комиссия банка");
		
		Док.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
	КонецЦикла;