diff --git a/cg/cg0400a.uml b/cg/cg0400a.uml
index f786ebc8d..f7ac372a4 100755
--- a/cg/cg0400a.uml
+++ b/cg/cg0400a.uml
@@ -30,7 +30,8 @@ NUMBER F_ANNO 4
 BEGIN
   PROMPT 3 3 "Anno liquidazione "
   HELP "Anno di cui si effettua la liquidazione"
-  FLAGS "A"
+  FLAGS "A" 
+  VALIDATE FIXLEN_FUNC 4
   CHECKTYPE REQUIRED
 END
 
diff --git a/cg/cg0400b.uml b/cg/cg0400b.uml
index d369d0fbf..6eab6815a 100755
--- a/cg/cg0400b.uml
+++ b/cg/cg0400b.uml
@@ -36,6 +36,7 @@ NUMBER F_ANNO 4
 BEGIN
   PROMPT 3 6 "Anno riepilogo "
   FLAGS "A"
+  VALIDATE FIXLEN_FUNC 4
   CHECKTYPE REQUIRED
 END
 
diff --git a/cg/cg4400.cpp b/cg/cg4400.cpp
index c00bf4b40..276895f0d 100755
--- a/cg/cg4400.cpp
+++ b/cg/cg4400.cpp
@@ -5,6 +5,8 @@
 #include "cg4400a.h"
 #include "cg4400b.h"
 
+static TString256 TMP;
+
 inline CG4400_application& app() { return (CG4400_application&)main_app(); }
 
 bool CG4400_application::filter_func (const TRelation * r)
@@ -129,11 +131,7 @@ bool CG4400_application::mask_tipo_stampa(TMask_field& f, KEY k)
   {
     int tipo_stampa = m.get_int(TIPO_STAMPA);
     if (tipo_stampa == 3) //stampa su libro unico
-    {
       m.enable_page(1);
-      TMask_field& cc = f.mask().field(CODICE_LIB_UN);
-      cc.set_dirty();
-    }
     else
       m.disable_page(1);
   }
@@ -162,7 +160,7 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
         f.mask().hide (TIPO_RIEPILOGATIVO);
         f.mask().hide (RIF_VID);
       }
-      //TMask_field& cc = f.mask().field(CODICE_LIB_UN);
+      //TMask_field& cc = f.mask().field(CODICE_LIBRO_IVA);
       //cc.set_dirty();
     }   
     if (id == FINO_A_MESE) 
@@ -176,8 +174,8 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
   {
     const short id = f.dlg();
     if (id == MESE)
-      f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);  
-  }
+      f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
+  } 
   return TRUE;
 }
 
@@ -199,16 +197,12 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
       TDate sca_vid = _tabreg->get_date("D1");
       if (codlib != cod_lib_un)
       {
-        if (_selected.ones() == 1L)
-          if (_selected[i])
-            message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
+        if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
         return FALSE;
       }
       if (m < *umese)
       { 
-        if (_selected.ones() == 1L) 
-          if (_selected[i])
-            message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
+        if (_selected[i]) message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
         return FALSE;
       }   
       if (u_data.ok())
@@ -218,9 +212,7 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
       if (sca_vid.ok())
         if (sca_vid.month() < m)
         {
-          if (_selected.ones() == 1L) 
-            if (_selected[i])
-              message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
+          if (_selected[i]) message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
           return FALSE;
         } 
     }
@@ -259,16 +251,13 @@ bool CG4400_application::look_regs(int anno, TString& codlib, int m, int* umese,
         if (sca_vid.ok())
           if (sca_vid.month() < m)
             continue;
-        int month;  
-        if (!u_data.ok())
-          month = 0;
-        else month = u_data.month();
-        if (month < m - 1)
-        {
-          app().set_firm(__firm);
-          *st = FALSE;
-          return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
-        } 
+        if (u_data.ok())
+          if (u_data.month() < m - 1)
+          {
+            app().set_firm(__firm);
+            *st = FALSE;
+            return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
+          } 
         ok = TRUE;  
       }    
   }
@@ -285,13 +274,7 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
   {
     TString16 cod(f.mask().get(CODICE_LIBRO_IVA));
     TString16 codlib(f.mask().get(CODICE_LIB_UN));
-    //modifica del 26/04/1995
-    if (codlib.empty())
-    {
-      app()._test = TRUE;
-      return f.error_box("Inserire il codice del libro unico");
-    }
-    //fine modifica
+    
     int fino_a_mese = f.mask().get_int(MESE);
     int  anno = f.mask().get_int(ANNO);
     bool ok   = FALSE;
@@ -314,12 +297,11 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
           {
             //modifica del 21/04/1995 suggerita da Cinzia!!!
             if (app()._selected.ones() == 1L)  //solo se ho selezionato 1 ditta devo dare il messaggio
-              if (app()._selected[i])
-                f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);  
-            continue;
+              //if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);  
+              f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);  
+              else continue;
           }
-          //if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
-          if (mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
+          if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
           {
             app().set_firm(app().__firm);
             can_print = FALSE;
@@ -334,9 +316,9 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
           {
             if (!can_print) 
               return FALSE;
+            //if ( app()._selected[i])
             if (app()._selected.ones() == 1L)  //solo se ho selezionato 1 ditta devo dare il messaggio
-              if (app()._selected[i])
-                f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
+              f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
             continue;
           } 
         }
@@ -357,15 +339,23 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
 
 bool CG4400_application::mask_cod (TMask_field& f, KEY k)
 { 
+  TTable TabLbu ("%LBU");
+  TString codtab; 
+  int anno;
+  
+  if (k == K_ENTER)
+  {
+    TString16 codlib(f.get());    
+    if (codlib.empty())
+      return f.warning_box("Inserire il codice del libro unico");
+  }   
+
   //if (k == K_TAB || f.focusdirty())
   if (k == K_TAB)
   {
-    TTable TabLbu ("%LBU");
-    TString codtab; 
-    int anno;
-    
-    TString16 codlib(f.get());
+    TString16 codlib(f.mask().get(CODICE_LIB_UN));
     anno = f.mask().get_int(ANNO);
+    
     TabLbu.zero();
     codtab.format ("%04d%-3s", anno, (const char*)codlib);
     TabLbu.put ("CODTAB", codtab);
@@ -376,13 +366,6 @@ bool CG4400_application::mask_cod (TMask_field& f, KEY k)
       f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1"));
       app()._codice_vidi = TabLbu.get("S4");
     }
-    //modifica del 26/04/1995
-    if (app()._test) 
-    {
-      f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
-      app()._test = FALSE;
-    }
-    //fine modifica  
   }
   return TRUE;
 }
@@ -535,7 +518,7 @@ bool CG4400_application::to_ditt_handler(TMask_field& f, KEY key)
   {
     const long l = app().select_firm_range(m.get_long(DA_CODICE), m.get_long(A_CODICE)); 
     app().set_choice_limits(m);
-    m.set(F_SELECT, l);
+    m.field(F_SELECT).set(format("%ld", l));
   }
   return TRUE;
 }
@@ -551,7 +534,7 @@ bool CG4400_application::fr_ditt_handler(TMask_field& f, KEY key)
   {
     const long l = app().select_firm_range(m.get_long(DA_CODICE), m.get_long(A_CODICE)); 
     app().set_choice_limits(m);
-    m.set(F_SELECT, l);
+    m.field(F_SELECT).set(format("%ld", l));
   }
   return TRUE;
 }
@@ -602,8 +585,8 @@ void CG4400_application::set_choice_limits(TMask& m)
       if (last < dit)   last  = dit;
     }
   }
-  if (first != -1) m.set(DA_CODICE,first);                        
-  if (last  != -1) m.set(A_CODICE,last);                        
+  if (first != -1) m.field(DA_CODICE).set(format("%ld",first));                        
+  if (last  != -1) m.field(A_CODICE).set(format("%ld",last));                        
   m.set(F_SELECT, _selected.ones());
 }
 
@@ -660,16 +643,16 @@ void CG4400_application::build_nomiditte(TProgind* pnd)
     
     _nomiditte.add(d);  
   }
-  //if (pnd) pnd->addstatus(1);
+  if (pnd) pnd->addstatus(1);
   //TApplication::set_firm(__firm);
 }
 
 bool CG4400_application::user_create()
 {
-  //TProgind* pnd = NULL;
+  TProgind* pnd = NULL;
   
-  //pnd = new TProgind (2,"Preparazione archivi\nPrego attendere", 
-  //                    FALSE, TRUE, 30);
+  pnd = new TProgind (2,"Preparazione archivi\nPrego attendere", 
+                      FALSE, TRUE, 30);
   
   _com    = new TLocalisamfile(LF_COMUNI);
   _anag   = new TLocalisamfile(LF_ANAG);
@@ -701,7 +684,7 @@ bool CG4400_application::user_create()
   _ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
                             "@1|Cod.@5R|Ragione Sociale@50|Vers.");
   
-  //if (pnd) pnd->addstatus(1);
+  if (pnd) pnd->addstatus(1);
   
   _n_ditte = 0l;
   __firm = TApplication::get_firm();
@@ -709,14 +692,16 @@ bool CG4400_application::user_create()
   TDate oggi(TODAY);                    
   _annoes = oggi.year();
   
-  build_nomiditte();            
+  build_nomiditte(pnd);            
   build_ditte_sheet();
   
+  //if (pnd) pnd->addstatus(1);
+
   add_cursor(_cur);
   add_file(LF_MOV);
   add_file(LF_RMOVIVA);
   
-  //delete pnd;
+  delete pnd;
   
   return TRUE;
 }
@@ -1180,9 +1165,9 @@ int CG4400_application::stampa_prospetto()
     {
       TTipodoc& doc = (TTipodoc&)_doc_array[j];
       rr = r+j;
-      set_row(rr, "%2s",    (const char*) doc._tipodoc);
-      set_row(rr, "@3g%s",  (const char*) doc._descrdoc);
-      set_row(rr, "@54g%r", &doc._totdoc); 
+      set_row(rr, "%2s",      (const char*) doc._tipodoc);
+      set_row(rr, "@3g%s",    (const char*) doc._descrdoc);
+      set_row(rr, "@54g%r",   &doc._totdoc); 
     }
     _doc_array.destroy(); 
   } 
@@ -1876,6 +1861,40 @@ bool CG4400_application::preprocess_page(int file, int counter)
     
     _datareg = mov.get_date(MOV_DATAREG);
     
+    /*
+       if (_tipo_stampa != 3 && _liquidazione)  
+       {
+       int da;
+       if (_tipo_stampa == 1)
+       da = _data_da.month();
+       else da = 1;  
+       int a = _datareg.month();
+       for (int m = da; m < a; m++)
+       {
+       if (!_st_liq[m])
+       if (stampo_liquidazione(m))
+       {
+       _datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header (intestazione per la stampa liquidazione)
+       TFilename t;
+       t.temp("reg");    
+       if (_tipo_stampa == 1)
+       send_message('S', t, m);  
+       else send_message('s', t, m);  
+       TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
+       if (fexist(nomef))
+       {  
+       _intesta_liq = TRUE;
+       merge_export_file(t,FALSE,TRUE);
+       printer().formfeed();
+       _intesta_liq = FALSE;
+       reset_print();
+       } 
+       }
+       _st_liq[m] = TRUE; 
+       }                                  
+       }
+       */
+    
     if (_tipo_stampa != 3 && _liquidazione)
     {
       int da;
@@ -1913,7 +1932,10 @@ bool CG4400_application::preprocess_page(int file, int counter)
               printer().formfeed();
               _intesta_liq = FALSE; 
               reset_print();
+<<<<<<< cg4400.cpp
+=======
               remove(t);
+>>>>>>> 1.57
             }  
           }
         _st_liq[m] = TRUE;
@@ -1999,7 +2021,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
     
     _tipodoc   = mov.get(MOV_TIPODOC);
     _descr_doc = descr_doc();
-    TString app = datadoc.string(brief, '/');
+    TString app = datadoc.string(2, '/');
     
     if (stampa_totali_finali())
       _doc_array.add_riga(_tipodoc,_descr_doc,totdoc); 
@@ -2007,7 +2029,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
     //setto le righe di stampa
     _r = 1;
     if (!_stampa_data_reg) 
-      set_row(_r, "%s", (const char*) _datareg.string(brief, '/'));
+      set_row(_r, "%s", (const char*) _datareg.string(2, '/'));
     set_row(_r, "@9g%5ld", protiva);
     if (datadoc.ok())
       set_row(_r, "@15g%s", (const char*) app);
@@ -2415,28 +2437,21 @@ void CG4400_application::liq_b0_settato()
     printer().footerlen(0); 
     merge_export_file(f,FALSE,TRUE);
     _intesta_liq = FALSE;
+<<<<<<< cg4400.cpp
+=======
     remove(f);
+>>>>>>> 1.57
   } 
 }
 
 void CG4400_application::liq_other_case()
 {
-  if (_scelta == prosegui_cal_stampa)
+  if (_scelta == prosegui_cal_stampa) 
   {
-    if (stampo_liquidazione(_datareg.month()))
-    {
-      _t.temp("reg");    
-      if (_tipo_stampa == 1)
-        send_message('L', _t, _datareg.month());  
-      else send_message('l', _t, _datareg.month());
-    }
-    else //se chiamo la liquidazione con L o l mi calcola anche i progressivi
-      if (_tipo_stampa != 1)
-      {
-        TFilename app;
-        app.temp();
-        send_message('C', app, _datareg.month()); 
-      }  
+    _t.temp("reg");    
+    if (_tipo_stampa == 1)
+      send_message('L', _t, _datareg.month());  
+    else send_message('l', _t, _datareg.month());
   }
   if (_scelta == prosegui_stampa) 
   {
@@ -2447,14 +2462,11 @@ void CG4400_application::liq_other_case()
         send_message('S', _t, _datareg.month());  
       else send_message('s', _t, _datareg.month()); 
     }  
-    if (_tipo_stampa != 1) //in stampa di prova i progressivi me li calcolo io!!! 
-    {                      //Why???
-      TFilename app;
-      app.temp();
-      send_message('C', app, _datareg.month());
-    } 
+    TFilename app;
+    app.temp();
+    send_message('C', app, _datareg.month());
   }
-  if (_scelta == no_liquidazione && _tipo_stampa != 1)
+  if (_scelta == no_liquidazione)
   {
     TFilename app;
     app.temp();
@@ -2484,9 +2496,12 @@ print_action CG4400_application::postprocess_page (int file, int counter)
               printer().footerlen(0);
               merge_export_file(_t,FALSE,TRUE);
               _intesta_liq = FALSE;
+<<<<<<< cg4400.cpp
+=======
               remove(_t);
+>>>>>>> 1.57
             }
-            //_t = NULL;  Come ho potuto scrivere cio?!
+            _t = NULL;
           }   
         }   
     } 
@@ -2531,7 +2546,7 @@ print_action CG4400_application::postprocess_page (int file, int counter)
 
 bool CG4400_application::set_print(int n)
 {
-  TMask m("cg4400a");
+  TMask m ("cg4400a");
   int giorni_del_mese; 
   bool ok;
   
@@ -2737,8 +2752,12 @@ void CG4400_application::no_movimenti()
           printer().footerlen(0);
           merge_export_file(f,FALSE,TRUE);
           printer().formfeed();
+<<<<<<< cg4400.cpp
+          _intesta_liq = FALSE; 
+=======
           _intesta_liq = FALSE;
           remove(f); 
+>>>>>>> 1.57
         }  
       }
     }
@@ -2752,7 +2771,7 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
   bool ok = FALSE;
   for (int i = 0; i < _ditte->items(); i++)
   {
-    if (_selected[i])
+    if (_selected[(long)i])
     {
       bool msg = TRUE;
       _ditta       = _ditte->row(i).get_long(1);
@@ -2876,8 +2895,7 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
               _ok_vidi = FALSE;
               _stampa_mese = 13;
               _scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque 
-              //va richiamata per il calcolo progressivi (a seconda di b0) 
-              //se non e' stampa di prova
+              //va richiamata per il calcolo progressivi (a seconda di b0)
               ok = setta_mask(i);    
               if (!ok) continue;
               
@@ -2943,8 +2961,8 @@ void CG4400_application::stampa_liq_mesi_succ()
       TFilename t;
       t.temp("iva");    
       if (_tipo_stampa == 1)
-        send_message('L',t, m);    //prima era S ma non andava bene!
-      else send_message('l',t,m);  //prima era s
+        send_message('S',t, m);  
+      else send_message('s',t,m);
       //TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
       //if (fexist(nomef))
       if (fexist(t))
@@ -2953,8 +2971,12 @@ void CG4400_application::stampa_liq_mesi_succ()
         if (m > da) printer().formfeed(); 
         printer().footerlen(0);
         merge_export_file(t,FALSE,TRUE);  
+<<<<<<< cg4400.cpp
+        _intesta_liq = FALSE;  
+=======
         _intesta_liq = FALSE;
         remove(t);  
+>>>>>>> 1.57
       } 
     }
   }
diff --git a/cg/cg4400.h b/cg/cg4400.h
index 6ee87c826..733d83986 100755
--- a/cg/cg4400.h
+++ b/cg/cg4400.h
@@ -23,8 +23,7 @@
 #include <clifo.h>
 #include <occas.h>
 #include <causali.h>
-#include "cglib03.h" 
-#include "cglib04.h" 
+#include "cglib03.h"
 #include "conto.h"
 
 enum messaggio {
@@ -48,8 +47,7 @@ class CG4400_application : public TPrintapp
   TBit_array     _selected;
   TArray_sheet   *_ditte;  
   TArray         _nomiditte;
-  bool           _st_liq[13]; 
-  bool           _test;
+  bool           _st_liq[13];   
   TRecnotype     _nrec;
   bool           _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa;
   bool           _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; 
@@ -148,7 +146,7 @@ public:
   virtual print_action postprocess_page (int, int);
   virtual void  preprocess_header();  
   
-  CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {}
+  CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100) {}
   virtual ~CG4400_application() {}
 };
 
diff --git a/cg/cg4400a.uml b/cg/cg4400a.uml
index ef5100501..721954a71 100755
--- a/cg/cg4400a.uml
+++ b/cg/cg4400a.uml
@@ -25,6 +25,7 @@ BEGIN
   HELP "Anno di cui si vuole stampare il registro"
   FLAGS "A"
   WARNING "Inserire l'anno"
+  VALIDATE FIXLEN_FUNC 4
   CHECKTYPE REQUIRED
 END
 
diff --git a/cg/cg4500.cpp b/cg/cg4500.cpp
index ad517803f..db2b54db8 100755
--- a/cg/cg4500.cpp
+++ b/cg/cg4500.cpp
@@ -260,17 +260,22 @@ bool CG4500_application::setta()
 
   TConfig conf(CONFIG_DITTA);
   _annop    = conf.get("AnLiIv");
-  int aivap = atoi(conf.get("AnLiIv"));
-  TString anno ( format("%04d", aivap+1) ); 
+  //int aivap = atoi(conf.get("AnLiIv"));
+  //TString16 anno ( format("%04d", aivap+1) ); 
+  int aivap = atoi(_annop);
+  int anno = aivap+1;
   
-  TabLia.zero();
-  TabLia.put("CODTAB", format("%05ld%d", get_firm(), anno));
+  TabLia.zero();    
+  TString16 chiave; chiave.format("%05ld%04d", get_firm(), anno);
+  TabLia.put("CODTAB",chiave);
   if (TabLia.read() == NOERR)
     m.set(F_FREQUENZA, TabLia.get("S7"));
   else
   {  
-    TabLia.zero();
-    TabLia.put("CODTAB", format("%05ld%d", get_firm(), _annop));
+    TabLia.zero();         
+    chiave = "";
+    chiave.format("%05ld%04d", get_firm(), aivap);
+    TabLia.put("CODTAB", chiave);
     if (TabLia.read() == NOERR)
       m.set(F_FREQUENZA, TabLia.get("S7"));
     else
@@ -378,12 +383,13 @@ bool CG4500_application::apertura_es()
       TabReg.write(nuovo);
     }   
   }
-  if (!ok)
-  {
-    error_box("Non esiste il registro libro giornale relativo all'es. precedente");
-    return FALSE;
-  }
-
+  /*
+     if (!ok)
+     {
+     error_box("Non esiste il registro libro giornale relativo all'es. precedente");
+     return FALSE;
+     }
+     */
   //viene aggiornata la tabella degli esercizi  
   TabEs.zero();
   annonew = format ("%04d", _newanno);
@@ -402,18 +408,42 @@ bool CG4500_application::apertura_iva()
   TTable TabLia ("%LIA");
   TTable TabLbu ("%LBU");
   TLocalisamfile nditte (LF_NDITTE);
+  TString annoiva (4);
   TDate data;
-  TString annoiva (4); 
   bool ok = FALSE;
 
   if (!setta())
     return FALSE;
-
-  //viene aggiornata la tabella del libro unico. Se esisteva gia' un record relativo al nuovo esercizio IVA, viene cancellato.
-  //In ogni caso ne viene creato uno nuovo relativo al nuovo esercizio.
-
-  annoiva = format ("%04d", _annoiva);
-
+  
+  int annop = atoi(_annop);
+  annoiva = format("%04d", _annoiva);
+  
+  //viene aggiornata la tabella LIA (liquidazione iva annuale)
+  TabLia.zero();
+  TabLia.put ("CODTAB", format("%05ld%04d", get_firm(), _annoiva));
+  if (TabLia.read() == NOERR)
+    TabLia.remove();
+  
+  TabLia.zero();
+  TRectype newrec (TabLia.curr());   
+  TabLia.put ("CODTAB", format("%05ld%04d", get_firm(), annop));
+  
+  if (TabLia.read() == NOERR)
+  {
+    ok = TRUE;
+    newrec = TabLia.curr();
+    newrec.put("CODTAB", format("%05ld%04d", get_firm(), _annoiva));
+    newrec.put("S7", _frequenza);
+    
+    TabLia.write(newrec);
+  }   
+  if (!ok)
+  {
+    error_box("Non esiste il record relativo all'anno iva precedente sulla tabella liquidazione annuale iva");
+    return FALSE;
+  }  
+  
+  //viene aggiornata la tabella del libro unico. 
   TabLbu.zero();
   TabLbu.put ("CODTAB", annoiva);
   
@@ -425,9 +455,10 @@ bool CG4500_application::apertura_iva()
   {
     if (TabLbu.curr() != r) break;
     
-    TabLbu.remove();
+    TabLbu.remove();      
   } 
 
+  ok = FALSE;
   TabLbu.zero();
   TRectype nrec (TabLbu.curr());   
   TabLbu.put ("CODTAB", _annop);
@@ -440,9 +471,9 @@ bool CG4500_application::apertura_iva()
   { 
     if (TabLbu.curr() != rec) break;
     
+    TRecnotype nr = TabLbu.recno();    
     TString cod_lib = TabLbu.get("CODTAB");
     cod_lib = cod_lib.mid(4,3);
-    
     ok = TRUE;
     nrec = TabLbu.curr();
     TString16 cod;
@@ -450,17 +481,18 @@ bool CG4500_application::apertura_iva()
     nrec.put("CODTAB", cod);
     nrec.put("I0", 0L);
     
-    TabLbu.write(nrec);
+    TabLbu.write(nrec);  
+    TabLbu.readat(nr);
   }   
-  if (!ok)
-  {
-    error_box("Non esistono i registri del libro unico relativi all'anno iva precedente");
-    return FALSE;
-  }
+  /*
+     if (!ok)
+     {
+     error_box("Non esistono i registri del libro unico relativi all'anno iva precedente");
+     return FALSE;
+     }
+     */
   
-  //viene aggiornata la tabella dei registri. Se esisteva gia' un record relativo al nuovo esercizio, viene cancellato.
-  //In ogni caso ne viene creato uno nuovo relativo al nuovo esercizio.
-
+  //viene aggiornata la tabella dei registri. 
   TabReg.zero();
   TabReg.put ("CODTAB", annoiva);
   
@@ -490,6 +522,7 @@ bool CG4500_application::apertura_iva()
   { 
     if (TabReg.curr() != recc) break;
     
+    TRecnotype nr = TabReg.recno();
     int tiporeg     = TabReg.get_int("I0");
     TString cod_reg = TabReg.get("CODTAB");
     TDate  data_vid = TabReg.get_date("D0");
@@ -500,7 +533,7 @@ bool CG4500_application::apertura_iva()
       ok = TRUE;
       nuovo  = TabReg.curr();
       TString16 cod;
-      cod << _annoiva << cod_reg;  
+      cod << annoiva << cod_reg;  
       nuovo.put("CODTAB", cod);
       nuovo.put("I1", 0L);
       nuovo.put("I2", 0L);
@@ -515,43 +548,20 @@ bool CG4500_application::apertura_iva()
       nuovo.put("R2", real(0.0));
       
       TabReg.write(nuovo);
+      TabReg.readat(nr);
     }   
   }
-  if (!ok)
-  {
-    error_box("Non esistono i registri iva relativi all'anno iva precedente");
-    return FALSE;
-  }  
-
-  //viene aggiornata la tabella LIA (liquidazione iva annuale)
-  TabLia.zero();
-  TabLia.put ("CODTAB", format("%05ld%d", get_firm(), annoiva));
-  if (TabLia.read() == NOERR)
-    TabLia.remove();
+  /*
+     if (!ok)
+     {
+     error_box("Non esistono i registri iva relativi all'anno iva precedente");
+     return FALSE;
+     }  
+     */
   
-  ok = FALSE; 
-  TabLia.zero();
-  TRectype newrec (TabLia.curr());   
-  TabLia.put ("CODTAB", format("%05ld%d", get_firm(), _annop));
-  
-  if (TabLia.read() == NOERR)
-  {
-    ok = TRUE;
-    newrec = TabLia.curr();
-    newrec.put("CODTAB", format("%05ld%d", get_firm(), annoiva));
-    newrec.put("S7", _frequenza);
-    
-    TabLia.write(newrec);
-  }   
-  if (!ok)
-  {
-    error_box("Non esiste il record relativo all'anno iva precedente sulla tabella liquidazione annuale iva");
-    return FALSE;
-  }  
-
   //viene aggiornato l'anno iva sui parametri ditta 
   TConfig conf(CONFIG_DITTA);
-  conf.set("AnLiIv", _annoiva);
+  conf.set("AnLiIv", annoiva);
 
   //sull'anagrafica ditte viene aggiornata la frequenza versamento
   nditte.zero();
@@ -569,7 +579,7 @@ bool CG4500_application::apertura_iva()
 int cg4500 (int argc, char* argv[])
 {
   CG4500_application main_app;
-  main_app.run(argc, argv, "");
+  main_app.run(argc, argv, "Apertura nuovo esercizio");
   return TRUE;
 }
 
diff --git a/cg/cg4500b.uml b/cg/cg4500b.uml
index 3ef298b4b..97b4a8cb5 100755
--- a/cg/cg4500b.uml
+++ b/cg/cg4500b.uml
@@ -1,17 +1,15 @@
 #include "cg4500b.h"
 
-PAGE "Apertura nuovo esercizio IVA" -1 -1 73 10
+PAGE "Apertura esercizio IVA" -1 -1 73 10
 
 NUMBER F_CODDITTA 5
 BEGIN
-	PROMPT 2 1 "Ditta             "
+    PROMPT 2 1 "Ditta             "
         FLAGS "FRD"
         USE LF_NDITTE KEY 1  
         CHECKTYPE REQUIRED
         INPUT CODDITTA F_CODDITTA
-        DISPLAY "Codice" CODDITTA
-	    DISPLAY "Ragione sociale @50" RAGSOC
-	    OUTPUT F_CODDITTA CODDITTA 
+        OUTPUT F_CODDITTA CODDITTA 
         OUTPUT F_RAGSOC RAGSOC
 END
 
@@ -25,7 +23,8 @@ NUMBER F_ANNOIVA 4
 BEGIN
   PROMPT 2 4 "Nuovo anno esercizio IVA   "
   HELP "Anno di cui si vuole aprire un nuovo esercizio IVA"
-  CHECKTYPE REQUIRED
+  CHECKTYPE REQUIRED 
+  VALIDATE FIXLEN_FUNC 4
 //FLAGS "A"
 END
 
diff --git a/cg/cg4600.cpp b/cg/cg4600.cpp
index a14dda53a..39e3a1f67 100755
--- a/cg/cg4600.cpp
+++ b/cg/cg4600.cpp
@@ -22,7 +22,7 @@ bool mask_datac    (TMask_field&, KEY);
 bool mask_dataap   (TMask_field&, KEY);
 bool mask_distinti (TMask_field&, KEY);
 
-#define MAX 200
+#define MAX 99
 
 class CG4600_application : public TApplication
 {
@@ -138,7 +138,7 @@ bool mask_dataap (TMask_field& f, KEY k)
   TTable TabReg("REG"); 
   int anno = 0;
   TString annos (4);
-  bool ok = TRUE;
+  bool ok = TRUE;            
 
   if ( (k == K_ENTER) && f.to_check(k) )
   {
@@ -395,6 +395,7 @@ bool CG4600_application::set()
     _sld->set_movprovv(FALSE);
     _sld->set_movap(FALSE);
 
+    _pn->destroy_rows(_numreg);  //Azzero l'oggetto pn.
     costi ();
 
     _sld->reset();        //Azzera la tabella dei conti dell'oggetto TSaldo_agg
@@ -423,7 +424,9 @@ bool CG4600_application::set()
     passivita();
     _sld->reset();
     chiusura_conto_patrimoniale();
-
+    
+    message_box("Apertura/chiusura conti completata");
+    
     return TRUE;
   }                              //K_ENTER
   return FALSE;
@@ -561,7 +564,7 @@ void CG4600_application::costi()
         if (sezione == 'D')    // ---> Tengo una variabile in cui salvo gli
         {                      // importi trovati sui saldi. Quando ho
           sez_rmov   = 'A';    // finito di leggere i sottoconti, oppure
-          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 200
+          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 99
           _totale_saldo += _saldo;
         }                      // righe di movimento, genero un' altra    
 else                   // riga con importo di sezione opposta   
@@ -692,7 +695,7 @@ void CG4600_application::ricavi()
         if (sezione == 'D')    // ---> Tengo una variabile in cui salvo gli
         {                      // importi trovati sui saldi. Quando ho
           sez_rmov   = 'A';    // finito di leggere i sottoconti, oppure
-          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 200
+          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 99
           _totale_saldo += _saldo;
         }                      // righe di movimento, genero un' altra    
 else                   // riga con importo di sezione opposta   
@@ -1014,7 +1017,7 @@ void CG4600_application::attivita()
         if (sezione == 'D')    // ---> Tengo una variabile in cui salvo gli
         {                      // importi trovati sui saldi. Quando ho
           sez_rmov   = 'A';    // finito di leggere i sottoconti, oppure
-          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 200
+          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 99
           _totale_saldo += _saldo;
         }                      // righe di movimento, genero un' altra    
 else                   // riga con importo di sezione opposta   
@@ -1200,7 +1203,7 @@ void CG4600_application::passivita()
         if (sezione == 'D')    // ---> Tengo una variabile in cui salvo gli
         {                      // importi trovati sui saldi. Quando ho
           sez_rmov   = 'A';    // finito di leggere i sottoconti, oppure
-          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 200
+          tot_saldo += _saldo;  // quando ho raggiunto un massimo di 99
           _totale_saldo += _saldo;
         }                      // righe di movimento, genero un' altra    
 else                   // riga con importo di sezione opposta   
diff --git a/cg/cg5100a.uml b/cg/cg5100a.uml
index 115f6fcab..02aeb5ebe 100755
--- a/cg/cg5100a.uml
+++ b/cg/cg5100a.uml
@@ -25,6 +25,7 @@ BEGIN
   PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA   "
   HELP "Indicare l'anno dell'esercizio IVA corrente"
   FIELD AnLiIv
+  VALIDATE FIXLEN_FUNC 4
 END
 
 BOOLEAN CHK_ANCFCM
@@ -214,7 +215,7 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Codice" CODCAUS
   COPY OUTPUT FLD_COCACH 
-	CHECKTYPE NORMAL
+    CHECKTYPE NORMAL
   ADD RUN cg0 -4
 END
 
@@ -241,7 +242,7 @@ BEGIN
   INPUT  DESCR FLD_DCOCAAP       
   COPY DISPLAY FLD_DCOCACH
   COPY OUTPUT FLD_COCAAP 
-	CHECKTYPE NORMAL
+    CHECKTYPE NORMAL
   ADD RUN cg0 -4
 END
 
@@ -375,257 +376,257 @@ BEGIN
   COPY USE FLD_CSBICHG
   COPY DISPLAY FLD_CSBICHG
   OUTPUT FLD_CSBIAPG GRUPPO
-	OUTPUT FLD_CSBIAPC CONTO
-	OUTPUT FLD_CSBIAPS SOTTOCONTO
-	OUTPUT FLD_DCSBIAP DESCR
-	INPUT GRUPPO FLD_CSBIAPG 
-	INPUT CONTO FLD_CSBIAPC
-	INPUT SOTTOCONTO FLD_CSBIAPS
-	HELP ""
-	FIELD CsBiApG
-	ADD RUN cg0 -0
+    OUTPUT FLD_CSBIAPC CONTO
+    OUTPUT FLD_CSBIAPS SOTTOCONTO
+    OUTPUT FLD_DCSBIAP DESCR
+    INPUT GRUPPO FLD_CSBIAPG 
+    INPUT CONTO FLD_CSBIAPC
+    INPUT SOTTOCONTO FLD_CSBIAPS
+    HELP ""
+    FIELD CsBiApG
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSBIAPC 3
 BEGIN
-	PROMPT 33 12 ""
+    PROMPT 33 12 ""
   HELP "Codice del conto di riepilogo del bilancio di apertura"
-	COPY ALL FLD_CSBIAPG        
-	FIELD CsBiApC
-	ADD RUN cg0 -0
+    COPY ALL FLD_CSBIAPG        
+    FIELD CsBiApC
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSBIAPS 6
 BEGIN
-	PROMPT 40 12 ""
+    PROMPT 40 12 ""
   HELP "Codice del conto di riepilogo del bilancio di apertura"
-	COPY USE FLD_CSBIAPG        
-	COPY INPUT FLD_CSBIAPG        
-	COPY DISPLAY FLD_CSBIAPG        
-	OUTPUT FLD_CSBIAPG GRUPPO
-	OUTPUT FLD_CSBIAPC CONTO
-	OUTPUT FLD_CSBIAPS SOTTOCONTO
-	OUTPUT FLD_DCSBIAP DESCR
-	CHECKTYPE NORMAL
-	FIELD CsBiApS
-	ADD RUN cg0 -0
+    COPY USE FLD_CSBIAPG        
+    COPY INPUT FLD_CSBIAPG        
+    COPY DISPLAY FLD_CSBIAPG        
+    OUTPUT FLD_CSBIAPG GRUPPO
+    OUTPUT FLD_CSBIAPC CONTO
+    OUTPUT FLD_CSBIAPS SOTTOCONTO
+    OUTPUT FLD_DCSBIAP DESCR
+    CHECKTYPE NORMAL
+    FIELD CsBiApS
+    ADD RUN cg0 -0
 END
 
 STRING FLD_DCSBIAP 50 25
 BEGIN
-	PROMPT 50 12 ""
+    PROMPT 50 12 ""
   HELP "Codice del conto di riepilogo del bilancio di apertura"
-	COPY USE FLD_DCSBICH
-	INPUT DESCR FLD_DCSBIAP 
-	COPY DISPLAY FLD_DCSBICH
-	COPY OUTPUT FLD_CSBIAPG
-	ADD RUN cg0 -0
+    COPY USE FLD_DCSBICH
+    INPUT DESCR FLD_DCSBIAP 
+    COPY DISPLAY FLD_DCSBICH
+    COPY OUTPUT FLD_CSBIAPG
+    ADD RUN cg0 -0
 END
 
 
 NUMBER  FLD_CSUECPG 3
 BEGIN
-	PROMPT 2 13 "Utile esercizio patrim. "
+    PROMPT 2 13 "Utile esercizio patrim. "
   HELP "Codice del conto patrimoniale dell'utile d'esercizio"
-	COPY USE FLD_CSBICHG
-	COPY DISPLAY FLD_CSBICHG
-	OUTPUT FLD_CSUECPG GRUPPO
-	OUTPUT FLD_CSUECPC CONTO
-	OUTPUT FLD_CSUECPS SOTTOCONTO
-	OUTPUT FLD_DCSUECP DESCR
-	INPUT GRUPPO FLD_CSUECPG 
-	INPUT CONTO FLD_CSUECPC
-	INPUT SOTTOCONTO FLD_CSUECPS
-	FIELD CsUeCpG
-	ADD RUN cg0 -0
+    COPY USE FLD_CSBICHG
+    COPY DISPLAY FLD_CSBICHG
+    OUTPUT FLD_CSUECPG GRUPPO
+    OUTPUT FLD_CSUECPC CONTO
+    OUTPUT FLD_CSUECPS SOTTOCONTO
+    OUTPUT FLD_DCSUECP DESCR
+    INPUT GRUPPO FLD_CSUECPG 
+    INPUT CONTO FLD_CSUECPC
+    INPUT SOTTOCONTO FLD_CSUECPS
+    FIELD CsUeCpG
+    ADD RUN cg0 -0
 END
 NUMBER  FLD_CSUECPC 3
 BEGIN
-	PROMPT 33 13 ""
+    PROMPT 33 13 ""
   HELP "Codice del conto patrimoniale dell'utile d'esercizio"
-	COPY ALL FLD_CSUECPG  
-	FIELD CsUeCpC
-	ADD RUN cg0 -0
+    COPY ALL FLD_CSUECPG  
+    FIELD CsUeCpC
+    ADD RUN cg0 -0
 END
 NUMBER  FLD_CSUECPS 6
 BEGIN
-	PROMPT 40 13 ""
+    PROMPT 40 13 ""
   HELP "Codice del conto patrimoniale dell'utile d'esercizio"
-	COPY USE FLD_CSUECPG  
-	COPY INPUT FLD_CSUECPG  
-	COPY DISPLAY FLD_CSUECPG  
-	OUTPUT FLD_CSUECPG GRUPPO
-	OUTPUT FLD_CSUECPC CONTO
-	OUTPUT FLD_CSUECPS SOTTOCONTO
-	OUTPUT FLD_DCSUECP DESCR
-	CHECKTYPE NORMAL
-	FIELD CsUeCpS
-	ADD RUN cg0 -0
+    COPY USE FLD_CSUECPG  
+    COPY INPUT FLD_CSUECPG  
+    COPY DISPLAY FLD_CSUECPG  
+    OUTPUT FLD_CSUECPG GRUPPO
+    OUTPUT FLD_CSUECPC CONTO
+    OUTPUT FLD_CSUECPS SOTTOCONTO
+    OUTPUT FLD_DCSUECP DESCR
+    CHECKTYPE NORMAL
+    FIELD CsUeCpS
+    ADD RUN cg0 -0
 END
 
 STRING FLD_DCSUECP 50 25
 BEGIN
-	PROMPT 50 13 ""
+    PROMPT 50 13 ""
   HELP "Codice del conto patrimoniale dell'utile d'esercizio"
-	COPY USE FLD_DCSBICH
-	INPUT DESCR FLD_DCSUECP 
-	COPY DISPLAY FLD_DCSBICH
-	COPY OUTPUT FLD_CSUECPG
-	ADD RUN cg0 -0
+    COPY USE FLD_DCSBICH
+    INPUT DESCR FLD_DCSUECP 
+    COPY DISPLAY FLD_DCSBICH
+    COPY OUTPUT FLD_CSUECPG
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSPECPG 3
 BEGIN
-	PROMPT 2 14 "Perdita eserc. patrim.  "
+    PROMPT 2 14 "Perdita eserc. patrim.  "
   HELP "Codice del conto patrimoniale della perdita d'esercizio"
-	COPY USE FLD_CSBICHG
-	COPY DISPLAY FLD_CSBICHG
-	OUTPUT FLD_CSPECPG GRUPPO
-	OUTPUT FLD_CSPECPC CONTO
-	OUTPUT FLD_CSPECPS SOTTOCONTO
-	OUTPUT FLD_DCSPECP DESCR
-	INPUT GRUPPO FLD_CSPECPG 
-	INPUT CONTO FLD_CSPECPC
-	INPUT SOTTOCONTO FLD_CSPECPS
-	FIELD CsPeCpG
-	ADD RUN cg0 -0
+    COPY USE FLD_CSBICHG
+    COPY DISPLAY FLD_CSBICHG
+    OUTPUT FLD_CSPECPG GRUPPO
+    OUTPUT FLD_CSPECPC CONTO
+    OUTPUT FLD_CSPECPS SOTTOCONTO
+    OUTPUT FLD_DCSPECP DESCR
+    INPUT GRUPPO FLD_CSPECPG 
+    INPUT CONTO FLD_CSPECPC
+    INPUT SOTTOCONTO FLD_CSPECPS
+    FIELD CsPeCpG
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSPECPC 3
 BEGIN
-	PROMPT 33 14 ""
+    PROMPT 33 14 ""
   HELP "Codice del conto patrimoniale della perdita d'esercizio"
-	COPY ALL FLD_CSPECPG
-	FIELD CsPeCpC
-	ADD RUN cg0 -0
+    COPY ALL FLD_CSPECPG
+    FIELD CsPeCpC
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSPECPS 6
 BEGIN
-	PROMPT 40 14 ""
+    PROMPT 40 14 ""
   HELP "Codice del conto patrimoniale della perdita d'esercizio"
-	COPY USE FLD_CSPECPG
-	COPY INPUT FLD_CSPECPG
-	COPY DISPLAY FLD_CSPECPG
-	OUTPUT FLD_CSPECPG GRUPPO
-	OUTPUT FLD_CSPECPC CONTO
-	OUTPUT FLD_CSPECPS SOTTOCONTO
-	OUTPUT FLD_DCSPECP DESCR
-	CHECKTYPE NORMAL
-	FIELD CsPeCpS
-	ADD RUN cg0 -0
+    COPY USE FLD_CSPECPG
+    COPY INPUT FLD_CSPECPG
+    COPY DISPLAY FLD_CSPECPG
+    OUTPUT FLD_CSPECPG GRUPPO
+    OUTPUT FLD_CSPECPC CONTO
+    OUTPUT FLD_CSPECPS SOTTOCONTO
+    OUTPUT FLD_DCSPECP DESCR
+    CHECKTYPE NORMAL
+    FIELD CsPeCpS
+    ADD RUN cg0 -0
 END
 
 STRING FLD_DCSPECP 50 25
 BEGIN
-	PROMPT 50 14 ""
+    PROMPT 50 14 ""
   HELP "Codice del conto patrimoniale della perdita d'esercizio"
-	COPY USE FLD_DCSBICH
-	INPUT DESCR FLD_DCSPECP 
-	COPY DISPLAY FLD_DCSBICH
-	COPY OUTPUT FLD_CSPECPG
-	ADD RUN cg0 -0
+    COPY USE FLD_DCSBICH
+    INPUT DESCR FLD_DCSPECP 
+    COPY DISPLAY FLD_DCSBICH
+    COPY OUTPUT FLD_CSPECPG
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSUECEG 3
 BEGIN
-	PROMPT 2 15 "Utile esercizio econ.   "
+    PROMPT 2 15 "Utile esercizio econ.   "
   HELP "Codice del conto economico dell'utile d'esercizio"
-	COPY USE FLD_CSBICHG
-	COPY DISPLAY FLD_CSBICHG
-	OUTPUT FLD_CSUECEG GRUPPO
-	OUTPUT FLD_CSUECEC CONTO
-	OUTPUT FLD_CSUECES SOTTOCONTO
-	OUTPUT FLD_DCSUECE DESCR
-	INPUT GRUPPO FLD_CSUECEG 
-	INPUT CONTO FLD_CSUECEC
-	INPUT SOTTOCONTO FLD_CSUECES
-	FIELD CsUeCeG
-	ADD RUN cg0 -0
+    COPY USE FLD_CSBICHG
+    COPY DISPLAY FLD_CSBICHG
+    OUTPUT FLD_CSUECEG GRUPPO
+    OUTPUT FLD_CSUECEC CONTO
+    OUTPUT FLD_CSUECES SOTTOCONTO
+    OUTPUT FLD_DCSUECE DESCR
+    INPUT GRUPPO FLD_CSUECEG 
+    INPUT CONTO FLD_CSUECEC
+    INPUT SOTTOCONTO FLD_CSUECES
+    FIELD CsUeCeG
+    ADD RUN cg0 -0
 END
 NUMBER  FLD_CSUECEC 3
 BEGIN
-	PROMPT 33 15 ""
+    PROMPT 33 15 ""
   HELP "Codice del conto economico dell'utile d'esercizio"
-	COPY ALL FLD_CSUECEG
-	FIELD CsUeCeC
-	ADD RUN cg0 -0
+    COPY ALL FLD_CSUECEG
+    FIELD CsUeCeC
+    ADD RUN cg0 -0
 END
 NUMBER  FLD_CSUECES 6
 BEGIN
-	PROMPT 40 15 ""
+    PROMPT 40 15 ""
   HELP "Codice del conto economico dell'utile d'esercizio"
-	COPY USE FLD_CSUECEG
-	COPY INPUT FLD_CSUECEG
-	COPY DISPLAY FLD_CSUECEG
-	OUTPUT FLD_CSUECEG GRUPPO
-	OUTPUT FLD_CSUECEC CONTO
-	OUTPUT FLD_CSUECES SOTTOCONTO
-	OUTPUT FLD_DCSUECE DESCR
-	CHECKTYPE NORMAL
-	FIELD CsUeCeS
-	ADD RUN cg0 -0
+    COPY USE FLD_CSUECEG
+    COPY INPUT FLD_CSUECEG
+    COPY DISPLAY FLD_CSUECEG
+    OUTPUT FLD_CSUECEG GRUPPO
+    OUTPUT FLD_CSUECEC CONTO
+    OUTPUT FLD_CSUECES SOTTOCONTO
+    OUTPUT FLD_DCSUECE DESCR
+    CHECKTYPE NORMAL
+    FIELD CsUeCeS
+    ADD RUN cg0 -0
 END
 
 STRING FLD_DCSUECE 50 25
 BEGIN
-	PROMPT 50 15 ""
+    PROMPT 50 15 ""
   HELP "Codice del conto economico dell'utile d'esercizio"
-	COPY USE FLD_DCSBICH
-	INPUT DESCR FLD_DCSUECE 
-	COPY DISPLAY FLD_DCSBICH
-	COPY OUTPUT FLD_CSUECEG
-	ADD RUN cg0 -0
+    COPY USE FLD_DCSBICH
+    INPUT DESCR FLD_DCSUECE 
+    COPY DISPLAY FLD_DCSBICH
+    COPY OUTPUT FLD_CSUECEG
+    ADD RUN cg0 -0
 END
 
 NUMBER  FLD_CSPECEG 3
 BEGIN
-	PROMPT 2 16 "Perdita eserc. econ.    "
+    PROMPT 2 16 "Perdita eserc. econ.    "
   HELP "Codice del conto economico della perdita d'esercizio"
-	COPY USE FLD_CSBICHG
-	COPY DISPLAY FLD_CSBICHG
-	OUTPUT FLD_CSPECEG GRUPPO
-	OUTPUT FLD_CSPECEC CONTO
-	OUTPUT FLD_CSPECES SOTTOCONTO
-	OUTPUT FLD_DCSPECE DESCR
-	INPUT GRUPPO FLD_CSPECEG 
-	INPUT CONTO FLD_CSPECEC
-	INPUT SOTTOCONTO FLD_CSPECES
-	FIELD CsPeCeG
-	ADD RUN cg0 -0
+    COPY USE FLD_CSBICHG
+    COPY DISPLAY FLD_CSBICHG
+    OUTPUT FLD_CSPECEG GRUPPO
+    OUTPUT FLD_CSPECEC CONTO
+    OUTPUT FLD_CSPECES SOTTOCONTO
+    OUTPUT FLD_DCSPECE DESCR
+    INPUT GRUPPO FLD_CSPECEG 
+    INPUT CONTO FLD_CSPECEC
+    INPUT SOTTOCONTO FLD_CSPECES
+    FIELD CsPeCeG
+    ADD RUN cg0 -0
 END
 NUMBER  FLD_CSPECEC 3
 BEGIN
-	PROMPT 33 16 ""
+    PROMPT 33 16 ""
   HELP "Codice del conto economico della perdita d'esercizio"
-	COPY ALL FLD_CSPECEG
-	FIELD CsPeCeC
-	ADD RUN cg0 -0
+    COPY ALL FLD_CSPECEG
+    FIELD CsPeCeC
+    ADD RUN cg0 -0
 END
 NUMBER  FLD_CSPECES 6
 BEGIN
-	PROMPT 40 16 ""
+    PROMPT 40 16 ""
   HELP "Codice del conto economico della perdita d'esercizio"
-	COPY USE FLD_CSPECEG
-	COPY INPUT FLD_CSPECEG
-	COPY DISPLAY FLD_CSPECEG
-	OUTPUT FLD_CSPECEG GRUPPO
-	OUTPUT FLD_CSPECEC CONTO
-	OUTPUT FLD_CSPECES SOTTOCONTO
-	OUTPUT FLD_DCSPECE DESCR
-	CHECKTYPE NORMAL
-	FIELD CsPeCeS
-	ADD RUN cg0 -0
+    COPY USE FLD_CSPECEG
+    COPY INPUT FLD_CSPECEG
+    COPY DISPLAY FLD_CSPECEG
+    OUTPUT FLD_CSPECEG GRUPPO
+    OUTPUT FLD_CSPECEC CONTO
+    OUTPUT FLD_CSPECES SOTTOCONTO
+    OUTPUT FLD_DCSPECE DESCR
+    CHECKTYPE NORMAL
+    FIELD CsPeCeS
+    ADD RUN cg0 -0
 END
 STRING FLD_DCSPECE 50 25
 BEGIN
-	PROMPT 50 16 ""
+    PROMPT 50 16 ""
   HELP "Codice del conto economico della perdita d'esercizio"
-	USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
-	INPUT DESCR FLD_DCSPECE 
-	COPY DISPLAY FLD_DCSBICH
-	COPY OUTPUT FLD_CSPECEG
-	ADD RUN cg0 -0
+    USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
+    INPUT DESCR FLD_DCSPECE 
+    COPY DISPLAY FLD_DCSBICH
+    COPY OUTPUT FLD_CSPECEG
+    ADD RUN cg0 -0
 END
 
 
@@ -636,78 +637,78 @@ PAGE "Impostazione parametri ditta" -1 -1 77 8
 
 GROUPBOX DLG_NULL 78 10
 BEGIN
-	PROMPT 1 1 "Ratei/Risconti"
+    PROMPT 1 1 "Ratei/Risconti"
 END
 
 
 RADIOBUTTON LST_RRFRAM 16
 BEGIN
-	PROMPT 3 2 ""
+    PROMPT 3 2 ""
   HELP "Frequenza del calcolo dei ratei e risconti"
-	ITEM "A|Freq. Annuale"
-	ITEM "M|Freq. Mensile"
-	FIELD RrFrAm
+    ITEM "A|Freq. Annuale"
+    ITEM "M|Freq. Mensile"
+    FIELD RrFrAm
 END
 
 BOOLEAN CHK_RRMECO
 BEGIN
-	PROMPT 26 3 "Mese Commerciale"
+    PROMPT 26 3 "Mese Commerciale"
   HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
-	FIELD RrMeCo
+    FIELD RrMeCo
 END
 
 STRING FLD_RRCCRA 3
 BEGIN
-	PROMPT 3 6 "Causale ratei    "
+    PROMPT 3 6 "Causale ratei    "
   HELP "Codice causale dei ratei per movimento di contabilita'"
-	FLAGS "UZ"
-	USE LF_CAUSALI
-	INPUT  CODCAUS FLD_RRCCRA       
-	COPY DISPLAY FLD_COCACH
-	OUTPUT FLD_RRCCRA CODCAUS
+    FLAGS "UZ"
+    USE LF_CAUSALI
+    INPUT  CODCAUS FLD_RRCCRA       
+    COPY DISPLAY FLD_COCACH
+    OUTPUT FLD_RRCCRA CODCAUS
   OUTPUT FLD_DRRCCRA DESCR
-	CHECKTYPE NORMAL
-	ADD RUN cg0 -4
-	FIELD RrCcRa
+    CHECKTYPE NORMAL
+    ADD RUN cg0 -4
+    FIELD RrCcRa
 END
 
 STRING FLD_DRRCCRA 50 48
 BEGIN
-	PROMPT 26 6 ""
+    PROMPT 26 6 ""
   HELP "Descrizione causale dei ratei per movimento di contabilita'"
-	USE LF_CAUSALI KEY 2
-	INPUT  DESCR FLD_DRRCCRA       
-	COPY DISPLAY FLD_DCOCACH
-	COPY OUTPUT FLD_RRCCRA 
-	CHECKTYPE NORMAL
-	ADD RUN cg0 -4
+    USE LF_CAUSALI KEY 2
+    INPUT  DESCR FLD_DRRCCRA       
+    COPY DISPLAY FLD_DCOCACH
+    COPY OUTPUT FLD_RRCCRA 
+    CHECKTYPE NORMAL
+    ADD RUN cg0 -4
 END
 
 STRING FLD_RRCCRI 3
 BEGIN
-	PROMPT 3 8 "Causale risconti "
+    PROMPT 3 8 "Causale risconti "
   HELP "Codice causale dei risconti per movimento di contabilita'"
-	FLAGS "UZ"
-	COPY USE FLD_RRCCRA
-	INPUT  CODCAUS FLD_RRCCRI       
-	COPY DISPLAY FLD_COCACH
-	OUTPUT FLD_RRCCRI CODCAUS
+    FLAGS "UZ"
+    COPY USE FLD_RRCCRA
+    INPUT  CODCAUS FLD_RRCCRI       
+    COPY DISPLAY FLD_COCACH
+    OUTPUT FLD_RRCCRI CODCAUS
   OUTPUT FLD_DRRCCRI DESCR
-	CHECKTYPE NORMAL
-	ADD RUN cg0 -4
-	FIELD RrCcRi
+    CHECKTYPE NORMAL
+    ADD RUN cg0 -4
+    FIELD RrCcRi
 END 
 
 STRING FLD_DRRCCRI 50 48
 BEGIN
-	PROMPT 26 8 ""
+    PROMPT 26 8 ""
   HELP "Descrizione causale dei risconti per movimento di contabilita'"
-	USE LF_CAUSALI KEY 2
-	INPUT  DESCR FLD_DRRCCRI       
-	COPY DISPLAY FLD_DCOCACH
-	COPY OUTPUT FLD_RRCCRI 
-	CHECKTYPE NORMAL
-	ADD RUN cg0 -4
+    USE LF_CAUSALI KEY 2
+    INPUT  DESCR FLD_DRRCCRI       
+    COPY DISPLAY FLD_DCOCACH
+    COPY OUTPUT FLD_RRCCRI 
+    CHECKTYPE NORMAL
+    ADD RUN cg0 -4
 END
 
 ENDPAGE