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

[dsshelygin]

Код Выделить Развернуть


&НаСервере
Процедура СоздатьНаСервере()

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

Для Каждого Запись Из ТЗВыполненныеРаботыПоКонтрагенту Цикл

Товар = НовыйДокумент.Товары.Добавить();
Товар.Номенклатура = Запись.УслугаДляПечати;
Товар.КоличествоУпаковок = Запись.Количество;
Товар.Количество = Запись.Количество;
Товар.Цена = Запись.СтоимостьЗаменыОднойШт;
Товар.Сумма = Товар.Количество * Товар.Цена;
Товар.СуммаВзаиморасчетов = Товар.Количество * Товар.Цена;
Товар.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;

КонецЦикла;

НовыйДокумент.СуммаДокумента = НовыйДокумент.Товары.Итог("Сумма");
НовыйДокумент.СуммаВзаиморасчетов = НовыйДокумент.Товары.Итог("Сумма");
НовыйДокумент.Комментарий = "Документ создан на основании графика за месяц";
НовыйДокумент.Записать(РежимЗаписиДокумента.Запись);

КонецПроцедуры


Документ создается, но не устанавливается сумма документа.
Во время отладки видно, что реквизитам СуммаДокумента и СуммаВзаиморасчетов присваивается значение.
Но ни в списке документов не видно суммы документа, ни в самом документе в его ТЧ Товары не видно общую сумму.
Что я сделал не так?

[oleg-x]

смотри событие в модуле объекта ПередЗаписью, возможно там стирается сумма.
Также отладкой пройди весь цикл и посмотри в какой момент теряется значение реквизита.