Выгрузка из таблицы значений.

В общем есть несколько документов, надо табличные части из всех засунуть в один созданный...

делаю так, но при этом в колонке "количество" образуется космическая цифра из шести знаков. Подскажите что не так?

    ТЗ = Новый ТаблицаЗначений;

    ТЗ.Колонки.Добавить("Номенклатура");
    ТЗ.Колонки.Добавить("Количество");
    ТЗ.Колонки.Добавить("Сумма");

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

        ЕСли Выборка.ПометкаУдаления = Ложь Тогда
            ЕСли Выборка.Контрагент = Контрагент Тогда
                объектДокумента = выборка.Ссылка.ПолучитьОбъект();
                Для Каждого СтрДок Из объектДокумента.Товары Цикл
                    Стр=ТЗ.Добавить();


                    Стр.Номенклатура = СтрДок.Номенклатура;
                    Стр.Количество = СтрДок.Количество;
                    Стр.Сумма = СтрДок.Сумма;

                КонецЦикла;
            КонецЕСлИ;
        КонецЕсли;
    конецЦикла;


    ТЗ.Свернуть("Номенклатура","Сумма,Количество");


    СЗ = Новый СписокЗначений;

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


    для каждого СтрТз из ТЗ цикл

        Если стрТз.количество > 0 Тогда
            НоваяСтрока = док.Товары.Добавить();
            НоваяСтрока.Номенклатура = СтрТз.Номенклатура;
            НоваяСтрока.ЕдиницаИзмерения = НоваяСтрока.Номенклатура.ЕдиницаХраненияОстатков;
            НоваяСтрока.Коэффициент =1;
            НоваяСтрока.Количество = СтрТз.Количество;
            Константы.ВалютаРегламентированногоУчета.Получить();

            НоваяСтрока.Сумма = СтрТз.Сумма;
            НоваяСтрока.Цена = СтрТз.Сумма/СтрТз.Количество;
        КонецЕСЛИ;