FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

Error Irrecuperable 9009 ( Solucion en 32bits )

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44571

Page 1 of 2

Error Irrecuperable 9009 ( Solucion en 32bits )

PostPosted: Mon Jun 03, 2024 3:07 pm
by 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

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 3:33 pm
by Antonio Linares
Estás usando Harbour ó xHarbour ?

Que versión ?

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 3:41 pm
by 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.

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 4:07 pm
by 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()

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 4:33 pm
by 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.

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 5:03 pm
by 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

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 5:43 pm
by 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 ?

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 5:47 pm
by 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%

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 6:43 pm
by 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.

Re: Error Irrecuperable 9009 ( Solucionado )

PostPosted: Mon Jun 03, 2024 9:03 pm
by 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

Re: Error Irrecuperable 9009

PostPosted: Mon Jun 03, 2024 9:47 pm
by 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.

Re: Error Irrecuperable 9009 ( Solucion en 32bits )

PostPosted: Tue Jun 04, 2024 5:56 am
by Antonio Linares
FWH64 es capaz de usar muchísima mas memoria que FWH32

Re: Error Irrecuperable 9009 ( Solucion en 32bits )

PostPosted: Tue Jun 04, 2024 10:49 am
by 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 :D

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

Re: Error Irrecuperable 9009 ( Solucion en 32bits )

PostPosted: Tue Jun 04, 2024 9:31 pm
by 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

Re: Error Irrecuperable 9009 ( Solucion en 32bits )

PostPosted: Tue Jun 04, 2024 9:32 pm
by 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
 
All times are UTC
Page 1 of 2
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/