Error Irrecuperable 9009 ( Solucion en 32bits )

[CARLOS ATUNCAR]

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

[Antonio Linares]

Estás usando Harbour ó xHarbour ?

Que versión ?

[karinha]

En windows 10 / 11 minimo: 8 Gbs de RAM.

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44358&p=268853&hilit=Error+Irrecuperable+9009&sid=48f0a5f2e883ba7a647bc2fd4f5e4f50&sid=77a99a8f21618266f2ba063d93794c5f#p268853

ò muestre el código.

Regards, saludos.

[CARLOS ATUNCAR]

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()

[karinha]

https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&start=150&sid=77a99a8f21618266f2ba063d93794c5f#p269473

Carlos: Prueba y comente, pls.

Code: Select all  Expand view

FUNCTION ATUAL_REG()

   HB_GCALL( .F. )

   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 .NOT. cQry:Eof()

      SYSREFRESH()

      SYSWAIT( 3.5 ) // Delay aqui.

      HB_GCALL( .F. )

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

      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() // ESTO ESTA CORRECTO?

      cQry:Skip()

      nnc++

   ENDDO

   HB_GCALL( .T. )

   cQry:End()

   lServer:End() // lSerVer := NIL ??

RETURN NIL
 

Regards, saludos.

[CARLOS ATUNCAR]

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

[CARLOS ATUNCAR]

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 ?

[CARLOS ATUNCAR]

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%

[karinha]

Carlos: Prueba y comente, pls. Nueva version:

Code: Select all  Expand view

FUNCTION ATUAL_REG()

   HB_GCALL( .F. )

   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 .NOT. cQry:Eof()

      SYSREFRESH()

      SYSWAIT( 0.5 ) // Delay aqui.

      HB_GCALL( .F. ) // Puede tambien: HB_GCALL()

      IF LASTKEY() = VK_ESCAPE

         IF MsgNoYes( OemToAnsi( "Atención al usuario: " )      + CRLF + ;
                                                                + CRLF + ;
                      OemToAnsi( "Escribiste <ESCAPE> " )       + CRLF + ;
                      OemToAnsi( "Tienes problemas " )          + CRLF + ;
                      OemToAnsi( "¿en la actualización? " )     + CRLF + ;
                                                                + CRLF + ;
                      OemToAnsi( "¿Realmente quieres salir? " ) + CRLF + ;
                      OemToAnsi( "Escribe todo..." )            + CRLF + ;
                                                                + CRLF + ;
                      OemToAnsi( "<S> Estoy continuando... " )  + CRLF + ;
                      OemToAnsi( "<N>o Continue(Salir) " ),              ;
                      OemToAnsi( "¿Problemas con el programa?" ) ) = .F.

            // comando...

            RETURN( .F. )

         ENDIF

      ENDIF

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

      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() // ESTO ESTA CORRECTO?

      cQry:Skip()

      nnc++

   ENDDO

   HB_GCALL( .T. )

   cQry:End()

   lServer:End() // lSerVer := NIL ??

RETURN NIL
 

Regards, saludos.

[CARLOS ATUNCAR]

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

[JoseAlvarez]

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.

[Antonio Linares]

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

[paquitohm]

Son las cosas de la concatenacion de cadenas, que fragmenta la memoria y es capaz de echar abajo al ordenador con mas memoria del mundo

Aquí se habla del asunto y Manu Expósito aporta una solución que no sólo evita la fragmentación sino que mejora la velocidad en los procesos de concatenación. Para leerlo con gusto: viewtopic.php?f=6&t=35548&hilit=mora&sid=c88d9c6f2d02d58b6d168dd79cbffdb2#p211646

[carlos vargas]

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

[carlos vargas]

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.

Code: Select all  Expand view

Var:=0
Do while ...
  ++Var
  ...
  If mod(Var,20)=0
     Sysrefresh()
  Endif
Enddo