y al salir de la function Main.../...
SetResDebug( .T. )
.../...
.../...
//DbCloseAll()
FreeResources()
Hb_GCall(.t.)
CLEAR MEMORY
if File( "checkres.txt" )
FErase( "checkres.txt" )
endif
CheckRes()
Return nil
y al salir de la function Main.../...
SetResDebug( .T. )
.../...
.../...
//DbCloseAll()
FreeResources()
Hb_GCall(.t.)
CLEAR MEMORY
if File( "checkres.txt" )
FErase( "checkres.txt" )
endif
CheckRes()
Return nil
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()
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()
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
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()
Code: Select all
PostQuitMessage( 0 )
__QUIT()