Подскажите пожалуйста новичку в 1с 8.2 как из DBF загрузить строки в табличную часть обработки?

&НаКлиенте
Процедура КнопкаВыполнитьНажатие(Кнопка)            
   хб = Новый XBase();
   ФайлДБФ = Новый Файл("D:\dBase.dbf");
   
   хб.ОткрытьФайл("D:\dBase.dbf");
   
   хб.Первая();
               
   Пока НЕ хб.ВКонце() Цикл
       Сообщить(СокрЛП(хб.NAMEKL));
       //ЗаполнитьТЧ();    
       Приход.Добавить(); //Приход - Это имя Табл.части
       ЭлементыФормы.Приход.Колонки.ИмяКлиента=СокрЛП(хб.NAMEKL);
               
       хб.Следующая();
       
   КонецЦикла;
   
   хб.ЗакрытьФайл();

КонецПроцедуры

Получается только так: возможно можно как то по другому?
&НаКлиенте
Процедура КнопкаВыполнитьНажатие(Кнопка)            
   хб = Новый XBase();
   ФайлДБФ = Новый Файл("D:\dBase.dbf");
   
   хб.ОткрытьФайл("D:\dBase.dbf");
   
   хб.Первая();
               
   Пока НЕ хб.ВКонце() Цикл
       Сообщить(СокрЛП(хб.NAMEKL));
       
       Приход.Добавить().ИмяКлиента=СокрЛП(хб.NAMEKL);
               
       хб.Следующая();
       
   КонецЦикла;
   
   хб.ЗакрытьФайл();

КонецПроцедуры

НоваяСтрока =Приход.Добавить(); //Приход - Это имя Табл.части

       НоваяСтрока .ИмяКлиента=СокрЛП(хб.NAMEKL);

Вот Вам функция. Пользуйтесь на здоровья.

Функция   ЗагрузитьТаблицуЗначенийИзDBF(ТаблицаЗначений, ИмяФайла, Кодировка = "OEM", СтрокаНачало = Неопределено, СтрокаКонец = Неопределено) Экспорт
   
   ВыбФайл = Новый Файл(ИмяФайла);
   Если НЕ ВыбФайл.Существует() Тогда
       Сообщить("Файл """ + ИмяФайла + """ не существует!", СтатусСообщения.Внимание);
       Возврат Ложь;
   КонецЕсли;    
   
   XBase  = Новый XBase;
   
   Попытка
       XBase.ОткрытьФайл(ИмяФайла, , Истина);
       
          XBase.Кодировка = КодировкаXBase[Кодировка];
       
   Исключение
       Сообщить("Ошибка открытия файла """ + ИмяФайла + """!", СтатусСообщения.Внимание);
       Возврат Ложь;
   КонецПопытки;
   
   ТаблицаЗначений.Очистить();
   ТаблицаЗначений.Колонки.Очистить();
   
   ТекущаяКолонка = 0;
   Для Каждого Поле Из XBase.Поля Цикл
       ТекущаяКолонка = ТекущаяКолонка + 1;
       ТаблицаЗначений.Колонки.Добавить(Поле.Имя, тфТип(Поле.Тип), Поле.Имя, Поле.Длина);
   КонецЦикла;    
       
   Если ТипЗнч(СтрокаНачало) = Тип("Число")
       И СтрокаНачало > 0 Тогда
       Рез = XBase.Перейти(СтрокаНачало);    
   Иначе
       Рез = XBase.Первая();
   КонецЕсли;
   
   Пока Не XBase.ВКонце() Цикл
       лСтрокаТабЗначений = ТаблицаЗначений.Добавить();
       
       ТекущаяКолонка = 0;
       Для Каждого Поле Из XBase.Поля Цикл
           ТекущаяКолонка = ТекущаяКолонка + 1;
           лСтрокаТабЗначений[Поле.Имя] = XBase.ПолучитьЗначениеПоля(ТекущаяКолонка - 1);
       КонецЦикла;
       
       Если ТипЗнч(СтрокаКонец) = Тип("Число")
           И СтрокаКонец > 0
           И XBase.НомерЗаписи() >= СтрокаКонец Тогда
           Прервать;    
       КонецЕсли;
       XBase.Следующая();
       
       #Если Клиент Тогда
       ОбработкаПрерыванияПользователя();
       Состояние(XBase.НомерЗаписи());
       #КонецЕсли
   КонецЦикла;
   
   Возврат Истина;
   
КонецФункции

(2) Спасибочки!!!

(3) СПАСИБО ОГРОМНОЕ!!!

XBase - зло! запрос наше все.

А подскажите как программно открыть файл DBF, чтобы не прописывать его, а выбирать любой?

&НаКлиенте
Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   Диалог.Фильтр = "*.xml|*.xml";
   Если Диалог.Выбрать() Тогда
       Объект.ИмяФайла = Диалог.ПолноеИмяФайла;
   КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура ИмяФайлаОткрытие(Элемент, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
   ЗапуститьПриложение(Объект.ИмяФайла);
КонецПроцедуры

{Обработка.ИмпортПриходов.Форма.Форма.Форма(29,29)}: Процедура не может возвращать значение
       Возврат Неопределено<<?>>; (Проверка: Толстый клиент (обычное приложение))

Вопрос снимается, разобралась.