*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="solution.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cmdclose AS commandbutton 		&& Close button
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Cancel = .T.
		Caption = "Close"
		FontBold = .F.
		FontName = "MS Sans Serif"
		FontSize = 8
		Height = 23
		Name = "cmdclose"
		Width = 72
	*</PropValue>
	
	PROCEDURE Click
		IF TYPE("THISFORM.Parent") = "O"
			THISFORMSET.Release
		ELSE
			THISFORM.Release
		ENDIF
	ENDPROC

	PROCEDURE Error
		LPARAMETERS nError, cMethod, nLine
		LOCAL lnChoice
		#DEFINE CR CHR(13)
		DO CASE
			CASE nError = 1545 && Uncommitted changes
			*------------------------------------
				#DEFINE MSG1_LOC "Do you want to save your changes?"
				#DEFINE MSG2_LOC "Uncommitted Changes"
				lnChoice = MESSAGEBOX(MSG1_LOC, 4+48+0, MSG2_LOC)
				DO CASE
					CASE lnChoice = 6 && yes
						=TABLEUPDATE(.T., .T.)
					CASE lnChoice = 7 && no
						=TABLEREVERT(.T.)
				ENDCASE
				OTHERWISE  && Unanticipated error
			*--------------------------------------	
				#DEFINE NUM_LOC "Error Number: "
				#DEFINE PROG_LOC "Program: "
				#DEFINE CAP_LOC "ERROR"
				lcMsg = NUM_LOC + ALLTRIM(STR(nError)) + CR + CR + ;
						MESSAGE()+ CR + CR + PROG_LOC + PROGRAM(1)
				lnChoice = MESSAGEBOX(lcMsg, 2+48+512, CAP_LOC)
				DO CASE
					CASE lnChoice = 3 &&Abort
						CANCEL
					CASE lnChoice = 4 &&Retry
						RETRY
					CASE lnChoice = 5 &&Ignore
						RETURN
				ENDCASE
		ENDCASE
		
	ENDPROC

ENDDEFINE
