Code: Select all | Expand
FUNCTION recorre() LOCAL i:= 1 articulo->(DBGoTop()) DO WHILE !articulo->(Eof()) articulo->lfiltro:= 1 i++ IF i > 300 msginfo("2") i:= 1 endif articulo->(DBSkip()) enddo msginfo("fin")RETURN nil
Es una Tabla de unos 4800 registros .
El caso es que probado en el simulador ( sin los mensajes ) tarda unos 4 segundos en hacerse .
Pero al pasarlo al pocket se me para , pongo los mensajes para ver por donde va y resulta que tarda en recorrer los 300 registros unos "40 segundos" , osea los 4000 registros es impensable .
Espero alguien mire si esto ocurre en otros pocket , o solo es el mio .
Probado con la version anterior de harbour y la de hoy mismo .
saludso.