CheckRes()

[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

[russimicro]

Esta es la forma en que lo tengo, definido

Code: Select all  Expand view

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


 

[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  Expand view

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

 

[karinha]

Code: Select all  Expand view

   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
 

[russimicro]

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

Gracias

Code: Select all  Expand view

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

 

[cnavarro]

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

Code: Select all  Expand view

   PostQuitMessage( 0 )
   __QUIT()
 

[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

[cnavarro]

Efectivamente, seguramente es por eso