Внешняя компонента для доступа к paradox через BDE (BDEBase 2.0.3.20 от 14.06.2006)

18.10.11

Разработка - Разработка внешних компонент

+50 –1
Встала как-то передо мной задача работать с таблицами парадокса в 1С. Так как встроенных средств для этого нет, а побродив по форумам я наткнулся на лишь на пару статей, в которых описывалась работа с парадоксом через ADO, что мне показалось не очень удобно, я решил написать свою компоненту для доступа. Методы старался делать где это возможно максимально близкие к xBase. Вроде самое необходимое реализовал. Впоследствии компонента будет дополняться.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
bdeBase.zip
.zip 389,88Kb
626 2 500 руб. Купить
bde 5.0.1
.1245166906 4,15Mb
55 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Атрибуты:

  • <Поле>

Методы:

  • СоздатьФайл()
  • ОткрытьФайл()
  • Открыта()
  • ЗакрытьФайл()
  • ОчиститьФайл ()
  • Первая()
  • Последняя()
  • Следующая()
  • Предыдущая()
  • НомерЗаписи()
  • Перейти()
  • ВКонце()
  • ВНачале()
  • Найти()
  • ПолучитьЗначениеПоля()
  • УстановитьЗначениеПоля()
  • Добавить()
  • Скопировать()
  • АвтоСохранение()
  • Записать()
  • Отменить()
  • Удалить()
  • Очистить()
  • КоличествоЗаписей()
  • КоличествоПолей()
  • ОписаниеПоля()
  • ОписаниеТаблицы()
  • ПолучитьНазваниеПоля()
  • НомерПоля()
  • ДобавитьПоле()
  • КодОшибки()
  • РежимОтладки()
  • Фильтрация()

Подробное описание методов в прилагаемом als-файле.

новое в версии 2.0.3.20 от 14.06.2006

+ Новый метод Фильтрация(); -Установить режим фильтрации записей в базе.
* Косметические исправления

Вступайте в нашу телеграмм-группу Инфостарт

+50 –1

См. также

Экстрактор данных 1С в BI 3.0

Внешние источники данных Разработчик Аналитик Пользователь 1С:Предприятие 8 1C:Бухгалтерия Узбекистан Беларусь Кыргызстан Молдова Россия Казахстан Платные (руб)

Готовое решение для автоматической выгрузки данных из 1С 8.3 в базу данных ClickHouse, PostgreSQL или Microsoft SQL для работы с данными 1С в BI-системах. «Экстрактор данных 1С в BI» работает со всеми типовыми и нестандартными конфигурациями 1С 8.3 и упрощает работу бизнес-аналитиков. Благодаря этому решению, специалистам не требуется быть программистами, чтобы легко получать данные из 1С в вашей BI-системе.

35000 руб.

15.11.2022    33870    53    49    

51
Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Перенос данных 1C Разработчик 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 10 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

85400 руб.

05.10.2022    14600    17    8    

17
Интеграция 1С с Kit Vending/Kit Shop

Розничная торговля Внешние источники данных Разработчик Бухгалтер 1С:Предприятие 8 1С:Розница 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Розничная и сетевая торговля (FMCG) Бухгалтерский учет Управленческий учет Платные (руб)

Загрузка данных продаж и инкассаций из сервисов Kit Vending/Kit Shop в 1С. Реализовано в виде Расширения. Мониторинг состояний торговых автоматов.

12200 руб.

10.06.2019    34692    49    25    

39
Перенос данных из Парус 8 в ЗГУ ред.3

Зарплата Внешние источники данных Бюджетный учет Перенос данных 1C Системный администратор Разработчик 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 8 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

122000 руб.

19.08.2020    30669    28    3    

29
Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Разработчик Бухгалтер 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 7.хх учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

85400 руб.

24.04.2017    57689    99    165    

91
Загрузка спецификаций в 1С:УНФ из Базис-Мебельщик

Производство готовой продукции (работ, услуг) Внешние источники данных 1С:Предприятие 8 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Лесное и деревообрабатывающее хозяйство Россия Управленческий учет Платные (руб)

Обработка предназначена для загрузки файлов, выгруженных из системы Базис-мебельщик, в справочник 1С "Спецификации" для последующих процессов учета и диспетчирования полуфабрикатов и изделий.

10370 руб.

24.06.2021    26867    66    55    

48
Выгрузка данных из системы учета ЮНИКО в 1С:Бухгалтерию 3.0

Внешние источники данных Розничная торговля Разработчик Бухгалтер 1С:Предприятие 8 1С:Бухгалтерия 2.0 1С:Бухгалтерия 3.0 Здравоохранение, медицина, стоматология Розничная и сетевая торговля (FMCG) Россия Бухгалтерский учет Налоговый учет Платные (руб)

Внешняя обработка обмена данными между системами ЮНИКО и 1С:Бухгалтерия 3.0.

6100 руб.

01.11.2011    55505    129    81    

114
Внешняя компонента для подключения 1С к телефонии Asterisk API

Разработка внешних компонент Телефония, SIP Разработчик 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

5246 руб.

04.05.2018    52205    128    68    

72
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. ildarmcs 24.07.06 11:34 Сейчас в теме
Скачал, поставил, потестил. Работает.
Нормально. Спасибо.
А планируется ли через BDE сделать доступ из 1С 8.0 к InberBase - подобным базам?
+ – Ответить
24. Omi4Anton 49 04.06.13 23:13 Сейчас в теме
Пример создания таблицы paradox
Попытка
База = New("Addin.BDEBase");
Исключение
Сообщить("Не удалось создать объекты Addin.BDEBase!");
КонецПопытки;
//База.РежимОтладки(1);
База.ДобавитьПоле("Fml", "S" , 50 , 1); // фио
База.СоздатьФайл("D:\newdb.db",);
База.Добавить();
//База.Fml = Стр.Fml;
База.УстановитьЗначениеПоля("Fml","Фёдор Емельяненко");
База.Записать();
База.ЗакрытьФайл();
kozorez; +1 – Ответить
2. Omi4Anton 49 24.07.06 11:49 Сейчас в теме
пока не планируется, собственно отсутствуют задачи для данной СУБД
+ – Ответить
3. znh 32 07.04.07 07:20 Сейчас в теме
Спасибо. Особенно за метод Фильтрация();
+ – Ответить
4. wer_alex 18.09.08 16:19 Сейчас в теме
Все хорошо и решил воспользоваться. Нет одной только функции . Удалить все помеченные записи (команда Раск).
Необходимо через 1С свернуть базу Paradox на определенную дату.
+ – Ответить
5. Omi4Anton 49 30.09.08 15:48 Сейчас в теме
Возможность по доработке отсутствует, затерялись исходники и что то мне подсказывает они не найдутся. :(
+ – Ответить
6. Muhin555 29 04.02.10 10:05 Сейчас в теме
Здесь уже использовали эту разработку www.paltusov.ru Вот для обмена с R-Keeper………
Прикрепленные файлы:
restdemo.zip
+ – Ответить
7. Omi4Anton 49 04.02.10 19:55 Сейчас в теме
Не уловил суть комментария если честно :D
+ – Ответить
8. Muhin555 29 12.03.10 00:34 Сейчас в теме
в посте №6 привожу пример использования вашей разработки ;)
+ – Ответить
9. egor_gsm 18.02.11 10:47 Сейчас в теме
Народ, закиньте плиз пример использования н 7.7 Интересует выгрузка данных в Paradox .DB файл!! Очень надо !!! Help !!
+ – Ответить
10. Omi4Anton 49 17.05.11 22:11 Сейчас в теме
Если ЗагрузитьВнешнююКомпоненту("BDEBase.dll")=0 Тогда
Сообщить("Не удалось обнаружить компоненту BDEBase.dll!");
КонецЕсли;
Попытка
БДЕ = СоздатьОбъект("Addin.BDEBase");
Исключение
Сообщить("Не удалось создать объекты Addin.dbBase!");
КонецПопытки;

БДЕ.ОткрытьФайл ( "C:\bdeBase\pLogData.DB", );
пока БДЕ.ВКонце() = 0 Цикл
сообщить(БДЕ.Num);
Бде.Следующая();
КонецЦикла;
+ – Ответить
11. igor_gk 49 12.10.11 11:42 Сейчас в теме
Попытаюсь использовать для импорта в 1С 8.2 из X-DOOR (есть такая бухгалтерская программа, базы - PARADOX).
Получится?
+ – Ответить
12. Omi4Anton 49 12.10.11 14:38 Сейчас в теме
С данной системой не знаком.
Всё зависит от поставленной задачи)
+ – Ответить
13. igor_gk 49 12.10.11 14:44 Сейчас в теме
Да там просто файлики, в которых хранится всякая хрень - справочники, таблицы планы счетов.
Вобщем мне бы доступ к файликам получить и прочитать из них данные (из-под 1С v. 8.2)...
+ – Ответить
14. Omi4Anton 49 12.10.11 15:56 Сейчас в теме
Обычно проблем не вызывает, будут сложности пишите.
+ – Ответить
15. mikhailovaew 127 20.10.11 14:00 Сейчас в теме
Гляжу - одного плюсика для рейтинга не хватает, а работа вроде серьезная.
Так что + )))
+ – Ответить
16. Михаська 12 09.02.12 11:26 Сейчас в теме
с paradox 7 не дружит(
+ – Ответить
17. Omi4Anton 49 09.02.12 17:19 Сейчас в теме
Поддержку форматов осуществляет BDE
+ – Ответить
18. ge_ni 307 21.09.12 14:32 Сейчас в теме
Здравствуйте!
Давно не пользовался. а на днях попробовал и получил по варианту подключения компоненты 2 ошибку 0х800004005 под Win7. Придушил Брандмауэр полностью... не помогает. По варианту подключения компоненты 1 пишет, что отсутствует CLSID! Я так понимаю он где то в системном реестре пишется, ну и радость эта имеет двоичное представление??? Что характерно у Jmail.dll, FormEx, 1CPP эта радость есть и не требует никаких усилий. Думаю: если бы Вы перетранслировать старые исходники в какой-то новой версиии интерпретатора то проблемма снялась бы сама... С уважением Евгений
+ – Ответить
19. ge_ni 307 21.09.12 15:49 Сейчас в теме
Извините! Вроде сам разрулил! 2 строчки в реестре и всё! Однако... это требует достаточной квалификации. Хотя в отношении Вашей *.dll, вполне возможно, что Вам всё-равно, кто и как её будет истользовать... Работает то классно!
+ – Ответить
20. Omi4Anton 49 25.09.12 15:31 Сейчас в теме
как уже писал ранее "Возможность по доработке отсутствует, затерялись исходники" ((
+ – Ответить
21. Vovanich 10.01.13 23:09 Сейчас в теме
Пытаюсь подрубится к СКУД ОРИОН с помощью длл...Всё ок только отфильтровать по дате не получается...Может подскажет кто как отфильтровать записи за определенный период?в строку загоняю отбор "([TimeVal]>'"+НачДата+"') и ([TimeVal]<'"+конецдня(КонДата)+"') а тащит все записи с начала года. Хотя датаНач = 01.12.2012 КонДата = 31.12.2012
+ – Ответить
22. Omi4Anton 49 12.01.13 14:12 Сейчас в теме
Пришлите пример файла и обработку
+ – Ответить
37. degtyarev85 04.07.14 14:55 Сейчас в теме
(22) поделись пожалуйста секретом как фильтрацию по полям с Датой делать ))))
+ – Ответить
23. N_aix 09.03.13 16:09 Сейчас в теме
Спасибо.
+ – Ответить
25. kozorez 9 27.09.13 05:03 Сейчас в теме
Отличная разработка!!!
+ – Ответить
26. kozorez 9 27.09.13 18:59 Сейчас в теме
подскажите, как отфильтровать таблицу по дате?
+ – Ответить
27. Omi4Anton 49 27.09.13 19:11 Сейчас в теме
Фильтрация(<Режим>,<КритерийФильтрации>,<Параметры>)

Назначение:
Установить режим фильтрации записей в базе.

Возвращает:
Текущее числовое значение режима фильтрации (на момент до исполнения метода).

Параметры:

<Режим> - выражение: 1 - задает режим фильтрации в базе, 0 - снимает (по умолчанию - 0)
<КритерийФильтрации> - В описании критерия фильтрации можно указывать имена полей и литералы (явно заданные значения); можно использовать обычные операции отношения и логические операторы И , ИЛИ , НЕ , например:
Эта запись фильтра оставит в таблице записи, в которых поля Doljnost=""доцент"" и TabNum больше 3000
Фильтрация(1,"([Doljnost]='доцент') И ([TabNum] > 3000)",0)
+ – Ответить
28. kozorez 9 27.09.13 19:26 Сейчас в теме
после долгих проб и ошибок работает фильтрация по дате 
measure.Фильтрация(1,"([RecDTime]>'"+строка(НачДата)+"')",0);

только при попытке добавить условие, фильтр сбрасывается...
+ – Ответить
29. kozorez 9 27.09.13 19:30 Сейчас в теме 
measure.Фильтрация(1,"([Terminal]=7815)и([Terminal]=7814)И([RecDTime]>'"+строка(НачДата)+"')И([RecDTime]<'"+строка(КонДата)+"')",0);


так не работает.. а хотелось бы..
даже два условия вместе не работают
+ – Ответить
30. Omi4Anton 49 27.09.13 19:47 Сейчас в теме
Пришлите в личку пример таблицы и обработку на которых проблема воспроизводиться.
как вариант пробуйте вставить пробелы перед и после "И"
kozorez; +1 – Ответить
31. kozorez 9 28.09.13 04:35 Сейчас в теме
Всё получилось! нужны пробелы. 
measure.Фильтрация(1,"(([Terminal]=7815) или ([Terminal]=7814)) И ([RecDTime]>'"+строка(НачДата)+"') И ([RecDTime]<'"+строка(КонДата+1)+"')",0);


еще интересует последний параметр
Фильтрация(<Режим>,<КритерийФильтрации>,<Параметры>) нигде не нашёл описание, а так обработка супер!

+ – Ответить
32. Arden 29.10.13 12:10 Сейчас в теме
BioAngel, Здравствуйте !

Использую вашу разработку для регулярного чтения данных из другой базы данных, но функция ОткрытьФайл() срабатывает только на 100 файлах, затем на 101-м файле возвращает "0". Это ограничения компоненты или в каких то настройках BDE можно увеличить этот параметр? Файлы начинают открываться только после перезапуска сеанса 1С.
+ – Ответить
33. Arden 29.10.13 13:23 Сейчас в теме
похоже нашел во что упираюсь, в ограничение Paradox 100 паролей на сессию.
Функция КодОшибки() выдает Too many passwords. :(

Никак не обойти, не закрывая сеанс 1С ?
+ – Ответить
34. Omi4Anton 49 29.10.13 18:30 Сейчас в теме
без доработки видимо не получится, но как уже писал ранние исходники давно утрачены вместе с жёстким диском
+ – Ответить
35. degtyarev85 02.07.14 10:05 Сейчас в теме
(34) подскажите, кириллица нормально читается компонентой? Если использовать ADODB, то при чтении кириллицы выходят кракозябры и даже не знаю как лечить это.
+ – Ответить
36. Omi4Anton 49 02.07.14 13:27 Сейчас в теме
возможно кодировка в заголовке таблицы не соответствует её содержанию, в любом случае надо проверять
+ – Ответить
38. Omi4Anton 49 04.07.14 23:56 Сейчас в теме
31 сообщение посмотрите
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация