Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Include si sistemul de depanare/testare headless din Teste\ (harness UI cu capturi, verificare de sintaxa prin compilare, wrappere text<->binar) si docs\depanare_testare_flora2roa.md.

Teste/test_init_env_auto.prg

@@ -0,0 +1,102 @@
+* test_init_env_auto.prg
+* Initializare NEINTERACTIVA a mediului FLORA2ROA pentru rulare headless
+* (vfp9.exe -A -T "script.prg"), echivalentul programului principal main.prg fara
+* DO FORM / READ EVENTS.
+*
+* Utilizare dintr-un script de test:
+*   DO Teste\test_init_env_auto WITH .F.            && fara conectare Oracle (implicit)
+*   DO Teste\test_init_env_auto WITH .T.            && conectare cu datele din settings.ini
+*   DO Teste\test_init_env_auto WITH .T., 'ROA', 'XENOTI', 'parola'
+*
+* Parametri:
+*   tlConnect   - .T. = se conecteaza la Oracle (goConn.Connect); implicit .F.
+*   tcHost/tcUser/tcPassword - suprascriu datele din settings.ini
+*   tcAppPath   - radacina aplicatiei; implicit se deduce din calea acestui program
+*
+* Dupa apel sunt disponibile: gcAppName, gcAppPath, gcTempPath, goLog, goApp, goConn,
+* goExecutor, gnHandle si SET PROCEDURE / SET LIBRARY ca in main.prg. Se poate face
+* CREATEOBJECT('frm_import') sau DO FORM frm_import si apela metodele punctual.
+*
+* ATENTIE: ErrorHandler-ul din main.prg deschide MESSAGEBOX (blocheaza headless). Aici se
+* instaleaza TestErrorHandler (test_helpers.prg), care logheaza in gcTestErrLog si continua.
+
+LPARAMETERS tlConnect, tcHost, tcUser, tcPassword, tcAppPath
+
+SET SAFETY OFF
+SET TALK OFF
+CLOSE DATABASES ALL
+SET DELETED ON
+SET EXCLUSIVE ON
+SET ANSI ON
+SET EXACT ON
+SET CENTURY ON
+SET DATE DMY
+SET NULLDISPLAY TO ''
+
+PUBLIC gcAppName, gcAppPath, gcTempPath, gcTestErrLog
+PUBLIC goApp, goLog, goConn, goExecutor, goImportFrm, gnHandle
+
+LOCAL lcHere
+lcHere = ADDBS(JUSTPATH(SYS(16, 0)))
+IF TYPE('tcAppPath') = 'C' AND !EMPTY(tcAppPath)
+	gcAppPath = ADDBS(tcAppPath)
+ELSE
+	* scriptul sta in <radacina>\Teste\, deci radacina e cu un nivel mai sus
+	gcAppPath = ADDBS(JUSTPATH(SUBSTR(lcHere, 1, LEN(lcHere) - 1)))
+ENDIF
+
+gcAppName = 'FLORA2ROA'
+gcTempPath = GETENV("TEMP")
+gcTestErrLog = gcAppPath + 'Teste\_erori_test.txt'
+SET DEFAULT TO (gcAppPath)
+SET PATH TO (gcAppPath) ADDITIVE
+SET PATH TO (gcAppPath + 'Teste') ADDITIVE
+
+* aceleasi fisiere de proceduri ca in main.prg; mock-urile se incarca DUPA, in test
+SET PROCEDURE TO (gcAppPath + 'capp.prg') ADDITIVE
+SET PROCEDURE TO (gcAppPath + 'app.prg') ADDITIVE
+SET PROCEDURE TO (gcAppPath + 'myutils.prg') ADDITIVE
+SET PROCEDURE TO (gcAppPath + 'vfpconnection_utils.prg') ADDITIVE
+SET PROCEDURE TO (gcAppPath + 'myapp.prg') ADDITIVE
+SET PROCEDURE TO (gcAppPath + 'Teste\test_helpers.prg') ADDITIVE
+
+LOCAL lnLib, lcLib
+FOR lnLib = 1 TO 2
+	lcLib = IIF(lnLib = 1, 'vfpconnection.fll', 'vfpencryption.fll')
+	IF FILE(gcAppPath + lcLib)
+		TRY
+			SET LIBRARY TO (gcAppPath + lcLib) ADDITIVE
+		CATCH
+			STRTOFILE('Nu s-a putut incarca ' + lcLib + CHR(13) + CHR(10), gcTestErrLog, .T.)
+		ENDTRY
+	ENDIF
+ENDFOR
+
+ON ERROR DO TestErrorHandler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
+
+goImportFrm = NULL
+goConn = CREATEOBJECT("oConn")
+goExecutor = CREATEOBJECT("oExecutor")
+goLog = CREATEOBJECT("Log", gcAppPath + "log\log_test_" + gcAppName + "_" + DTOS(DATE()) + ".txt")
+goApp = CREATEOBJECT("MyApp")
+gnHandle = 0
+
+IF TYPE('tcHost') = 'C' AND !EMPTY(tcHost)
+	goApp.oSettings.host = ALLTRIM(tcHost)
+ENDIF
+IF TYPE('tcUser') = 'C' AND !EMPTY(tcUser)
+	goApp.oSettings.user = ALLTRIM(tcUser)
+ENDIF
+IF TYPE('tcPassword') = 'C' AND !EMPTY(tcPassword)
+	goApp.oSettings.password = ALLTRIM(tcPassword)
+ENDIF
+
+IF TYPE('tlConnect') = 'L' AND tlConnect
+	goConn.Connect()
+	gnHandle = goConn.GetHandle()
+	IF gnHandle <= 0
+		RETURN .F.
+	ENDIF
+ENDIF
+
+RETURN .T.