Не устанавливается сумма документа

&НаСервере
Процедура СоздатьНаСервере()    
    
    НовыйДокумент = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
    НовыйДокумент.Организация = Организация;
    НовыйДокумент.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.РеализацияКлиенту;
    НовыйДокумент.Контрагент = Контрагент;
    НовыйДокумент.Партнер = Справочники.Партнеры.НайтиПоНаименованию(Контрагент.Наименование);
    НовыйДокумент.Дата = ТекущаяДата();
    НовыйДокумент.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоНаименованию("руб.");
    НовыйДокумент.Валюта = Справочники.Валюты.НайтиПоНаименованию("руб.");
    НовыйДокумент.Курс = 1.00;
    НовыйДокумент.НалогообложениеНДС = Перечисления.ТипыНалогообложенияНДС.ПродажаНеОблагаетсяНДС;
    
    Для Каждого Запись Из ТЗВыполненныеРаботыПоКонтрагенту Цикл
        
        Товар = НовыйДокумент.Товары.Добавить();
        Товар.Номенклатура = Запись.УслугаДляПечати;
        Товар.КоличествоУпаковок = Запись.Количество;
        Товар.Количество = Запись.Количество;
        Товар.Цена = Запись.СтоимостьЗаменыОднойШт;
        Товар.Сумма = Товар.Количество * Товар.Цена;
        Товар.СуммаВзаиморасчетов = Товар.Количество * Товар.Цена;
        Товар.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
        
    КонецЦикла;
    
    НовыйДокумент.СуммаДокумента = НовыйДокумент.Товары.Итог("Сумма");
    НовыйДокумент.СуммаВзаиморасчетов = НовыйДокумент.Товары.Итог("Сумма");
    НовыйДокумент.Комментарий = "Документ создан на основании графика за месяц";
    НовыйДокумент.Записать(РежимЗаписиДокумента.Запись);
    
КонецПроцедуры