From a31e8709cf1082cca597e8b42f324998e155cf3f Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 17 Mar 1997 09:34:22 +0000
Subject: [PATCH] Corretta stampa lista documenti per il tot. imponibili senza
 spese.

git-svn-id: svn://10.65.10.50/trunk@4212 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/listadoc.frm |  4 ++--
 ve/ve1100.cpp   | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/ve/listadoc.frm b/ve/listadoc.frm
index 6d6d0b9ac..acc0edaf9 100755
--- a/ve/listadoc.frm
+++ b/ve/listadoc.frm
@@ -174,9 +174,9 @@ END
 
 NUMBER 24 15 
 BEGIN
- KEY "Totale imponibile"
+ KEY "Totale imponibile (senza spese)"
  PROMPT  86 1 ""
- MESSAGE _TOTIMPONIBILI,1
+ MESSAGE _TOTIMPONIBILI,0
  PICTURE "###.###.###.###"
 END
 
diff --git a/ve/ve1100.cpp b/ve/ve1100.cpp
index 130e40587..5e6ea70c3 100755
--- a/ve/ve1100.cpp
+++ b/ve/ve1100.cpp
@@ -890,13 +890,13 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s) {
     // sintassi: _TOTIMPONIBILI,<selettore>
     // dove: <selettore> funge da filtro per la somma degli imponibili
     // vedi _RIEPILOGOIVA per la spiegazione dei filtri selettivi
+	// In piu' il selettore 0 restituisce il tot imp. meno le spese.
     byte sel = atoi(s.get());
-    valore = _doc->tot_imponibili(sel).string();
+	real r = _doc->tot_imponibili(sel);
+	if (sel == 0) r -= _doc->spese();
 
-    real x(valore);
-    TString picture(cf.picture());
-    if (x != 0.0)
-      valore = x.string(picture); // Riformatta il valore
+    if (r != 0.0)
+      valore = r.string(cf.picture()); // Riformatta il valore
     else 
       valore = "";
     cf.put_paragraph(valore);