CheckRes()

User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: CheckRes()

Post by cnavarro »

Has de poner al principio en tu function Main
.../...
SetResDebug( .T. )
.../...
y al salir de la function Main
.../...
//DbCloseAll()
FreeResources()
Hb_GCall(.t.)
CLEAR MEMORY
if File( "checkres.txt" )
FErase( "checkres.txt" )
endif
CheckRes()

Return nil
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
russimicro
Posts: 179
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CheckRes()

Post by russimicro »

Esta es la forma en que lo tengo, definido

Code: Select all

   SetResDebug(.t.)

   DEFINE ICON oIco  FILENAME "IMAGENES\zeruswin.ico"

   M->cTitVenPri := HB_OEMTOANSI("Russoft ERP. Sistema de Gesti¢n Empresarial " +"(Versi¢n : "+m->cFecVerZer+")"+ " | "+ cCiaAct +" - "+ cCiaNom )

   DEFINE WINDOW oWnd FROM 0, 0 TO 46, 128 ;
            TITLE M->cTitVenPri            ;
            ICON oIco                      ;
            MENU  MenuPrincipal(oWnd)

            oMetPri := MakeMetroPanelPrincipal( oWnd,oBrush )
            m->oMetWin := oMetPri
            LINEAESTADOFW(oWnd)

   ACTIVATE WINDOW oWnd MAXIMIZED  ;
                VALID ( TerminarMetro(oBrush,oMetPri), .T. ) ;
                  ON INIT ( oMetPri:Show()  )  // ServerSocket(), , XTimers_2()  oTimer := XTimers()

RETURN NIL

FUNCTION TerminarMetro(oBrush,oMetro )

    DeleteObject( oBrush )
    DeleteObject( oMetro )

   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()

   FreeResources()
   RELEASE ALL
   SysRefresh()

   HB_GCALL( .T. )
   CLEAR MEMORY

   IF FILE( "checkres.txt" )
      CopyFile("checkres.txt","x_checkres.txt",0)
      FErase( "checkres.txt" )
   ENDIF

   CheckRes()  // CREA UN NUEVO.

   PostQuitMessage( 0 )
   __QUIT()


 
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: CheckRes()

Post by cnavarro »

Esta parte prueba a no ponerla en el VALID, ya que aun no se ha destruido la ventana
Ponlo debajo del ACTIVATE

Code: Select all


   FreeResources()
   RELEASE ALL
   SysRefresh()

   HB_GCALL( .T. )
   CLEAR MEMORY

   IF FILE( "checkres.txt" )
      CopyFile("checkres.txt","x_checkres.txt",0)
      FErase( "checkres.txt" )
   ENDIF

   CheckRes()  // CREA UN NUEVO.

   PostQuitMessage( 0 )
   __QUIT()

 
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: CheckRes()

Post by karinha »

Code: Select all

   DEFINE BUTTON oSalida RESOURCE "FECHAR", "FECHAR2" OF oBar                ;
          NOBORDER GROUP PROMPT "Saida"                                      ;
          MESSAGE "Sair do Programa"                                         ;
          ACTION( oSalida:Toggle(), SALIDA( oWnd ), oSalida:GoUp() )         ;
          TOOLTIP { "Encerrar WinOrcam - Finalizar",                         ;
                    "Encerrar o Programa Agora?   ", 1, CLR_WHITE, CLR_HBLUE }

   oSalida:oCursor := oHand
 
João Santos - São Paulo - Brasil
russimicro
Posts: 179
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CheckRes()

Post by russimicro »

No genera el checkrest.txt, pero sigue generando el res.log, con el contenido listado arriba

Gracias

Code: Select all


  
   SetResDebug(.t.)

   DEFINE ICON oIco  FILENAME "IMAGENES\zeruswin.ico"

   M->cTitVenPri := HB_OEMTOANSI("Russoft ERP. Sistema de Gesti¢n Empresarial " +"(Versi¢n : "+m->cFecVerZer+")"+ " | "+ cCiaAct +" - "+ cCiaNom )

   DEFINE WINDOW oWnd FROM 0, 0 TO 46, 128 ;
            TITLE M->cTitVenPri            ;
            ICON oIco                      ;
            MENU  MenuPrincipal(oWnd)

            oMetPri := MakeMetroPanelPrincipal( oWnd,oBrush )
            m->oMetWin := oMetPri
            LINEAESTADOFW(oWnd)

   ACTIVATE WINDOW oWnd MAXIMIZED  ;
                  ON INIT ( oMetPri:Show()  )  // ServerSocket(), , XTimers_2()  oTimer := XTimers()

   IF oBrush <> NIL
      DeleteObject( oBrush )
   ENDIF
   DeleteObject( oMetPri )

   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()

   FreeResources()
   RELEASE ALL
   SysRefresh()

   HB_GCALL( .T. )
   CLEAR MEMORY

   IF FILE( "checkres.txt" )
      CopyFile("checkres.txt","x_checkres.txt",0)
      FErase( "checkres.txt" )
   ENDIF

   CheckRes()  // CREA UN NUEVO.

   PostQuitMessage( 0 )
   __QUIT()

 
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: CheckRes()

Post by cnavarro »

Prueba sin poner esto al final. La ultima instruccion que sea CheckRes()

Code: Select all


   PostQuitMessage( 0 )
   __QUIT()
 
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
russimicro
Posts: 179
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CheckRes()

Post by russimicro »

1. ya probe sin el PostQuitMessage( 0 ), __QUIT() y sigue sin generar el checkres

2. corri un ejemplo de fivewin con xharbour.org y genera el checkres

3. no se si es porque uso xharbour.com ?

Gracias
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: CheckRes()

Post by cnavarro »

Efectivamente, seguramente es por eso
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Post Reply