Выгружаю справочники из dbf в 1с!!!Где моя ошибка???

[Лейсан]

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

   Пока ДБФ.Следующая()  Цикл
      Спр= Справочники.Контрагенты.СоздатьСправочник();      
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
       ДБФ.Следующая();
   Иначе
      Спр= Справочники.Контрагенты.СоздатьСправочник();      
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
       ДБФ.Следующая();
   КонецЦикла;   
   КонецЕсли;   

[sergejK74]

Приблизительно в этих местах.

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

   Пока ДБФ.Следующая()  Цикл
      Спр= Справочники.Контрагенты.СоздатьСправочник();     
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
       ДБФ.Следующая();
   Иначе
     Спр= Справочники.Контрагенты.СоздатьСправочник();     
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
      ДБФ.Следующая();
   КонецЦикла;   
   КонецЕсли;   

[Лейсан]

Подскажите пожалуйста,как исправить эти ошибки...

[Лейсан]

Спр= Справочники.Контрагенты.СоздатьСправочник();     
Спр.Новый();
как можно это исправить??

[sergejK74]

Спр= Справочники.Контрагенты.СоздатьЭлемент();    
ДБФ = Новый XBase;

[Лейсан]

ДБФ.Первая();
      Спр = Справочники.Контрагенты;
        НовыйКонтрагент = Спр.СоздатьЭлемент();
      НовыйКонтрагент.Наименование = СокрЛП(ДБФ.NAME);
      НовыйКонтрагент.ИНН = СокрЛП(ДБФ.INN);
      НовыйКонтрагент.КПП = СокрЛП(ДБФ.KPP);
      НовыйКонтрагент.Записать();
       Пока  ДБФ.Следующая()  Цикл
      Спр = Справочники.Контрагенты;
        НовыйКонтрагент = Спр.СоздатьЭлемент();
      НовыйКонтрагент.Наименование = СокрЛП(ДБФ.NAME);
      НовыйКонтрагент.ИНН = СокрЛП(ДБФ.INN);
      НовыйКонтрагент.КПП = СокрЛП(ДБФ.KPP);
      НовыйКонтрагент.Записать();
         НовыйКонтрагент.Следующая();

   КонецЦикла;   

выгрузила справочник))спасибо))