Error en Database

[JoseLuis]

Hola amigos

A que puede ser debido el error:
****************************
Application
===========
Path and name: C:\mocwin\GESPAQ.EXE (32 bits)
Size: 772,608 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 11/11/06, 19:01:36
Error description: Error BASE/44 Assigned value is wrong class: TDATABASE:CALIAS
Args:
[ 1] = C PROPIE

Stack Calls
===========
Called from: => TDATABASE:_CALIAS(0)
Called from: => TDATABASE:NEW(0)
Called from: C:\fuentes\harbour\mocwin2006\PRG\empresa.prg => EMPRESA(41)
********************************************

En la linea 45 a la que hace referencia es:

dbUseArea(.T.,,cUbica+"\PROPIE",,.T.)
propie->(Ordsetfocus("Codigo"))
propie->(Dbgotop())
Database Publicas:oDbfprop <= Esta es la linea 41

Esto funcionaba en fivewin.

Un saludo

Jose Luis

[Frafive]

Como creas el objeto Database ?

[JoseLuis]

Como lo utilizo en muchas partes del programa, lo declaro como publico en el prg principal

Publicas:=miclase()

CLASS miclase()
DATA oDbfProp
ENDCLASS

luego en el prg en cuestion declaro memvar la variable Publicas

Un Saludo

Jose Luis

[Antonio Linares]

Jose Luis,

En source\classes\database.prg modifica esta línea:

DATA cAlias, cFile, cDriver AS String INIT ""

por

DATA cAlias, cFile, cDriver

[JoseLuis]

Joer Antonio, es que los maestros no duermen?
Siempre estás al pié del cañón.

Bueno he hecho el cambio y sigue igual.
O es que hay que recompilar alguna libreria o algo?

Un saludo

Jose Luis

[Antonio Linares]

Jose Luis,

Se duerme de vez en cuando

Tienes que compilar database.prg después de ese cambio y o bien enlazas database.obj en tu aplicación ó lo reemplazas en fivehc.lib

[JoseLuis]

Perfecto Antonio.

He hecho lo mismo con bBof, ya que me daba el mismo error

Saludos

Jose Luis