PROCEDURE ExitProcedure
LOCAL lnFormCount, lnNum, loForm, lcwin

** Здесь явно задаю окно, которое специально открываю, что бы добиться результата. Но в каждой форме может быть такое окно, и *их надо как-то отлавливать.

IF WEXIST('Список банков') 
	RELEASE window 'Список банков'
ENDIF

** для окон вообще был придуман такой код

if typy(_screen.Activeform) != "O" 
        lcwin = WTITLE()
        RELEASE WINDOW &lcwin

** но эти коды не работают

* далее код для закрытия открытых форм

	lnFormCount	= _screen.formcount
	for lnNum=lnFormCount to 1 step -1
		try
			loForm = _screen.forms(lnNum)
		catch
			loForm = .f.
		endtry
		if vartype(loForm)="O"
			loForm.visible = .f.
			loForm.release()
		endif
	endfor

goApp.Cleanup()

CLOSE DATA ALL
CLEAR ALL
RELEASE ALL extended
SET SYSMENU TO DEFAULT
ON ERROR
ON shutdown
SET CLASSLIB TO
SET PATH TO
CLEAR DLLS

QUIT

IF thisform.isedit
	if(MESSAGEBOX('Открыта форма ' + this.Caption + CHR(13) + 'Могут быть потеряны данные. Все равно закрыть?' ;
		 + CHR(13) + CHR(13) + ' YES - продолжить' + CHR(13) + 'NO - закрыть форму, затем выйти из приложения самостоятельно',4+48))=7
		 
		RETURN
		READ events
	ENDIF
ENDIF

ON SHUTDOWN DO ExitProcedure
ON ERROR do SolutionErrHandle with ERROR(),PROGRAM(),LINENO()
...

READ events
* тут действия при выходе
ON shutdown
ON ERROR
QUIT


PROCEDURE ExitProcedure
CLEAR events
ON shutdown
return

	BROWSE ;
		FIELDS ;
			id, ;
			cname ;
		NOEDIT NOAPPEND NODELE NOWAIT TITLE 'Список банков' PREFERENCE wbrw_bank

PROCEDURE ExitProcedure

goApp.Cleanup() && восстановление системных тулбаров и т.д.
ON ERROR
ON shutdown
QUIT

...
READ EVENTS

Exitprocedure()

if MESSAGEBOX("Выйти?", 4, "ВЫХОД") != 6
	nodefault
endif

PROCEDURE ExitProcedure	
LOCAL i, lnFormCount, lnNum, loForm
i=0

lnFormCount	= _screen.formcount
		for lnNum=lnFormCount to 1 step -1
			try
				loForm = _screen.forms(lnNum)
			catch
				loForm = .f.
			endtry
			if vartype(loForm)="O" AND UPPER(loForm.BaseClass) = "FORM"
				IF loform.isedit = .t.
					i = i + 1
				ENDIF
			ENDIF
		ENDFOR
		

IF MESSAGEBOX('Вы действительно хотите выйти?',4+48+256,'Закрытие приложения') = 6
	IF i != 0
		IF MESSAGEBOX('Есть открытые в режиме редактирования окона ' + '(' + ALLTRIM(STR(i)) + '). Несохраненные данные могут быть потеряны' + chr(13) + ;
			'Все равно выйти?' + CHR(13) + CHR(13) + 'ДА - выйти из приложения, НЕТ - вернуться',4+48+256,'Закрытие приложения') = 6
	
			ON shutdown
			CLEAR EVENTS
			return
		ELSE
			RETURN
			READ events
		ENDIF
	ENDIF
ENDIF

ENDPROC

PROCEDURE ExitProcedure	
LOCAL lnFormCount, lnNum, loForm	

IF MESSAGEBOX('Вы действительно хотите выйти?',4+48+256,'Закрытие приложения') = 6
	lnFormCount	= _screen.formcount
		FOR	 lnNum=lnFormCount to 1 step -1
			try
				loForm = _screen.forms(lnNum)
			catch
				loForm = .f.
			endtry
			if vartype(loForm)="O" AND UPPER(loForm.BaseClass) = "FORM"
*				loForm.visible = .f.
				loForm.release()
			endif
			
		ENDFOR	
	
			ON shutdown
			CLEAR EVENTS
			return
ELSE
			RETURN
			READ events
		
ENDIF

ENDPROC

IF this.isedit
	if(MESSAGEBOX('Открыта форма ' + this.Caption + CHR(13) + 'Могут быть потеряны данные. Все равно выйти?' ;
		 + CHR(13) + CHR(13) + 'ДА - продолжить' + CHR(13) + 'НЕТ - вернуться к форме',4+48+256))=7

	nodefault

	ENDIF
ENDIF