Добрый день!
Есть обработка которая заполняет перемещение

NOMENK = CreateObject("Справочник.ТМЦ");
ВПДОК = СоздатьОбъект("Документ.Перемещение");
Партия = 0;
док = ВПДОК.МестоХранения;
ВПДОК.НомерДок = ВПДОК.НомерДок;
ВПДОК.НоваяСтрока();
ВПДОК.ТМЦ = NOMENK.ТекущийЭлемент();
ВПДОК.Счет = NOMENK.ТекущийЭлемент().Счет;
ВПДОК.Стало = NOMENK.ТекущийЭлемент();
ВПДОК.СталоСчет = NOMENK.ТекущийЭлемент().Счет;
ВПДОК.Кво = СтрЗаменить(БД.QUANT,",",".");
глПолучитьПартиюПоУмолчанию(Партия,ВПДОК.ТМЦ);
ВПДОК.Партия = Партия;
ВПДОК.СталоПартия = Партия;
ВПДОК.АвтоВремяТекущее();
ВПДОК.Записать();
Проблема следуйщая
При проведении перемещения в партии стало остаток 0
В чем может быть проблема
Заранее спасибо!