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

Clase/ofundal.vc2

@@ -0,0 +1,47 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS pg_meniu AS _pageframe OF "..\..\comun\clase\_baza.vcx" 
+ 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		ErasePage = .T.
+		Height = 173
+		Name = "pg_meniu"
+		TabStyle = 1
+		Page1.BackColor = 255,255,255
+		Page1.Name = "Page1"
+		Page2.BackColor = 255,255,255
+		Page2.Name = "Page2"
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS pict_liniuta AS _image OF "..\..\comun\clase\_baza.vcx" 
+ 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		Height = 10
+		Name = "pict_liniuta"
+		Picture = ..\grafice\f3.jpg
+		Stretch = 2
+		Width = 120
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS pict_meniu AS _image OF "..\..\comun\clase\_baza.vcx" 
+ 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		Height = 362
+		Name = "pict_meniu"
+		Picture = ..\grafice\f2.jpg
+		Stretch = 2
+		Width = 133
+	*</PropValue>
+
+ENDDEFINE

Clase/registry.h

@@ -0,0 +1,79 @@
+*- Registry.h
+*- Copyright (c) 1997 Microsoft Corporation
+
+* Operating System codes
+#DEFINE	OS_W32S				1
+#DEFINE	OS_NT				2
+#DEFINE	OS_WIN95			3
+#DEFINE	OS_MAC				4
+#DEFINE	OS_DOS				5
+#DEFINE	OS_UNIX				6
+
+* DLL Paths for various operating systems
+#DEFINE DLLPATH_NT			"\SYSTEM32\"
+#DEFINE DLLPATH_WIN95		"\SYSTEM\"
+
+* DLL files used to read INI files
+#DEFINE	DLL_KERNEL_NT		"KERNEL32.DLL"
+#DEFINE	DLL_KERNEL_WIN95	"KERNEL32.DLL"
+
+* DLL files used to read registry
+#DEFINE	DLL_ADVAPI_NT		"ADVAPI32.DLL"
+#DEFINE	DLL_ADVAPI_WIN95	"ADVAPI32.DLL"
+
+* DLL files used to read ODBC info
+#DEFINE DLL_ODBC_NT			"ODBC32.DLL"
+#DEFINE DLL_ODBC_WIN95		"ODBC32.DLL"
+
+* Registry roots
+#DEFINE HKEY_CLASSES_ROOT           -2147483648  && BITSET(0,31)
+#DEFINE HKEY_CURRENT_USER           -2147483647  && BITSET(0,31)+1
+#DEFINE HKEY_LOCAL_MACHINE          -2147483646  && BITSET(0,31)+2
+#DEFINE HKEY_USERS                  -2147483645  && BITSET(0,31)+3
+
+* Misc
+#DEFINE APP_PATH_KEY		"\Shell\Open\Command"
+#DEFINE OLE_PATH_KEY		"\Protocol\StdFileEditing\Server"
+#DEFINE VFP_OPTIONS_KEY1	"Software\Microsoft\VisualFoxPro\"
+#DEFINE VFP_OPTIONS_KEY2	"\Options"
+#DEFINE CURVER_KEY			"\CurVer"
+#DEFINE ODBC_DATA_KEY		"Software\ODBC\ODBC.INI\"
+#DEFINE ODBC_DRVRS_KEY		"Software\ODBC\ODBCINST.INI\"
+#DEFINE SQL_FETCH_NEXT		1
+#DEFINE SQL_NO_DATA			100
+
+* Error Codes
+#DEFINE ERROR_SUCCESS		0	&& OK
+#DEFINE ERROR_EOF 			259 && no more entries in key
+
+* Note these next error codes are specific to this Class, not DLL
+#DEFINE ERROR_NOAPIFILE		-101	&& DLL file to check registry not found
+#DEFINE ERROR_KEYNOREG		-102	&& key not registered
+#DEFINE ERROR_BADPARM		-103	&& bad parameter passed
+#DEFINE ERROR_NOENTRY		-104	&& entry not found
+#DEFINE	ERROR_BADKEY		-105	&& bad key passed
+#DEFINE	ERROR_NONSTR_DATA	-106	&& data type for value is not a data string
+#DEFINE ERROR_BADPLAT		-107	&& platform not supported
+#DEFINE ERROR_NOINIFILE		-108	&& DLL file to check INI not found
+#DEFINE ERROR_NOINIENTRY	-109	&& No entry in INI file
+#DEFINE ERROR_FAILINI		-110	&& failed to get INI entry
+#DEFINE ERROR_NOPLAT		-111	&& call not supported on this platform
+#DEFINE ERROR_NOODBCFILE	-112	&& DLL file to check ODBC not found
+#DEFINE ERROR_ODBCFAIL		-113	&& failed to get ODBC environment
+
+* Data types for keys
+#DEFINE REG_SZ 				1	&& Data string
+#DEFINE REG_EXPAND_SZ 		2	&& Unicode string
+#DEFINE REG_BINARY 			3	&& Binary data in any form.
+#DEFINE REG_DWORD 			4	&& A 32-bit number.
+
+* Data types labels
+#DEFINE REG_BINARY_LOC		"*Binary*"			&& Binary data in any form.
+#DEFINE REG_DWORD_LOC 		"*Dword*"			&& A 32-bit number.
+#DEFINE REG_UNKNOWN_LOC		"*Unknown type*"	&& unknown type
+
+* FoxPro ODBC drivers
+#DEFINE FOXODBC_25			"FoxPro Files (*.dbf)"
+#DEFINE FOXODBC_26			"Microsoft FoxPro Driver (*.dbf)"
+#DEFINE FOXODBC_30			"Microsoft Visual FoxPro Driver"
+

Clase/roaclienti.vc2

@@ -0,0 +1,218 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" 		&& Application class.
+ 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		clastcaption = Microsoft Visual FoxPro
+		clasticon = 
+		Name = "capplication"
+		nformcount = 0
+	*</PropValue>
+	
+	PROCEDURE doform
+		LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
+		LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
+		LOCAL lcFormName,lnFormCount
+		
+		_screen.visible=.t.
+		
+		lcFileName=UPPER(ALLTRIM(tcFileName))
+		IF EMPTY(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
+		lcFileName=LOWER(FULLPATH(lcFileName))
+		IF NOT "."$lcFileName
+			lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
+		ENDIF
+		IF NOT FILE(lcFileName)
+			this.FileNotFoundMsgBox(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
+		IF tlNoMultipleInstances
+			FOR lnCount = 1 TO this.nFormCount
+				IF this.aFormNames[lnCount]==lcFormName AND ;
+						TYPE("this.aForms[lnCount]")=="O" AND ;
+						NOT ISNULL(this.aForms[lnCount])
+					this.aForms[lnCount].Show
+					RETURN .F.
+				ENDIF
+			ENDFOR
+		ENDIF
+		this.RefreshFormsCollection
+		this.nFormCount=this.nFormCount+1
+		DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
+		this.aFormNames[this.nFormCount]=lcFormName
+		IF NOT EMPTY(lcClass)
+			SET CLASSLIB TO (lcFileName) ADDITIVE
+			this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
+			IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
+					NOT ISNULL(this.aForms[this.nFormCount])
+				this.aForms[this.nFormCount].Show
+			ENDIF
+		ELSE
+			DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
+		ENDIF
+		lnFormCount=this.nFormCount
+		this.RefreshFormsCollection
+		IF this.lCascadeForms AND this.nFormCount>=lnFormCount
+			oForm=this.aForms[this.nFormCount]
+			lnTop=oForm.Top
+			lnLeft=oForm.Left
+			lcName=oForm.Name
+			IF WEXIST(lcName) AND oForm.WindowState#2
+				FOR lnCount = 1 TO (this.nFormCount-1)
+					oForm2=this.aForms[lnCount]
+					IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
+						LOOP
+					ENDIF
+					IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
+							WLCOL(lcName)=WLCOL(oForm2.Name)
+						lnTop=lnTop+this.nPixelOffset
+						lnLeft=lnLeft+this.nPixelOffset
+					ENDIF
+				ENDFOR
+				IF oForm.Top#lnTop
+					oForm.Top=lnTop
+				ENDIF
+				IF oForm.Left#lnLeft
+					oForm.Left=lnLeft
+				ENDIF
+			ENDIF
+		ENDIF
+		
+		*!* modificat 14.12.2004
+		*!* liana
+		IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
+			this.aForms[this.nFormCount].Show 
+		ENDIF
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS pg_meniu_princ AS pg_meniu OF "ofundal.vcx" 
+ 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		ActivePage = 1
+		ErasePage = .T.
+		Height = 422
+		Name = "pg_meniu_princ"
+		PageCount = 2
+		Width = 401
+		Page1.Caption = "Leasing"
+		Page1.Name = "Page1"
+		Page1.PageOrder = 1
+		Page2.Caption = "Furnizori"
+		Page2.Name = "Page2"
+		Page2.PageOrder = 2
+	*</PropValue>
+
+	ADD OBJECT 'Page1.Cw2' AS cw WITH ;
+		Height = 20, ;
+		Left = 11, ;
+		Name = "Cw2", ;
+		nid_cw = 1, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 37, ;
+		Width = 113, ;
+		LABEL_ITEM1.Caption = "Contracte", ;
+		LABEL_ITEM1.Name = "LABEL_ITEM1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Cw3' AS cw WITH ;
+		Height = 20, ;
+		Left = 11, ;
+		Name = "Cw3", ;
+		nid_cw = 1, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 75, ;
+		Width = 113, ;
+		LABEL_ITEM1.Caption = "Rapoarte", ;
+		LABEL_ITEM1.Name = "LABEL_ITEM1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ;
+		Left = 7, ;
+		Name = "Pict_liniuta1", ;
+		Picture = ..\..\comun\grafice\f3.jpg, ;
+		Top = 63
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
+		Left = 2, ;
+		Name = "Pict_meniu1", ;
+		Picture = ..\grafice\f2.jpg, ;
+		Top = 8
+		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Cw2' AS cw WITH ;
+		Height = 20, ;
+		Left = 11, ;
+		Name = "Cw2", ;
+		nid_cw = 1, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 37, ;
+		Width = 113, ;
+		Label_item1.Caption = "Contracte", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Cw3' AS cw WITH ;
+		Height = 20, ;
+		Left = 11, ;
+		Name = "Cw3", ;
+		nid_cw = 1, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 75, ;
+		Width = 113, ;
+		Label_item1.Caption = "Rapoarte", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ;
+		Left = 7, ;
+		Name = "Pict_liniuta1", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 63
+		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
+		Left = 2, ;
+		Name = "Pict_meniu1", ;
+		Picture = ..\grafice\f2.jpg, ;
+		Top = 8
+		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
+	
+	PROCEDURE Page1.Cw3.Init
+		
+		
+	ENDPROC
+
+	PROCEDURE Page2.Cw3.Init
+		
+		
+	ENDPROC
+
+ENDDEFINE

Clase/solution.vc2

@@ -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

Clase/utility.vc2

@@ -0,0 +1,83 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="utility.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS menulib AS container 
+ 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: deactivatemenu
+		*m: showmenu
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BackColor = 0,0,255
+		Height = 15
+		Name = "menulib"
+		Visible = .F.
+		Width = 50
+	*</PropValue>
+	
+	PROCEDURE deactivatemenu
+		DEACTIVATE MENU _popShortcutMenu
+		
+	ENDPROC
+
+	PROCEDURE Destroy
+		this.DeactivateMenu
+		
+	ENDPROC
+
+	PROCEDURE showmenu
+		LPARAMETERS taMenu,tcOnSelection
+		LOCAL lcOnSelection,lnMenuCount,lnCount,llDoubleArray
+		LOCAL lcMenuItem,lcMenuSelection
+		EXTERNAL ARRAY taMenu
+		
+		IF PARAMETERS()=0 OR TYPE("taMenu")#"C"
+			RETURN .F.
+		ENDIF
+		lnMenuCount=0
+		lnMenuCount=ALEN(taMenu,1)
+		IF lnMenuCount=0
+			RETURN .F.
+		ENDIF
+		llDoubleArray=(ALEN(taMenu,2)>0)
+		ACTIVATE SCREEN
+		DEACTIVATE POPUP _popShortcutMenu
+		DEFINE POPUP _popShortcutMenu ;
+				FROM MROW(),MCOL() ;
+				MARGIN ;
+				RELATIVE ;
+				SHORTCUT
+		FOR lnCount = 1 TO lnMenuCount
+			lcMenuItem=IIF(llDoubleArray,taMenu[lnCount,1],taMenu[lnCount])
+			DEFINE BAR lnCount OF _popShortcutMenu PROMPT (lcMenuItem)
+		ENDFOR
+		ON SELECTION POPUP _popShortcutMenu DEACTIVATE POPUP _popShortcutMenu
+		ACTIVATE POPUP _popShortcutMenu
+		RELEASE POPUP _popShortcutMenu
+		IF BAR()=0
+			RETURN .F.
+		ENDIF
+		IF llDoubleArray
+			 lcMenuSelection=taMenu[BAR(),2]
+			 IF NOT EMPTY(lcMenuSelection) AND TYPE("lcMenuSelection")=="C"
+			 	lcOnSelection=ALLTRIM(lcMenuSelection)
+			 ENDIF
+			 IF EMPTY(lcOnSelection)
+				lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection))
+			 ENDIF
+		ELSE
+			lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection))
+		ENDIF
+		IF EMPTY(lcOnSelection)
+			RETURN .F.
+		ENDIF
+		&lcOnSelection
+		
+	ENDPROC
+
+ENDDEFINE