Модуль DaData

[YurAnt]

Быстрый ввод адресов, компаний, банков с помощью подсказок онлайн-сервиса DaData.ru

Модуль:

DaData.epas.zip

(6.24 КБ) 498 скачиваний

Тестовая БД:

DaData_example.zip

(74.23 КБ) 508 скачиваний

Внимание! Изменены имена функций!
(после установки этой версии необходимо сменить имена в самой базе)
Модуль:

DaData_1.5.zip

(6.34 КБ) 1097 скачиваний

Тестовая БД:

DaData_example_1.5.zip

(74.3 КБ) 1006 скачиваний

Демо

API-ключ в примере - тестовый. Новый ключ вы можете бесплатно получить после регистрации в сервисе DaData.

Примечание:
1. Сохранена совместимость со старыми названиями функций (достаточно установки модуля поверх старой БД).
с версии 1.5 имена изменены для удобочитаемости...
2. Plug&Play: "Автономная" работа через WinAPI (отдельная библиотека libcurl.dll не требуется).
3. На linux-версии DX работать не будет, т.к. используется OLE.
4. На linux под wine по идее заработать должен, т.к. wine очень хитёр... работает.
5.Ввиду специфичности и простоты самодельного xml-парсера возможно некорректное отображение результатов запросов вызываемых с тегированными параметрами (DA_FUNC..('param1.param2...') ) . Полноценное решение выложу немного позже. Пофиксено.

1. Выборка искомого объекта из списка нескольких результатов (в отдельном всплывающем окне или выпадающем списке).
2. Прочёс API DaData на предмет расширения функциональности модуля.
3. При необходимости - расширение функциональности модуля для работы с платными API-функциями DaData.

Расширения списком

[cordek]

Модуль ДаДата переписан под внутренний клиент и парсер json
добавлена версия для веб сервера.

DaData2.zip

(9.38 КБ) 39 скачиваний

[РОМАН РК]

Модуль ДаДата переписан под внутренний клиент и парсер json
добавлена версия для веб сервера.

DaData2.zip

Почему-то пишет ошибку
Текст: DA_ADDRFIELD -> Could not convert variant of type (Null) into type (String) Класс исключения: EVariantTypeCastError Имя модуля: Dadata2_web Вид модуля: Веб-расширение Имя процедуры: DA_ADDRFIELD


Тоже самое и в примере базы...

[cordek]

Разберемся.

[cordek]

Отредактировал названия функций, теперь ошибки быть не должно.

DaData2.zip

(9.64 КБ) 46 скачиваний

В пример добавил..

DaData_example2.zip

(77.93 КБ) 48 скачиваний

[Ivan_Strelec]

Попробовал тестовую базу и на вкладке Организация получил ошибку.
Скрин прилагаю.

[cordek]

Для действующих организаций дата ликвидации всегда null
Поэтому надо так писать выражение IIF(DA_FIRM_LIQUID_DATE='null',null,DA_FIRM_LIQUID_DATE)

[al.kn]

В планах"][i]1. Выборка искомого объекта из списка нескольких результатов (в отдельном всплывающем окне или выпадающем списке).

Больше не в планах?

[cordek]

В планах"][i]1. Выборка искомого объекта из списка нескольких результатов (в отдельном всплывающем окне или выпадающем списке).

Больше не в планах?

Хочется сделать, но для веб-версии нельзя сделать красивое окно.

[shavkat]

DaData2.zip

Неправильно определяется дата, обнаружил что в функции UnixToDateTime лишнее преобразование FloatToStr, либо должно быть другое преобразование

Код: Выделить всё

function UnixToDateTime(const AValue: variant): TDateTime;
var
  R: variant;
  Dt: TDateTime;
begin
  if VarIsNull(AValue) or VarIsEmpty(AValue) then
    Result := 0
  else
  begin
    R := AddSecond(StrToDateTime('01.01.1970'), AValue);
    if TryStrToDateTime(FloatToStr(R), Dt) then
      Result := TDateTime(R)
    else
      Result := 0;
  end;
end;


Корректно работает без FloatToStr

Код: Выделить всё

    if TryStrToDateTime(R, Dt) then 


[kok80]

привет. Очень не хватает налогового режима:

data.finance Налоговый режим, доходы, расходы, долги и штрафы

PS проверил на сайте DADATA:
Система налогообложения будет среди сведений о компании на «Расширенном» и «Максимальном» тарифах. Тарифы отличаются полнотой данных и числом запросов в сутки.

вопрос снят