загрузка Счета на оплату покупателю из ДБФ в 1с

пишу обработку загрузку Счета на оплату покупателю из ДБФ в 1с .еще не доделала.загружаю пока только шапку документа.протестировав он мне пишет "НЕ хватает фактических параметров".вот моя обработка

Функция загрузитьСчетаНаОплату()
ДБФ = Новый XBase;
ДБФ.ОткрытьФайл(ПутьКФайлу);
ДБФ.Кодировка=КодировкаXBase.OEM;
//Проверка на наличие записей
Если ДБФ.КоличествоЗаписей() = 0 Тогда
Сообщить("Файл данных пуст");
ДБФ.ЗакрытьФайл();
//Возврат
КонецЕсли;
//Переходим на первую строку файла
ДБФ.Первая();

//Запускаем цикл
//Пока Истина Цикл

//Создадим новый документ
Док = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();

//Заполним реквизиты
Док.Номер=СокрЛП(ДБФ.NUMBERD);
Док.Дата = СокрЛП(ДБФ.DATE);
Док.Организация = Справочники.Организации.НайтиПоРеквизиту(СокрЛП(ДБФ.ORG));

Док.Контрагент = СокрЛП(ДБФ.NAMEK);

Договор=Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
Договор.Владелец = Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ДБФ.KONTR));
Договор.Наименование = СокрЛП(ДБФ.NAMED);
Договор.Номер = СокрЛП(ДБФ.NUMBER);
Договор.ВидДоговора = Вычислить("Перечисления.ВидыДоговоровКонтрагентов."+СокрЛП(ДБФ.VID));
Договор.Дата = СокрЛП(ДБФ.DATE);
Договор.ВалютаВзаиморасчетов=Справочники.Валюты.НайтиПоНаименованию(СокрЛП(ДБФ.VAL));
Договор.Организация =Справочники.Организации.НайтиПоНаименованию(СокрЛП(ДБФ.ORG));
Договор.Записать();

Банк= Справочники.Банки.СоздатьЭлемент();
Банк.Записать();
Банк.КоррСчет=СокрЛП(ДБФ.KORS);
Банк.Код=СокрЛП(ДБФ.BIK);
Банк.Наименование=СокрЛП(ДБФ.NAMEB);
Банк.Записать();

БанкСчет=Справочники.БанковскиеСчета.СоздатьЭлемент();
БанкСчет.Владелец=Док.Организация.Ссылка;
БанкСчет.Банк=Справочники.Банки.НайтиПоКоду(ДБФ.BIK);
БанкСчет.Наименование=СокрЛП(ДБФ.NAMEBS);
БанкСчет.ВалютаДенежныхСредств=Справочники.Валюты.НайтиПоНаименованию(СокрЛП(ДБФ.VAL));
БанкСчет.НомерСчета=СокрЛП(ДБФ.COUNT);
Банк.Записать();
БанкСчет.Записать();