как загрузить в один документ "счет на оплату покупателю"-данные из 3 разных dbf

Когда выгружались все данные в один dbf делала так:

ДБФ = Новый XBase;
ДБФ.ОткрытьФайл(ПутьКФайлу);
ДБФ.Кодировка=КодировкаXBase.OEM;
//Проверка на наличие записей

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

КонецЕсли;
//Переходим на первую строку файла

ДокСчет=Документы.СчетНаОплатуПокупателю;
ДБФ.Первая();
ПредыдущийНомер = 0;
Док=Неопределено;

Пока Истина Цикл

//Создадим новый документ

ТекущийНомер=ДБФ.NUMBERD;
Дата=ДБФ.DATE;
Если ТекущийНомер <> ПредыдущийНомер Тогда

//записываем предыдущий документ

Если Док<>Неопределено тогда
Док.Записать();
КонецЕсли;

Если ДокСчет.НайтиПоНомеру(ТекущийНомер,Дата)=ДокСчет.ПустаяСсылка() тогда
//переходим к следующему документу

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

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

//Банк.Код=СокрЛП(ДБФ.BIK);

Банк.Наименование=СокрЛП(ДБФ.NAMEB);
Банк.Записать();

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

Банк.Записать();
БанкСчет.Записать();

иначе
ДокСсылка=ДокСчет.НайтиПоНомеру(ТекущийНомер,Дата);
Док=ДокСсылка.ПолучитьОбъект();
НовыйДокумент=Ложь;
КонецЕсли;
КонецЕсли;
//Заполним табличную часть "Товары"

ТекНоменклатура=Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ДБФ.NOM));
Если НовыйДокумент тогда
НоваяСтрока=Док.Товары.Добавить();
НоваяСтрока.Номенклатура=ТекНоменклатура;
иначе
НайденныеСтроки=Док.Товары.НайтиСтроки(Новый Структура("Номенклатура",ТекНоменклатура));

Если НайденныеСтроки.Количество()>0 тогда
НоваяСтрока=НайденныеСтроки[0];
иначе
НоваяСтрока=Док.Товары.Добавить();
НоваяСтрока.Номенклатура=ТекНоменклатура;
КонецЕсли;
Конецесли;
//НоваяСтрока.Номенклатура=Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ДБФ.NOM));

НоваяСтрока.ЕдиницаИзмерения= Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(СокрЛП(ДБФ.ED));
НоваяСтрока.Количество=СокрЛП(ДБФ.KOL);
НоваяСтрока.Цена=СокрЛП(ДБФ.PRICE);
НоваяСтрока.СтавкаНДС=СокрЛП(ДБФ.NDS);

//Заполним табличную часть "Оплачено"

ТекПлатежное=СокрЛП(ДБФ.NDOK);
Если НовыйДокумент тогда
НоваяОплачено= Док.Оплата.Добавить();
НоваяОплачено.НомерДокумента=ТекПлатежное;
иначе
НайденныеСтроки=Док.Оплата.НайтиСтроки(Новый Структура("НомерДокумента",ТекПлатежное));
//НоваяОплачено= Док.Оплата.Добавить();

Если НайденныеСтроки.Количество()>0 тогда
НоваяОплачено=НайденныеСтроки[0];
иначе
НоваяОплачено= Док.Оплата.Добавить();
НоваяОплачено.НомерДокумента=ТекПлатежное;
КонецЕсли;
КонецЕсли;
НоваяОплачено.ДатаОплаты=СокрЛП(ДБФ.DATEO);
НоваяОплачено.Сумма=СокрЛП(ДБФ.SUM);
//НоваяОплачено.НомерДокумента=СокрЛП(ДБФ.NDOK);

//Заполним табличную часть "Отгружено"

ТекНоменклатура=Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ДБФ.NOM));
Если НовыйДокумент тогда
НоваяОтгружено= Док.Отгрузка.Добавить();
НоваяОтгружено.Номенклатура=ТекНоменклатура;
иначе
НайденныеСтроки=Док.Отгрузка.НайтиСтроки(Новый Структура("Номенклатура",ТекНоменклатура));
Если НайденныеСтроки.Количество()>0 тогда
НоваяОтгружено=НайденныеСтроки[0];
иначе
НоваяОтгружено=Док.Отгрузка.Добавить();
НоваяОтгружено.Номенклатура=ТекНоменклатура;
КонецЕсли;
конецЕсли;
НоваяОтгружено.ДатаОтгрузки=СокрЛП(ДБФ.DATEOT);
НоваяОтгружено.Номенклатура=Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ДБФ.NOM));
НоваяОтгружено.Количество=СокрЛП(ДБФ.KOL);
НоваяОтгружено.Цена=СокрЛП(ДБФ.PRICE);
НоваяОтгружено.Сумма=СокрЛП(ДБФ.SUMOT);
//КонецЕсли;

//иначе

// ДокСсылка=ДокСчет.НайтиПоНомеру(ТекущийНомер,Дата);

// Док=ДокСсылка.ПолучитьОбъект();

//КонецЕсли;

Если Не ДБФ.Следующая()Тогда
Прервать;
КонецЕсли;
ПредыдущийНомер = ТекущийНомер;
КонецЦикла;

//записываем последний док

Если Док<>Неопределено тогда
Док.Записать();
КонецЕсли;