FiveTech Support Forums

Saludos estoy trabajando con unas tablas de 131884 registro llega un momento de haber realizado el proceso en 18793 registro q sale este error

hb_xrealloc no puede reubicar la memoria

alguna sugerencia para evitarlo . Gracias

Estás usando Harbour ó xHarbour ?

Que versión ?

Windows 10

xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)

RAM 16

WaitOn("Espere, recogiendo informacion...",@oWait )

FWCONNECT lServer HOST cServer ;

              USER cUser ;

              PASSWORD cPassword ;

              DATABASE cDBName

CheckConect()

cMsg := "SELECT * FROM personal_mov p WHERE fecha='2030-03-04'"// LIMIT 2000"

cQry := aServer:Query( cMsg )

nnc := 1

While !cQry:Eof()

oWait:Say(1,3,"Espere, actualizando Reg.: "+Alltrim( Str( cQry:id ) )+" -- "+Alltrim(Str(nnc))+Space(40) )

SysRefresh()

cMsg := "SELECT * FROM personal_mov WHERE id = "+ClipValue2Sql( cQry:id )

aQry := lServer:Query( cMsg )

If aQry:lastrec()>0

  oWait:Say(1,3,"Espere, actualizando Reg.: "+Alltrim( Str( cQry:id ) )+" -- "+Alltrim(Str(nnc))+" ok..."+Space(30) )

  SysRefresh()



  cMsg := "update personal_mov set "

  cMsg += "idasistencia = "+ClipValue2Sql( aQry:idasistencia )

  cMsg += ",idempresa = "+ClipValue2Sql( aQry:idempresa )

  cMsg += ",idfundo = "+ClipValue2Sql( aQry:idfundo )

  cMsg += ",campana = "+ClipValue2Sql( aQry:campana )

  cMsg += ",semana = "+ClipValue2Sql( aQry:semana )

  cMsg += ",tipo = "+ClipValue2Sql( aQry:tipo )

  cMsg += ",idpersonal = "+ClipValue2Sql( aQry:idpersonal )

  cMsg += ",fecha = "+ClipValue2Sql( aQry:fecha )

  cMsg += ",idparcela = "+ClipValue2Sql( aQry:idparcela )

  cMsg += ",idlote = "+ClipValue2Sql( aQry:idlote )

  cMsg += ",idlabor = "+ClipValue2Sql( aQry:idlabor )+" "

  cMsg += "WHERE id="+ClipValue2Sql( aQry:id )

  aServer:Execute( cMsg )

EndIf

aQry:End()

cQry:Skip()

nnc++

EndDo

cQry:End()

lServer:End()

ok voy hacer las pruebas tus punto de observación si lo que pasa q estoy reparando informacion en la nube con una base local, pruebo los cambios y aviso

Estoy corriendo lo planteado :

ya el consumo de memoria se a quedado en 61.4mb anterior mente se incrementaba según los registro leidos llego hasta 1899Mb ahora esta 61.5Mb pero lo que aumentado es el uso de CPU antes solo 0.6% ahora esta 12.3%

y el tiempo de se demora mas en avanzar con los registro SYSWAIT( 3.5 ) se le puede poner menos en este parametro ?

he modificado SYSWAIT( 0.5 ) esta más rapido el proceso el consumo de memoria sigue estable en 61.5mb y el uso CPU entre 10.5%

Si Gracias lo solucione asi cada 1000 registros

WaitOn("Espere, recogiendo informacion...",@oWait )

HB_GCALL( .F. )

FWCONNECT lServer HOST cServer ;

              USER cUser ;

              PASSWORD cPassword ;

              DATABASE cDBName

CheckConect()

cMsg := "SELECT * FROM personal_mov p WHERE fecha='2030-03-04'"// LIMIT 2000"

cQry := aServer:Query( cMsg )

nnc := 1

xnn := 0

While !cQry:Eof()

oWait:Say(1,3,"Espere, actualizando Reg.: "+Alltrim( Str( cQry:id ) )+" -- "+Alltrim(Str(nnc))+Space(40) )

SysRefresh()

// si ha recorrido 1000 registro de limpie la memoria

If xnn>1000

  SYSWAIT( 0.5 )



  HB_GCALL( .F. )

  xnn:=0

Endif

cMsg := "SELECT * FROM personal_mov WHERE id = "+ClipValue2Sql( cQry:id )

aQry := lServer:Query( cMsg )

If aQry:lastrec()>0

  oWait:Say(1,3,"Espere, actualizando Reg.: "+Alltrim( Str( cQry:id ) )+" -- "+Alltrim(Str(nnc))+" ok..."+Space(30) )

  SysRefresh()



  cMsg := "update personal_mov set "

  cMsg += "idasistencia = "+ClipValue2Sql( aQry:idasistencia )

  cMsg += ",idempresa = "+ClipValue2Sql( aQry:idempresa )

  cMsg += ",idfundo = "+ClipValue2Sql( aQry:idfundo )

  cMsg += ",campana = "+ClipValue2Sql( aQry:campana )

  cMsg += ",semana = "+ClipValue2Sql( aQry:semana )

  cMsg += ",tipo = "+ClipValue2Sql( aQry:tipo )

  cMsg += ",idpersonal = "+ClipValue2Sql( aQry:idpersonal )

  cMsg += ",fecha = "+ClipValue2Sql( aQry:fecha )

  cMsg += ",idparcela = "+ClipValue2Sql( aQry:idparcela )

  cMsg += ",idlote = "+ClipValue2Sql( aQry:idlote )

  cMsg += ",idlabor = "+ClipValue2Sql( aQry:idlabor )+" "

  cMsg += "WHERE id="+ClipValue2Sql( aQry:id )

  aServer:Execute( cMsg )

EndIf

aQry:End()

cQry:Skip()

nnc++

xnn++

EndDo

cQry:End()

lServer:End()

WaitOff( @oWait )

Return

Hace un par de meses tuve un problema similar.

El detalle (en mi caso) fue que windows 32 bits solo reconoce hasta 4gb de RAM. Puedes tener mas, pero creo que no pasa de 3.5gb para uso de nuestras aplicaciones. Incluso, puedes tener windows de 64 bits, que reconoce hasta 2TB pero si tu aplicacion esta compilada a 32 bits, el resultado sera el mismo: 3.5gb disponibles.

La conclusión a la que llegue fue: o migrar mi app a FW64BITS o seccionar el reporte.

Resolví con lo último, ya que no tengo fw64

Sería bueno escuchar la opinión de otros usuarios.

FWH64 es capaz de usar muchísima mas memoria que FWH32

Una cosa es que llamar un sysrefresh en un ciclo es peligroso, se debe hacer cada x ciclos, hacerlo en cada iteración no es lo adecuado, por ejemplo yo hago que cada 20 iteraciones llame al sysrefresh, por ejemplo antes de incio del ciclo inicializado una var contadora a cero, la incrementas en cada iteración y haces un control para que se ejecute sysrefresh cada cierto tiempo.

Var:=0

Do while ...

++Var

...

If mod(Var,20)=0

 Sysrefresh()

Endif

Enddo