diff --git a/ca/ca0500.cpp b/ca/ca0500.cpp
index 340271d13..e6a9cd2e8 100755
--- a/ca/ca0500.cpp
+++ b/ca/ca0500.cpp
@@ -1,9 +1,11 @@
 // gestione files Contabilita' Analitica: CENTRI DI COSTO
 #include <execp.h>
+#include <recset.h>
 #include <relapp.h>
 
 #include "calib01.h"
 #include "ca0500a.h"
+#include "cdc.h"
 
 ////////////////////////////////////////////////////////////////////////
 //MASCHERA
@@ -31,6 +33,7 @@ protected:
 
 	virtual void init_modify_mode(TMask& mask);
 	virtual void init_insert_mode(TMask& mask);
+  virtual bool protected_record(TRectype& record);
   virtual TSimple_anal_msk* create_mask() const { return new TCdC_anal_msk; }
   virtual bool user_create();
 };
@@ -42,6 +45,23 @@ bool TCdC_app::filtered() const
   return TAnal_app::filtered();
 }
 
+//non si può eliminare un cdc se esso appare in un saldo analitico dell'anno in corso o dell'anno precedente
+bool TCdC_app::protected_record(TRectype& record)
+{
+  TString query;
+  query << "USE SALDANA\nSELECT COSTO==#COSTO\nFROM ANNO=#ANNO\n";
+  const TString cdc = record.get(CDC_CODCOSTO);
+  const TDate today(TODAY);
+  const long anno = today.year();
+
+  TISAM_recordset saldana_recset(query);
+  saldana_recset.set_var("#COSTO", TVariant(cdc));
+  saldana_recset.set_var("#ANNO", TVariant(anno - 1));
+  
+  const long items = saldana_recset.items();
+  return items > 0;
+}
+
 void TCdC_app::init_modify_mode(TMask& mask)
 {
 	const short id = ((TCdC_anal_msk &)mask).get_field_id(_maxlev - 1, 1);
diff --git a/ca/ca0600.cpp b/ca/ca0600.cpp
index 87f3b83fc..8987b6a32 100755
--- a/ca/ca0600.cpp
+++ b/ca/ca0600.cpp
@@ -1,5 +1,6 @@
 // gestione files Contabilita' Analitica: COMMESSE
 #include <execp.h>
+#include <recset.h>
 #include <relapp.h>
 
 #include "calib01.h"
@@ -36,10 +37,11 @@ class TCms_app : public TAnal_app
 protected:
   virtual const char * extra_modules() const {return "cm";} //funziona anche con autorizzazione CM
 
-  virtual bool filtered() const; 
+  virtual bool filtered() const;
 
 	virtual void init_modify_mode(TMask& mask);
 	virtual void init_insert_mode(TMask& mask);
+  virtual bool protected_record(TRectype& record);
   virtual TSimple_anal_msk* create_mask() const { return new TCms_anal_msk; }
   virtual bool user_create();
 };
@@ -51,6 +53,23 @@ bool TCms_app::filtered() const
   return TAnal_app::filtered();
 }
 
+//non si può eliminare una commessa se essa appare in un saldo analitico dell'anno in corso o dell'anno precedente
+bool TCms_app::protected_record(TRectype& record)
+{
+  TString query;
+  query << "USE SALDANA\nSELECT COMMESSA==#COMMESSA\nFROM ANNO=#ANNO\n";
+  const TString commessa = record.get(COMMESSE_CODCMS);
+  const TDate today(TODAY);
+  const long anno = today.year();
+
+  TISAM_recordset saldana_recset(query);
+  saldana_recset.set_var("#COMMESSA", TVariant(commessa));
+  saldana_recset.set_var("#ANNO", TVariant(anno - 1));
+  
+  const long items = saldana_recset.items();
+  return items > 0;
+}
+
 void TCms_app::init_modify_mode(TMask& mask)
 {
 	const short id = ((TCms_anal_msk &)mask).get_field_id(_maxlev - 1 , 1);
diff --git a/ca/ca0700.cpp b/ca/ca0700.cpp
index e3797df52..b712e4336 100755
--- a/ca/ca0700.cpp
+++ b/ca/ca0700.cpp
@@ -1,10 +1,12 @@
 // gestione files Contabilita' Analitica: FASI
 #include <execp.h>
+#include <recset.h>
 #include <relapp.h>
 
 #include "calib01.h"
 #include "calibmsk.h"
 #include "ca0700a.h"
+#include "fasi.h"
 
 ////////////////////////////////////////////////////////////////////////
 //MASCHERA
@@ -43,7 +45,7 @@ protected:
   virtual const char * extra_modules() const {return "cm";} //funziona anche con autorizzazione CM
 
   virtual bool filtered() const;
-
+  virtual bool protected_record(TRectype& record);
   virtual TSimple_anal_msk* create_mask() const { return new TFsc_anal_msk; }
   virtual bool user_create();
 };
@@ -55,6 +57,40 @@ bool TFsc_app::filtered() const
   return TAnal_app::filtered();
 }
 
+//non si può eliminare una fase se essa appare in un saldo analitico dell'anno in corso o dell'anno precedente
+bool TFsc_app::protected_record(TRectype& record)
+{
+  TString query;
+  query << "USE SALDANA\nSELECT (FASE==#FASE)";
+  //controlla se le fasi sono figlie delle commesse o dei centri di costo o semplici figlie di nessuno
+  const TString& fath_fasi = ca_config().get("FathFasi");
+
+  if (fath_fasi == "CMS")
+    query << "&&(COMMESSA==#COMMESSA)";
+
+  if (fath_fasi == "CDC")
+    query << "&&(COSTO==#COSTO)";
+    
+  query << "\nFROM ANNO=#ANNO";
+  
+  const TString fase = record.get(FASI_CODFASE);
+  const TDate today(TODAY);
+  const long anno = today.year();
+  const TString codcmsfas = record.get(FASI_CODCMSFAS);
+
+  TISAM_recordset saldana_recset(query);
+
+  saldana_recset.set_var("#FASE", TVariant(fase));
+  saldana_recset.set_var("#ANNO", TVariant(anno - 1));
+  if (fath_fasi == "CMS")
+    saldana_recset.set_var("#COMMESSA", TVariant(codcmsfas));
+  if (fath_fasi == "CDC")
+    saldana_recset.set_var("#COSTO", TVariant(codcmsfas));
+  
+  const long items = saldana_recset.items();
+  return items > 0;
+}
+
 bool TFsc_app::user_create()
 {
   const TMultilevel_code_info& mci = ca_multilevel_code_info(LF_FASI);
diff --git a/ca/ca3800.cpp b/ca/ca3800.cpp
index 1974069c1..8afbf5e3d 100755
--- a/ca/ca3800.cpp
+++ b/ca/ca3800.cpp
@@ -189,7 +189,8 @@ protected:
 public:
 	void set_filter(const TPrint_bilancio_cms_mask& msk, const TString& curr_fase);
 	TPrint_bilancio_cms_rep(const char* rep_name, const TString& prefix, const int depth, 
-                          const bool show_fasi, const bool show_cdc);
+                          const bool show_fasi, const bool show_cdc, 
+                          const bool show_cms_descr, const bool show_cms_date);
 };
 
 bool TPrint_bilancio_cms_rep::get_usr_val(const TString& name, TVariant& var) const
@@ -214,8 +215,9 @@ void TPrint_bilancio_cms_rep::set_filter(const TPrint_bilancio_cms_mask& msk, co
 }
 
 TPrint_bilancio_cms_rep::TPrint_bilancio_cms_rep(const char* rep_name, const TString& prefix, 
-                                                 const int depth, const bool show_fasi, const bool show_cdc)
-												:TCRPA_report(rep_name, prefix, depth, show_fasi, show_cdc)
+                                                 const int depth, const bool show_fasi, const bool show_cdc,
+                                                 const bool show_cms_descr, const bool show_cms_date)
+												:TCRPA_report(rep_name, prefix, depth, show_fasi, show_cdc, show_cms_descr, show_cms_date)
 {
 }
 
@@ -256,13 +258,17 @@ void TPrint_bilancio_cms::main_loop()
     const bool group_cdc = tipostampa == 8;
     const bool show_cdc = use_cdc && cdc.empty();
 
+    //descrizioni
+    const bool show_cms_descr = mask.get_bool(F_SHOW_CMS_DESCR);
+    const bool show_cms_date = mask.get_bool(F_SHOW_CMS_DATE);
+
 		if (path.empty())
     {
       path = mask.get_report_class();
     }
 
     //crea il report in base ai parametri (tipo report,struttura,profondita' di stampa)
-    TPrint_bilancio_cms_rep rep(path, prefix, depth, show_fasi, show_cdc);
+    TPrint_bilancio_cms_rep rep(path, prefix, depth, show_fasi, show_cdc, show_cms_descr, show_cms_date);
 
     //se e' una stampa di tipo fasi riassunte (crpa special edition) deve fare lo scanning di tutte le fasi..
     //..singolarmente e stampare un report per ogni fase.Senno' stampa un solo report
@@ -328,3 +334,19 @@ int ca3800(int argc, char* argv[])
   a.run(argc, argv, TR("Stampa bilancio di commessa"));
   return 0;
 }
+
+//Istruzioni per i programmi ca3800 e ca3900
+//------------------------------------------
+// CA_3800
+// Gestore maschera ca3800 (Analisi Bilancio di Commessa)
+// Creatore del report e dell'applicazione
+
+// CA_3801
+// Gestore dei report a colonne variabili (stampa in base a struttura scelta per il PCONANA). Serve solo per ca3800.
+
+// CA_3883
+// Gestore del recordset per il calcolo dei valori da mettere sulle stampe (è il nucleo dei programmi ca3800 e ca3900)
+
+// CA_3900
+// Gestore maschera ca3900 (Stima ricavi di competenza)
+// Creatore del report e dell'applicazione
\ No newline at end of file
diff --git a/ca/ca3800.uml b/ca/ca3800.uml
index 55859bdfd..5a2881786 100755
--- a/ca/ca3800.uml
+++ b/ca/ca3800.uml
@@ -1,7 +1,9 @@
 #include "ca3883a.h"
 
 TOOLBAR "topbar" 0 0 0 2
+
 #include <printbar.h>
+
 ENDPAGE
 
 PAGE "Stampa bilancio commessa" 0 2 0 0
@@ -45,15 +47,25 @@ END
 
 BOOLEAN F_INCLUDE_DOCUMENTI
 BEGIN
-  PROMPT 1 4 "Includere documenti non contabilizzati (di tipo ordine)"
+  PROMPT 1 4 "Includere documenti inevasi e/o non contabilizzati"
 END
 
 DATE F_DATASTAMPA
 BEGIN
-  PROMPT 2 6 "Data stampa "
+  PROMPT 0 6 "Data stampa "
   FLAGS "A"
 END
 
+BOOLEAN F_SHOW_CMS_DESCR
+BEGIN
+  PROMPT 25 6 "Mostrare descr. commesse"
+END
+
+BOOLEAN F_SHOW_CMS_DATE
+BEGIN
+  PROMPT 53 6 "Mostrare date commesse"
+END
+
 GROUPBOX DLG_NULL 76 7
 BEGIN
   PROMPT 0 7 "@bParametri"
@@ -134,7 +146,7 @@ END
 
 ENDPAGE
 
-PAGE "Istruzioni" 0 2 0 0
+PAGE "Istruzioni" -1 -1 78 20
 
 GROUPBOX DLG_NULL 78 9
 BEGIN
@@ -148,7 +160,7 @@ END
 
 TEXT -1
 BEGIN
-  PROMPT 1 3 " e finale dell'esercizio stesso. Solo il campo data è modificabile, accettando"
+  PROMPT 1 3 " e finale dell'esercizio stesso. Solo il campo 'alla data' è modificabile, accettando"
 END
 
 TEXT -1
@@ -188,9 +200,9 @@ END
 
 TEXT -1
 BEGIN
-  PROMPT 1 12 " non contabilizzati di tipo ordine con data inclusa nell'intervallo selezionato"
+  PROMPT 1 12 " non contabilizzati e gli ordini inevasi con data inclusa nell'intervallo selezionato"
 END
 
 ENDPAGE
 
-ENDMASK
+ENDMASK
\ No newline at end of file
diff --git a/ca/ca3800a.rep b/ca/ca3800a.rep
index 61b2464ce..7ae4d4a05 100755
--- a/ca/ca3800a.rep
+++ b/ca/ca3800a.rep
@@ -20,9 +20,11 @@
    <source>#REPORT.PAGE</source>
   </field>
   <field border="1" x="1" y="3" type="Linea" width="169" height="0" pattern="1" />
-  <field x="43" y="2" type="Testo" align="center" width="6" id="3" pattern="1" text="Fase" />
-  <field x="50.5" y="2" type="Testo" align="center" width="6" id="4" pattern="1" text="CdC" />
-  <field x="56" y="2" type="Array" align="center" width="7" id="5" pattern="1">
+  <field x="41" y="2" type="Testo" align="center" width="6" id="3" pattern="1" text="Inizio" />
+  <field x="46.5" y="2" type="Testo" align="center" width="6" id="4" pattern="1" text="Fine" />
+  <field x="51" y="2" type="Testo" align="center" width="6" id="5" pattern="1" text="Fase" />
+  <field x="58.5" y="2" type="Testo" align="center" width="6" id="6" pattern="1" text="CdC" />
+  <field x="64" y="2" type="Array" align="center" width="7" id="7" pattern="1">
    <source>TIPOSTIMA</source>
    <list>
     <li Value="% Av." Code="T" />
@@ -30,9 +32,9 @@
     <li Value="% Ric." Code="R" />
    </list>
   </field>
-  <field x="61" y="2" type="Testo" align="right" width="13" id="69" pattern="1" text="Testata" />
+  <field x="69" y="2" type="Testo" align="right" width="13" id="69" pattern="1" text="Testata" />
   <field x="1" y="2" type="Testo" width="15" id="121" pattern="1" text="Commessa" />
-  <field x="75" y="1" type="Stringa" valign="bottom" align="right" width="13" height="2" id="169" pattern="1">
+  <field x="83" y="1" type="Stringa" valign="bottom" align="right" width="13" height="2" id="169" pattern="1">
    <source>"MARGINE CONTRIBUZIONE"</source>
   </field>
  </section>
@@ -173,11 +175,19 @@
   </field>
   <field x="18" type="Stringa" width="25" id="2" pattern="1">
    <font face="Arial Narrow" size="7" />
-   <source>IF(#H4.3=0;DESCRIZ;"")</source>
+   <source>DESCRIZ</source>
   </field>
-  <field x="43.5" type="Stringa" width="9" id="3" pattern="1">
+  <field x="43" type="Data" align="center" width="6" id="3" pattern="1">
+   <font face="Arial Narrow" size="7" />
+   <source>DATAINI</source>
+  </field>
+  <field x="49" type="Data" align="center" width="6" id="4" pattern="1">
+   <font face="Arial Narrow" size="7" />
+   <source>DATAFINE</source>
+  </field>
+  <field x="55" type="Stringa" width="9" id="5" pattern="1">
    <source>FASE</source>
-   <prescript description="B1.3 PRESCRIPT">#STAMPAFASI @
+   <prescript description="B1.5 PRESCRIPT">#STAMPAFASI @
 EMPTY= IF
   #THIS HIDE
 ELSE
@@ -185,9 +195,9 @@ ELSE
 THEN
 </prescript>
   </field>
-  <field x="52.5" type="Stringa" width="5" id="4" pattern="1">
+  <field x="64" type="Stringa" width="5" id="6" pattern="1">
    <source>CDC</source>
-   <prescript description="B1.4 PRESCRIPT">#STAMPACDC @
+   <prescript description="B1.6 PRESCRIPT">#STAMPACDC @
 EMPTY= IF
   #THIS HIDE
 ELSE
@@ -195,20 +205,20 @@ ELSE
 THEN
 </prescript>
   </field>
-  <field x="57.5" type="Numero" align="right" width="3.5" id="5" pattern="1">
+  <field x="69" type="Numero" align="right" width="3.5" id="7" pattern="1">
    <font italic="1" face="Arial Narrow" size="8" />
    <source>ROUND(AVANZAMENTO;0)</source>
   </field>
-  <field x="61" type="Valuta" align="right" width="13" id="69" pattern="1" text="###.###.###,@@">
+  <field x="72.5" type="Valuta" align="right" width="13" id="69" pattern="1" text="###.###.###,@@">
    <postscript description="B1.69 POSTSCRIPT">MESSAGE ADD,F4.69
 MESSAGE ADD,F3.69</postscript>
   </field>
-  <field x="74.5" type="Valuta" align="right" width="13" id="169" pattern="1" text="###.###.###,@@">
+  <field x="86" type="Valuta" align="right" width="13" id="169" pattern="1" text="###.###.###,@@">
    <source>#RICAVI-#COSTI</source>
    <postscript description="B1.169 POSTSCRIPT">MESSAGE ADD,F4.169
 MESSAGE ADD,F3.169</postscript>
   </field>
-  <field x="87.5" type="Numero" align="right" width="4" id="170" pattern="1">
+  <field x="99" type="Numero" align="right" width="4" id="170" pattern="1">
    <font italic="1" face="Arial Narrow" size="8" />
    <prescript description="B1.170 PRESCRIPT">#RICAVI @
 EMPTY= IF
@@ -226,7 +236,7 @@ ROUND
 THEN
 #THIS !</prescript>
   </field>
-  <field x="91.5" type="Testo" align="center" width="2" id="171" pattern="1" text="%" />
+  <field x="103" type="Testo" align="center" width="2" id="171" pattern="1" text="%" />
   <field type="Numero" hidden="1" align="right" width="1" id="200" pattern="1">
    <prescript description="B1.200 PRESCRIPT">#THIS @
 1
diff --git a/ca/ca3801.cpp b/ca/ca3801.cpp
new file mode 100755
index 000000000..69167a77e
--- /dev/null
+++ b/ca/ca3801.cpp
@@ -0,0 +1,456 @@
+#include "calib01.h"
+#include "calib02.h"
+
+#include "ca3883.h"
+
+#include "pconana.h"
+
+/////////////////////////////////////////////////////////////////////////////////
+//Classe di report speciale con numero colonne adattabile in base ad un parametro
+/////////////////////////////////////////////////////////////////////////////////
+
+void TCRPA_report::merge_array(TString_array& c, TString_array& t, 
+															 TString_array& codici, TString_array& testate) const
+{
+	while (c.items() > 0)
+	{
+		TObject* cod = c.remove(0,true);
+		TObject* tes = t.remove(0,true);
+		codici.TArray::add(cod);
+		testate.TArray::add(tes);
+	}
+}
+
+void TCRPA_report::analize_pconana_structure (const TString& prefix, const int depth, 
+																						 TString_array& codici, TString_array& testate) const
+{
+	//cerca quale e' la lunghezza della stringa conto da considerare in base alla depth scelta
+	TConfig& cfg = ca_config();
+  const TMultilevel_code_info& pconana_info = ca_multilevel_code_info(LF_PCONANA);
+  const long total_length = pconana_info.total_len(depth);
+	
+	//scandisce il piano dei conti analitico alla ricerca dei conti di lunghezza pari a..
+	//..quella appena ricavata
+	TISAM_recordset recset("USE PCONANA\nSELECT LEN(CODCONTO)=#LUN\nFROM CODCONTO=#PREFIX\nTO CODCONTO=#PREFIX");
+	recset.set_var("#LUN", TVariant(total_length));
+	recset.set_var("#PREFIX", TVariant(prefix));
+	const int prefix_length = prefix.len();
+
+	TString_array codici_c, testate_c, codici_r, testate_r;
+
+	//riempie gli array con i codici conto di lunghezza opportuna e relative testate
+  TString80 codice;
+	for (bool ok = recset.move_first(); ok; ok = recset.move_next())
+	{
+		const TString& codconto = recset.get(PCONANA_CODCONTO).as_string();
+
+		const TAnal_bill zio(codconto);
+		const int indbil = zio.indicatore_bilancio();
+		//solo Costi e Ricavi!
+		if (indbil == 3 || indbil == 4)
+		{
+      codice.cut(0) << "#RECORD." << codconto.mid(prefix_length);
+			const TString& testata = zio.testata();
+			if (indbil == 3)
+			{
+				codici_c.add(codice);
+				testate_c.add(testata);
+			}
+			else
+			{
+				codici_r.add(codice);
+				testate_r.add(testata);
+			}
+		}
+	}
+
+	if (codici_r.items() == 1)	//se il campo da stampare e' uno solo->e' il totale del livello
+	{
+		codici_r.destroy();
+		testate_r.destroy();
+	}
+	codici_r.add("#RICAVI");
+	testate_r.add(TR("RICAVI"));
+
+	//..analogo per i Costi
+	if (codici_c.items() == 1)
+	{
+		codici_c.destroy();
+		testate_c.destroy();
+	}
+	codici_c.add("#COSTI");
+	testate_c.add(TR("COSTI"));
+
+	//condensa gli array di Costo e Ricavo in un unico array che servira' di base per la stampa
+	merge_array(codici_r, testate_r, codici, testate);
+	merge_array(codici_c, testate_c, codici, testate);
+}
+
+//metodo per il riempimento e lo spostamento dei campi della sola sezione F4 (totali di commessa)
+void TCRPA_report::offset_and_fill_sectionf4(TReport_section& rep_sect, const int model_id)
+{
+  //campo modello
+  TReport_field& rep_field = *rep_sect.find_field(model_id);
+  //nuovo campo
+	TReport_field* new_field = (TReport_field*)rep_field.dup();
+  //lo aggiunge alla sezione
+  rep_sect.add(new_field);
+  //gli da' l'id (e' il terzultimo campo)
+  TReport_section& b1 = section('B', 1);
+  const int body_fields_number = b1.items();
+  TReport_field& fld_costi = b1.field(body_fields_number - 3);
+	new_field->set_id(fld_costi.id());
+   
+  //posiziona tutti i campi della sezione
+  for (int i = 0; i < rep_sect.items(); i++)
+  {
+    //c'e' il campo con il mio numero (id) in questa sezione?
+    TReport_field& brock = rep_sect.field(i);
+    if (brock.id() >= model_id)
+    {
+      //se c'e' cerco nel body il mio omonumero; se lo trovo mi allineo come lui
+      //Es.: campi testata di pagina compaiono e si allineano in base ai campi body (fase,cdc ecc.)
+      TReport_field* champ = b1.find_field(brock.id());
+      if (champ != NULL)
+        brock.set_column(champ->get_rect().left());
+    }
+  }
+ 
+}
+
+int TCRPA_report::show_hide_left_column(const bool show_fld, TReport_field* fld, int x0)
+{
+  if (fld != NULL)
+  {
+    if (show_fld)
+    {
+      fld->set_column(x0);
+      x0 = fld->get_rect().right();
+    }
+    else
+      fld->deactivate();
+  }
+  return x0;
+}
+
+
+//metodo per il riempimento e lo spostamento dei campi dinamici
+void TCRPA_report::offset_and_fill_columns(TReport_section& rep_sect, const TString_array& str_arr, 
+                                           const int model_id, const bool show_fasi, const bool show_cdc, 
+                                           const bool show_cms_descr, const bool show_cms_date)
+{
+  //solo nel caso sia richiesta la sparizione di un campo...
+  if (!show_fasi || !show_cdc || !show_cms_descr || !show_cms_date)
+  {
+    if (rep_sect.type() == 'B') //campi del body
+    {
+      //gestione campi a sinistra del campo modello
+      //la gestione dei campi a sinistra e' guidata dalle scelte utente sulla maschera
+      //primo campo apparibile/scomparibile a sx del campo modello
+      TReport_field* fld_cms_descr = rep_sect.find_field(2);
+
+      if (fld_cms_descr != NULL)   //in caso non esista il campo non deve fare nulla (report riassuntivi x fase/cdc)
+      {
+        TReport_field* fld_dataini = rep_sect.find_field(3);
+        TReport_field* fld_datafine = rep_sect.find_field(4);
+        TReport_field* fld_fase = rep_sect.find_field(5);
+        TReport_field* fld_cdc = rep_sect.find_field(6);
+        TReport_field* fld_perc = rep_sect.find_field(7);
+
+        int x0 = fld_cms_descr->get_rect().left();
+
+        //mostra o no varie colonne a sx del campo esempio
+        x0 = show_hide_left_column(show_cms_descr, fld_cms_descr, x0);  //cms_descr
+        x0 = show_hide_left_column(show_cms_date, fld_dataini, x0);     //cms_dataini
+        x0 = show_hide_left_column(show_cms_date, fld_datafine, x0);    //cms_datafine
+        x0 = show_hide_left_column(show_fasi, fld_fase, x0);            //fasi
+        x0 = show_hide_left_column(show_cdc, fld_cdc, x0);              //cdc
+        x0 = show_hide_left_column(true, fld_perc, x0);                 //perc
+
+        //campo modello
+        rep_sect.find_field(model_id)->set_column(x0);
+      } //if(fld_fase!=NULL..
+    }
+    else  //campi non del body
+    {
+      TReport_section& b1 = section('B', 1);
+      //sistema i campi tipo testata
+      for (int i = 0; i < rep_sect.items(); i++)
+      {
+        //c'e' il campo con il mio numero (id) in questa sezione?
+        TReport_field& brock = rep_sect.field(i);
+        const int id = brock.id();
+        if (id > 0)
+        {
+          //se c'e' cerco nel body il mio omonumero; se lo trovo mi mostro e allineo come lui
+          //Es.: campi testata di pagina compaiono e si allineano in base ai campi body (fase,cdc ecc.)
+          TReport_field* champ = b1.find_field(id);
+          if (champ != NULL)
+          {
+            brock.activate(champ->active());
+            brock.set_column(champ->get_rect().left());
+          }
+        } //if(id>0..
+      } //for(int i=0;...
+    } //else di if(rep_sect.type()=='B'... 
+  } //if(!show_fasi||!show_cdc...
+
+	TReport_field& rep_field = *rep_sect.find_field(model_id);
+
+  //prende il rettangolo del campo modello..
+	const TRectangle& rep_field_rect = rep_field.get_rect();
+
+	//deve spostare i campi a destra della colonna modello
+	//si memorizza i campi a destra del campo modello per poterli mettere a destra di tutti..
+	//..i campi che saranno generati
+	TPointer_array campi_a_destra;
+	for (int j = 0; j < rep_sect.items(); j++)
+	{
+		const TReport_field& campo = rep_sect.field(j);
+    //solo i campi con un identificatore vanno spostati; gli altri sono parte dello sfondo
+    if (campo.id() > model_id)
+    {
+		  const TRectangle& rct = campo.get_rect();
+		  //se il campo e' a destra del modello lo aggiunge all'array dei campi_a_destra
+		  if (rct.left() >= rep_field_rect.right())
+			  campi_a_destra.add(campo);
+    }
+	}
+
+	//duplica il campo modello e riempie i duplicati con i valori degli array
+	//serve il tipo di sezione poiche' gli header vanno trattati diversamente dai body
+	const char sect_type = rep_sect.type();
+
+	//ciclo su tutti gli elementi dell'array con i valori da settare nei nuovi campi
+	for (int i = 0; i < str_arr.items(); i++)
+	{
+    //crea il nuovo campo i-esimo, copia del modello, spostato a destra rispetto al precedente (i-1)esimo..
+    //.., con id(i) = id(i-1) + 1
+		TReport_field* new_field = i == 0 ? &rep_field : (TReport_field*)rep_field.dup();
+		if (i > 0)
+		{
+			rep_sect.add(new_field);
+			new_field->set_pos(rep_field_rect.left() + rep_field_rect.width() * i, rep_field_rect.top());
+			new_field->set_id(rep_field.id() + i);
+		}
+		switch (sect_type)
+		{
+		case 'H':	//gli header devono stampare l'intestazione
+			{
+				new_field->set_picture(str_arr.row(i));
+			}
+			break;
+		case 'B':	//i body devono stampare i valori e sommarli ai totali nei footer
+			{
+				new_field->set_field(str_arr.row(i));
+				TString ps = "MESSAGE ADD,F3.";
+				ps << new_field->id();
+
+        if (find_section('F', 4) != NULL)
+          ps << "|ADD,F4." << new_field->id();
+				
+        new_field->set_postscript(ps);
+			}
+			break;
+		case 'F':	//i footer devono calcolarsi i totali; ma i footer di totale fasi (4) non devono..
+      //..fare assolutamente nulla!
+			if (rep_sect.level() > 0 && rep_sect.level() < 4)
+			{
+        //crea il campo sul report con tanto di id,postscript ecc...
+			  new_field->set_field("");
+
+        switch (rep_sect.level())
+        {
+        case 1:
+        {
+          //caso particolare del footer di report con i totali alla Adolf!
+          //Dalla matematica secondo Adolf:
+          //(a) TotGen = TotCmsNor + TotCmsSupp
+          //(b) DiffGen = TotCmsSupp - TotCmsNor
+          //->(c) DiffGen = TotGen - 2*TotCmsNor
+
+          //i campi del totale generale si sommano ai campi delle differenze di Adolf
+          /**CAZZONE** tentata per utilizzare la (c) ma non funziona:questi non servono a una ceppa di minchia
+          new_field->set_field("");
+          TString ps = "MESSAGE ADD,F";
+	        ps << (rep_sect.level()) << '.' << (new_field->id() + 200);
+          new_field->set_prescript(ps);*/   
+
+          //sub_new_field e' il campo SOTTO il new_field che appare solo nei totali di sezione 1 (F1)
+          //e' il campo che va nella riga delle Differenze
+          TReport_field* sub_new_field = (TReport_field*)new_field->dup();
+ 			    rep_sect.add(sub_new_field);
+          sub_new_field->offset(TPoint(0, 250));
+          sub_new_field->set_id(new_field->id() + 200);
+          sub_new_field->set_groups("90");
+          sub_new_field->set_prescript("");
+        }
+          break;
+
+        case 2:
+          {
+            //ogni campo di footer F2 deve sommarsi a quello piu' esterno F1
+            TString ps = "MESSAGE ADD,F";
+			      ps << (rep_sect.level() - 1) << '.' << new_field->id();
+
+            //in caso di Commesse Supporto (LEVEL=4) il totale si deve sommare nelle differenze generali
+            ps << "\n#101 @\n";
+            ps << "4 = IF\n";
+            ps << "  MESSAGE ADD,F1." << (new_field->id() + 200) << "\n";
+            ps << "THEN";
+
+            //setta il postscript al new_field
+            new_field->set_postscript(ps);
+
+            //SUB_new_field, ovvero gestione dei campi adolfici dei totali e delle differenze
+            //Gestione totali delle commesse normali (Adolf!)
+            //Alla fine di tutte le 4 sezioni di commesse normali ci va il totale delle medesime; questo..
+            //..totale va stampato prima della sezione con le commesse di appoggio
+
+            //sub_new_field e' il campo SOTTO il new_field che appare solo nei totali di sezione 2 (F2)
+            //e' il campo con il totale delle commesse normali
+            TReport_field* sub_new_field = (TReport_field*)new_field->dup();
+   			    rep_sect.add(sub_new_field);
+            sub_new_field->offset(TPoint(0, 250));
+            sub_new_field->set_id(new_field->id() + 200);
+            sub_new_field->set_groups("90");
+            sub_new_field->set_postscript("");
+
+            //il totale delle commesse normali si sottrae nelle differenze generali
+            TString ps_diff;
+            //ps_diff << "#THIS @\n2\n*\n!\n";  **CAZZONE** tentata per applicare la (c);non funzia
+            ps_diff << "MESSAGE SUB,F1." << sub_new_field->id();
+            sub_new_field->set_postscript(ps_diff);
+          }
+          break;
+
+        case 3:
+          {
+            //ogni campo di footer F3 deve sommarsi a quello piu' esterno F2
+            TString ps = "MESSAGE ADD,F";
+			      ps << (rep_sect.level() - 1) << '.' << new_field->id();
+            //deve anche sommarsi al totale delle Commesse Normali (che viene stampato al passaggio tra..
+            //..LEVEL=3 e LEVEL=4)
+            ps << "\nMESSAGE ADD,F2." << (new_field->id() + 200);
+            //setta il postscript al new_field
+            new_field->set_postscript(ps);
+          }
+          break;
+        default:
+          break;
+        } //switch(rep_sect.level())
+      }
+			break;
+		default:
+			break;
+		} //switch (sect_type)
+	} //for(inti=0;i<str_arr.items()...
+
+	//sposta a destra gli ultimi campi non generati (169 e 170)
+	const TReport_field& ultimo_campo = rep_sect.field(rep_sect.last());
+  int x0 = ultimo_campo.get_rect().right();
+	for (int k = 0; k < campi_a_destra.items(); k++)
+	{
+		TReport_field& campo = (TReport_field&)campi_a_destra[k];
+		campo.set_column(x0);
+    x0 = campo.get_rect().right();
+	}
+
+  //l'ultimo campo (margine di contribuzione) va generato a mano nel caso dei totali delle commesse normali!!
+  if (rep_sect.type() == 'F' && rep_sect.level() == 2)
+  {
+    TReport_field* sub_new_field_margine = (TReport_field*)rep_sect.find_field(169)->dup();
+    rep_sect.add(sub_new_field_margine);
+    sub_new_field_margine->offset(TPoint(0, 250));
+    sub_new_field_margine->set_id(369);
+    sub_new_field_margine->set_groups("90");
+    sub_new_field_margine->set_postscript("");
+  }
+
+  //ordina i campi davvero sul report per id
+  rep_sect.sort();
+}
+
+
+bool TCRPA_report::generate_columns (TString_array& codici, TString_array& testate, const int model_id, 
+                                     const bool show_fasi, const bool show_cdc, const bool show_cms_descr, 
+                                     const bool show_cms_date)
+{
+	//sezioni del report da modificare
+	TReport_section& b1 = section('B', 1);
+	
+	//controllo dell'esistenza dei campi modello da replicare e loro duplicazione e riempimento!
+	TReport_field* b1_model = b1.find_field(model_id);
+	if (b1_model == NULL)
+		return false;
+	offset_and_fill_columns(b1, codici, model_id, show_fasi, show_cdc, show_cms_descr, show_cms_date);
+
+	//testate
+	//la testata di pagina deve invece riempire le intestazioni delle colonne generate
+	TReport_section& h0 = section('H', 0);
+
+	TReport_field* h0_model = h0.find_field(model_id);
+	if (h0_model == NULL)
+		warning_box(TR("Manca l'intestazione della colonna modello (H0.%d)"),model_id);
+	else
+		offset_and_fill_columns(h0, testate, model_id, show_fasi, show_cdc, show_cms_descr, show_cms_date);
+
+	//le testate di sezione devono resettare i campi totale dei corrispondenti footers
+	for (int j = 4; j > 0; j--)
+	{
+		TReport_section& head = section('H', j);
+		if (head.items() > 0)
+		{
+			TString ps(256);
+      ps = "MESSAGE ";
+			//i campi dei totali da resettare sono tanti quante le colonne generate
+			//k=0 per includere la colonna 69!!! usata nel caso i ricavi siano solo di livello 1 (depth=1)
+			for (int k = 0; k <= codici.items(); k++)
+			{		
+				if (k > 0)
+					ps << '|';
+        ps << "RESET,F" << head.level() << '.' << (k+model_id);
+			}
+			head.set_prescript(ps);
+		}
+	}
+
+	//footers
+	for (int i = find_max_level('F') - 1; i > 0; i--)
+	{
+	  TReport_section& foot = section('F', i);
+
+	  TReport_field* foot_model = foot.find_field(model_id);
+	  if (foot_model == NULL)
+		  warning_box(TR("Manca la colonna modello (F%d.%d)"), i, model_id);
+		else
+			offset_and_fill_columns(foot, codici, model_id, show_fasi, show_cdc, show_cms_descr, show_cms_date);
+	}
+
+  //gestione della sezione con i totali di commessa (solo se esiste, visto che non c'e' in tutti i report)
+  TReport_section* f4 = find_section('F', 4); 
+  if (f4 != NULL)
+    offset_and_fill_sectionf4(*f4, model_id);
+
+#ifdef DBG
+  save("cazzone.rep");
+#endif
+	return true;
+}
+
+
+TCRPA_report::TCRPA_report (const char* rep_name, const TString& prefix, const int depth, 
+                            const bool show_fasi, const bool show_cdc, 
+                            const bool show_cms_descr, const bool show_cms_date)
+{
+	//che report usare?
+	load (rep_name);
+	//array contenenti i conti analitici e le loro descrizioni di testata che diventeranno..
+	//.colonne del report dopo lungo e periglioso travaglio
+	TString_array codici, testate;
+	//per prima cosa si deve analizzare la struttura del piano conti..
+	//..da stampare fino al livello richiesto!
+	analize_pconana_structure (prefix, depth, codici, testate);
+	//poi vanno generate le colonne del report corrispondenti alla struttura analizzata
+	generate_columns (codici, testate, 69, show_fasi, show_cdc, show_cms_descr, show_cms_date);
+}
diff --git a/ca/ca3883.cpp b/ca/ca3883.cpp
index a0b2a870f..8b04bc6f4 100755
--- a/ca/ca3883.cpp
+++ b/ca/ca3883.cpp
@@ -10,7 +10,6 @@
 #include "movana.h"
 #include "rmovana.h"
 #include "panapdc.h"
-#include "pconana.h"
 #include "commesse.h"
 #include "fasi.h"
 #include "saldana.h"
@@ -103,446 +102,7 @@ TIndbil_cache::TIndbil_cache()
 	_usepdcc = cfg.get_bool("UsePdcc");
 }
 
-/////////////////////////////////////////////////////////////////////////////////
-//Classe di report speciale con numero colonne adattabile in base ad un parametro
-/////////////////////////////////////////////////////////////////////////////////
 
-void TCRPA_report::merge_array(TString_array& c, TString_array& t, 
-															 TString_array& codici, TString_array& testate) const
-{
-	while (c.items() > 0)
-	{
-		TObject* cod = c.remove(0,true);
-		TObject* tes = t.remove(0,true);
-		codici.TArray::add(cod);
-		testate.TArray::add(tes);
-	}
-}
-
-void TCRPA_report::analize_pconana_structure (const TString& prefix, const int depth, 
-																						 TString_array& codici, TString_array& testate) const
-{
-	//cerca quale e' la lunghezza della stringa conto da considerare in base alla depth scelta
-	TConfig& cfg = ca_config();
-  const TMultilevel_code_info& pconana_info = ca_multilevel_code_info(LF_PCONANA);
-  const long total_length = pconana_info.total_len(depth);
-	
-	//scandisce il piano dei conti analitico alla ricerca dei conti di lunghezza pari a..
-	//..quella appena ricavata
-	TISAM_recordset recset("USE PCONANA\nSELECT LEN(CODCONTO)=#LUN\nFROM CODCONTO=#PREFIX\nTO CODCONTO=#PREFIX");
-	recset.set_var("#LUN", TVariant(total_length));
-	recset.set_var("#PREFIX", TVariant(prefix));
-	const int prefix_length = prefix.len();
-
-	TString_array codici_c, testate_c, codici_r, testate_r;
-
-	//riempie gli array con i codici conto di lunghezza opportuna e relative testate
-  TString80 codice;
-	for (bool ok = recset.move_first(); ok; ok = recset.move_next())
-	{
-		const TString& codconto = recset.get(PCONANA_CODCONTO).as_string();
-
-		const TAnal_bill zio(codconto);
-		const int indbil = zio.indicatore_bilancio();
-		//solo Costi e Ricavi!
-		if (indbil == 3 || indbil == 4)
-		{
-      codice.cut(0) << "#RECORD." << codconto.mid(prefix_length);
-			const TString& testata = zio.testata();
-			if (indbil == 3)
-			{
-				codici_c.add(codice);
-				testate_c.add(testata);
-			}
-			else
-			{
-				codici_r.add(codice);
-				testate_r.add(testata);
-			}
-		}
-	}
-
-	if (codici_r.items() == 1)	//se il campo da stampare e' uno solo->e' il totale del livello
-	{
-		codici_r.destroy();
-		testate_r.destroy();
-	}
-	codici_r.add("#RICAVI");
-	testate_r.add(TR("RICAVI"));
-
-	//..analogo per i Costi
-	if (codici_c.items() == 1)
-	{
-		codici_c.destroy();
-		testate_c.destroy();
-	}
-	codici_c.add("#COSTI");
-	testate_c.add(TR("COSTI"));
-
-	//condensa gli array di Costo e Ricavo in un unico array che servira' di base per la stampa
-	merge_array(codici_r, testate_r, codici, testate);
-	merge_array(codici_c, testate_c, codici, testate);
-}
-
-//metodo per il riempimento e lo spostamento dei campi della sola sezione F4 (totali di commessa)
-void TCRPA_report::offset_and_fill_sectionf4(TReport_section& rep_sect, const int model_id)
-{
-  //campo modello
-  TReport_field& rep_field = *rep_sect.find_field(model_id);
-  //nuovo campo
-	TReport_field* new_field = (TReport_field*)rep_field.dup();
-  //lo aggiunge alla sezione
-  rep_sect.add(new_field);
-  //gli da' l'id (e' il terzultimo campo)
-  TReport_section& b1 = section('B', 1);
-  const int body_fields_number = b1.items();
-  TReport_field& fld_costi = b1.field(body_fields_number - 3);
-	new_field->set_id(fld_costi.id());
-   
-  //posiziona tutti i campi della sezione
-  for (int i = 0; i < rep_sect.items(); i++)
-  {
-    //c'e' il campo con il mio numero (id) in questa sezione?
-    TReport_field& brock = rep_sect.field(i);
-    if (brock.id() >= model_id)
-    {
-      //se c'e' cerco nel body il mio omonumero; se lo trovo mi allineo come lui
-      //Es.: campi testata di pagina compaiono e si allineano in base ai campi body (fase,cdc ecc.)
-      TReport_field* champ = b1.find_field(brock.id());
-      if (champ != NULL)
-        brock.set_column(champ->get_rect().left());
-    }
-  }
- 
-}
-
-//metodo per il riempimento e lo spostamento dei campi dinamici
-void TCRPA_report::offset_and_fill_columns(TReport_section& rep_sect, const TString_array& str_arr, 
-                                           const int model_id, const bool show_fasi, const bool show_cdc)
-{
-  //solo nel caso sia richiesta la sparizione di un campo...
-  if (!show_fasi || !show_cdc)
-  {
-    if (rep_sect.type() == 'B') //campi del body
-    {
-      //gestione campi a sinistra del campo modello
-      //la gestione dei campi a sinistra e' guidata dalle scelte utente sulla maschera
-      TReport_field* fld_fase = rep_sect.find_field(3);
-      if (fld_fase != NULL)   //in caso non esista il campo non deve fare nulla (report riassuntivi x fase/cdc)
-      {
-        TReport_field* fld_cdc = rep_sect.find_field(4);
-        TReport_field* fld_perc = rep_sect.find_field(5);
-
-        int x0 = fld_fase->get_rect().left();
-        //mostra le fasi
-        if (show_fasi)
-          x0 = fld_fase->get_rect().right();
-        else
-          fld_fase->deactivate();  //era meglio hide() che deactivate() ma non bastava!
-
-        if (fld_cdc != NULL)
-        {
-          if (show_cdc)
-          {
-            fld_cdc->set_column(x0);
-            x0 = fld_cdc->get_rect().right();
-          }
-          else
-            fld_cdc->deactivate();
-        }
-
-        if (fld_perc != NULL)
-        {
-          //campo percentuale
-          fld_perc->set_column(x0);
-          x0 = fld_perc->get_rect().right();
-        }
-
-        //campo modello
-        rep_sect.find_field(model_id)->set_column(x0);
-      } //if(fld_fase!=NULL..
-    }
-    else  //campi non del body
-    {
-      TReport_section& b1 = section('B', 1);
-      //sistema i campi tipo testata
-      for (int i = 0; i < rep_sect.items(); i++)
-      {
-        //c'e' il campo con il mio numero (id) in questa sezione?
-        TReport_field& brock = rep_sect.field(i);
-        const int id = brock.id();
-        if (id > 0)
-        {
-          //se c'e' cerco nel body il mio omonumero; se lo trovo mi mostro e allineo come lui
-          //Es.: campi testata di pagina compaiono e si allineano in base ai campi body (fase,cdc ecc.)
-          TReport_field* champ = b1.find_field(id);
-          if (champ != NULL)
-          {
-            brock.activate(champ->active());
-            brock.set_column(champ->get_rect().left());
-          }
-        } //if(id>0..
-      } //for(int i=0;...
-    } //else di if(rep_sect.type()=='B'... 
-  } //if(!show_fasi||!show_cdc...
-
-	TReport_field& rep_field = *rep_sect.find_field(model_id);
-
-  //prende il rettangolo del campo modello..
-	const TRectangle& rep_field_rect = rep_field.get_rect();
-
-	//deve spostare i campi a destra della colonna modello
-	//si memorizza i campi a destra del campo modello per poterli mettere a destra di tutti..
-	//..i campi che saranno generati
-	TPointer_array campi_a_destra;
-	for (int j = 0; j < rep_sect.items(); j++)
-	{
-		const TReport_field& campo = rep_sect.field(j);
-    //solo i campi con un identificatore vanno spostati; gli altri sono parte dello sfondo
-    if (campo.id() > model_id)
-    {
-		  const TRectangle& rct = campo.get_rect();
-		  //se il campo e' a destra del modello lo aggiunge all'array dei campi_a_destra
-		  if (rct.left() >= rep_field_rect.right())
-			  campi_a_destra.add(campo);
-    }
-	}
-
-	//duplica il campo modello e riempie i duplicati con i valori degli array
-	//serve il tipo di sezione poiche' gli header vanno trattati diversamente dai body
-	const char sect_type = rep_sect.type();
-
-	//ciclo su tutti gli elementi dell'array con i valori da settare nei nuovi campi
-	for (int i = 0; i < str_arr.items(); i++)
-	{
-    //crea il nuovo campo i-esimo, copia del modello, spostato a destra rispetto al precedente (i-1)esimo..
-    //.., con id(i) = id(i-1) + 1
-		TReport_field* new_field = i == 0 ? &rep_field : (TReport_field*)rep_field.dup();
-		if (i > 0)
-		{
-			rep_sect.add(new_field);
-			new_field->set_pos(rep_field_rect.left() + rep_field_rect.width() * i, rep_field_rect.top());
-			new_field->set_id(rep_field.id() + i);
-		}
-		switch (sect_type)
-		{
-		case 'H':	//gli header devono stampare l'intestazione
-			{
-				new_field->set_picture(str_arr.row(i));
-			}
-			break;
-		case 'B':	//i body devono stampare i valori e sommarli ai totali nei footer
-			{
-				new_field->set_field(str_arr.row(i));
-				TString ps = "MESSAGE ADD,F3.";
-				ps << new_field->id();
-
-        if (find_section('F', 4) != NULL)
-          ps << "|ADD,F4." << new_field->id();
-				
-        new_field->set_postscript(ps);
-			}
-			break;
-		case 'F':	//i footer devono calcolarsi i totali;ma i footer di totale fasi (4) non devono..
-      //..fare assolutamente nulla!
-			if (rep_sect.level() > 0 && rep_sect.level() < 4)
-			{
-        //crea il campo sul report con tanto di id,postscript ecc...
-			  new_field->set_field("");
-
-        switch (rep_sect.level())
-        {
-        case 1:
-        {
-          //caso particolare del footer di report con i totali alla Adolf!
-          //Dalla matematica secondo Adolf:
-          //(a) TotGen = TotCmsNor + TotCmsSupp
-          //(b) DiffGen = TotCmsSupp - TotCmsNor
-          //->(c) DiffGen = TotGen - 2*TotCmsNor
-
-          //i campi del totale generale si sommano ai campi delle differenze di Adolf
-          /**CAZZONE** tentata per utilizzare la (c) ma non funziona:questi non servono a una ceppa di minchia
-          new_field->set_field("");
-          TString ps = "MESSAGE ADD,F";
-	        ps << (rep_sect.level()) << '.' << (new_field->id() + 200);
-          new_field->set_prescript(ps);*/   
-
-          //sub_new_field e' il campo SOTTO il new_field che appare solo nei totali di sezione 1 (F1)
-          //e' il campo che va nella riga delle Differenze
-          TReport_field* sub_new_field = (TReport_field*)new_field->dup();
- 			    rep_sect.add(sub_new_field);
-          sub_new_field->offset(TPoint(0, 250));
-          sub_new_field->set_id(new_field->id() + 200);
-          sub_new_field->set_groups("90");
-          sub_new_field->set_prescript("");
-        }
-          break;
-
-        case 2:
-          {
-            //ogni campo di footer F2 deve sommarsi a quello piu' esterno F1
-            TString ps = "MESSAGE ADD,F";
-			      ps << (rep_sect.level() - 1) << '.' << new_field->id();
-
-            //in caso di Commesse Supporto (LEVEL=4) il totale si deve sommare nelle differenze generali
-            ps << "\n#101 @\n";
-            ps << "4 = IF\n";
-            ps << "  MESSAGE ADD,F1." << (new_field->id() + 200) << "\n";
-            ps << "THEN";
-
-            //setta il postscript al new_field
-            new_field->set_postscript(ps);
-
-            //SUB_new_field, ovvero gestione dei campi adolfici dei totali e delle differenze
-            //Gestione totali delle commesse normali (Adolf!)
-            //Alla fine di tutte le 4 sezioni di commesse normali ci va il totale delle medesime; questo..
-            //..totale va stampato prima della sezione con le commesse di appoggio
-
-            //sub_new_field e' il campo SOTTO il new_field che appare solo nei totali di sezione 2 (F2)
-            //e' il campo con il totale delle commesse normali
-            TReport_field* sub_new_field = (TReport_field*)new_field->dup();
-   			    rep_sect.add(sub_new_field);
-            sub_new_field->offset(TPoint(0, 250));
-            sub_new_field->set_id(new_field->id() + 200);
-            sub_new_field->set_groups("90");
-            sub_new_field->set_postscript("");
-
-            //il totale delle commesse normali si sottrae nelle differenze generali
-            TString ps_diff;
-            //ps_diff << "#THIS @\n2\n*\n!\n";  **CAZZONE** tentata per applicare la (c);non funzia
-            ps_diff << "MESSAGE SUB,F1." << sub_new_field->id();
-            sub_new_field->set_postscript(ps_diff);
-          }
-          break;
-
-        case 3:
-          {
-            //ogni campo di footer F3 deve sommarsi a quello piu' esterno F2
-            TString ps = "MESSAGE ADD,F";
-			      ps << (rep_sect.level() - 1) << '.' << new_field->id();
-            //deve anche sommarsi al totale delle Commesse Normali (che viene stampato al passaggio tra..
-            //..LEVEL=3 e LEVEL=4)
-            ps << "\nMESSAGE ADD,F2." << (new_field->id() + 200);
-            //setta il postscript al new_field
-            new_field->set_postscript(ps);
-          }
-          break;
-        default:
-          break;
-        } //switch(rep_sect.level())
-      }
-			break;
-		default:
-			break;
-		} //switch (sect_type)
-	} //for(inti=0;i<str_arr.items()...
-
-	//sposta a destra gli ultimi campi non generati (169 e 170)
-	const TReport_field& ultimo_campo = rep_sect.field(rep_sect.last());
-  int x0 = ultimo_campo.get_rect().right();
-	for (int k = 0; k < campi_a_destra.items(); k++)
-	{
-		TReport_field& campo = (TReport_field&)campi_a_destra[k];
-		campo.set_column(x0);
-    x0 = campo.get_rect().right();
-	}
-
-  //l'ultimo campo (margine di contribuzione) va generato a mano nel caso dei totali delle commesse normali!!
-  if (rep_sect.type() == 'F' && rep_sect.level() == 2)
-  {
-    TReport_field* sub_new_field_margine = (TReport_field*)rep_sect.find_field(169)->dup();
-    rep_sect.add(sub_new_field_margine);
-    sub_new_field_margine->offset(TPoint(0, 250));
-    sub_new_field_margine->set_id(369);
-    sub_new_field_margine->set_groups("90");
-    sub_new_field_margine->set_postscript("");
-  }
-
-  //ordina i campi davvero sul report per id
-  rep_sect.sort();
-}
-
-
-bool TCRPA_report::generate_columns (TString_array& codici, TString_array& testate, const int model_id, 
-                                     const bool show_fasi, const bool show_cdc)
-{
-	//sezioni del report da modificare
-	TReport_section& b1 = section('B', 1);
-	
-	//controllo dell'esistenza dei campi modello da replicare e loro duplicazione e riempimento!
-	TReport_field* b1_model = b1.find_field(model_id);
-	if (b1_model == NULL)
-		return false;
-	offset_and_fill_columns(b1, codici, model_id, show_fasi, show_cdc);
-
-	//testate
-	//la testata di pagina deve invece riempire le intestazioni delle colonne generate
-	TReport_section& h0 = section('H', 0);
-
-	TReport_field* h0_model = h0.find_field(model_id);
-	if (h0_model == NULL)
-		warning_box(TR("Manca l'intestazione della colonna modello (H0.%d)"),model_id);
-	else
-		offset_and_fill_columns(h0, testate, model_id, show_fasi, show_cdc);
-
-	//le testate di sezione devono resettare i campi totale dei corrispondenti footers
-	for (int j = 4; j > 0; j--)
-	{
-		TReport_section& head = section('H', j);
-		if (head.items() > 0)
-		{
-			TString ps(256);
-      ps = "MESSAGE ";
-			//i campi dei totali da resettare sono tanti quante le colonne generate
-			//k=0 per includere la colonna 69!!! usata nel caso i ricavi siano solo di livello 1 (depth=1)
-			for (int k = 0; k <= codici.items(); k++)
-			{		
-				if (k > 0)
-					ps << '|';
-        ps << "RESET,F" << head.level() << '.' << (k+model_id);
-			}
-			head.set_prescript(ps);
-		}
-	}
-
-	//footers
-	for (int i = find_max_level('F') - 1; i > 0; i--)
-	{
-	  TReport_section& foot = section('F', i);
-
-	  TReport_field* foot_model = foot.find_field(model_id);
-	  if (foot_model == NULL)
-		  warning_box(TR("Manca la colonna modello (F%d.%d)"), i, model_id);
-		else
-			offset_and_fill_columns(foot, codici, model_id, show_fasi, show_cdc);
-	}
-
-  //gestione della sezione con i totali di commessa (solo se esiste, visto che non c'e' in tutti i report)
-  TReport_section* f4 = find_section('F', 4); 
-  if (f4 != NULL)
-    offset_and_fill_sectionf4(*f4, model_id);
-
-#ifdef DBG
-  save("cazzone.rep");
-#endif
-	return true;
-}
-
-
-TCRPA_report::TCRPA_report (const char* rep_name, const TString& prefix, const int depth, 
-                            const bool show_fasi, const bool show_cdc)
-{
-	//che report usare?
-	load (rep_name);
-	//array contenenti i conti analitici e le loro descrizioni di testata che diventeranno..
-	//.colonne del report dopo lungo e periglioso travaglio
-	TString_array codici, testate;
-	//per prima cosa si deve analizzare la struttura del piano conti..
-	//..da stampare fino al livello richiesto!
-	analize_pconana_structure (prefix, depth, codici, testate);
-	//poi vanno generate le colonne del report corrispondenti alla struttura analizzata
-	generate_columns (codici, testate, 69, show_fasi, show_cdc);
-}
 
 ///////////////////////////////////////////////////////////////////
 // roba del recordset
@@ -587,9 +147,11 @@ static int righe_compare(const TObject** o1, const TObject** o2)
 
   return cmp;
 }
-/////////////////////////////////////////////////////////////////////////////////
-//Classe di recordset speciale per stampe con saldana (ca3800, ca3900)
-/////////////////////////////////////////////////////////////////////////////////
+
+
+//////////////////////////////////////////////////////////////////////////////////////
+//Classe di recordset speciale per stampe con saldana, rmovana, rdoc (ca3800, ca3900)
+//////////////////////////////////////////////////////////////////////////////////////
 bool TPrint_saldana_recordset::move_to(TRecnotype pos)
 {
 	_curr = pos;
@@ -797,26 +359,23 @@ real TPrint_saldana_recordset::calcola_avanzamento_tempo() const
   const TString& codfase = get("FASE").as_string();
   const TString& codcdc = get("CDC").as_string();
 
-  //fasi e cdc non specificati
-  if (codfase.empty())
-  {
-	  const TString& codcms = get("CODCMS").as_string();
-	  const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
-
-	  dataini = rec_commesse.get(COMMESSE_DATAINIZIO);
-    //attenzione alle commesse prorogate di nascosto..
-    if (rec_commesse.get_bool(COMMESSE_PROROGA) && rec_commesse.get_date(COMMESSE_DATAPROR).ok())
-      datafine = rec_commesse.get(COMMESSE_DATAPROR);
-    else
-	    datafine = rec_commesse.get(COMMESSE_DATAFINE);
-  }
-  else  //specificata la fase
+  //fase specificata (si usa l'avanzamento sulla fase solo se questa dipende dalle commesse; se fosse indipendente..
+  //..basare l'avanzamento su di essa sarebbe assurdo (le fasi indipendenti non possono avere datainizio e datafine)
+  if (codfase.full() && ca_config().get("FathFasi") == "CMS")
   {
 	  const TRectype& rec_fasi = cache().get(LF_FASI, codfase);
 
 	  dataini = rec_fasi.get(FASI_DATAINIZIO);
 	  datafine = rec_fasi.get(FASI_DATAFINE);
   }
+  if (!dataini.ok())
+  {
+	  const TString& codcms = get("CODCMS").as_string();
+	  const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
+
+    durata_commessa(rec_commesse, dataini, datafine);
+  }
+
 	//Si prende SOLO la Fine Esercizio come riferimento di avanzamento (in realta' si..
 	//..potrebbe usare today al posto di datafinesc se si volesse la situazione ad oggi,..
 	//..ma i calcoli degli importi sarebbero da rivedere). Quindi:
@@ -902,7 +461,7 @@ long TPrint_saldana_recordset::durata_commessa(const TRectype& rec_commesse, TDa
     //prende l'anno
     TEsercizi_contabili esc;
     int anno = rec_commesse.get_int(COMMESSE_ANNO);
-    //se non trova un anno valido..
+    //se non trova un anno valido (non sono ammesse commesse prima del XX secolo!)
     if (anno <= 1900)
     {
       //prova con dataini, se è buona...
@@ -1024,16 +583,83 @@ const TDate TPrint_saldana_recordset::calcola_min_datacomp(const TDate& datainie
 }
 
 
-//aggiorna l'arrayone cms con i saldana
-void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc,
-                                             const TString& query)
+//crea la query base per la scansione dei SALDANA; si usa nelle parse_saldana e parse_saldana_futuri
+TString TPrint_saldana_recordset::crea_query_saldana()
 {
+  TString query;
+	query = "USE SALDANA";
+
+  switch (_tipostampa)
+  {
+  case 1:
+  case 4:
+    if (_fase.full())
+      query << " SELECT FASE=\"" << _fase << "\"";
+    break;
+  case 2:
+  case 8:
+    if (_cdc.full())
+      query << " SELECT COSTO=\"" << _cdc << "\"";
+    break;
+  case 3:
+    if (_fase.full() || _cdc.full())
+    {
+      if (_fase.full() && _cdc.full())
+        query << " SELECT (FASE=\"" << _fase << "\")&&(COSTO=\"" << _cdc << "\")";
+      else
+      {
+        if (_fase.full())
+          query << " SELECT FASE=\"" << _fase << "\"";
+        else
+          query << " SELECT COSTO=\"" << _cdc << "\"";
+      }
+    }      
+    break;
+  }
+
+  return query;
+}
+
+
+//aggiorna l'arrayone cms con i saldana
+void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
+{
+  TString query;
+
+  //se ca3800...
+  if (_tipo == 8)
+  {
+    query = crea_query_saldana();
+
+    //stampa standard non a vita intera per la 3800
+    if (!_vitaintera)
+    {
+      TEsercizi_contabili esc;
+	    TDate datainiesc, datafinesc;
+	    esc.code2range(_anno, datainiesc, datafinesc);
+      query << "\nTO ANNO=";
+      //ACHTUNG! Se non si sceglie l'intero esercizio corrente i saldi sono quelli finali dell'esercizio precedente!
+      //Saranno poi integrati dai saldi volanti creati da movana e doc
+      if (_datacalcolo == datafinesc)
+	      query << _anno;
+      else
+        query << (_anno - 1);
+    }
+  } //if(_tipo==8..
+
+
+  if (_tipo == 9)
+  {
+    //non vanno considerati saldi di esercizi futuri a quello scelto!!!
+	  query << "USE SALDANA\nTO ANNO=" << _anno;
+  }
+
   TISAM_recordset saldana_set(query);
   const TRectype& saldana = saldana_set.cursor()->curr();
 
 	const long saldana_items = saldana_set.items();
 
-	TProgind pi(saldana_items, "Scansione saldi...", true, true);
+	TProgind pi(saldana_items, "Scansione saldi correnti...", true, true);
 
 	for (bool ok = saldana_set.move_first(); ok; ok = saldana_set.move_next())
 	{
@@ -1140,8 +766,86 @@ void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& dat
 }
 
 
+//aggiorna l'arrayone cms con i saldana
+void TPrint_saldana_recordset::parse_saldana_futuri()
+{
+  //calcola i saldi futuri per avere i totali da cui ricavare gli avanzamenti
+  TString query = crea_query_saldana();
+
+  TEsercizi_contabili esc;
+  TDate datainiesc, datafinesc;
+  esc.code2range(_anno, datainiesc, datafinesc);
+  int anno = _anno;
+
+  //se la datacalcolo coincide con la data finale dell'esercizio i saldi futuri partono dall'anno successivo
+  if (_datacalcolo == datafinesc)
+    anno++;
+
+  query << "\nFROM ANNO=" << anno;
+
+  TISAM_recordset saldana_set(query);
+  const TRectype& saldana = saldana_set.cursor()->curr();
+
+	const long saldana_items = saldana_set.items();
+
+	TProgind pi(saldana_items, "Scansione saldi futuri...", true, true);
+
+	for (bool ok = saldana_set.move_first(); ok; ok = saldana_set.move_next())
+	{
+		//progind tanto per gradire
+    if (!pi.addstatus(1))
+      break;
+
+		const TString& codconto = saldana.get(SALDANA_CONTO);
+		//trova l'indicatore di bilancio
+		TString80 conto_anale;
+
+    const int indbil = _indicatori.get_indbil(codconto, conto_anale);
+		//solo i Costi(3) ed i Ricavi(4) devono essere considerati per la stampa
+		if (indbil == 3 || indbil == 4)
+		{
+      //gruppo e conto servono solo per il caso _tipo=8 ma vanno dichiarati e ricavati..
+      //..qui in modo che siano a disposizione delle commesse del cazzo poco sotto
+      const char* gruppo = indbil == 3 ? "COSTI" : "RICAVI";
+      TString80 conto;
+		  parse_bill(conto_anale, conto);
+
+			TImporto saldo, saldop;
+
+			const int flag = estrai_saldi(saldana, indbil, saldo, saldop, false);
+
+      //estrae i dati di commessa e le date relative;le date servono successivamente per stabilire...
+      //..le sezioni in cui compariranno le commesse nella stampa
+    	const TString& codcms = saldana.get(SALDANA_COMMESSA);
+      const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
+      //indice: indica la sezione di report in cui apparariranno i valori!
+      const int indice = ricava_sezione_di_stampa(rec_commesse, datainiesc, datafinesc);
+			
+      //e' inutile considerare le commesse terminate prima dell'esercizio selezionato..
+			//..cioe' nel passato oppure che iniziano nel futuro! Solo le commesse con indice non..
+      //..negativo sopravvivono!
+			if (indice >= 0)
+			{
+        //ci sono filtri o raggruppamenti per fase o centro di costo?
+        const TString& fase = saldana.get(SALDANA_FASE);
+        const TString& cdc = saldana.get(SALDANA_COSTO);
+        //ricava la chiave completa per l'assoc_array comprendendo eventuali fasi e/o cdc
+        TString chiave = ricava_chiave_cdc_fase(codcms, fase, cdc);
+
+        //aggiorna totali della commessa (importi per codcms senza tener conto di fase o cdc)
+        TAssoc_array& riga_tot = get_row(_totali[indice], codcms, indice, codcms, EMPTY_STRING, EMPTY_STRING,
+																				 gruppo);
+			  aggiorna_importo(riga_tot, gruppo, indbil, saldana);
+      }
+    }
+  }
+}
+
+/////////////////////////////////////////////
+//    RIGHE MOVIMENTI ANALITICI
+/////////////////////////////////////////////
 //elabora realmente la riga analitica che gli viene passata (serve sia per le rmovana pure (chiamata dalla parse_rmovava())..
-//..che per quelle create contabilizzando un documento (chiamata dalla parse_rdoc())
+//..che per quelle create contabilizzando un documento (chiamata dalla parse_rdoc_ordini())
 void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, 
                                                const TRectype& movana, const TRectype& rmovana)
 {
@@ -1178,6 +882,12 @@ void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& d
     //..per tutti i movimenti, come nel gestore dei movana mette datafcomp = datacomp;
     if (!datafcomp.ok())
       datafcomp = datacomp;
+
+    //Attenzionissima! Se il movimento presenta una data fine competenza anteriore all'inizio dell'esercizio considerato..
+    //..va scartato perchè sarà incluso nei saldi finali dell'esercizio precedente!
+    if (datafcomp < datainiesc)
+      return;
+
     //finalmente la tanto agognata vita della riga di movana!
     //si aggiunge 1 perchè se un movimento ha datacomp=datafcomp (come in generale accade) in realtà..
     //..il poveretto vive un giorno, non 0
@@ -1195,7 +905,7 @@ void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& d
       const long vita_frazione_riga = fine_inter - inizio_inter + 1;
 
       //il riproporzionamento vale solo per i movimenti che durano più di 1 giorno e con una vita_frazione..
-      //..> vita_totale (il contrario sarebbe un errore!). I movimenti tutti nel futuro risultano con..
+      //..< vita_totale (il contrario sarebbe un errore!). I movimenti tutti nel futuro risultano con..
       //..vita_frazione negativa e quindi non sono considerati
       //Anche le commesse tutte nel futuro rispetto a datacalcolo danno origine a una vita_frazione negativa..
       //..parando il culo al povero programma
@@ -1205,17 +915,15 @@ void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& d
         importo.round(2);
       }
     }
+
     //dopo tutto sto panegirico sul riproporzionamento finalmente si passa ad aggiornare gli array di stampa..
     //..con gli importi aggiustati
     if (!importo.is_zero())
     {
-      //importo della riga già eventualmente riproporzionato
-      const TImporto importo_riga(rmovana.get_char(RMOVANA_SEZIONE), importo);
-      //riga array da aggiungere agli arrayoni da mandare in stampa
-      TAssoc_array& riga_array = get_row(cms[indice], chiave, indice, codcms, fase, cdc,
-																         rec_commesse.get(COMMESSE_DESCRIZ));
-
-
+#ifdef DBG
+      if (codcms == "AS08LB4CRPATI")
+        const int cazzone = 1;
+#endif
       const TString& codconto = rmovana.get(RMOVANA_CODCONTO);
       //trova l'indicatore di bilancio
       TString80 conto_anale;
@@ -1230,6 +938,12 @@ void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& d
         TString80 conto;
         parse_bill(conto_anale, conto);
 
+        //importo della riga già eventualmente riproporzionato prima (e sicuramente > 0)
+        const TImporto importo_riga(rmovana.get_char(RMOVANA_SEZIONE), importo);
+        //riga array da aggiungere agli arrayoni da mandare in stampa
+        TAssoc_array& riga_array = get_row(cms[indice], chiave, indice, codcms, fase, cdc,
+																           rec_commesse.get(COMMESSE_DESCRIZ));
+
         TRectype saldana(LF_SALDANA);
         saldana.put(SALDANA_ANNO, _anno);
         saldana.put(SALDANA_CONTO, conto_anale);
@@ -1250,6 +964,20 @@ void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& d
         default:
           saldana.put(SALDANA_SEZIONE, importo_riga.sezione());
           saldana.put(SALDANA_SALDO, importo_riga.valore());
+
+#ifdef DBG
+          if (codcms == "FP08MB24005RN")
+          {
+            ofstream movimenti("C:/temp/movimenti.txt", ios::app);
+            movimenti << rmovana.get(RMOVANA_NUMREG) << '\t'
+                   << rmovana.get(RMOVANA_DATACOMP) << '\t'
+                   << rmovana.get(RMOVANA_IMPORTO) << '\t'
+                   << rmovana.get(RMOVANA_SEZIONE) << '\t'
+                   << importo_riga.valore() << '\t'
+                   << importo_riga.sezione() << endl;
+          }
+#endif
+
           break;
         }
 
@@ -1263,7 +991,7 @@ void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& d
 }
 
 
-//aggiorna l'arrayone cms con le rmovana
+//aggiorna l'arrayone cms con le rmovana presenti nel periodo di calcolo dell'ultimo esercizio
 void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
 {
   const TDate min_datacomp = calcola_min_datacomp(datainiesc, datafinesc);
@@ -1302,7 +1030,9 @@ void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& dat
     break;
   }
 
-  query << "JOIN MOVANA INTO NUMREG==NUMREG\nFROM DATACOMP=#MINDATACOMP\nTO DATACOMP=#DATACALCOLO";
+  query << "JOIN MOVANA INTO NUMREG==NUMREG"
+        << "\nFROM DATACOMP=#MINDATACOMP"
+        << "\nTO DATACOMP=#DATACALCOLO";
   TISAM_recordset recset(query);
   recset.set_var("#DATACALCOLO", _datacalcolo);
   recset.set_var("#MINDATACOMP", min_datacomp);
@@ -1318,6 +1048,13 @@ void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& dat
     //simpatica progind per intrattenere l'utonto
     TProgind pi(recset_items, "Scansione movimenti...", true, true);
 
+#ifdef DBG
+    {
+      ofstream movimenti("C:/temp/movimenti.txt");
+      movimenti << endl;
+    }
+#endif
+
     for (bool ok = recset.move_first(); ok; ok = recset.move_next())    //giro sui vari rmovana...
     {
       //aggiornamento progind intrattenitiva
@@ -1332,20 +1069,15 @@ void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& dat
 }
 
 
-int TPrint_saldana_recordset::numerazioni_ordini(TString_array& num_ordini, TString_array& tip_ordini) const
+int TPrint_saldana_recordset::numerazioni_documenti(TString_array& num_doc, TString_array& tip_doc, const int tipo) const
 {
-  //i documenti che vanno presi in cosiderazione sono quelli che generano un IMPEGNATO secondo le auree regole del..
-  //..nostro invincibile Adolf!
-  //quindi dapprima trova i TIPI ordine, poi le NUMERAZIONI che li contengono; alla fine passa entrambi gli array
-  num_ordini.destroy();
-  tip_ordini.destroy();
-
   //cominciamo con i tipi
-  TISAM_recordset tipi_recset("USE %TIP\nSELECT I1=3");
+  TISAM_recordset tipi_recset("USE %TIP\nSELECT STR(I1=#TIPO)");
+  tipi_recset.set_var("#TIPO", TVariant(long(tipo)));
   for (bool ok = tipi_recset.move_first(); ok; ok = tipi_recset.move_next())    //giro sui vari tipi ordine
   {
-    const TString4 tipo = tipi_recset.cursor()->curr().get("CODTAB");
-    tip_ordini.add(tipo);
+    const TString4 tipo = tipi_recset.get("CODTAB").as_string();
+    tip_doc.add(tipo);
   }
 
   //e adesso cerca le numerazioni che contengono tipi ordine
@@ -1358,34 +1090,64 @@ int TPrint_saldana_recordset::numerazioni_ordini(TString_array& num_ordini, TStr
     for (int t = numerazione.ntipi_doc() - 1; t >= 0; t--)
     {
       const TString& tipo_doc = numerazione.tipo_doc(t);
-      if (tip_ordini.find(tipo_doc) >= 0)
+      if (tip_doc.find(tipo_doc) >= 0)
       {
-        num_ordini.add(codtab);
+        if (num_doc.find(codtab) < 0) // Evito aggiunta di doppioni
+          num_doc.add(codtab);
         break;
       }
     } //for (int t = codnum..
   } //for (bool ok = num_recset...
 
-  return num_ordini.items();
+  return num_doc.items();
 }
 
 
+int TPrint_saldana_recordset::numerazioni_ordini(TString_array& num_ordini, TString_array& tip_ordini) const
+{
+  //i documenti che vanno presi in cosiderazione sono quelli che generano un IMPEGNATO secondo le auree regole del..
+  //..nostro invincibile Adolf!
+  num_ordini.destroy();
+  tip_ordini.destroy();
+  
+  numerazioni_documenti(num_ordini, tip_ordini, 3);
+
+  return num_ordini.items();
+}
+
+int TPrint_saldana_recordset::numerazioni_fatture(TString_array& num_fatture, TString_array& tip_fatture) const
+{
+  //i documenti che vanno presi in cosiderazione sono quelli non ancora contabilizzati di tipo 0=Altro 2=Fattura
+  num_fatture.destroy();
+  tip_fatture.destroy();
+  
+  numerazioni_documenti(num_fatture, tip_fatture, 0);
+  numerazioni_documenti(num_fatture, tip_fatture, 2);
+
+  return num_fatture.items();
+}
+
 //aggiorna l'arrayone cms con le righedoc non ancora contabilizzate
-void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
+void TPrint_saldana_recordset::parse_rdoc_ordini(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
 {
   //solo le numerazioni con almeno un tipo documento ordine interessano
   TString_array num_ordini, tip_ordini;
   const int numerazioni_tipo_ordine = numerazioni_ordini(num_ordini, tip_ordini);
 
+#ifdef DBG
+  //file di controllo degli ordini elaborati
+  ofstream ordini("c:/temp/ordini.txt");
+  ofstream mov_da_ordini("c:/temp/mov_da_ordini.txt");
+#endif
+
   for (int n = 0; n < numerazioni_tipo_ordine; n++)
   {
-    TString4 codnum = num_ordini.row(n);
+    const TString4 codnum = num_ordini.row(n);
 
     //cerca tutte le righe documento che soddisfano i numerosi (fin troppo) parametri
     //joina DOC perchè abbiamo un decisivo filtro sul range di date
     TString query;
     query << "USE RDOC KEY 3\n";
-
     query << "SELECT (BETWEEN(DOC.DATADOC,#DATAINIES,#DATACALCOLO))&&(RIGAEVASA!=\"X\")";
 
     //filtro su cdc/cms/fasi (fatto come per saldi e rmovana; purtroppo non si può metodizzare perchè in tutti i files..
@@ -1420,7 +1182,9 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
       break;
     }
 
-    query << "\nJOIN DOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC\nFROM PROVV=D ANNO=#ANNO CODNUM=#CODNUM\nTO PROVV=D ANNO=#ANNO CODNUM=#CODNUM";
+    query << "\nJOIN DOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC"
+          << "\nFROM PROVV=D ANNO=#ANNO CODNUM=#CODNUM"
+          << "\nTO PROVV=D ANNO=#ANNO CODNUM=#CODNUM";
     TISAM_recordset recset(query);
     recset.set_var("#ANNO", (long)_datacalcolo.year());
     recset.set_var("#CODNUM", TVariant(codnum));
@@ -1430,7 +1194,7 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
     const TRecnotype recset_items = recset.items();
 
     //simpatica progind per intrattenere l'utonto
-    TProgind pi(recset_items, "Scansione documenti...", true, true);
+    TProgind pi(recset_items, "Scansione ordini inevasi...", true, true);
 
     //memorizza l'ultimo doc per evitare doppioni in caso di doc con più righe (rielaborerebbe..
 		//..lo stesso documento tante volte quante sono le sue righe!)
@@ -1474,24 +1238,53 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
         //il documento virtuale è adesso un ordine non evaso
         //tarocchiamo il documento prendendo solo le righe non evase (almeno una ci sarà, perchè la query del recordset..
         //..richiedeva che la rigadoc fosse non evasa, quindi quella riga nel doc esiste, magari in compagnia di altre)
+
+        bool mov_da_ord = false;
+
         for (int r = doc.body().last_row(); r > 0; r = doc.body().pred_row(r))
         {
           TRiga_documento& rigadoc = doc[r];
-          if (!rigadoc.is_evasa())
+          //trattamento delle righe non evase di tipo merce o prestazione
+          if (rigadoc.is_merce() || rigadoc.is_prestazione())
           {
-            //trasforma tutte le righe a valore, assegnando al prezzo il valore del residuo
-            const real valore = rigadoc.valore(true, AUTO_DECIMALS);
-            const real residuo = rigadoc.valore(false, AUTO_DECIMALS);
-            //ovviamente questo è vero se il residuo è inferiore al valore; se fosse uguale sarebbe riga ancora da evadere,..
-            //..se fosse maggiore sarebbe riga del cazzo
-            if (residuo < valore)
+            if (!rigadoc.is_evasa())
             {
-              rigadoc.put(rigadoc.tipo().quant(), UNO);
-              rigadoc.put(RDOC_PREZZO, residuo);
+              //trasforma tutte le righe a valore, assegnando al prezzo il valore del residuo
+              const real valore = rigadoc.valore(true, false, AUTO_DECIMALS);
+              const real residuo = rigadoc.valore(false, false, AUTO_DECIMALS);
+              //ovviamente questo è vero se il residuo è > 0; se fosse nullo sarebbe evasa in pratica
+              //..se fosse maggiore sarebbe riga del cazzo
+              if (residuo > ZERO)
+              {
+                rigadoc.put(RDOC_QTA, UNO);
+                rigadoc.put(RDOC_PREZZO, residuo);
+
+#ifdef DBG
+                //file di controllo in output
+                TString codcms = rigadoc.get(RDOC_CODCMS);
+                if (codcms.empty())
+                  codcms = doc.get(DOC_CODCMS);
+                if (codcms == "FP08MB24005RN")
+                {
+                  ordini << rigadoc.get(RDOC_PROVV) << '\t'
+                         << rigadoc.get(RDOC_ANNO) << '\t'
+                         << rigadoc.get(RDOC_CODNUM) << '\t'
+                         << rigadoc.get(RDOC_NDOC) << '\t'
+                         << rigadoc.get(RDOC_NRIGA) << '\t'
+                         << rigadoc.get(RDOC_CODART) << '\t'
+                         << rigadoc.get(RDOC_TIPORIGA) << '\t'
+                         << valore.stringa() << '\t'
+                         << residuo.stringa() << endl;
+                  mov_da_ord = true;
+                }
+#endif
+              }
+              else
+                doc.body().destroy_row(r, true);  //righe a residuo 0 ma non flaggate come evase (errori)
             }
+            else
+              doc.body().destroy_row(r, true);  //se la riga fosse evasa la salta e compatta il documento
           }
-          else
-            doc.body().destroy_row(r, true);  //se la riga fosse evasa la salta e compatta il documento
         }
 
         //movana nevessario per la contabilizzazione analitica del documento
@@ -1516,6 +1309,19 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
           //metodo per generare i saldi alla data della riga analitica in base alla vita della riga
           elabora_rmovana(cms, datainiesc, datafinesc, movana, rmovana);
 
+#ifdef DBG
+          //file di controllo in output
+          if (mov_da_ord)
+          {
+            mov_da_ordini << movana.get(MOVANA_DANNO) << '\t'
+                          << movana.get(MOVANA_DCODNUM) << '\t'
+                          << movana.get(MOVANA_DNDOC) << '\t'
+                          << rmovana.get(RMOVANA_CODCMS) << '\t'
+                          << rmovana.get(RMOVANA_CODCCOSTO) << '\t'
+                          << rmovana.get(RMOVANA_SEZIONE) << '\t'
+                          << rmovana.get_real(RMOVANA_IMPORTO).stringa() << endl;
+          }
+#endif
 				}	//for int j...
       }
     } //for (bool ok = recset....
@@ -1524,8 +1330,123 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
 
 }
 
+
+//aggiorna l'arrayone cms con le righedoc non ancora contabilizzate
+void TPrint_saldana_recordset::parse_rdoc_fatture(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
+{
+  //solo le numerazioni con almeno un tipo documento fattura interessano
+  TString_array num_fatture, tip_fatture;
+  const int numerazioni_tipo_fattura = numerazioni_fatture(num_fatture, tip_fatture);
+
+#ifdef DBG
+  ofstream fatture("c:/temp/fatture.txt", ios::app);
+#endif
+
+  for (int n = 0; n < numerazioni_tipo_fattura; n++)
+  {
+    const TString4 codnum = num_fatture.row(n);
+
+    //cerca tutte le righe documento che soddisfano i numerosi (fin troppo) parametri
+    //joina DOC perchè abbiamo un decisivo filtro sul range di date
+    TString query;
+    query << "USE DOC"
+          << "\nSELECT (STR(NUMREGCA=0))&&(BETWEEN(DATADOC,#DATAINIES,#DATACALCOLO))"
+          << "\nFROM PROVV=D ANNO=#ANNO CODNUM=#CODNUM"
+          << "\nTO PROVV=D ANNO=#ANNO CODNUM=#CODNUM";
+    TISAM_recordset recset(query);
+    recset.set_var("#ANNO", (long)_datacalcolo.year());
+    recset.set_var("#CODNUM", TVariant(codnum));
+    recset.set_var("#DATAINIES", datainiesc);
+    recset.set_var("#DATACALCOLO", _datacalcolo);
+
+    const TRecnotype recset_items = recset.items();
+
+    //simpatica progind per intrattenere l'utonto
+    TProgind pi(recset_items, "Scansione altri documenti da contabilizzare...", true, true);
+
+    //misterioso oggetto necessario per contabilizzare il documento in osservazione
+    TContabilizzazione_analitica cont_anal;
+
+    for (bool ok = recset.move_first(); ok; ok = recset.move_next())    //giro sulle varie rdoc...
+    {
+      //aggiornamento progind intrattenitiva
+      if (!pi.addstatus(1))
+        break;
+
+      const TRectype& curr_doc = recset.cursor()->curr();
+
+      //controlla se il documento contenente la riga è davvero un ordine ricontrollando il suo tipo nell'array..
+      //..con i tipi validi; se non lo fosse...ciao ciao rigadocumento!
+      const TString& tipodoc = curr_doc.get(DOC_TIPODOC);
+      if (tip_fatture.find(tipodoc) < 0)
+        continue;
+
+      //crea il documento virtuale in memoria;
+      TDocumento doc(curr_doc);
+      //se il documento non ha una numerazione valida per la contabilizzazione analitica lo deve saltare
+      //E' il caso di quelle fatture figlie di FDR che sono già state contabilizzate in quel momento (come FDR)..
+      //..e quindi non devono essere ricontabilizzate come fatture vere e proprie (es. FAQ)
+      const int num_rows = doc.physical_rows();
+      bool is_fdr = false;
+      for (int k = 1; k <= num_rows && !is_fdr; k++)
+      {
+        const TRiga_documento& riga = doc[k];
+        const TRectype* riga_babbo = riga.find_original_rdoc();
+        if (riga_babbo != NULL && riga_babbo->get(RDOC_PROVV).not_empty())
+        {
+          const TString& key(riga_babbo->get(RDOC_CODNUM)); 
+          const TCodice_numerazione& num = TDocumento::codice_numerazione(key);
+          if (num.fattura_emettere_ricevere())
+            is_fdr = true;
+        }
+      }
+      if (is_fdr)
+        continue;
+
+      //movana nevessario per la contabilizzazione analitica del documento
+      TAnal_mov movana;
+		  //finalmente contabilizza il documento in memoria
+      cont_anal.elabora(doc, 0, NULL, false, movana, false);
+      movana.put(MOVANA_TIPOMOV, ' ');
+
+    	//controlla che la riga in esame abbia realmente la cms/cdc/fas indicata nel filtro;
+			//procedimento necessario per evitare di prendere righe appartenenti a docs elaborati
+			//perchè contenenti 1 riga con cms corretta ed altre righe con cms sbagliate
+  		for (int j = 1; j <= movana.rows(); j++)
+			{
+				const TRectype& rmovana = movana.body()[j];
+
+				if (_cdc.not_empty() && rmovana.get(RMOVANA_CODCCOSTO) != _cdc)
+					continue;
+				if (_fase.not_empty() && rmovana.get(RMOVANA_CODFASE) != _fase)
+					continue;
+
+        //metodo per il calcolo importo riga riproporzionato
+        //metodo per generare i saldi alla data della riga analitica in base alla vita della riga
+        elabora_rmovana(cms, datainiesc, datafinesc, movana, rmovana);
+
+#ifdef DBG
+        //file di controllo in output
+        if (rmovana.get(RMOVANA_CODCMS) == "FP08MB24005RN")
+        {
+          fatture << movana.get(MOVANA_DANNO) << '\t'
+                  << movana.get(MOVANA_DCODNUM) << '\t'
+                  << movana.get(MOVANA_DNDOC) << '\t'
+                  << rmovana.get(RMOVANA_CODCMS) << '\t'
+                  << rmovana.get(RMOVANA_CODCCOSTO) << '\t'
+                  << rmovana.get(RMOVANA_SEZIONE) << '\t'
+                  << rmovana.get_real(RMOVANA_IMPORTO).stringa() << endl;
+        }
+#endif
+			}	//for int j...
+    } //for (bool ok = recset....
+
+  } //for (int n = 0; n < numerazioni...
+
+}
+
 //metodo principale di riempimento degli array da mandare in stampa
-void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
+void TPrint_saldana_recordset::create_lines_to_print()
 {
   //ricava date limite di esercizio
   TEsercizi_contabili esc;
@@ -1535,9 +1456,13 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
   //array con le commesse divise sui vari livelli di sezione di stampa
 	TAssoc_array cms[NUM_LEVELS];
 
-  //  1) 
-  //    calcolo dei saldi alla data fine esercizio (vale per entrambi i tipi di stampa, ovvero _tipo=8 e _tipo=9)
-  parse_saldana(cms, datainiesc, datafinesc, query);
+  //  1)
+  //    calcolo dei saldi come sono in SALDANA
+  //    1_a) calcolo dei saldi alla data fine esercizio (vale per entrambi i tipi di stampa, ovvero _tipo=8 e _tipo=9)
+  parse_saldana(cms, datainiesc, datafinesc);
+  //    1_b) calcolo dei saldi futuri, ovvero con esercizio futuro a quello scelto per il calcolo dei saldi
+  if (_tipo == 8)
+    parse_saldana_futuri();
 
   //  2) 
   //    calcolo dei saldi ad una data diversa da una data di fine esercizio (saldi alla data di adolfica richiesta)
@@ -1548,12 +1473,15 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
     {
       // 2_a) calcolo dei saldi da righe movimenti analitici e quindi senza saldana
       parse_rmovana(cms, datainiesc, datafinesc);
-
-      // 2_b) calcolo dei saldi da documenti non ancora contabilizzati e quindi senza movana e saldana
-      //      si fa solo se l'utente Adolfo lo ha deciso sulla maschera
-      if (_include_documenti)
-        parse_rdoc(cms, datainiesc, datafinesc);
     } //if((_datacalcolo<datafinesc...
+
+    // 2_b) calcolo dei saldi da documenti non ancora contabilizzati e quindi senza movana e saldana
+    //      si fa solo se l'utente Adolfo lo ha deciso sulla maschera
+    if (_include_documenti)
+    {
+     parse_rdoc_ordini(cms, datainiesc, datafinesc);
+     parse_rdoc_fatture(cms, datainiesc, datafinesc);
+    }
   } //if(_tipo==8)...
 
 
@@ -1581,62 +1509,9 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
 
 void TPrint_saldana_recordset::requery()
 {
-	TString query;
-	query = "USE SALDANA";  //vale sia per la 8 che per la 9
-
-  //se ca3800...
-  if (_tipo == 8)
-  {
-    switch (_tipostampa)
-    {
-    case 1:
-    case 4:
-      if (_fase.full())
-        query << " SELECT FASE=\"" << _fase << "\"";
-      break;
-    case 2:
-    case 8:
-      if (_cdc.full())
-        query << " SELECT COSTO=\"" << _cdc << "\"";
-      break;
-    case 3:
-      if (_fase.full() || _cdc.full())
-      {
-        if (_fase.full() && _cdc.full())
-          query << " SELECT (FASE=\"" << _fase << "\")&&(COSTO=\"" << _cdc << "\")";
-        else
-        {
-          if (_fase.full())
-            query << " SELECT FASE=\"" << _fase << "\"";
-          else
-            query << " SELECT COSTO=\"" << _cdc << "\"";
-        }
-      }      
-      break;
-    }
-
-    //stampa standard non a vita intera per la 3800
-    if (!_vitaintera)
-    {
-      TEsercizi_contabili esc;
-	    TDate datainiesc, datafinesc;
-	    esc.code2range(_anno, datainiesc, datafinesc);
-      query << "\nTO ANNO=";
-      if (_datacalcolo == datafinesc)
-	      query << _anno;
-      else
-        query << (_anno - 1);
-    }
-  } //if(_tipo==8..
-
-
-  if (_tipo == 9)
-  {
-    query << "\nTO ANNO=" << _anno; //non vanno considerati saldi di esercizi futuri a quello scelto!!!
-  }
-
-  //crea effettivamente la stampa !!!
-  create_lines_to_print(query);
+  //***Metodo principale per la creazione della intera stampa***
+  //Messo nella requery perchè sempre chiamata qualsiasi sia il tipo di stampa
+  create_lines_to_print();
 }
 
 
@@ -1717,6 +1592,23 @@ const TVariant& TPrint_saldana_recordset::get(const char* column_name) const
         var.set(EMPTY_STRING);
 		}
 		else
+    if (strcmp(column_name, "DATAINI") == 0)
+    {
+      const TString& codcms = get("CODCMS").as_string();
+      const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
+      var.set(rec_commesse.get(COMMESSE_DATAINIZIO));
+    }
+    else
+    if (strcmp(column_name, "DATAFINE") == 0)
+    {
+      const TString& codcms = get("CODCMS").as_string();
+      const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
+      TDate datafine = rec_commesse.get(COMMESSE_DATAPROR);
+      if (!datafine.ok())
+        datafine = rec_commesse.get(COMMESSE_DATAFINE);
+      var.set(datafine);
+    }
+    else
 		if (strcmp(column_name, "AVANZAMENTO") == 0)
 		{
 			//Calcola lo stato di avanzamento della commessa in caso di stima x Tempo
@@ -1731,9 +1623,12 @@ const TVariant& TPrint_saldana_recordset::get(const char* column_name) const
         const real val = get("RICAVI").as_real();
 			  if (!val.is_zero())
         {
-          int indice = get("LEVEL").as_int();
+          const int indice = get("LEVEL").as_int();
      	    const TString& codcms = get("CODCMS").as_string();
-
+#ifdef DBG
+          if (codcms == "AS08LB4CRPATI")
+            const int cazzone = 1;
+#endif
           TAssoc_array& riga_tot = get_row((TAssoc_array&)_totali[indice], codcms, indice, codcms, EMPTY_STRING, EMPTY_STRING,
 																				   "RICAVI");
           const TString* stric = (const TString*)riga_tot.objptr("RICAVI");
diff --git a/ca/ca3883.h b/ca/ca3883.h
index 97ff91a9c..30dee3016 100755
--- a/ca/ca3883.h
+++ b/ca/ca3883.h
@@ -42,13 +42,16 @@ protected:
 	void analize_pconana_structure (const TString& prefix, const int depth, 
 																	TString_array& codici, TString_array& testate) const;
 	bool generate_columns (TString_array& codici, TString_array& testate, const int model_id, 
-                         const bool show_fasi, const bool show_cdc);
+                         const bool show_fasi, const bool show_cdc, const bool show_cms_descr, const bool show_cms_date);
 	void offset_and_fill_columns(TReport_section& rep_sect, const TString_array& str_arr, 
-															 const int model_id, const bool show_fasi, const bool show_cdc);
+															 const int model_id, const bool show_fasi, const bool show_cdc, 
+                               const bool show_cms_descr, const bool show_cms_date);
   void offset_and_fill_sectionf4(TReport_section& rep_sect, const int model_id);
+  int show_hide_left_column(const bool show_fld, TReport_field* fld, int x0);
+
 public:
 	TCRPA_report (const char* rep_name, const TString& prefix, const int depth, 
-                const bool show_fasi, const bool show_cdc);
+                const bool show_fasi, const bool show_cdc, const bool show_cms_descr, const bool show_cms_date);
 };
 
 ///////////////////////////////////////////////////////////////
@@ -65,18 +68,22 @@ class TPrint_saldana_recordset : public TRecordset
 	TIndbil_cache _indicatori;
 	TEsercizi_contabili _esc;
 
+  TDate _datacalcolo;
+  TString16 _fase;
+  TString80 _cdc;
+
   int _tipo;
 	int _anno;
-  TDate _datacalcolo;
 	int _depth;
   int _tipostampa;
+
 	bool _vitaintera;
   bool _include_documenti;
   bool _tipodetr;
   bool _forza_maturato;
+
 	char _tipostima;
-  TString16 _fase;
-  TString80 _cdc;
+
 
 protected:
   virtual int tipo() const { return _tipo; }
@@ -97,8 +104,11 @@ protected:
   void elabora_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, 
                        const TRectype& movana, const TRectype& rmovana);
   void parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
-  void parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, const TString& query);
-  void parse_rdoc(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
+  void parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
+  void parse_saldana_futuri();
+  void parse_rdoc_ordini(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
+  void parse_rdoc_fatture(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
+  TString crea_query_saldana();
 
   //per il solo ca3800
 	void aggiorna_importo(TAssoc_array& riga_array, const TString& livello, const int indbil, 
@@ -108,9 +118,11 @@ protected:
   const TDate calcola_min_datacomp(const TDate& datainiesc, const TDate& datafinesc) const;
   int ricava_sezione_di_stampa(const TRectype& rec_commesse, const TDate& datainiesc, const TDate& datafinesc) const;
   TString ricava_chiave_cdc_fase(const TString& codcms, const TString& fase, const TString& cdc) const;
+  int numerazioni_documenti(TString_array& num_doc, TString_array& tip_doc, const int tipo) const;
   int numerazioni_ordini(TString_array& num_ordini, TString_array& tip_ordini) const;
+  int numerazioni_fatture(TString_array& num_fatture, TString_array& tip_fatture) const;
 
-  void create_lines_to_print(const TString& query);
+  void create_lines_to_print();
 
   //per il solo ca3900
   void aggiorna_importi(TAssoc_array& riga_array, const int indbil, const TRectype& saldana, 
diff --git a/ca/ca3883a.h b/ca/ca3883a.h
index 28e11787d..f4a3c2bb9 100755
--- a/ca/ca3883a.h
+++ b/ca/ca3883a.h
@@ -17,6 +17,8 @@
 #define F_TIPODETR        114
 #define F_FORZA_MATURATO  115
 #define F_INCLUDE_DOCUMENTI 116
+#define F_SHOW_CMS_DESCR  117
+#define F_SHOW_CMS_DATE   118
 
 /* campi per la generazione automatica
 #define F_FASE1         112
diff --git a/ca/ca3900.cpp b/ca/ca3900.cpp
index 974ec7af1..4cefd39c1 100755
--- a/ca/ca3900.cpp
+++ b/ca/ca3900.cpp
@@ -207,3 +207,19 @@ int ca3900(int argc, char* argv[])
   a.run(argc, argv, TR("Stampa stima ricavi di competenza"));
   return 0;
 }
+
+//Istruzioni per i programmi ca3800 e ca3900
+//------------------------------------------
+// CA_3800
+// Gestore maschera ca3800 (Analisi Bilancio di Commessa)
+// Creatore del report e dell'applicazione
+
+// CA_3801
+// Gestore dei report a colonne variabili (stampa in base a struttura scelta per il PCONANA). Serve solo per ca3800.
+
+// CA_3883
+// Gestore del recordset per il calcolo dei valori da mettere sulle stampe (è il nucleo dei programmi ca3800 e ca3900)
+
+// CA_3900
+// Gestore maschera ca3900 (Stima ricavi di competenza)
+// Creatore del report e dell'applicazione
\ No newline at end of file
diff --git a/ca/ca3900a.rep b/ca/ca3900a.rep
index 068cf0e62..354a875a0 100755
--- a/ca/ca3900a.rep
+++ b/ca/ca3900a.rep
@@ -19,19 +19,19 @@
   <field x="154" type="Numero" align="right" width="3" pattern="1">
    <source>#REPORT.PAGE</source>
   </field>
-  <field border="2" x="1" y="1.5" type="Linea" width="169" height="0" pattern="1" />
-  <field x="66.5" y="2" type="Testo" align="center" width="8" pattern="1" text="COSTI" />
-  <field x="110" y="2" type="Testo" align="center" width="20" pattern="1" text="RICAVI" />
-  <field x="155" y="2.25" type="Testo" align="right" width="8" pattern="1" text="Margine" />
-  <field x="54" y="3" type="Testo" align="right" width="8" pattern="1" text="Budget" />
-  <field x="64" y="3" type="Testo" align="right" width="12" pattern="1" text="Maturati" />
-  <field x="78" y="3" type="Testo" align="right" width="12" pattern="1" text="Avanzamento" />
-  <field x="91" y="3" type="Testo" align="right" width="12" pattern="1" text="Budget" />
-  <field x="105" y="3" type="Testo" align="right" width="12" pattern="1" text="Competenza" />
-  <field x="119" y="3" type="Testo" align="right" width="12" pattern="1" text="Accertato" />
-  <field x="133" y="3" type="Testo" align="right" width="12" pattern="1" text="Integrazione" />
-  <field x="153" y="3" type="Testo" align="right" width="12" pattern="1" text=" Contribuz. " />
-  <field border="1" x="1" y="4" type="Linea" width="169" height="0" pattern="1" />
+  <field border="2" x="1" y="1.5" type="Linea" width="164" height="0" pattern="1" />
+  <field x="63.5" y="2" type="Testo" align="center" width="8" pattern="1" text="COSTI" />
+  <field x="107" y="2" type="Testo" align="center" width="20" pattern="1" text="RICAVI" />
+  <field x="152" y="2.25" type="Testo" align="right" width="8" pattern="1" text="Margine" />
+  <field x="51" y="3" type="Testo" align="right" width="8" pattern="1" text="Budget" />
+  <field x="61" y="3" type="Testo" align="right" width="12" pattern="1" text="Maturati" />
+  <field x="75" y="3" type="Testo" align="right" width="12" pattern="1" text="Avanzamento" />
+  <field x="88" y="3" type="Testo" align="right" width="12" pattern="1" text="Budget" />
+  <field x="102" y="3" type="Testo" align="right" width="12" pattern="1" text="Competenza" />
+  <field x="116" y="3" type="Testo" align="right" width="12" pattern="1" text="Accertato" />
+  <field x="130" y="3" type="Testo" align="right" width="12" pattern="1" text="Integrazione" />
+  <field x="150" y="3" type="Testo" align="right" width="12" pattern="1" text=" Contribuz. " />
+  <field border="1" x="1" y="4" type="Linea" width="164" height="0" pattern="1" />
   <field x="1" y="3" type="Testo" width="15" id="121" pattern="1" text="Commessa" />
  </section>
  <section type="Head" level="1" height="4">
@@ -43,10 +43,10 @@ MESSAGE RESET,F1.105
 MESSAGE RESET,F1.106
 MESSAGE RESET,F1.107
 MESSAGE RESET,F1.108</prescript>
-  <field border="1" radius="100" x="1" type="Testo" valign="center" align="center" shade_offset="25" width="167" height="2.5" text="STIMA RICAVI DI COMPETENZA">
+  <field border="1" radius="100" x="2" type="Testo" valign="center" align="center" shade_offset="25" width="162" height="2.5" text="STIMA RICAVI DI COMPETENZA">
    <font face="Courier New" bold="1" size="16" />
   </field>
-  <field border="2" x="1" y="3.5" type="Linea" width="169" height="0" pattern="1" />
+  <field border="2" x="1" y="3.5" type="Linea" width="164" height="0" pattern="1" />
   <field x="0.96" y="3" type="Numero" hidden="1" align="right" width="4" id="2" pattern="1">
    <source>ANNO</source>
   </field>
@@ -74,7 +74,7 @@ MESSAGE RESET,F2.108</prescript>
   <field x="23" type="Numero" align="right" bg_color="#C0C0C0" width="6">
    <source>ANNO</source>
   </field>
-  <field border="1" x="1" y="1.25" type="Linea" width="169" height="0" pattern="1" />
+  <field border="1" x="1" y="1.25" type="Linea" width="164" height="0" pattern="1" />
   <field type="Numero" hidden="1" align="right" width="1" id="101" pattern="1">
    <source>LEVEL</source>
    <postscript description="H2.101 POSTSCRIPT">MESSAGE COPY,F2.101</postscript>
@@ -104,7 +104,7 @@ MESSAGE RESET,F3.108</prescript>
     <li Value="Commesse avviate nell'esercizio selezionato" Code="3" />
    </list>
   </field>
-  <field border="1" x="2" y="1.25" type="Linea" width="169" height="0" pattern="1" />
+  <field border="1" x="2" y="1.25" type="Linea" width="164" height="0" pattern="1" />
   <field type="Numero" hidden="1" align="right" width="1" id="101" pattern="1">
    <source>LEVEL</source>
    <postscript description="H3.101 POSTSCRIPT">MESSAGE COPY,F3.101</postscript>
@@ -112,24 +112,24 @@ MESSAGE RESET,F3.108</prescript>
  </section>
  <section type="Body" />
  <section type="Body" level="1">
-  <field x="1" type="Stringa" width="20" pattern="1">
+  <field x="1" type="Stringa" width="17" pattern="1">
    <source>CODCMS</source>
   </field>
-  <field x="21" type="Stringa" width="27" pattern="1">
+  <field x="18" type="Stringa" width="27" pattern="1">
    <font face="Arial Narrow" size="7" />
    <source>DESCRIZ</source>
   </field>
-  <field x="86" type="Testo" align="center" width="2" pattern="1" text="%" />
-  <field x="167" type="Testo" align="center" width="2" pattern="1" text="%" />
-  <field x="48" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@">
+  <field x="83" type="Testo" align="center" width="2" pattern="1" text="%" />
+  <field x="164" type="Testo" align="center" width="2" pattern="1" text="%" />
+  <field x="45" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@">
    <source>#COS_BDG</source>
    <postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F3.101</postscript>
   </field>
-  <field x="62" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@">
+  <field x="59" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@">
    <source>#COS_MAT</source>
    <postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F3.102</postscript>
   </field>
-  <field x="80" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
+  <field x="77" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
    <prescript description="B1.103 PRESCRIPT">#101 @               \ legge il budget
 0 = IF                 \ se 0 per evitare la divisione per 0 mette 100 nella %
   100
@@ -146,11 +146,11 @@ ELSE
 THEN
 #THIS !</prescript>
   </field>
-  <field x="89" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@">
+  <field x="86" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@">
    <source>#RIC_BDG</source>
    <postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F3.104</postscript>
   </field>
-  <field x="103" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@">
+  <field x="100" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@">
    <prescript description="B1.105 PRESCRIPT">#103 @
 #104 @
 *
@@ -159,18 +159,18 @@ THEN
 #THIS !</prescript>
    <postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F3.105</postscript>
   </field>
-  <field x="117" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@">
+  <field x="114" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@">
    <source>#RIC_MAT</source>
    <postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F3.106</postscript>
   </field>
-  <field x="131" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@">
+  <field x="128" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@">
    <prescript description="B1.107 PRESCRIPT">#105 @
 #106 @
 -
 #THIS !</prescript>
    <postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F3.107</postscript>
   </field>
-  <field x="147" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@">
+  <field x="144" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@">
    <prescript description="B1.108 PRESCRIPT">#105 @
 #102 @
 -
@@ -178,7 +178,7 @@ THEN
 </prescript>
    <postscript description="B1.108 POSTSCRIPT">MESSAGE ADD,F3.108</postscript>
   </field>
-  <field x="162" type="Numero" align="right" width="5" id="109" pattern="1">
+  <field x="159" type="Numero" align="right" width="5" id="109" pattern="1">
    <font italic="1" face="Arial Narrow" size="8" />
    <prescript description="B1.109 PRESCRIPT">#105 @
 0
@@ -198,7 +198,7 @@ THEN
   </field>
  </section>
  <section type="Foot">
-  <field border="1" x="1" y="0.25" type="Linea" width="169" height="0" pattern="1" />
+  <field border="1" x="1" y="0.25" type="Linea" width="164" height="0" pattern="1" />
   <field x="2" y="0.5" type="Testo" width="20" pattern="1" text="Stima ricavi di competenza">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
   </field>
@@ -209,13 +209,13 @@ THEN
  </section>
  <section type="Foot" level="1" height="3">
   <font italic="1" face="Arial Narrow" bold="1" size="8" />
-  <field border="2" x="1" y="0.75" type="Linea" width="169" height="0" pattern="1" />
+  <field border="2" x="1" y="0.75" type="Linea" width="164" height="0" pattern="1" />
   <field x="1" y="1.5" type="Testo" fg_color="#FFFFFF" bg_color="#000000" width="25" height="1.5" text="TOTALI GENERALI " />
-  <field x="86" y="1.5" type="Testo" align="center" width="2" pattern="1" text="%" />
-  <field x="167" y="1.5" type="Testo" align="center" width="2" pattern="1" text="%" />
-  <field x="48" y="1.5" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@" />
-  <field x="62" y="1.5" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@" />
-  <field x="80" y="1.5" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
+  <field x="83" y="1.5" type="Testo" align="center" width="2" pattern="1" text="%" />
+  <field x="164" y="1.5" type="Testo" align="center" width="2" pattern="1" text="%" />
+  <field x="45" y="1.5" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@" />
+  <field x="59" y="1.5" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@" />
+  <field x="77" y="1.5" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
    <prescript description="F1.103 PRESCRIPT">#101 @
 0 = IF
   100
@@ -232,12 +232,12 @@ ELSE
 THEN
 #THIS !</prescript>
   </field>
-  <field x="89" y="1.5" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@" />
-  <field x="103" y="1.5" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@" />
-  <field x="117" y="1.5" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@" />
-  <field x="131" y="1.5" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@" />
-  <field x="147.5" y="1.5" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@" />
-  <field x="162" y="1.5" type="Numero" align="right" width="5" id="109" pattern="1">
+  <field x="86" y="1.5" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@" />
+  <field x="100" y="1.5" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@" />
+  <field x="114" y="1.5" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@" />
+  <field x="128" y="1.5" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@" />
+  <field x="144.5" y="1.5" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@" />
+  <field x="159" y="1.5" type="Numero" align="right" width="5" id="109" pattern="1">
    <prescript description="F1.109 PRESCRIPT">#105 @
 0
 =
@@ -257,7 +257,7 @@ THEN
  </section>
  <section type="Foot" level="2" height="2.5">
   <font italic="1" face="Courier New" bold="1" size="8" />
-  <field border="1" x="1" y="0.5" type="Linea" width="169" height="0" pattern="1" />
+  <field border="1" x="1" y="0.5" type="Linea" width="164" height="0" pattern="1" />
   <field x="1" y="1" type="Array" bg_color="#C0C0C0" width="28">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <source>H2.101</source>
@@ -272,25 +272,25 @@ THEN
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <source>H2.102</source>
   </field>
-  <field x="86" y="1" type="Testo" align="center" width="2" pattern="1" text="%">
+  <field x="83" y="1" type="Testo" align="center" width="2" pattern="1" text="%">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
   </field>
-  <field x="167" y="1" type="Testo" align="center" width="2" pattern="1" text="%">
+  <field x="164" y="1" type="Testo" align="center" width="2" pattern="1" text="%">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
   </field>
   <field y="1" type="Numero" hidden="1" align="right" width="1" id="101" pattern="1" />
-  <field x="48" y="1" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@">
+  <field x="45" y="1" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript>
   </field>
   <field x="35" y="1" type="Numero" hidden="1" align="right" width="4" id="102" pattern="1">
    <postscript description="F2.102 POSTSCRIPT">MESSAGE COPY,F2.101</postscript>
   </field>
-  <field x="62" y="1" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@">
+  <field x="59" y="1" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript>
   </field>
-  <field x="80" y="1" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
+  <field x="77" y="1" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <prescript description="F2.103 PRESCRIPT">#101 @
 0 = IF
@@ -308,27 +308,27 @@ ELSE
 THEN
 #THIS !</prescript>
   </field>
-  <field x="89" y="1" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@">
+  <field x="86" y="1" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.104 POSTSCRIPT">MESSAGE ADD,F1.104</postscript>
   </field>
-  <field x="103" y="1" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@">
+  <field x="100" y="1" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.105 POSTSCRIPT">MESSAGE ADD,F1.105</postscript>
   </field>
-  <field x="117" y="1" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@">
+  <field x="114" y="1" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.106 POSTSCRIPT">MESSAGE ADD,F1.106</postscript>
   </field>
-  <field x="131" y="1" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@">
+  <field x="128" y="1" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.107 POSTSCRIPT">MESSAGE ADD,F1.107</postscript>
   </field>
-  <field x="147" y="1" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@">
+  <field x="144" y="1" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <postscript description="F2.108 POSTSCRIPT">MESSAGE ADD,F1.108</postscript>
   </field>
-  <field x="162" y="1" type="Numero" align="right" width="5" id="109" pattern="1">
+  <field x="159" y="1" type="Numero" align="right" width="5" id="109" pattern="1">
    <font italic="1" face="Arial Narrow" bold="1" size="8" />
    <prescript description="F2.109 PRESCRIPT">#105 @
 0
@@ -349,7 +349,7 @@ THEN
  </section>
  <section type="Foot" level="3" height="2">
   <font italic="1" face="Arial Narrow" bold="1" size="8" />
-  <field border="1" x="2" y="0.25" type="Linea" width="169" height="0" pattern="1" />
+  <field border="1" x="2" y="0.25" type="Linea" width="164" height="0" pattern="1" />
   <field x="2" y="0.5" type="Array" bg_color="#C0C0C0" width="40" pattern="1">
    <source>H3.101</source>
    <list>
@@ -359,16 +359,16 @@ THEN
     <li Value="TOTALI Commesse avviate nell'esercizio selezionato" Code="3" />
    </list>
   </field>
-  <field x="86" y="0.5" type="Testo" align="center" width="2" pattern="1" text="%" />
-  <field x="167" y="0.5" type="Testo" align="center" width="2" pattern="1" text="%" />
+  <field x="83" y="0.5" type="Testo" align="center" width="2" pattern="1" text="%" />
+  <field x="164" y="0.5" type="Testo" align="center" width="2" pattern="1" text="%" />
   <field y="0.5" type="Numero" hidden="1" align="right" width="1" id="101" pattern="1" />
-  <field x="48" y="0.5" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@">
+  <field x="45" y="0.5" type="Valuta" align="right" width="14" id="101" pattern="1" text="###.###.###,@@">
    <postscript description="F3.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
   </field>
-  <field x="62" y="0.5" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@">
+  <field x="59" y="0.5" type="Valuta" align="right" width="14" id="102" pattern="1" text="###.###.###,@@">
    <postscript description="F3.102 POSTSCRIPT">MESSAGE ADD,F2.102</postscript>
   </field>
-  <field x="80" y="0.5" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
+  <field x="77" y="0.5" type="Numero" align="right" width="6" id="103" pattern="1" text="##@,@@">
    <prescript description="F3.103 PRESCRIPT">#101 @
 0 = IF
   100
@@ -385,22 +385,22 @@ ELSE
 THEN
 #THIS !</prescript>
   </field>
-  <field x="89" y="0.5" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@">
+  <field x="86" y="0.5" type="Valuta" align="right" width="14" id="104" pattern="1" text="###.###.###,@@">
    <postscript description="F3.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
   </field>
-  <field x="103" y="0.5" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@">
+  <field x="100" y="0.5" type="Valuta" align="right" width="14" id="105" pattern="1" text="###.###.###,@@">
    <postscript description="F3.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
   </field>
-  <field x="117" y="0.5" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@">
+  <field x="114" y="0.5" type="Valuta" align="right" width="14" id="106" pattern="1" text="###.###.###,@@">
    <postscript description="F3.106 POSTSCRIPT">MESSAGE ADD,F2.106</postscript>
   </field>
-  <field x="131" y="0.5" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@">
+  <field x="128" y="0.5" type="Valuta" align="right" width="14" id="107" pattern="1" text="###.###.###,@@">
    <postscript description="F3.107 POSTSCRIPT">MESSAGE ADD,F2.107</postscript>
   </field>
-  <field x="147" y="0.5" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@">
+  <field x="144" y="0.5" type="Valuta" align="right" width="14" id="108" pattern="1" text="###.###.###,@@">
    <postscript description="F3.108 POSTSCRIPT">MESSAGE ADD,F2.108</postscript>
   </field>
-  <field x="162" y="0.5" type="Numero" align="right" width="5" id="109" pattern="1">
+  <field x="159" y="0.5" type="Numero" align="right" width="5" id="109" pattern="1">
    <prescript description="F3.109 PRESCRIPT">#105 @
 0
 =
diff --git a/ca/ca_3800_regole.txt b/ca/ca_3800_regole.txt
new file mode 100755
index 000000000..d875a2175
--- /dev/null
+++ b/ca/ca_3800_regole.txt
@@ -0,0 +1,46 @@
+Struttura base del programma
+----------------------------
+ca3800.cpp : gestione maschera, creazione report ed applicazione
+ca3801.cpp : gestione report a colonne variabili in base alla struttura del piano dei conti
+ca3883.cpp : programma vero e proprio, con tutta la parte di calcolo
+
+La sequenza di calcolo è la seguente:
+1) calcolo del contributo dei saldi analitici alla data fine esercizio; tale data corrisponde alla fine dell'esercizio selezionato se specificata sulla
+   maschera, oppure alla fine dell'esercizio precedente se specificata una data inferiore (bilancio alla data)
+2) calcolo del contributo (ai soli totali) dei saldi futuri; partono dell'esercizio selezionato se il campo 'alla data' è < datafine esercizio, oppure
+   dall'esercizio successivo se il campo 'alla data' coincide con datafine esercizio
+Solo per il bilancio alla data:
+3) calcolo del contributo dei movimenti analitici nel periodo di calcolo dell'esercizio selezionato
+4) calcolo del contributo dei documenti non contabilizzati nello stesso periodo
+5) calcolo del contributo degli ordini non evasi nello stesso periodo
+
+
+Calcolo della durata della vita di una riga
+-------------------------------------------
+
+1) se il movimento è di quelli con la data fine competenza = data fine commessa di ogni riga (MOVANA.AUTOFCOMP) pone la datafinecomp della riga
+   = data finale della commessa sulla riga tenendo conto anche di eventuali proroghe
+
+2) se invece il movimento ha datafinecomp autonoma, Viene letta la data di fine competenza in testata (MOVANA.DATAFCOMP) valida per ogni riga
+
+3) se anche questa data fosse vuota -> pone la datafinecomp = datacomp (MOVANA.DATAFCOMP = MOVANA.DATACOMP) -> movimento con durata 1 giorno
+
+4) se la datafinecomp < datainizio esercizio selezionato -> scarta la riga perchè è già espirata prima del periodo da calcolare
+
+5) calcola la vita totale della riga = datafinecomp - datacomp + 1 (in giorni)
+
+6) se vita_totale_riga > 1 giorno procede al riproporzionamento dell'importo
+
+7) Calcolo della frazione di vita utile della riga
+--------------------------------------------------
+La frazione di vita utile della riga che verrà usata per il riproporzionamento degli importi è:
+
+vita_frazione_riga = fine_intervallo - inizio_intervallo + 1 (in giorni)
+
+dove:
+fine_intervallo = MIN(datacalcolo sulla maschera, datafinecomp)
+inizio_intervallo = MAX(data inizio esercizio selezionato, datacompetenza)
+
+se (vita_frazione_riga > 1 AND < vita_totale_riga) si procede al riproporzionamento:
+
+importo_riproporzionato = importo_riga * vita_frazione / vita_totale
\ No newline at end of file