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
2026-08-03 01:51:36 +03:00
commit 7cc3bff358
158 changed files with 80639 additions and 0 deletions
--- a/Ferestre/fundal.sc2
+++ b/Ferestre/fundal.sc2
@@ -0,0 +1,129 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS dataenvironment AS dataenvironment 
+ 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 200
+		Left = 1
+		Name = "Dataenvironment"
+		Top = 220
+		Width = 520
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS form1 AS form 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: jurnal
+		*m: statusbarclick
+		*p: ostatusbar
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 2
+		Caption = ""
+		Closable = .F.
+		ControlBox = .F.
+		DoCreate = .T.
+		Enabled = .T.
+		FillColor = 0,0,0
+		HalfHeightCaption = .F.
+		Height = 429
+		KeyPreview = .T.
+		MaxButton = .F.
+		MinButton = .F.
+		Movable = .F.
+		Name = "Form1"
+		ostatusbar = .F.
+		Picture = ..\..\
+		Width = 797
+		WindowState = 2
+	*</PropValue>
+	
+	PROCEDURE Activate
+		oprinc.SHOW()
+	ENDPROC
+
+	PROCEDURE jurnal
+	ENDPROC
+
+	PROCEDURE KeyPress
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE RightClick
+		*!*	modificare v 2.0.39
+		*!*	DO start_firma IN ostartfirma.prg 
+		*!*	verifica_drepturi('oprinc','pagefr1')
+		*!*	actualizeaza_drepturi_roacontracte()
+		DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
+		*!*	modificare v 2.0.39	^
+	ENDPROC
+
+	PROCEDURE Show
+		LPARAMETERS nStyle
+		
+		*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
+		*!* Trebuie adaugata o proprietate  OstatusBar la forma
+		*!* si o metoda statusbarclik care sa contina comanda 
+		*!* Thisform.oStatusBar.newtooltip()
+		*!*
+		If Not Pemstatus(_Screen,"StatusBar", 5) Then
+		*!* 31.01.2008 TEST FARA STATUSBAR
+		*!*	_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
+			_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)	
+		*!* 31.01.2008 TEST FARA STATUSBAR ^
+		ENDIF
+		Thisform.oStatusBar = _Screen.StatusBar
+		Thisform.oStatusBar.ctlIcon="roastartmic.ico"
+		Thisform.oStatusBar.ctlMessage = _Screen.Caption
+		BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
+		*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
+		
+		
+		LOCAL c
+		IF primadata
+			primadata = .F.
+		
+		*!*	modificare v 2.0.39
+		*!*		DO start_firma IN ostartfirma.prg
+		*!*		**
+		*!*		DO viz_contracte IN oproceduri_roacontracte.prg
+		*!*		SELECT cContracte
+		*!*		SCATTER NAME goContract BLANK
+			DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
+		*!*	modificare v 2.0.39	^
+			oprinc=CREA('princ')
+			verifica_drepturi('oprinc','pagefr1')
+			actualizeaza_drepturi_roacontracte()
+			oprinc.lb_utilizator1.CAPTION=ALLTRIM(gcUserNameApp)
+			oprinc.lb_utilizator1.VISIBLE=.T.
+		ENDIF
+		
+		
+		primadata=.F.
+		
+		oprinc.SHOW()
+		
+		DO lansare_toolbar IN oproceduri_comune.prg
+		DO lansare_help IN oproceduri_comune.prg
+		
+	ENDPROC
+
+	PROCEDURE statusbarclick
+		Thisform.oStatusBar.newtooltip()
+	ENDPROC
+
+ENDDEFINE