создать новый документ для каждого периода

Создаю программно документ из ТЗ, заполняю в нем табличную часть,
нужно создать для каждого дня новый документ и в этот документ заполнить табличное поле для этого дня, делаю так:

Для Каждого стрТранзакции из СтрТранзакций Цикл

ДатаДня = Формат (стрТранзакции.Датасоздания, "ДЛФ=ДД");

Пока ДатаДня <> ДатаНового Цикл

НовыйДок = Документы.ЗагрузкаТранзакций.СоздатьДокумент();
НовыйДок.Дата = стрТранзакции.ДатаСоздания;
НоваяСтр = НовыйДок.Транзакции.Добавить();
НоваяСтр.ДатаТранзакции = стрТранзакции.ДатаСоздания;

НоваяСтр.ОтправительКошелек = Справочники.Кошельки.НайтиПоНаименованию(ЧисловСтроку(стрТранзакции.Отправитель));
НоваяСтр.ПолучательКошелек = Справочники.Кошельки.НайтиПоНаименованию(ЧисловСтроку(стрТранзакции.Получатель));

НоваяСтр.ИдТранзакции = стрТранзакции.PaymentTransactionId;
НоваяСтр.ОтправительКошелек = ЧисловСтроку(стрТранзакции.Отправитель);
НоваяСтр.ПолучательКошелек = ЧисловСтроку(стрТранзакции.Получатель);
НоваяСтр.ДатаИзменения = стрТранзакции.ДатаИзменения;
НоваяСтр.СостояниеЗаявки = стрТранзакции.СостояниеЗаявки;
НоваяСтр.CreatorLogin = стрТранзакции.CreatorLogin;

НоваяСтр.СуммаОтправитель= стрТранзакции.СуммаОтправленная;
НоваяСтр.СуммаПолучатель= стрТранзакции.СуммаПолученная;
НоваяСтр.Тариф = Справочники.Тарифы.НайтиПоКоду(стрТранзакции.TarifId);
НоваяСтр.Статус = стрТранзакции.СостояниеЗаявки;
НовыйДок.Записать();

ДатаНового = ДатаДня;

КонецЦикла;

В итоге у меня ДатаНового <> ДатаДня но прикол в том что документ создется но таблица заполняется по одному на каждую дату, надо на каждую дату заполнить всю таблицу по всем записям из ТЧ на эту дату,
дайте плиз совет новичку