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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF

Programe/Vechi/oproceduri_preluari.prg

@@ -0,0 +1,41 @@
+***-----------------------------------------------------
+Procedure preluare_curs
+PARAMETERS tcTabelCurs
+
+LOCAL lcTabelCurs
+lcTabelCurs = ALLTRIM(tcTabelCurs)
+
+Select (lcTabelCurs)
+SCAN
+	WAIT WINDOW ALLTRIM(STR(RECNO()))+"/"+ALLTRIM(STR(RECCOUNT())) NOWAIT 
+	pnCurs = Curs
+	pdData1 = Data
+	pdData2 = data2
+	lnId_valuta = id_tipv
+	Do Case
+	Case lnId_valuta = 1
+		pnId_valuta = 41695
+	Case lnId_valuta = 2
+		pnId_valuta = 41692
+	Case lnId_valuta = 3
+		pnId_valuta = 41694
+	Case lnId_valuta = -1
+		pnId_valuta = 41697
+	OTHERWISE 	
+		pnId_valuta = 41696
+	Endcase
+
+
+	lcSql = [begin pack_crm.adauga_curs(?gcS, ?pnCurs, ?pdData1, ?pdData2, ?pnId_valuta); end;]
+	lnSucces = goExecutor.oExecute(lcSql)
+
+	If lnSucces < 0
+		Messagebox('pack_crm.adauga_curs'+goExecutor.cEroare,0+16,"Eroare")
+		Return
+	Endif
+ENDSCAN
+
+WAIT WINDOW "Preluarea s-a terminat!"
+Endproc && preluare_curs
+***-----------------------------------------------------
+