From 4a9b11b2394b5839efffc31c0bcac6bf80965b1c Mon Sep 17 00:00:00 2001
From: villa <villa@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 27 Jul 1995 08:03:00 +0000
Subject: [PATCH] Totalizzazione versamenti

git-svn-id: svn://10.65.10.50/trunk@1643 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg4304.cpp |  2 +-
 cg/cg5500.cpp | 14 +++++++++-----
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/cg/cg4304.cpp b/cg/cg4304.cpp
index bae25ffe8..b0b26db47 100755
--- a/cg/cg4304.cpp
+++ b/cg/cg4304.cpp
@@ -794,7 +794,7 @@ _DescrItem* TLiquidazione_app::describe_deleghe(int month)
     d->_s1 = _del->get("S1");  // banca
     d->_s2 = _del->get("S7");  // ABI
     d->_s3 = _del->get("S8");  // CAB
-    d->_r0 = _del->get_real("R0") + _del->get_real("R1");
+    d->_r0 = _del->get_real("R0");
     d->_d0 = _del->get_date("D0");
   } // altrimenti lascia tutto in bianco e ci scriveranno i dati a mano
   
diff --git a/cg/cg5500.cpp b/cg/cg5500.cpp
index eaedbba5d..b09f76514 100755
--- a/cg/cg5500.cpp
+++ b/cg/cg5500.cpp
@@ -1039,11 +1039,15 @@ void Visliq_app::write_del()
 
   real inter(0.0);             
   
-  // riapplica il tasso di interesse  
-  // se trimstrale e' stato scorporato rispetto
-  // all'eventuale input utente
-  inter = vers/(real(100.0)/(real(100.0)+intr));
-  inter.ceil();
+  if (!intr.is_zero())
+  {
+    // riapplica il tasso di interesse  
+    // se trimstrale e' stato scorporato rispetto
+    // all'eventuale input utente
+    inter = vers*(real(100.0)/(real(100.0)+intr));    
+    inter = vers - inter;
+    inter.ceil();
+  }
   
   _del->put("R0",vers);
   _del->put("R1",inter);