66 lines
2.0 KiB
Plaintext
66 lines
2.0 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|