bug en la funcion FieldName() xharbour y TDATABASE

[RSalazarU]

Amigos del foro:

Manejo ADS + xharbour y tengo una consulta asi :

Code: Select all  Expand view

SELECT nroautoriz autorizacion, nrofactura factura FROM ftcompra

El nombre del primer campo, resultado de la consulta, tiene 12 caracteres

Si este resultado lo manejo con TDataBase(), tira este error:

Code: Select all  Expand view

Error description: Error BASE/1004  Message not found: TDataBase:AUTORIZACION
 

es porque en la clase TDataBase() se tiene este codigo

Code: Select all  Expand view

      for n = 1 to ( ::cAlias )->( FCount() )
         cCol  := ( ::cAlias )->( FieldName( n ) ) //<- aca el ERRROR!!!
         AAdd( ::aFldNames, cCol )
#ifdef USE_HASH
         ::hFlds[ cCol ] := n
#endif
 

La funcion ( ::cAlias )->( FieldName( 1 ) ) retorna "autorizacio" una cadena de 11 digitos (ni 10, ni 12), por lo tanto el HASH de la clase TDataBase() falla.

Para corregir el problema se debe usar el metodo ::FieldName() de la misma clase, que usa el arreglo ::aStruct creado con ( ::cAlias )->( DbStruct() )

Code: Select all  Expand view

      for n = 1 to ( ::cAlias )->( FCount() )
         cCol  := ::FieldName( n ) //<- CORECCION!!!
         AAdd( ::aFldNames, cCol )
#ifdef USE_HASH
         ::hFlds[ cCol ] := n
#endif
 

La pregunta: es error de xHarbour ???


Rolando
Cochabamba, Bolivia

[Antonio Linares]

Rolando,

Prueba a cambiar esta línea:

cCol := ( ::cAlias )->( FieldName( n ) )

por

cCol := ( ::cAlias )->( DbStruct()[ n, 1 ] )

si asi funciona, entonces sería problema de xharbour

[RSalazarU]

Antonio:

Hice el cambio y funciona!!!

Entonces el problema es en xHarbour.

Sin embargo prefiero hacerlo asi:

cCol := ::FieldName( n )

porque le da mas claridad al codigo (segun yo)

[Antonio Linares]

Si, estoy de acuerdo contigo

[nageswaragunupudi]

Thanks.
I made the correction this way in database.prg:
cCol := ::aStruct[ n, 1 ]
I think this works too.
The fix will be available from next release.

[Patricio Avalos Aguirre]

Hola

si te pasas en algun momento a harbour vas a tener problemas con los nombres de los campos mayores a 10 caracteres

tuve ese problema y la solucion fue cambiar los largos de los nombres de los campos