From 9fd0e7dbc6c689fc4629bc580b204b86cee33838 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 24 Nov 1997 17:34:50 +0000
Subject: [PATCH] Corretti MI6308, MI6311, MI6312, MI6313, MI6314, relativi al
 nuovo prospetto agricolo: spostato lo specchietto riepilogativo delle
 compensazioni dopo il prospetto agricolo. Eliminata la stampa delle
 compensazioni a 0.

git-svn-id: svn://10.65.10.50/trunk@5661 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg4304.cpp | 72 ++++++++++++++++++++++++++-------------------------
 1 file changed, 37 insertions(+), 35 deletions(-)

diff --git a/cg/cg4304.cpp b/cg/cg4304.cpp
index 677b99679..185ff3645 100755
--- a/cg/cg4304.cpp
+++ b/cg/cg4304.cpp
@@ -352,7 +352,8 @@ void TLiquidazione_app::describe_agricolo(int month, const char* codatt)
         p->_r1 = _pia->get_real("R1"); // Imposta
         p->_s0 = *_pia_codord;         // Codice iva ordinario
         p->_s1 = *_pia_codcom;         // Codice iva compensazione
-        agr_array.add(p); // Aggiunge il fottuto item agricolo
+        if (p->_r0 != ZERO || p->_r1 != ZERO)
+          agr_array.add(p); // Aggiunge il fottuto item agricolo
       }
     }
   }
@@ -1961,40 +1962,6 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
   set_row(r++,"@50gPROSPETTO REGIME AGRICOLO");
   set_row(r++,"");
 
-  // Last pain...
-  TArray& agr_array = d._arr;
-  const int pia_items = agr_array.items();
-  
-  if (pia_items) // Se non siamo ancora nel 1998 questo vale 0, ossia non vi sono items.
-  {
-    real t1,t2;  // Totale imponibile/imposta
-    TString des; // Descrizione codice iva ordinario
-    real    al;  // Aliquota IVA
-    // Stampa l' intestazione...
-    set_row(r++," Codice IVA@45gAliquota IVA@73gCodice IVA@88gAliquota IVA");
-    set_row(r++," Ordinario@45gOrdinaria@61gImponibile@73gCompensazione@88gCompensazione@108gImposta");
-    set_row(r++,"");
-    for (int i=0; i<pia_items; i++)
-    {
-      _DescrItem& di = (_DescrItem&) agr_array[i];
-      if (di._flags != PROGAGR)
-        continue;
-      look_iva(di._s0);
-      des = _iva->get("S0");
-      al = _iva->get_real("R0");
-      set_row(r,"%4s %-25s@48g%s %%", (const char*) di._s0, (const char*) des, al.string("#@,@@"));
-      set_row(r,"@56g%r@75g%4s",&di._r0, (const char*)di._s1);
-      look_iva(di._s1);
-      al = _iva->get_real("R0");
-      set_row(r++,"@92g%s %%@100g%r", al.string("#@,@@"), &di._r1);
-      t1 += di._r0;
-      t2 += di._r1;
-    }
-    // ... ed il totale minchiativo
-    r++;
-    set_row(r++,"Totale@56g%r@100g%r",&t1,&t2);
-    r+=2;
-  }
   
   // percentuale detraibilita'
   set_row(r++,  "Iva vendite beni I parte Tabella A @56g%r",&agr_1);
@@ -2058,6 +2025,41 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
   }
   set_row(r++, "Totale iva ammessa in detrazione@56g%r",&ivadt_amm);
   
+  // Last pain...
+  TArray& agr_array = d._arr;
+  const int pia_items = agr_array.items();
+  
+  if (pia_items) // Se non siamo ancora nel 1998 questo vale 0, ossia non vi sono items.
+  {
+    real t1,t2;  // Totale imponibile/imposta
+    TString des; // Descrizione codice iva ordinario
+    real    al;  // Aliquota IVA
+    r+=2;
+    // Stampa l' intestazione...
+    set_row(r++," Codice IVA@45gAliquota IVA@73gCodice IVA@88gAliquota IVA");
+    set_row(r++," Ordinario@45gOrdinaria@61gImponibile@73gCompensazione@88gCompensazione@108gImposta");
+    set_row(r++,"");
+    for (int i=0; i<pia_items; i++)
+    {
+      _DescrItem& di = (_DescrItem&) agr_array[i];
+      if (di._flags != PROGAGR)
+        continue;
+      look_iva(di._s0);
+      des = _iva->get("S0");
+      al = _iva->get_real("R0");
+      set_row(r,"%4s %-25s@48g%s %%", (const char*) di._s0, (const char*) des, al.string("#@,@@"));
+      set_row(r,"@56g%r@75g%4s",&di._r0, (const char*)di._s1);
+      look_iva(di._s1);
+      al = _iva->get_real("R0");
+      set_row(r++,"@92g%s %%@100g%r", al.string("#@,@@"), &di._r1);
+      t1 += di._r0;
+      t2 += di._r1;
+    }
+    // ... ed il totale minchiativo
+    r++;
+    set_row(r++,"Totale@56g%r@100g%r",&t1,&t2);
+  }
+
   set_auto_ff(TRUE);
   set_print_zero(FALSE);
 }