Включаю и Зависает выборка что изменить в коде
Процедура Выполнить()
      Таб=СоздатьОбъект("Таблица") ;
     Таб.ИсходнаяТаблица("Таблица");
     ДБФ= создатьОбъект("XBASE");

     ДБФ.ОткрытьФайл("D:\Проверка ДБФ\Магазин.dbf");
      Сумма=0;
      ДБФ.Первая();
   
   Пока ДБФ.ВКонце()=0 Цикл  
       
   
       Если ДБФ.NAme_=852 Тогда
       Сумм=Сумма+ДБФ.SUM_;    
 Имя=ДБФ.Name_;

      Таб.Вывестисекцию("Строка");
     ДБФ.Следующая();  
КонецЕсли;

КонецЦикла;
 

   
  Таб.Показать();
КонецПроцедуры

проблема в этой части



Пока ДБФ.ВКонце()=0 Цикл

       
   
       Если ДБФ.NAme_=852 Тогда
       Сумм=Сумма+ДБФ.SUM_;    
 Имя=ДБФ.Name_;

      Таб.Вывестисекцию("Строка");
     ДБФ.Следующая();  
КонецЕсли;

КонецЦикла;

ДБФ.Следующая(); вынеси из условия

У тебя ДБФ.Следующая() стоит в условии, которое наверняка не выполняется в первой строке ДБФ. Поэтому и цикл крутится на первой строке.

Не выводит данные а открывает пустую таблицу

Процедура Выполнить()
      Таб=СоздатьОбъект("Таблица") ;
     Таб.ИсходнаяТаблица("Таблица");
     ДБФ= создатьОбъект("XBASE");

     ДБФ.ОткрытьФайл("D:\Проверка ДБФ\Магазин.dbf");
      Сумма=0;
      ДБФ.Первая();
   
   Пока ДБФ.ВКонце()=0 Цикл  
       
   
       Если ДБФ.NAme_=852 Тогда
   //    Сумм=Сумма+ДБФ.SUM_;    
 Имя=ДБФ.Name_;

     
       
КонецЕсли;
     ДБФ.Следующая();
     
      Таб.Вывестисекцию("Строка");
КонецЦикла;
 

   
  Таб.Показать();
КонецПроцедуры

(5) открой для себя отладчик...

Если ДБФ.NAme_=852 Тогда
   //    Сумм=Сумма+ДБФ.SUM_;    

 Имя=ДБФ.Name_;
//Добавь эту строку:
Сообщить(Имя);
//Запусти процедуру, что выдаст в сообщениях?

(6) Рано ему ещё отладчик открывать.

не сообщает

что делать

Процедура Выполнить()
      Таб=СоздатьОбъект("Таблица") ;
     Таб.ИсходнаяТаблица("Таблица");
     ДБФ= создатьОбъект("XBASE");

     ДБФ.ОткрытьФайл("D:\Проверка ДБФ\Магазин.dbf");
      Сумма=0;
      ДБФ.Первая();
   
   Пока ДБФ.ВКонце()=0 Цикл  
       
   
       Если СОкрЛП(ДБФ.NAme_)=852 Тогда
   //    Сумм=Сумма+ДБФ.SUM_;    
 Имя=ДБФ.Name_;

     
       
КонецЕсли;
     ДБФ.Следующая();
     
      Таб.Вывестисекцию("Строка");
КонецЦикла;
 

     Сообщить(Имя);
  Таб.Показать();
КонецПроцедуры

(10) возьми лист бумаги формата А4, и напиши заявление об увольнении в связи с профнепригодностью...

(11) Ты тролль, что ли? Я же написал, куда поставить Сообщить(Имя); - сразу после Имя=ДБФ.Name_.

(11) Мне было бы стыдно с таким обращаться на форум. Такие косяки нужно самому решать, иначе дальше заниматься "программированием" в 1С не стоит.

(14) У всех было такое время, когда код на незнакомом языке программирования представляется набором заклинаний, никак между собой не связанных.. это проходит.

(15) Он на мисте уже полгода, я в свое время при полугодовом стаже уже успел две базы порушить))

(11) Если СокрЛП(ДБФ.NAme_) = "852" Тогда
и Таб.Вывестисекцию("Строка"); внутрь условия поставь

(6) когда-то я открыл для себя отладчик ... потом открыл Сообщить() и забыл про отладчик)