FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour CheckRes()
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: CheckRes()
Posted: Thu Mar 12, 2020 07:08 PM
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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: CheckRes()
Posted: Thu Mar 12, 2020 09:18 PM
Esta es la forma en que lo tengo, definido

Code (fw): Select all Collapse
   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()
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: CheckRes()
Posted: Thu Mar 12, 2020 09:50 PM
Esta parte prueba a no ponerla en el VALID, ya que aun no se ha destruido la ventana
Ponlo debajo del ACTIVATE

Code (fw): Select all Collapse
   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()
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: CheckRes()
Posted: Fri Mar 13, 2020 12:02 PM
Code (fw): Select all Collapse
   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 - Phone: +55(11)95150-7341
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: CheckRes()
Posted: Sat Mar 14, 2020 01:49 AM
No genera el checkrest.txt, pero sigue generando el res.log, con el contenido listado arriba

Gracias
Code (fw): Select all Collapse
  
   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()
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: CheckRes()
Posted: Sat Mar 14, 2020 01:29 PM
Prueba sin poner esto al final. La ultima instruccion que sea CheckRes()

Code (fw): Select all Collapse
   PostQuitMessage( 0 )
   __QUIT()
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: CheckRes()
Posted: Sat Mar 14, 2020 05:25 PM
  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

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: CheckRes()
Posted: Sat Mar 14, 2020 06:47 PM

Efectivamente, seguramente es por eso

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion