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

Programe/oproceduri_registretva.prg

@@ -0,0 +1,57 @@
+******************************************************************
+PROCEDURE listare_registru_tva
+LPARAMETERS tcRegistru
+
+	pcRegistru = UPPER(ALLTRIM(tcRegistru))
+	DO CASE 
+		CASE 'VANZ'$pcRegistru
+			pcContTVA = [4427]
+			pcListaContTVA = [411,4111,4112,4113,4114,4115,4116,4117,461,635,5311,5121,428,4281,4282,4426,4428]
+			pcListaContBaza = [411,4111,4112,4113,4114,4115,4116,4117,461,428,4281,4282]
+			pcListaContExceptii  = [667,419]
+	OTHERWISE 
+			pcContTVA = [4426]
+			pcListaContTVA = [401,404,5121,5124,542,4427,4428]
+			pcListaContBaza = [401,404]
+			pcListaContExceptii  = [767]
+	ENDCASE 
+
+
+	lcSql = [{call PACK_REGISTRE_TVA.REGISTRUTVA(?gcS, ?gnAn, ?gnLuna, ] + ;
+		[?pcRegistru, ?pcContTVA, ?pcListaContTVA, ?pcListaContBaza, ?pcListaContExceptii )}]
+	lcCursor = 'crsRegistruTemp'
+	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
+	IF lnSucces < 0
+		AMESSAGE(goExecutor.cEroare,0+16,"Eroare")
+	ELSE
+	
+		SELECT nract, dataact, PART AS nume, cod_fiscal, fdoc, baza, proc_tva, tva, baza + tva as totctva, 00000000000.0000 as total ;
+			FROM crsRegistruTemp ;
+			INTO CURSOR crsRegistru ;
+			READWRITE ORDER BY nract, dataact, nume
+		USE IN crsRegistruTemp
+		
+		SELECT nract, dataact, nume,sum(totctva) as total ;
+			from crsRegistru ;
+			INTO CURSOR tgrup ;
+			GROUP BY nract, dataact, nume
+
+		SELECT tgrup
+		SCAN
+			SCATTER NAME ot
+			SELECT crsRegistru
+			LOCATE FOR nume = ot.nume AND nract = ot.nract AND dataact = ot.dataact 
+			IF FOUND()
+				REPLACE total WITH ot.total
+			ENDIF 
+			SELECT tgrup
+		ENDSCAN 
+		USE IN tgrup
+	
+		SELECT crsRegistru
+		REPORT FORM registru_tva_simplu TO PRINTER PROMPT PREVIEW 
+		USE IN crsRegistru
+	ENDIF
+ENDPROC 
+
+******************************************************************