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:
2026-08-03 01:51:36 +03:00
commit 7cc3bff358
158 changed files with 80639 additions and 0 deletions

65
Clase/solution.vc2 Normal file
View 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