Initial commit — sursa ROAIMOB

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Programe/Vechi/calcul_cota.prg

@@ -0,0 +1,11 @@
+PARAMETERS tnDurataRamasa
+
+&& tnDurataRamasa este exprimata in luni
+
+*!*	IF EMPTY(tnDurataRamasa) OR TYPE('tnDurataRamasa') # 'N'
+*!*		RETURN 0
+*!*	ENDIF 
+
+lnCota = ROUND((1/tnDurataRamasa)*100*12,2) && cota pe an
+
+RETURN lnCota