Advertisement
Guest User

Untitled

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