LOCAL cCaption, i, X
X = _SCREEN.FORMCOUNT
FOR i = X TO 1 STEP -1
    IF TYPE("_screen.forms(i).status") = "N" AND _SCREEN.FORMS(i).STATUS > 0
       cCaption = _SCREEN.FORMS(i).CAPTION
       LOCAL lnNrBotão
       lnNrBotão = MESSAGEBOX( ;
          'Do you want to save data from FORM '+CHR(13)+'     &cCaption.?', ;
			32+4+0, ;
			[Attention],10*60000)
       DO CASE
	   CASE lnNrBotão = 6	AND _SCREEN.FORMS(i).ISEDITING = .T.  && Yes
		_SCREEN.FORMS(i).SAVEDATA
	   CASE lnNrBotão = 7	AND _SCREEN.FORMS(i).DESFAZER.enabled = .T. && No
		_SCREEN.FORMS(i).UNDOCHANGES
       ENDCASE
    ENDIF
    * If exists RELEASE method, then close
    IF pemstatus(_SCREEN.FORMS(i), 'RELEASE',5)
       _SCREEN.FORMS(i).RELEASE
    ENDIF
ENDFOR