Показать сообщение отдельно
Старый 02.04.2003, 13:37   #2  
Rungart is offline
Rungart
Участник
 
491 / 12 (1) ++
Регистрация: 13.01.2003
Адрес: Украина
Да, такой механизм реализуем.
К примеру, чтение из 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);