Заполнение документов ТиС обработкой

"Доброго времени суток !
Подобный вопрос уже задавался, но ответа получено не было.
Заполняю обработкой документ "ПоступлениеТМЦ", обработка проще некуда, вот код :

Процедура Сформировать()
КА=СоздатьОбъект("Справочник.Контрагенты");
Ном=СоздатьОбъект("Справочник.Номенклатура");
Док=СоздатьОбъект("Документ.ПоступлениеТМЦ");
Док.Новый();
КА.НайтипоКоду("01000001");
Док.Фирма=Фирма;
Док.Склад=Склад;
Док.ТипЦен=ТипЦен;
Док.Валюта=ТипЦен.Валюта;
Док.Договор=КА.ОсновнойДоговор;
Док.Контрагент=КА.ТекущийЭлемент();
Док.УчитыватьНДС=1;
Док.СуммавклНДС=1;
Док.ДатаДок=РабочаяДата();
Док.НомерДок="123476";
Док.НоваяСтрока();
Ном.НайтиПоКоду("С9621");
Док.ВидТМЦ=Перечисление.ВидыТМЦ.Товар;
Док.Номенклатура=Ном.ТекущийЭлемент();
Док.Цена=10000;
Док.Количество=10;
Док.Сумма=100000;
Док.СтавкаНДС=Перечисление.СтавкиНДС.НДС18;
Док.СуммаНДС=Док.Сумма*0.18;
Док.Коэффициент=1;
Док.Единица=Ном.БазоваяЕдиница;
Док.Записать();
Док.Провести();
КонецПроцедуры

При проведении выдает "Обнаружена нулевая сумма взаиморасчетов", по регистрам сумма документа не проходит.
Меняем цену вручную (в форме) - все сразу становится на свои места. Где косяк ? "

"Надо дописать строку : Док.СуммаВзаиморасчетов = Док.Итог("Сумма"); или если следовать примеру, то =100000;"

Спасибо большое. Расцеловал бы ! Жму руку ! ))