Почему не сохраняет документ

[sergey_lb]

Потребовалось слить несколько документов в один. Написал обработку. Но сохранения измененного документа не происходит. Не пойму почему. Помогите кто может.

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

&НаСервере
Процедура Слияние()
Док2 = Объект.Док2.ПолучитьОбъект();
Для Каждого ТекСтрокаДок1 из Объект.Док1.Товары Цикл
Тов1 = ТекСтрокаДок1.Номенклатура;
Кол1 = ТекСтрокаДок1.КоличествоФакт;
НайденнаяСтрока = Док2.Товары.Найти(Тов1, "Номенклатура");
Если НайденнаяСтрока = Неопределено Тогда
НоваяСтрока = Док2.Товары.Добавить();
НоваяСтрока.Номенклатура = ТекСтрокаДок1.Номенклатура;
НоваяСтрока.Характеристика = ТекСтрокаДок1.Характеристика;
НоваяСтрока.Упаковка = ТекСтрокаДок1.Упаковка;
НоваяСтрока.Количество = ТекСтрокаДок1.Количество;
НоваяСтрока.КоличествоФакт = ТекСтрокаДок1.КоличествоФакт;
НоваяСтрока.Цена = ТекСтрокаДок1.Цена;
НоваяСтрока.Сумма = ТекСтрокаДок1.Сумма;
НоваяСтрока.СуммаФакт = ТекСтрокаДок1.СуммаФакт;
Иначе
НайденнаяСтрока.КоличествоФакт = НайденнаяСтрока.КоличествоФакт + Кол1;
НайденнаяСтрока.СуммаФакт = НайденнаяСтрока.КоличествоФакт * НайденнаяСтрока.Цена;
КонецЕсли;
КонецЦикла;
Док2.Записать();
КонецПроцедуры


[MuI_I_Ika]

Должно записывать. Ошибки никакой не выдает?

[sergey_lb]

Но почему-то не сохраняет. А существуют альтернативные способы?

[MuI_I_Ika]

Надо поотлаживать. Может он на самом деле все сохраняет, просто сам документ не меняется.