Advertisement
Guest User

Untitled

a guest
Nov 18th, 2019
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. АдресВременногоФайла = КаталогВременныхФайлов();
  2. АдресВременногоФайла = АдресВременногоФайла + "fileDBF.dbf";
  3. КопироватьФайл(АдресБазы,АдресВременногоФайла);
  4. ДБФ = Новый XBase; //Создание объекта XBase
  5. ДБФ.ОткрытьФайл(АдресВременногоФайла); //Открытие файла
  6. Объект.ДокТЧ.Очистить();
  7.  
  8.  
  9. КонецДокумента = Истина;
  10. Стр = 2;
  11. Для Стр = 2 По 10 Цикл
  12.  
  13. //Пока КонецДокумента Цикл
  14. Если НЕ (ДБФ.NAME)= "" И НЕ (ДБФ.CODE)= "" Тогда
  15.  
  16. НоваяСтрока = Объект.ДокТЧ.Добавить();
  17. НоваяСтрока.Артикул = ДБФ.CODE;
  18. НоваяСтрока.Товар = ДБФ.NAME;
  19. НоваяСтрока.Цена = ДБФ.PRICE_1;
  20. Иначе
  21. КонецДокумента = Ложь;
  22. КонецЕсли;
  23. ДБФ.Следующая()
  24. КонецЦикла;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement