diff --git a/cg/cg0400.cpp b/cg/cg0400.cpp
index f2151456a..3c7e66abe 100755
--- a/cg/cg0400.cpp
+++ b/cg/cg0400.cpp
@@ -5,6 +5,7 @@
 #include <printapp.h>
 #include <tabutil.h>
 #include <utility.h>
+#include <prefix.h>
 
 #include "cg0.h"
 #include "cg0400.h"
@@ -114,7 +115,7 @@ bool TIva_array::add_riga(const tiporec& tipo, const real& imponibile,
 
 class TProgressivi_iva : public TPrintapp
 {
-  TTable*         _tabpim, * _tabreg, * _tabais, * _tablia;
+  TTable*         _tablia;
   TLocalisamfile* _nditte, * _anag, * _com, * _attiv;
   TMask*          _msk;
   TDate           _data;
@@ -218,9 +219,6 @@ char TProgressivi_iva::look_lia(long ditta)
 
 bool TProgressivi_iva::user_create()
 {
-  _tabpim = new TTable(TAB_PIM);
-  _tabreg = new TTable(TAB_REG);
-  _tabais = new TTable("%AIS"); 
   _tablia = new TTable("%LIA");
   _anag   = new TLocalisamfile(LF_ANAG);
   _nditte = new TLocalisamfile(LF_NDITTE);
@@ -236,9 +234,6 @@ bool TProgressivi_iva::user_create()
 
 bool TProgressivi_iva::user_destroy()
 {
-  delete _tabpim;
-  delete _tabreg;
-  delete _tabais;
   delete _tablia;
   delete _anag;
   delete _nditte;
@@ -607,6 +602,7 @@ bool TProgressivi_iva::set_print(int m)
     {
       _sospmsk = _tipo_aliq = _tipo_attiv = 0;
       _codditta = msk.get_long(F_CODDITTA);
+      prefix().set_codditta(_codditta);
       _annoiva = msk.get_int(F_ANNO);
       _tipoprog = msk.get_int(F_TIPO);       // 1 <=> vendite; 2 <=> acquisti 
       _livelloprog = msk.get_int(F_LIVELLO); // 1 <=> aliquota; 2 <=> attivita'
@@ -631,7 +627,8 @@ bool TProgressivi_iva::set_print(int m)
       _datast = msk.get(F_DATASTAMPA);
       _mese   = msk.get_int(F_MESE);
       _st_inizio_anno = msk.get_bool(F_STAMPA);
-        
+      prefix().set_codditta(_codditta);
+
       TLocalisamfile attiv(LF_ATTIV); 
       attiv.zero();
       attiv.put(ATT_CODDITTA, _codditta);