topic-38596

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

russimicro

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

cnavarro

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

karinha

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

russimicro

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

cnavarro

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

russimicro

Posts: 410

Joined: Sun Jan 31, 2010 03:30 PM

Re: CheckRes()
Posted: Sat Mar 14, 2020 05:25 PM

ya probe sin el PostQuitMessage( 0 ), __QUIT() y sigue sin generar el checkres
corri un ejemplo de fivewin con xharbour.org y genera el checkres
no se si es porque uso xharbour.com ?

Gracias

cnavarro

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

FiveTech Support Forums

Continue the discussion