PASA ALGO MUY RARO AL CERRAR MI PROGRAMA(RESUELTO)

[AIDA]

Hola primero que nada les mando muchos saludos


Les comento que mi programa está quedando bien con algunos problemitas pero con la ayuda de ustedes y otras que yo he podido resolver todo va bien.

Pero ahora pasa algo raro ejecuto el programa funciona todo bien hasta donde lo tengo hecho lo cierro y descubro que en el Administrador de tareas de Windows aparece mi programa en la lista de procesos y desde ahí lo tengo que cerrar cuando se supone ya lo cerré, que estará pasando si se supone que ya salí del programa usando una salida en Menú

Me podrían explicar a qué se debe esto o será un caso para la araña


A si salgo de mi programa


//----------------------------------------------------------------------------//

function BuildMenu()

local oMenu

MENU oMenu 2007
MENUITEM "&Salir" ACTION oWnd:End()

MENUITEM "&Acerca de..."

ENDMENU

return oMenu

//----------------------------------------------------------------------------//


Saluditos

[sysctrl2]

es posible que se quede algun recurso abierto,,

prueba con estas lineas,,

antes del return , del programa principal

function _main()

DEFINE WINDOWS oWnd
ACTIVATE WINDOW oWnd .......????

resallfree() //por si quedan recursos en memoria....
memory(-1)
PostQuitMessage( 0 )
return nil


Saludos..

[antolin]

Si utilizas recursos, a lo mejor te falta el SET ROSURSES TO, o simplemente el FreeLibrary( hBorland ) del final.
Un saludo

[Antonio Linares]

Aida,

Pon un MsgInfo() al final de tu PRG, despues del ACTIVATE WINDOW y comprueba si aparece el mensaje:

ACTIVATE WINDOW oWnd ...

MsgInfo( "sale correctamente" )

[AIDA]

Ok hare todo lo que me recomiendan y les cuento que paso

Gracias

[AIDA]

Hola

ya puse en una rutinita de salida todo lo que me recomendaron y tambien puse el MsgInfo( "sale correctamente") que me dijo Antonio y pasa lo siguiente..

si uso oWnd:End() se cierra el programa no sale el letrero del MsgInfo y se queda en memoria el programa

si no uso oWnd:End() se cierra el programa con los comando de salida que me dieron ustedes y si sale el letrerito del MsgInfo( "sale correctamente" ) y no se queda en la memoria

y aun no uso librerias de terceros esas las quiero para mas adelante

no uso recursos Borland en mi Rc

Que raro no creen que sera???

Saluditos.

[FiveWiDi]

Hola

ya puse en una rutinita de salida todo lo que me recomendaron y tambien puse el MsgInfo( "sale correctamente") que me dijo Antonio y pasa lo siguiente..

si uso oWnd:End() se cierra el programa no sale el letrero del MsgInfo y se queda en memoria el programa

si no uso oWnd:End() se cierra el programa con los comando de salida que me dieron ustedes y si sale el letrerito del MsgInfo( "sale correctamente" ) y no se queda en la memoria

y aun no uso librerias de terceros esas las quiero para mas adelante

no uso recursos Borland en mi Rc

Que raro no creen que sera???

Saluditos.

Enséñanos toda la línea de código de "ACTIVATE WINDOW ..."

Saludos
Carlos G.

[AIDA]

AQUI ESTA MI MINI CODIGO LO CHECO Y LO CHECO Y NO VEO NADA RARO.



#include "FiveWin.ch"
#include "Splitter.ch"
#include "xbrowse.ch"
#Include "TGraph.Ch"
#include "report.ch"


#define ID_MEMO 110


#define BLANCO 1
#define ROJO 2
#define AMARILLO 3
#define AZUL 4
#define VERDE 5




static lExit := .F.
static oWnd
static oUnidades,cUnidad
static oUnidad:={}
//------------------------de control de tiempo
Static hOra1
Static hOra2
Static hOra3
Static hOra4
Static hOra5
Static hOra6
Static hOra7
Static hOra8

Static oHora1
Static oHora2
Static oHora3
Static oHora4
Static oHora5
Static oHora6
Static oHora7
Static oHora8
Static oHora9
//---- ----------para guardar altas
Static oReg1
Static cReg1
Static oReg2
Static cReg2
Static oReg3
Static cReg3
Static oReg4
Static cReg4
Static oReg5
Static cReg5
Static oReg6
Static cReg6
Static oReg7
Static cReg7
Static oReg8
Static cReg8
Static oReg9
Static cReg9



Static campo1
Static campo2
Static campo3
Static campo4
Static campo5
Static campo6
Static campo7
Static campo8
Static campo9


Static oTurno:= {"Turno1","Turno2","Turno3","INT"}
Static otipo:= {"Urgencia","Traslado","Falsa Alrma","Servicio Especial"}


//----------------------------campos memo
Static cText01

Static cText02

//---------------------//
Static pasito:=0
Static pErsosS
Static cFile
//---------------------------------------------------------------------------- de salva datos//
STATIC hDatos
STATIC hCtrl

STATIC ,oGraph


STATIC SW_RESTORE,GW_CHILD,GW_HWNDNEXT
//-------------------------------------
function Main()

local oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue := 1
local oFont,oActiveX,oTimerRelog,oBrush, oBmp , oHSpl1,oVSpl1,oHSplll,oOut
local aBtn[ 1 ]
local A9 :=0
local A14 :=0
local A16 :=0
local A20 :=0
local A21 :=0
local A24 :=0
local A25 :=0
local A26 :=0

lOCAL AMBU21
Local cFileAgent
Local aAvailables := {}




USE BITACORA NEW

USE UNIDADES NEW

USE SOS NEW

USE CONTROLE NEW

dbselectarea("UNIDADES")

UNIDADES->(dbGoTop())
While(UNIDADES->( ! Eof()))
aadd(oUnidad,AllTrim(UNIDADES->UNIDAD))
UNIDADES->(dbSkip(1))
EndDo




SetBalloon( .T. )
DEFINE WINDOW oWnd TITLE "BITACORA ELECTRONICA 2008" MDI ;
MENU BuildMenu()


DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;
PROMPTS "Contactos", "Bitacora", "Calendario", "Correo","Mantenimiento","" ;
BITMAPS "notes.bmp", "sos2.bmp","calendar.bmp", "mail.bmp"

oWnd:oLeft = nil // Because the splitter is going to control the resize




@ 1, 2 BUTTON "Personal SOS" OF oOutLook2003:aDialogs[ 1 ] SIZE 80, 22 ACTION bitacora()
@ 3, 2 BUTTON "Hospitales" OF oOutLook2003:aDialogs[ 1 ] SIZE 80, 22 ACTION BuildDlg()
@ 5, 2 BUTTON "Autoridades" OF oOutLook2003:aDialogs[ 1 ] SIZE 80, 22 ACTION MsgInfo( "Edit" )


@ 1, 2 say "Control de Unidades" OF oOutLook2003:aDialogs[ 2 ]
@ 3, 5 BUTTON "Registro" OF oOutLook2003:aDialogs[ 2 ] SIZE 80, 22 ACTION Seguro()
@ 5, 5 BUTTON "Consulta" OF oOutLook2003:aDialogs[ 2 ] SIZE 80, 22 ACTION MsgInfo( "Edit" )
@ 7, 5 BUTTON "Reportes" OF oOutLook2003:aDialogs[ 2 ] SIZE 80, 22 ACTION REPORTE01()

@ 1, 2 BUTTON "Fotografias" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22 ACTION camara()
@ 3, 2 BUTTON "Personal SOS" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22
@ 5, 2 BUTTON "Hospitales" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22
@ 7, 2 BUTTON "Autoridades" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22



#ifndef __CLIPPER__
DEFINE STATUSBAR oStatusBar PROMPT "Sistema de control SOS 2008" OF oWnd
#else
DEFINE MESSAGE oStatusBar PROMPT "Sistema de control SOS 2008" OF oWnd
#endif

SetParent( oOutLook2003:hWnd, oWnd:hWnd )


@ 0, 191 SPLITTER oSplit ;
VERTICAL _3DLOOK ;
PREVIOUS CONTROLS oOutLook2003 ;
HINDS CONTROLS oWnd:oWndClient ;
SIZE 4, oWnd:nHeight - 70 PIXEL ;
OF oWnd COLOR nRgb(25,25,112)
oSplit:lStatic:=.T.



A9 :=500
A14 :=20
A16 :=50
A20 :=40
AMBU21 :=0
A24 :=60
A25 :=100
A26 :=80

dbselectarea("BITACORA")

COUNT TO AMBU21 FOR BITACORA->UNIDAD ="A-21"




@00,24.61 GRAPH oGraph OF oWnd ;
SIZE 1085, 335;
TYPE 1;
YVALUES 3D XGRID YGRID LEGENDS



oGraph:aSeries = { { "A-09", CLR_CYAN },;
{ "A-14", CLR_YELLOW },;
{ "A-16", CLR_HRED },;
{ "A-20", CLR_BLUE },;
{ "A-21", CLR_HCYAN },;
{ "A-24", CLR_GREEN },;
{ "A-25", CLR_RED },;
{ "A-26", CLR_HBLUE } }



oGraph:aData = { {A9},{A14},{A16},{A20},{AMBU21},{A24},{A25},{A26} }






oGraph:l3D := .T.
oGraph:lPopUp := .T.
oGraph:lLegends:= .T.
oGraph:lSelView:= .T.
oGraph:cPicture:="9999999999"
oGraph:nBarSep:=05
oGraph:cTitle:= "SERVICIOS POR UNIDAD"
oGraph:lcTitle:= .T.
oGraph:lViewVal:= .T.
oGraph:cBitmap := "brush.bmp"
oGraph:nClrX = CLR_GREEN
oGraph:nClrY = CLR_RED



// oGraph:Refresh(.T.)
SetParent( oGraph:hWnd, oWnd:hWnd )


@ 336,195 SPLITTER oHSpl1 HORIZONTAL _3DLOOK PREVIOUS CONTROLS oOutLook2003 ;
HINDS CONTROLS oWnd:oWndClient ;
SIZE 1200, 4 PIXEL ;

TOP MARGIN 100 OF oWnd COLOR nRgb(25,25,112)
oHSpl1:lStatic:=.T.

@ 600,195 SPLITTER oHSplll HORIZONTAL _3DLOOK SIZE 1200, 4 PIXEL ;
TOP MARGIN 100 OF oWnd COLOR nRgb(25,25,112)
oHSpl1:lStatic:=.T.

@ 336,713 SPLITTER oVSpl1;
VERTICAL ;
PREVIOUS CONTROLS oOut ;
LEFT MARGIN 70 ;
RIGHT MARGIN 202 ;
SIZE 4, 846 PIXEL ;
OF oWnd ;
_3DLOOK ;
COLOR nRgb(25,25,112) ;
UPDATE
oVSpl1:lStatic:=.T.


SetParent( oSplit:hWnd, oWnd:hWnd )
SetParent( oHSpl1:hWnd, oWnd:hWnd )
SetParent( oHSplll:hWnd, oWnd:hWnd )
SetParent( oVSpl1:hWnd, oWnd:hWnd )









ACTIVATE WINDOW oWnd MAXIMIZED ON PAINT oGraph:Refresh(.f.) ON RESIZE oSplit:Adjust()


MsgInfo( "sale correctamente" )


oGraph:END()
resallfree() //por si quedan recursos en memoria....
memory(-1)
PostQuitMessage( 0 )
return nil
//----------------------------------------------------------------------------//

function BuildMenu()

local oMenu

MENU oMenu 2007
MENUITEM "&Salir" ACTION SALIR()
MENUITEM "&Acerca de..."

ENDMENU




return oMenu

//----------------------------------------------------------------------------//


//----------------------------------------------------------------------------//
FUNCTION salir()

SET RESOURCES TO
DBCLOSEALL()

CLOS ALL
resallfree() //por si quedan recursos en memoria....
memory(-1)
PostQuitMessage( 0 )
CLEAR MEMORY

//oWnd:End()


RETURN NIL
//------------------------------------------------------------------------------//

[mmercado]

Hola Aída:

Prueba con tu función salir de la siguiente manera:

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//
FUNCTION salir()

oWnd:End()
SET RESOURCES TO
DBCLOSEALL()
resallfree() //por si quedan recursos en memoria....
memory(-1)

RETURN NIL


Espero te funcione.

Saludos.

Manuel Mercado

[mmercado]

Se me pasaba:

Quita todas las instrucciones que están después de ACTIVATE WINDOW y antes de return nil

Otro saludo

Manuel Mercado

[AIDA]

No funciona ya hise todo lo que me dijeron y sigue igual

si quito el oWnd:End() si cierra pero tengo que dar dos clicks en el menu para salir

si dejo oWnd:End() se sale con un click pero se queda ejecutado en la memoria

en fin a la mejor al ratin sale por ahi el por que, mientras me pondre hacer lo demas del programa o me quedare añitos con esto

Gracias a todos por su ayuda

Aida

[ADBLANCO]

PRIMERO QUE NADA:

TODO LO QUE TIENES EN LA FUNCION SALIR DEBERIA ESTAR DESPUES
DEL ACTIVATE ASI:

ACTIVATE ownd

SET RESOURCES TO
DBCLOSEALL()

CLOS ALL
resallfree() //por si quedan recursos en memoria....
memory(-1)
PostQuitMessage( 0 )
CLEAR MEMORY

=========
y el boton de salir debe limitarse a oWnd:End()


ESPERO QUE ESTO ARREGLE TU 'DETALLITO'


RETURN NIL

[AIDA]

Pues no tampoco funciono
una cosa tan sencillita y no queda buaaaa

realmete un caso para la araña


Aida

[AIDA]

Como de costumbre la arenita en el ojo es lo mas dificil de encontrar y no deja ver.

ya quedo solo era poner VALID lExit := .T.

ACTIVATE WINDOW oWnd MAXIMIZED ON PAINT oGraph:Refresh(.f.) ON RESIZE oSplit:Adjust() VALID lExit := .T.

muchos comandos de salida y solo era poner VALID lExit := .T.



Pero gracias a todos los que pasaron sus tips los usare segura que me seran muy utiles

MUCHAS GRACIAS A TODOSSS

Aida

[ADBLANCO]

ME ALEGRA QUE HAYAS ENCONTRADO EL 'DETALLITO'