Бух. проводки в УПП

Добрый день, напсал модуль проведения документа (см. ниже), нажимаю на кнопку «провести», первый раз ничего не происходит (иду Перейти -> журнал проводок (бухгалтерский учет) там пусто), нажимаю второй, все проводиться по указанному алгоритму, но суммы в проводках вдвое больше чем в строке документа. Подскажите, пожалуйста, что я не доделал и как устранить эту ошибку.

Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| Д.ЭлементНастройкиИмпорта.Организация КАК Организация,
| Д.ЭлементНастройкиИмпорта.ТипОпрерацииПриИмпорта КАК ТипИмпорта,
| Д.СотрудникОрганизации.Физлицо КАК Сотрудник,
| Д.ЭлементНастройкиИмпорта.СтатьяЗатратВ1С КАК СтатьяЗатрат,
| Д.ЭлементНастройкиИмпорта.СчетДебет КАК СчетДебет,
| Д.ЭлементНастройкиИмпорта.СчетКредит КАК СчетКредит,
| ЕСТЬNULL(Д.Сумма,0) КАК Сумма,
| &Валюта КАК Валюта
|ИЗ
| Документ.ИмпортЗарплатыСОракл.Импорт КАК Д
|ГДЕ
| (Д.ЭлементНастройкиИмпорта.СчетДебет.Родитель = &СчетДебет) И
| (Д.ЭлементНастройкиИмпорта.СчетКредит = &СчетКредит) И
| (Ссылка = &Ссылка)
|";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("СчетДебет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("81"));

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