From d0714c6c0e41366e6a383abd37300d85cc262ab9 Mon Sep 17 00:00:00 2001
From: villa <villa@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 23 Jan 1996 11:54:34 +0000
Subject: [PATCH] Corretta recalc_percrata

git-svn-id: svn://10.65.10.50/trunk@2485 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/pagament.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/cg/pagament.cpp b/cg/pagament.cpp
index 1ba695ceb..f14993489 100755
--- a/cg/pagament.cpp
+++ b/cg/pagament.cpp
@@ -612,7 +612,9 @@ void TPagamento::set_datarata(int i, const TDate & d)
 real TPagamento::recalc_percrata(int i)
 {
   real hm(_tpr < 4 ? _firstr : _secndr);
-
+  
+  if (i == 0 && _tpr > 3) return ZERO;
+  
   real tpay(tpay_rata(i));
   if (i == 0 && _tpr > 0 && _tpr < 4)
     tpay -= _secndr;