Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- РасширениеФайла = Прав(АдресБазы, 4);
- Если РасширениеФайла = ".dbf" Тогда
- Сообщить("Заебись");
- КонецЕсли;
- АдресВременногоФайла = КаталогВременныхФайлов();
- АдресВременногоФайла = АдресВременногоФайла + "fileDBF.dbf";
- КопироватьФайл(АдресБазы,АдресВременногоФайла);
- ДБФ = Новый XBase; //Создание объекта XBase
- ДБФ.ОткрытьФайл(АдресВременногоФайла); //Открытие файла
- Объект.ДокТЧ.Очистить();
- КонецДокумента = Истина;
- Стр = 2;
- Для Стр = 2 По 10 Цикл
- //Пока КонецДокумента Цикл
- Если НЕ (ДБФ.NAME)= "" И НЕ (ДБФ.CODE)= "" Тогда
- НоваяСтрока = Объект.ДокТЧ.Добавить();
- НоваяСтрока.Артикул = ДБФ.CODE;
- НоваяСтрока.Товар = ДБФ.NAME;
- НоваяСтрока.Цена = ДБФ.PRICE_1;
- Иначе
- КонецДокумента = Ложь;
- КонецЕсли;
- ДБФ.Следующая()
- КонецЦикла;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement