Navision Attain и DBF

[Кактус]

Подскажите пожалуйста, могу ли я каким-нибудь образом из аттэйна работать напрямую с DBF-файлом? Необходима загрузка/выгрузка данных.

[Rungart]

Да, такой механизм реализуем.
К примеру, чтение из dbf :
Во-первых, создаем источник данных ODBC - 'DBF'.
Затем в Navision объявляем переменные:

DBFBase Automation 'Microsoft ActiveX Data Objects 2.5 Library'.Connection
DBFFile Automation 'Microsoft ActiveX Data Objects 2.5 Library'.Recordset

Затем код:

CREATE(DBFBase);
CREATE(DBFFile);
DBFBase.Open('DBF');
DBFFile.Open('de_calls.dbf',DBFBase); // 'de_calls.dbf' - имя файла
IF NOT(DBFFile.EOF) THEN DBFFile.MoveFirst();
IF NOT(DBFFile.EOF) THEN BEGIN
REPEAT
Selected:=DBFFile.Fields().Item('ext_call').Value; //значение столбца 'ext_call'
DBFFile.MoveNext();
UNTIL DBFFile.EOF;
END;
DBFFile.Close();
DBFBase.Close();
CLEAR(DBFBase);
CLEAR(DBFFile);

[Кактус]

Огромное спасибо! Все заработало!

[foxc]

А как тогда создать таблицу и внести в нее данные не используя код вроде этого:
DBFBase.Execute('CREATE TABLE...
и
DBFBase.Execute('INSERT INTO...
у меня только так получилось.

[Aleksander]

Rungart - я попытался использовать Ваш пример, но столкнулся с проблемой.
При выполнении строчки:
DBFFile.Open('de_calls.dbf',DBFBase); // 'de_calls.dbf' - имя файла
- появляется следующее сообщение об ошибке:

Вызов функции Open неудачен. Microcost OLE DB Provider for ODBC Drivers вернул следующее сообщение:[Microsoft][Драйвер ODBC dBase] Ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' или 'UPDATE'.

В чем может быть проблема?

[Rungart]

Скорее всего, проблема в следующем: когда создаешь источник данных DBF необходимо убрать галочку "Использовать текущий каталог" и при помощи кнопки "Выбор каталога..." указать директорию с dbf файлами.

[Aleksander]

Rungart - большое спасибо за подсказку! Но я столкнулся с еще одним интересным фактом, как оказалось, нельзя использовать файл с именем database.dbf, т.к. выражение DATABASE - зарезервированное. Или все же как-то можно и такое имя файла использовать?

поднимая старую тему.

Задача - зацепить DBF-ник из 1c. с классификаторами банков.

Прописал к нему дорожку, как вы описали, открылся, считался.

Беда в русских названиях.
Получается полная чепуха.

Вот такая строчка из ДБФ-а: └╦╥└╔╤╩╚╔ ╩╨└╔
считывается вот так: LTTLãT¦Lã ¦¦Lã

по русски там написано: "АЛТАЙСКИЙ КРАЙ"

Попробовал поиграться с параметром Collating Sequence в драйвере ODBC - не помогло. Пробовал разные версии Automation - то же самое.

Кто знает, чем помочь?

[AlexVB]

В codeunit 12400 есть функция Dos2Win, можно написать обратную - Win2Dos

[Rungart]

PHP код:

Win2DOS(TextValue : Text[1024]) : Text[1024]

FOR i := 1 TO STRLEN(TextValue) DO BEGIN
  ByteValue := TextValue[i];
  IF ByteValue = 185 THEN 
    ByteValue := 252;
  IF ByteValue IN [192..239] THEN 
    ByteValue -= 64; 
  IF ByteValue IN [240..255] THEN 
    ByteValue -= 16;
  TextValue[i] := ByteValue;
END;
EXIT(TextValue); 


[AlexVB]

+
168 -> 240
184 -> 241

[Konstantin I]

При использвании данного примера, вылезла такая бяка:
"... Этот тип данных не поддерживается C\SIDE . Вы можете использовать данные любого из следующих типов : VT_VOID... и т.п."

Ругается на строковое поле из 4-х символов... Как бороться??? Что не нравиться???

[ANekrasov]

У меня така ж беда, как бороться?

[Polar]

[Yoil]

[Konstantin I]

Эта ошибка возникает если поле в дбфе пустое и нав тип определить не может, вышел с помощью этого:

FL := FS.Item('ind');
IF FL.ActualSize > 0 THEN ....

[Polar]

столкнулся с проблемкой.

для чтения из DBF использую драйвер Microsoft Visual Fox Pro
все нормально пока не натыкаюсь на символы псевдографики
176 - 178 (может еще какие то , но пока эти)
драйвер их не понимает и возвращает 32 код (пробел).
DBF -ки старые еще под досом работающие.
как бы мне эти циферки получить вместо пробела?

может кто сталкивался с проблемой?

заранее благодарю.