Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
This commit is contained in:
65
Clase/solution.vc2
Normal file
65
Clase/solution.vc2
Normal file
@@ -0,0 +1,65 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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
|
||||
Reference in New Issue
Block a user