diff --git a/ba/ba2.cpp b/ba/ba2.cpp
index 2fa4a5c55..0dbb315ca 100755
--- a/ba/ba2.cpp
+++ b/ba/ba2.cpp
@@ -8,14 +8,15 @@ int main(int argc, char** argv)
   
   switch (r)
   {
-  case 1: ba2200(argc, argv); break;  //backup
-  case 2: ba2300(argc, argv); break;  //autoformazione
-  case 3: ba2400(argc, argv); break;  //stampa versamenti
-  case 4: ba2500(argc, argv); break;  //stampa deleghe IVA
-  case 5: ba2600(argc, argv); break;  //editor maschere
-  case 6: ba2700(argc, argv); break;  //creazione dizionario
-  default: ba2100(argc, argv); break; //parametrizzazione stampa
+  case 1: ba2200(argc, argv); break; // backup
+  case 2: ba2300(argc, argv); break; // autoformazione
+  case 3: ba2400(argc, argv); break; // stampa versamenti
+  case 4: ba2500(argc, argv); break; // stampa deleghe IVA
+  case 5: ba2600(argc, argv); break; // editor maschere
+  case 6: ba2700(argc, argv); break; // creazione dizionario
+  case 7: ba2800(argc, argv); break; // dninst manager
+  default:ba2100(argc, argv); break; // parametrizzazione stampa
   }       
-  exit(0);
+
   return 0;
 }
diff --git a/ba/ba2.h b/ba/ba2.h
index 6228c1349..045c67a5f 100755
--- a/ba/ba2.h
+++ b/ba/ba2.h
@@ -8,6 +8,7 @@ int ba2400(int argc, char* argv[]);
 int ba2500(int argc, char* argv[]);
 int ba2600(int argc, char* argv[]);
 int ba2700(int argc, char* argv[]);
+int ba2800(int argc, char* argv[]);
 
 #endif // __BA2_H
 
diff --git a/ba/ba2800.cpp b/ba/ba2800.cpp
new file mode 100644
index 000000000..f1092484d
--- /dev/null
+++ b/ba/ba2800.cpp
@@ -0,0 +1,683 @@
+#include <applicat.h>
+#include <assoc.h>
+#include <automask.h>
+#include <colors.h>
+#include <config.h>
+#include <dongle.h>
+#include <odbcrset.h>
+#include <progind.h>
+#include <utility.h>
+#include <xml.h>
+
+#include "ba2800a.h"
+
+///////////////////////////////////////////////////////////
+// Utilities
+///////////////////////////////////////////////////////////
+
+const TString& smart_trim(const TString& str, int len)
+{
+  TString& tmp = get_tmp_string();
+  tmp = str;
+  tmp.trim();
+  if (tmp.len() > len)
+  {
+    TParagraph_string p(tmp, len);
+    tmp = p.get();
+  }
+  return tmp;
+}
+
+int smart_cmp(const char* s1, const char* s2)
+{
+  if (s1 == NULL || *s1 <= ' ') s1 = "";
+  if (s2 == NULL || *s2 <= ' ') s2 = "";
+  if (isdigit(*s1) && isdigit(*s2))
+    return atoi(s1) - atoi(s2);
+
+  return xvt_str_compare_ignoring_case(s1, s2);
+}
+
+///////////////////////////////////////////////////////////a
+// TOEM_cache
+///////////////////////////////////////////////////////////
+
+class TOEM_cache
+{
+public:
+  int Agente2OEM(int agente) const;
+  TOEM_cache();
+};
+
+// Trasforma un codice OEM del DB in quello di oem.ini
+int TOEM_cache::Agente2OEM(int agente) const
+{
+  int oem = -1;
+  switch (agente)
+  {
+  case 1: // Administrator
+  case 2: oem = 0; break;
+  case 3: oem = 1; break;
+  case 4: oem = 3; break;
+  case 5: oem = 6; break;
+  case 6: oem = 5; break;
+  case 7: oem = 7; break;
+  case 8: oem = 8; break;
+  default: break;
+  }
+  return oem;
+}
+
+// Carica la lista di tutti gli OEM dal file setup/oem.ini
+TOEM_cache::TOEM_cache()
+{ }
+
+///////////////////////////////////////////////////////////
+// Tdnist_full
+///////////////////////////////////////////////////////////
+
+class Tdnist_full
+{
+  TArray _chiavi;
+
+public:
+  void set(int key, const char* var, const TString& value);
+  const TString& get(int key, const char* var) const;
+  int last() const { return _chiavi.last(); }
+  bool exists(int key) const { return _chiavi.objptr(key) != NULL; }
+
+  bool load();
+  bool save() const;
+};
+
+const char* const DNINST_ZIP = "setup/dninst.zip";
+const char* const DNINST_TXT = "setup/dninst.txt";
+
+void Tdnist_full::set(int key, const char* var, const TString& value)
+{
+  CHECKD(key > 0, "Invalid key ", key);
+  TAssoc_array* info = (TAssoc_array*)_chiavi.objptr(key);
+  if (info == NULL)
+  {
+    info = new TAssoc_array;
+    _chiavi.add(info, key);
+  }
+  if (value.full())
+    info->add(var, value, true);
+  else
+    info->remove(var);
+}
+
+const TString& Tdnist_full::get(int key, const char* var) const
+{
+  TAssoc_array* info = (TAssoc_array*)_chiavi.objptr(key);
+  if (info == NULL)
+    return EMPTY_STRING;
+  const TString* val = (const TString*)info->objptr(var);
+  return val ? *val : EMPTY_STRING;
+}
+
+// Decodifica l'intero dninst.zip in memoria
+bool Tdnist_full::load()
+{
+  _chiavi.destroy();
+
+  TFilename txt = DNINST_TXT;
+  Tdninst dninst;
+  if (dninst.decode(txt)) 
+  {
+    TScanner s(txt);
+    const int anno = atoi(s.line());
+    int key = 0;
+    TString16 var;
+    TString256 val;
+    while (s.good())
+    {
+      TString& line = s.line();
+      if (line[0] == '[')
+      {
+        line.strip("[]");
+        key = atoi(line);
+      }
+      else
+      {
+        if (key > 0)
+        {
+          const int equal = line.find('=');
+          if (equal > 0)
+          {
+            var = line.left(equal); var.trim();
+            val = line.mid(equal+1); val.strip("\""); val.trim();
+            set(key, var, val);
+          }
+        }
+      }
+    }
+  }
+  else
+    cantread_box(DNINST_ZIP);
+  
+  return !_chiavi.empty();
+}
+
+bool Tdnist_full::save() const
+{
+  Tdninst dninst;
+  bool done = dninst.ok();
+
+  if (done)
+  {
+    ofstream out(DNINST_TXT);
+    out << dninst.assist_year() << endl;
+    FOR_EACH_ARRAY_ITEM(_chiavi, key, obj)
+    {
+      out << '[' << key << ']' << endl;
+      TAssoc_array& info = (TAssoc_array&)*obj;
+      FOR_EACH_ASSOC_OBJECT(info, o, k, i)
+        out << k << '=' << *i << endl;
+    }
+  }
+
+  if (done)
+    done = dninst.encode(DNINST_TXT);
+
+  return done;
+}
+
+///////////////////////////////////////////////////////////
+// Tdnist_mask
+///////////////////////////////////////////////////////////
+
+static int _c_key, _c_oem, _c_owner, _c_suspend, _c_killed;
+static int _c_dboem, _c_dbowner, _c_dbsuspend, _c_dbkilled;
+static int _c_xmloem, _c_xmlowner, _c_xmlaccess;
+
+class Tdnist_mask : public TAutomask
+{
+  TOEM_cache _oem;
+  Tdnist_full _dninst;
+
+private:
+  static int dongle_compare(const TSortable& o1, const TSortable& o2, void* jolly);
+
+  const TString& remote_dninst() const;
+  TToken_string& find_or_create_line(TString_array& a, int key) const;
+
+  void load_dninst(TString_array& a);
+  bool load_odbc(TString_array& a) const;
+  bool load_xml(TString_array& a) const;
+
+protected:
+  void fill_sheet();
+  void merge_sheet();
+  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+
+public:
+  Tdnist_mask();
+};
+
+int Tdnist_mask::dongle_compare(const TSortable& o1, const TSortable& o2, void* jolly)
+{
+  TToken_string& d1 = (TToken_string&)o1;
+  TToken_string& d2 = (TToken_string&)o2;
+  const int sort = *(int*)jolly;
+
+  if (sort == 1)
+  {
+    const char* o1 = d1.get(_c_oem); 
+    if (o1 == NULL || *o1 <= ' ')
+      o1 = d1.get(_c_dboem); 
+    const char* o2 = d2.get(_c_oem); 
+    if (o2 == NULL || *o2 <= ' ')
+      o2 = d2.get(_c_dboem); 
+    const int cmp = smart_cmp(o1, o2);
+    if (cmp != 0)
+      return cmp;
+  }
+  if (sort >= 1)
+  {
+    const char* o1 = d1.get(_c_owner); 
+    if (o1 == NULL || *o1 <= ' ')
+      o1 = d1.get(_c_dbowner); 
+    const char* o2 = d2.get(_c_owner); 
+    if (o2 == NULL || *o2 <= ' ')
+      o2 = d2.get(_c_dbowner); 
+    const int cmp = smart_cmp(o1, o2);
+    if (cmp != 0)
+      return cmp;
+  }
+
+  return atoi(d1) - atoi(d2);
+}
+
+const TString& Tdnist_mask::remote_dninst() const
+{
+  TString& path = get_tmp_string();
+  if (get_bool(F_DNINST_ON))
+  {
+    path = get(F_DNINST); path.lower();
+    if (!path.ends_with(DNINST_ZIP))
+      path << "/" << DNINST_ZIP;
+  }
+  return path;
+}
+
+void Tdnist_mask::load_dninst(TString_array& a)
+{
+  _dninst.load();
+
+  const int last_key = _dninst.last();
+  TToken_string str;
+  for (int key = 1; key <= last_key; key++) if (_dninst.exists(key))
+  {
+    str.cut(0) << key;
+    str.add(_dninst.get(key, "OEM"), _c_oem);
+    str.add(smart_trim(_dninst.get(key, "Owner"), 50), _c_owner);
+    str.add(_dninst.get(key, "MustCall"), _c_suspend);
+    str.add(_dninst.get(key, "*"), _c_killed);
+    a.add(str);
+  }
+}
+
+TToken_string& Tdnist_mask::find_or_create_line(TString_array& a, int key) const
+{
+  int mi = 0, ma = a.last();
+  int k = 0;
+  while (mi <= ma)
+  {
+    const int me = (mi+ma)/2;
+    k = a.row(me).get_int(0);
+    if (k == key) 
+      return a.row(me);
+    if (k < key)
+      mi = me+1;
+    else
+      ma = me-1;
+  }
+  while (mi < a.items() && key > a.row(mi).get_int(0))
+    mi++;
+  TToken_string* str = new TToken_string;
+  str->add(key);
+  a.insert(str, mi);
+  return *str;
+}
+
+bool Tdnist_mask::load_odbc(TString_array& a) const
+{
+  if (!get_bool(F_DSN_ON))
+    return false;
+
+  TString query;
+  query << "ODBC(" << get(F_DSN) << ")\n"
+        << "SELECT chiavette.codice AS Chiave, Agente, RagioneSociale, DataDisattivazione\n"
+        << "FROM chiavette,clienti WHERE chiavette.cliente=clienti.codice\n" 
+        << "ORDER BY Chiave";
+
+  TODBC_recordset att(query);
+  TProgind pi(att.items(), get(F_DSN));
+  for (bool ok = att.move_first(); ok; ok = att.move_next())
+  {
+    if (!pi.addstatus(1)) break;
+    const int key = att.get("Chiave").as_int();
+
+    if (key > 0)
+    {
+      TToken_string& r = find_or_create_line(a, key);
+      const int agente = att.get("Agente").as_int();
+      r.add(_oem.Agente2OEM(agente), _c_dboem);
+      r.add(smart_trim(att.get("RagioneSociale").as_string(), 50), _c_dbowner);
+
+      const TString& kill = att.get("DataDisattivazione").as_string();
+      if (kill.full() && kill.len() == 10)
+      {
+        const TString& stato = att.get("Stato").as_string();
+        switch (stato[0])
+        {
+        case 'D': r.add(kill, _c_dbkilled); break; // Disdetto
+        case 'S': r.add(kill, _c_dbsuspend); break; // Sospeso
+        default: break;
+        }
+      }
+    }
+  }
+
+  return !att.empty();
+}
+
+static bool XmlScanner(TXmlItem& item, long jolly)
+{
+  TToken_string& row = *(TToken_string*)jolly;
+  if (item.GetTag() == "firm")
+  {
+    if (item.GetBoolAttr("Current"))
+      row.add(item.GetAttr("RAGSOC"), _c_xmlowner);
+  } else
+  if (item.GetTag() == "dongle")
+  {
+    row.add(item.GetAttr("OEM"), _c_xmloem);
+  } else
+  if (item.GetTag() == "module")
+  {
+    const TDate date_new = item.GetAttr("Date");
+    const TDate date_old = row.get(_c_xmlaccess);
+    if (date_new > date_old)
+      row.add(date_new, _c_xmlaccess);
+  }
+  return false;
+}
+
+bool Tdnist_mask::load_xml(TString_array& a) const
+{
+  if (!get_bool(F_FTP_ON))
+    return false;
+
+  TFilename path = get(F_FTP);
+  if (!path.ends_with(".xml"))
+  {
+    if (!path.ends_with("/"))
+      path << '/';
+    path << "?????.xml";
+  }
+
+  TString_array xml;
+  list_files(path, xml);
+
+  TString msg; msg.format(FR("Scansione cartella %s: %d files"), (const char*)path, xml.items());
+  TProgind pi(xml.items(), msg);
+
+  TFilename fname;
+  FOR_EACH_ARRAY_ROW(xml, r, row)
+  {
+    if (!pi.addstatus(1)) break;
+    fname = *row;
+    const TString& n = fname.name_only();
+    const int sn = atoi(n);
+    if (sn > 0)
+    {
+      TToken_string& r = find_or_create_line(a, sn);
+      TXmlItem i; i.Load(fname);
+      i.ForEach(XmlScanner, (long)&r);
+    }
+  }
+
+  return !xml.empty();
+}
+
+void Tdnist_mask::fill_sheet()
+{
+  TSheet_field& s = sfield(F_DNSHEET);
+  s.destroy();
+
+  TString_array& a = s.rows_array();
+  load_dninst(a);
+  load_odbc(a);
+  load_xml(a);
+
+  const int sort = get_int(F_SORT);
+  a.TArray::sort(dongle_compare, (void*)&sort);
+
+  FOR_EACH_ARRAY_ROW(a, r, row)
+  {
+    const char* o1 = row->get(_c_owner);
+    const char* o2 = row->get(_c_dbowner);
+    const char* o3 = row->get(_c_xmlowner);
+
+    if (o2 && *o2 > ' ')
+    {
+      const double cmp = xvt_str_fuzzy_compare_ignoring_case(o1, o2);
+      if (cmp < 0.7)
+      {
+        if (cmp == 0)
+          s.set_back_and_fore_color(FOCUS_BACK_COLOR, FOCUS_COLOR, r, _c_dbowner);
+        else
+          s.set_back_and_fore_color(REQUIRED_BACK_COLOR, NORMAL_COLOR, r, _c_dbowner);
+      }
+    }
+    if (o3 && *o3 > ' ')
+    {
+      const char* o1 = row->get(2);
+      const double cmp = xvt_str_fuzzy_compare_ignoring_case(o1, o3);
+      if (cmp < 0.7)
+      {
+        if (cmp == 0)
+          s.set_back_and_fore_color(FOCUS_BACK_COLOR, FOCUS_COLOR, r, _c_xmlowner);
+        else
+          s.set_back_and_fore_color(REQUIRED_BACK_COLOR, NORMAL_COLOR, r, _c_xmlowner);
+      }
+    }
+  }
+
+  s.force_update();
+
+  enable(DLG_ELABORA, !s.empty());
+}
+
+void Tdnist_mask::merge_sheet()
+{
+  TSheet_field& sheet = sfield(F_DNSHEET);
+
+  TString16 killed;
+  TString o1, o2, o3;
+  TString c1, c2, c3;
+
+  int changed = 0;
+  FOR_EACH_SHEET_ROW(sheet, r, row)
+  {
+    const int key = row->get_int(_c_key);
+    c1 = row->get(_c_owner);
+    c2 = row->get(_c_dbowner);
+    c3 = row->get(_c_xmlowner);
+    if (c1.blank())
+    {
+      if (c2.full())
+      {
+        c1 = c2; 
+        o1 = row->get(_c_dboem);
+      } else
+      if (c3.full())
+      {
+        c1 = c3;
+        o1 = row->get(_c_xmloem);
+      }
+      if (c1.full())
+      {
+        row->add(o1, _c_oem);
+        row->add(c1, _c_owner);
+        changed++;
+      }
+    } 
+    else
+    {
+      o1 = row->get(_c_oem);
+      if (o1.blank())
+      {
+        o2 = row->get(_c_dboem);
+        if (o2.full())
+        {
+          row->add(o2, _c_oem);
+          changed++;
+        }
+      }
+    }
+
+    killed = row->get(_c_killed);
+    if (killed.blank())
+    {
+      killed = row->get(_c_dbkilled);
+      if (killed.full())
+        row->add(killed, _c_killed);
+    }
+  }
+
+  sheet.force_update();
+  TString msg; msg.format(FR("Sono state aggiornate %d chiavi"), changed);
+  xvt_dm_popup_message(msg);
+}
+
+bool Tdnist_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
+{ 
+  switch (o.dlg())
+  {
+  case DLG_RECALC:
+    if (e == fe_button && check_fields())
+    {
+      save_profile();
+
+      const TString& n = remote_dninst();
+      if (n.full())
+      {
+        TFilename tmp; tmp.tempdir(); tmp.add("dninst.zip");
+        if (fcopy(n, tmp, false, true) && fsize(tmp) > 0)
+        {
+          fcopy(tmp, DNINST_ZIP);
+          tmp.fremove();
+        }
+        else
+          cantread_box(n);
+      }
+      fill_sheet();
+    }
+    break;
+  case DLG_ELABORA:
+    if (e == fe_button && yesno_box(TR("Riporare sul DNINST tutte le chiavi presenti solo su DB?")))
+    {
+      merge_sheet();
+    }
+    break;
+  case DLG_SAVEREC:
+    if (e == fe_button)
+    {
+      TSheet_field& sheet = sfield(F_DNSHEET);
+      TString str;
+      FOR_EACH_SHEET_ROW(sheet, r, row)
+      {
+        const int key = row->get_int(0);
+        str = row->get(_c_oem);
+        _dninst.set(key, "OEM", str.trim());
+        str = row->get(_c_owner);
+        _dninst.set(key, "Owner", str.trim());
+        str = row->get(_c_suspend);
+        _dninst.set(key, "MustCall", str.trim());
+        str = row->get(_c_killed);
+        _dninst.set(key, "*", str.trim());
+      }
+      if (_dninst.save())
+      {
+        fill_sheet();
+        const TString& ftp = remote_dninst();
+        if (ftp != DNINST_ZIP && ftp.starts_with("ftp://") 
+                              && yesno_box(FR("Copiare il DNINST locale in %s?"), (const char*)ftp))
+        {
+          if (!xvt_fsys_fcopy(DNINST_ZIP, ftp))
+            cantwrite_box(ftp);
+        }
+      }
+    }
+    break;
+  case F_DSN:
+    if (e == fe_button && !o.empty())
+    {
+      TString query;
+      query << "ODBC(" << get(F_DSN) << ")\n"
+            << "SELECT * FROM chiavette,clienti WHERE chiavette.cliente=clienti.codice\n" 
+            << "ORDER BY ";
+      switch(get_int(F_SORT))
+      {
+      case  1: query << "agente,RagioneSociale"; break;
+      case  2: query << "RagioneSociale,chiavette.codice"; break;
+      default: query << "chiavette.codice"; break;
+      }
+
+      TODBC_recordset att(query);
+      if (att.move_first())
+      {
+        TRecordset_sheet sheet(att, TR("Chiavi"),0x10);
+        sheet.run();
+      }
+    }
+    break;
+  case F_SORT:
+    if (e == fe_modify)
+    {
+      TSheet_field& s = sfield(F_DNSHEET);
+      const int sort = get_int(F_SORT);
+      s.rows_array().TArray::sort(dongle_compare, (void*)&sort);
+      s.force_update();
+    }
+    break;
+  case F_DNSHEET:
+    if (e == se_query_add || e == se_query_del)
+      return false;
+    break;
+  case F_SUSPEND:
+  case F_KILLED:
+    if (e == fe_magic)
+    {
+      const TDate oggi(TODAY);
+      o.set(oggi.string());
+    }
+    break;
+  default: break;
+  }
+
+  return true;
+}
+
+Tdnist_mask::Tdnist_mask() : TAutomask("ba2800a") 
+{ 
+  const TSheet_field& s = sfield(F_DNSHEET);
+  TMask& m = s.sheet_mask();
+
+  _c_key      = s.cid2index(F_NUMBER);
+  _c_oem      = s.cid2index(F_OEM);
+  _c_owner    = s.cid2index(F_OWNER);
+  _c_suspend  = s.cid2index(F_SUSPEND);
+  _c_killed   = s.cid2index(F_KILLED);
+  _c_dboem    = s.cid2index(F_DBOEM);
+  _c_dbowner  = s.cid2index(F_DBOWNER);
+  _c_dbsuspend= s.cid2index(F_DBSUSPEND);
+  _c_dbkilled = s.cid2index(F_DBKILLED);
+  _c_xmloem   = s.cid2index(F_ATOEM);
+  _c_xmlowner = s.cid2index(F_ATOWNER);
+  _c_xmlaccess= s.cid2index(F_ATACCESS);
+}
+
+///////////////////////////////////////////////////////////
+// Tdninst_manager
+///////////////////////////////////////////////////////////
+
+class Tdninst_manager : public TSkeleton_application
+{
+protected:
+  virtual bool use_files() const { return false; }
+  virtual bool create();
+  virtual void main_loop();
+};
+
+bool Tdninst_manager::create()
+{
+  const word n = dongle().number();
+  if (n != 8453 && !is_power_station())
+    return error_box(TR("Postazione non abilitata"));
+
+  if (user() != dongle().administrator())
+    return error_box(TR("Utente non abilitato"));
+
+  TSheet_field::set_line_number_width(4); // Numero di chiavette ~ 1000
+
+  return TSkeleton_application::create();
+}
+
+void Tdninst_manager::main_loop()
+{
+  Tdnist_mask m;
+  m.run();
+}
+
+int ba2800(int argc, char* argv[])
+{                                             
+  Tdninst_manager a;
+  a.run(argc, argv, TR("Gestione attivazioni"));
+  return 0;
+}
+
diff --git a/ba/ba2800a.h b/ba/ba2800a.h
new file mode 100644
index 000000000..d87f33214
--- /dev/null
+++ b/ba/ba2800a.h
@@ -0,0 +1,22 @@
+#define F_DNINST    201
+#define F_DSN       202
+#define F_FTP       203
+#define F_DNINST_ON 211
+#define F_DSN_ON    212
+#define F_FTP_ON    213
+
+#define F_SORT      219
+#define F_DNSHEET   220
+
+#define F_NUMBER    101
+#define F_OEM       102
+#define F_OWNER     103
+#define F_SUSPEND   104
+#define F_KILLED    105
+#define F_DBOEM     106
+#define F_DBOWNER   107
+#define F_DBSUSPEND 108
+#define F_DBKILLED  109
+#define F_ATOEM     110
+#define F_ATOWNER   111
+#define F_ATACCESS  112
diff --git a/ba/ba2800a.uml b/ba/ba2800a.uml
new file mode 100644
index 000000000..f52059228
--- /dev/null
+++ b/ba/ba2800a.uml
@@ -0,0 +1,229 @@
+#include "ba2800a.h"
+
+TOOLBAR "toolbar" 0 0 0 2
+
+BUTTON DLG_RECALC 2 2 
+BEGIN
+  PROMPT 1 1 "Aggiorna"
+  PICTURE TOOL_CONVERT
+END
+
+BUTTON DLG_ELABORA 2 2 
+BEGIN
+  PROMPT 2 1 "Elabora"
+  PICTURE TOOL_ELABORA
+END
+
+BUTTON DLG_SAVEREC 2 2 
+BEGIN
+  PROMPT 2 1 "Salva"
+  PICTURE TOOL_SAVEREC
+END
+
+
+#include <helpbar.h>
+
+ENDPAGE
+
+PAGE "Gestione attivazioni" 0 2 0 0
+
+BOOLEAN F_DNINST_ON
+BEGIN
+  PROMPT 1 0 "DNINST (HTTP/FTP)"
+  MESSAGE FALSE DISABLE,F_DNINST
+  MESSAGE TRUE ENABLE,F_DNINST
+END
+
+STRING F_DNINST 256 50
+BEGIN
+  PROMPT 28 0 ""
+  CHECKTYPE REQUIRED
+END
+
+BOOLEAN F_DSN_ON
+BEGIN
+  PROMPT 1 1 "DSN (ODBC)"
+  MESSAGE FALSE DISABLE,F_DSN
+  MESSAGE TRUE ENABLE,F_DSN
+END
+
+STRING F_DSN 256 50
+BEGIN
+  PROMPT 28 1 ""
+  CHECKTYPE REQUIRED
+  FLAGS "B"
+END
+
+BOOLEAN F_FTP_ON
+BEGIN
+  PROMPT 1 2 "XML (FTP)"
+  MESSAGE FALSE DISABLE,F_FTP
+  MESSAGE TRUE ENABLE,F_FTP
+END
+
+STRING F_FTP 256 50
+BEGIN
+  PROMPT 28 2 ""
+  CHECKTYPE REQUIRED
+END
+
+LIST F_SORT 1 16
+BEGIN
+  PROMPT 1 3 "Ordinamento   "
+  ITEM "0|Chiave"
+  ITEM "1|Rivenditore"
+  ITEM "2|Cliente"
+END
+
+SPREADSHEET F_DNSHEET
+BEGIN
+  PROMPT 0 5 ""
+  ITEM "Key@5F"
+  ITEM "DNINST OEM@10F"
+  ITEM "DNINST Cliente@50F"
+  ITEM "Sospeso@10F"
+  ITEM "Disdetto@10F"
+  ITEM "DB OEM@10"
+  ITEM "DB Cliente@50"
+  ITEM "DB Sospeso@10"
+  ITEM "DB Disdetto@10"
+  ITEM "XML OEM@10"
+  ITEM "XML Cliente@50"
+  ITEM "Ultimo accesso"
+  DEFAULT "*"
+END
+
+STRING DLG_PROFILE 256
+BEGIN
+  PROMPT 1 -1 "Profilo "
+  PSELECT
+  FLAGS "H"
+END
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "Informazioni" -1 -1 60 10
+
+NUMBER F_NUMBER 5
+BEGIN
+  PROMPT 1 1 "Numero "
+  FLAGS "D"
+END
+
+LIST F_OEM 1 12
+BEGIN
+  PROMPT 1 2 "OEM    "
+  ITEM " |"
+  ITEM "0|Aga"
+  ITEM "1|Sirio"
+  ITEM "2|Silav"
+  ITEM "3|Geisoft"
+  ITEM "4|Tetractis"
+  ITEM "5|Procom"
+  ITEM "6|Socogem"
+  ITEM "7|Itertec"
+  ITEM "8|Metacalabria"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 28 1 "Sospeso"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 43 1 "@bDisdetto"
+END
+
+
+DATE F_SUSPEND
+BEGIN
+  PROMPT 28 2 ""
+END
+
+DATE F_KILLED
+BEGIN
+  PROMPT 43 2 ""
+END
+
+STRING F_OWNER 50
+BEGIN
+  PROMPT 1 3 "Owner  "
+END
+
+LIST F_DBOEM 1 12
+BEGIN
+  PROMPT 1 4 "OEM    "
+  ITEM " |"
+  ITEM "0|Aga"
+  ITEM "1|Sirio"
+  ITEM "2|Silav"
+  ITEM "3|Geisoft"
+  ITEM "4|Tetractis"
+  ITEM "5|Procom"
+  ITEM "6|Socogem"
+  ITEM "7|Itertec"
+  ITEM "8|Metacalabria"
+END
+
+STRING F_DBOWNER 50
+BEGIN
+  PROMPT 1 5 "Owner  "
+END
+
+DATE F_DBSUSPEND
+BEGIN
+  PROMPT 28 4 ""
+END
+
+DATE F_DBKILLED
+BEGIN
+  PROMPT 43 4 ""
+END
+
+LIST F_ATOEM 1 12
+BEGIN
+  PROMPT 1 6 "OEM    "
+  ITEM " |"
+  ITEM "0|Aga"
+  ITEM "1|Sirio"
+  ITEM "2|Silav"
+  ITEM "3|Geisoft"
+  ITEM "4|Tetractis"
+  ITEM "5|Procom"
+  ITEM "6|Socogem"
+  ITEM "7|Itertec"
+  ITEM "8|Metacalabria"
+END
+
+STRING F_ATOWNER 50
+BEGIN
+  PROMPT 1 7 "Owner  "
+END
+
+DATE F_ATACCESS
+BEGIN
+  PROMPT 28 6 "Ultimo aggiornamento "
+END
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_OK 2 2 
+BEGIN
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_CANCEL 2 2 
+BEGIN
+  PROMPT 2 1 ""
+END
+
+ENDPAGE
+
+ENDMASK
+
+
+
diff --git a/ba/ba8300.cpp b/ba/ba8300.cpp
index 522ba8fb7..085f7e002 100755
--- a/ba/ba8300.cpp
+++ b/ba/ba8300.cpp
@@ -599,7 +599,7 @@ bool TReport_mask::delete_report()
   const bool ok = path.exist() && yesno_box(FR("Si desidera eliminare il file '%s'"), (const char*)path);
   if (ok)
   {
-    ::remove(path);
+    path.fremove();
     global_reset();
   }
   return ok;
@@ -615,18 +615,10 @@ void TReport_mask::on_print(bool preview)
   }
   else
   {
-#ifdef DBG
-    TFilename tmp; tmp.tempdir(); 
-    tmp.add("ba8300.txt");
-    TReport_book book(tmp);
-#else
-    TReport_book book;
-#endif
-    book.add(_report);
     if (preview)
-      book.preview();
+      _report.preview();
     else
-      book.print();
+      _report.print();
   }
 }