как строки тч конвертировать в документы

нужно что бы из каждой строки тч создавался отдельный документ.но почему -то формируется только один документ по 1ой строке
Для каждого стр из Объект.Состав Цикл
Если стр.СуммаПриход>0 Тогда
ВыборкаДанных=новый структура;
РасшифровкаПлатежа = новый ТаблицаЗначений;
РасшифровкаПлатежа.Колонки.Добавить("ДоговорКонтрагента");
РасшифровкаПлатежа.Колонки.Добавить("СтатьяДвиженияДенежныхСредств");
РасшифровкаПлатежа.Колонки.Добавить("КратностьВзаиморасчетов");

РасшифровкаПлатежа.Колонки.Добавить("СуммаПлатежа");
РасшифровкаПлатежа.Колонки.Добавить("Сделка");
РасшифровкаПлатежа.Колонки.Добавить("СтавкаНДС");
РасшифровкаПлатежа.Колонки.Добавить("СуммаНДС");
РасшифровкаПлатежа.Колонки.Добавить("КурсВзаиморасчетов");
РасшифровкаПлатежа.Колонки.Добавить("СчетНаОплату");

новая = РасшифровкаПлатежа.добавить();
новая.ДоговорКонтрагента = стр.ДоговорВзаиморасчетов;
новая.СтатьяДвиженияДенежныхСредств = стр.СтатьяДДС;
новая.КратностьВзаиморасчетов = 1;

новая.СуммаПлатежа = стр.СуммаПриход;
новая.Сделка = стр.Сделка;
новая.СтавкаНДС = стр.СтавкаНДС;
новая.СуммаНДС = стр.СуммаНДС;
новая.КурсВзаиморасчетов = стр.КурсВалютыВзаиморасчетов;
новая.СчетНаОплату = стр.ПлатежноеПоручениеОснование;

ВыборкаДанных.Вставить("Номер", ПривестиНомерКДлине(Номер+"-"+ном,11));
ВыборкаДанных.Вставить("Дата", Дата);
ВыборкаДанных.Вставить("Контрагент", стр.Контрагент);
ВыборкаДанных.Вставить("ДоговорКонтрагента", стр.ДоговорВзаиморасчетов);
ВыборкаДанных.Вставить("СуммаДокумента", стр.СуммаПриход);
ВыборкаДанных.Вставить("СчетОрганизации", РасчетныйСчет);
ВыборкаДанных.Вставить("НазначениеПлатежа", стр.НазначениеПлатежа);
ВыборкаДанных.Вставить("СтатьяДвиженияДенежныхСредств", Объект.СтатьяДДС);
ВыборкаДанных.Вставить("РасшифровкаПлатежа", РасшифровкаПлатежа);

ВыгрузитьПоПравилу(Объект,,ВыборкаДанных,, "ПоступлениеНаРасчетныйСчет");
Отказ = 1;
Иначе

КонецЕсли;

ном=ном+1;
КонецЦикла;