Code: Select all
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
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.