Indices y Meter con ADS SOLUCIONADO

[Pedro]

Ya sé que esto será muy viejo para muchos, pero, ¿cómo hacer un meter de indexación con ADS?

[jrestojeda]

Hola Pedro...
Es algo que yo siempre intenté hacer. Creo que no se puede, porque el RDD de ADS es quien va contando los registros, y no regresa nada mientras lo hace.
De este modo no hay forma de calcular el paso de los registros.

[Pedro]

Hola Eduardo

Si tomamos el meter de forma clásica, al estilo clipper, pues no, pero ads provee de funciones para este menester y según he leido es posible. La función adsRegCallBack se usa para esto que quiero, pero como hacerlo para una función con tantos meter como tag tengo en los diferentes indices, es lo que no sé.

[Pedro]

Para todos aquellos que deseen hacer un meter con indices ADS (de momento solo en modo local, ya que aún no he empezado con el modelo cliente/servidor)

La solución :

Code: Select all  Expand view

     adsRegCallBack( {|nPct|oMeter:set( oMeter:nTotal * Int( nPct / 10000 ) ),SysRefresh(), .F. } )
      INDEX ON COMUNIDAD TAG COMUNIDAD TO COMUNIDA;
      EVAL( oMeter:Set( RecNo() ), oMeter:Refresh(), ! lEnd )
      oMeter:Set(COMU->(RecCount()))
      oMeter:Refresh()
      SysRefresh()
      adsClrCallBack()
 

Lo he probado también con un meter para cada tag del índice, (cuando hay multitags) y funciona de maravilla, es decir un diálogo donde tengo cinco tablas y veinte índices en total, con veinte meter, ha funcionado de perlas.
Gracias a George

[jrestojeda]

Perfecto Pedro...
Voy a probarlo entonces!!
Muchas gracias.

[AIDA]

Hola

A mi me sale esto

Error: Unresolved external '_HB_FUN_ADSREGCALLBACK' referenced from C:\FWH\PROMOTORIA\OBJ\poliza.OBJ

que me falta

Saluditos

[Pedro]

Hola Aida

¿Has incluido ACE32.lib en tu fichero de compilación?
¿Tienes en la carpeta del ejecutable las dll de ADS, ACE32.DLL y ADSLOCK.DLL?

Con eso no debería darte el error que mencionas

[AIDA]

Muchos tenquius

lo checare todito

Saluditos