DynaLib, dBase4 - к О.Руденко и не только

Гость

Приветствую всех!

В последнее время сбербанк требует с организаций файл dBase4 определенного формата для перечисления зарплаты на счет.
Одно из полей в этом файле в формате Numeric 18.2.
В Clarion для dBase4 Numeric как и Decimal отсутствуют.

Вопрос:
Есть ли обходной путь для реализации Numeric для dBase4 в Clarion (6.1)?
Я в частности использую DynaLib O.Руденко, может он предусмотрел обходной путь для реализации?

Ну и если ответ отрицательный, вопрос к тем кто возможно уже сталкивался с формированием вышеупомянутого файла, так ли важен тип поля для этой конкретной цели, или все завязано только на имя поля?

Спасибо,
Павел.
Написал: ClaList(2)

Гость

А ты хелп читал? Там описывают, как ЭТО сделать.
Сам не пробовал - но, в принципе, должно работать.

=============================
С уважением, Олег А. Руденко.
Oleg_Rudenko@mail.ru
Oleg_Rudenko@mail333.com
Библиотека DynaLib
http://dynalib.narod.ru
Написал: ClaList(2)

Гость

В хелпе на драйверы фaйлов - для всех .DBF-файлов (драйверы Foxpro, Clipper, DBase) типу Numeric 18.2 соответствует в Кларе тип String(@N_18.2). Если описываешь файл в словаре, то надо выбирать Data type - PICTURE, a Record Picture - @N_18.2.
Для драйвера Clipper я проверял, все работает, единственное ограничение на длину таких полей - не более 19, но у тебя - 18. (тестировалось на С5 и С55).

С уважением,
Александр Полонский
Написал: ClaList(2)

Гость

Спасибо,
работает если объявить

Field1 String(@N-_18.2)
или
Field1 Real,Name('Field1=N(18,2)')

Но DynaLib пропускает только первый вариант объявления, на второй ругается.

Объявление первым способом у меня приводит к первышению лимита некоммерческой версии, так что уважаемый О.Руденко, обращаюсь к вам по поводу приобретения dynalib.
Интересуют:
-условия
-цена
-сроки

С уважением,
Павел
Написал: ClaList(2)

Гость

Это... а класс Db3 не пойдёт? Им вроде много народа пользуется...
Класс позволяет динамически построить файл Db3 и без особых ограничений по типу полей и размеру записи.

Что-то типа

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

F     Db3
      Code
      F.Init('MyFile.dbf','OEM')
      F.AddField('Field1','S10',Loc:StringField)
      F.AddField('Field2','D',Loc:DateField)
      F.AddField('Field3','N18.2',Loc:NumericField)
      ...
      F.DbCreate()
      Loop
       ...
       F.DbAppend()
      End
      F.DbClose()
      F.DbKill()

Или полученный файл не устраивает?

--
C уважением
Yuri
Адрес:yufil@mail.ru
Написал: ClaList(2)