Hi guys.

I've created an external report designer and I would like to know how can I close the VFP screen if the user close the report with the File/Close menu or with the report X button ? Should I use a timer which will check for opened windows and close himself if no windows are opened or is there an easier way ?

My startup program look like this :

PARAMETERS xReport

IF !EMPTY(xReport)

	_Screen.Closable = .T.
	_Screen.MaxButton = .F.
	_Screen.MinButton = .F.
	_Screen.Caption = "Modification de la structure des rapports"

	SET RESOURCE TO .\MyFoxUser.dbf 

	_ReportBuilder = ".\ReportBuilder\reportbuilder.app"
	
	_Screen.Icon = ".\EditRapp.ico"
	
	set skip of bar _MFI_SAVAS of _MFILE .t.
	set skip of BAR _MFI_SAVEASHTML OF _MFILE .T.

	_screen.WindowState = 2
	
	KEYBOARD "{CTRL+F10}"

	MODIFY REPORT (xReport) PROTECTED NOWAIT 
	
	DEFINE PAD _mview OF _msysmenu PROMPT "\<Affichage" AFTER _MFILE KEY ALT-A
	DEFINE POPUP _MSM_VIEW
	ON PAD _MVIEW OF _MSYSMENU ACTIVATE POPUP _MSM_VIEW
	
	IF !WVISIBLE("Report Controls") AND WEXIST("Report Controls")
		ACTIVATE WINDOW ("Report Controls")
	ENDIF 
	
	IF !WVISIBLE("Contrôles d'états") AND WEXIST("Contrôles d'états")
		ACTIVATE WINDOW ("Contrôles d'états")
	ENDIF 
	
	IF !WVISIBLE("report designer") AND WEXIST("report designer")
		ACTIVATE WINDOW ("report designer")
	ENDIF 
	
	IF !WVISIBLE("Générateur d'états") AND WEXIST("Générateur d'états")
		ACTIVATE WINDOW ("Générateur d'états")
	ENDIF 
	
	IF !WVISIBLE("Mise en page") AND WEXIST("Mise en page")
		ACTIVATE WINDOW ("Mise en page")
	ENDIF 
	
	IF !WVISIBLE("Layout") AND WEXIST("Layout")
		ACTIVATE WINDOW ("Layout")
	ENDIF 

	ON SHUTDOWN EndItAll()

	READ EVENTS

ELSE 
	MESSAGEBOX("Vous ne pouvez pas exécuter ce programme. Il ne peut être utilisé qu'avec le générateur de rapport de la gestion des membres.",16,"Erreur")
ENDIF 

FUNCTION EndItAll
	CLEAR EVENTS
	ON SHUTDOWN
RETURN 

TIA