diff --git a/ve/ve1100.cpp b/ve/ve1100.cpp
index f75ded83b..87cb84678 100755
--- a/ve/ve1100.cpp
+++ b/ve/ve1100.cpp
@@ -69,7 +69,7 @@ public:
 TDocVen_Form::TDocVen_Form(const char* name, TRelation &rel): TForm(name), _firmrel(rel) {}
 
 bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
-  const TString16 code(s.get(0)); // prende il primo parametro, il codice del messaggio
+  const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
 
   if (code== "_ISAMREAD") {
     // lettura generica di un file del database
@@ -261,8 +261,8 @@ enum behaviour {
 
 
 class TStampa_Doc_Vendita: public TApplication {
-  TString16 _codnum; // codice di numerazione
-  TString16 _provv; // stampa provvisioria
+  TString _codnum; // codice di numerazione
+  TString _provv; // stampa provvisioria
   int _anno; // anno della documentazione
   long _dalnum, _alnum; // estremi di numerazione dei documenti
   bool _interattivo; // flag che indica se il prog. funziona in interattivo o in batch
@@ -318,7 +318,8 @@ int TStampa_Doc_Vendita::select() {
   if (m.run() == K_ENTER) {
     _codnum= m.get(F_CODNUM); // lettura dei dati dalla maschera
     _anno= m.get_int(F_ANNO);
-    _provv= (m.get_bool(F_PROVV))?("P"):("D");
+    //_provv= (m.get_bool(F_PROVV))?("P"):("D");
+    _provv = m.get(F_PROVV);
     _dalnum= m.get_long(F_DA_NDOC);
     _alnum= m.get_long(F_A_NDOC);
     return 1;
@@ -332,80 +333,91 @@ bool TStampa_Doc_Vendita::menu(MENU_TAG) { // procedura di dispatch dei menu
 }
 
 void TStampa_Doc_Vendita::print() {
-  _definitiva= query_final_print(); // legge il flag di stampa definitiva
-  printer().open(); // apre la stampante
-  TString nomeform, profilo; // istanzia le stringhe per il nome del form di stampa e del profilo di configurazione
-  TString modulo, modulo_prec; // istanzia le stringhe per l'inseguimento del modulo di carta
-  TToken_string stati; // token string con gli stati validi dei documenti
-  TTable tip("TIP"); // istanzia la tabella dei tipi di documento per i profili
-  TRelation rel(LF_DOC); // istanzia la relazione sul file principale
-  TLocalisamfile &doc= rel.lfile(); // prende il riferimento al file principale
-  TCursor cur(&rel); // crea il cursore principale dalla relazione
-  doc.put("CODNUM", _codnum); // compone la chiave per il record di inizio cursore
+    _definitiva= query_final_print();     // legge il flag di stampa definitiva
+  printer().open();                                     // apre la stampante
+  TFilename nomeform, profilo;          // istanzia le stringhe per il nome del form di stampa e del profilo di configurazione
+  TString modulo, modulo_prec;          // istanzia le stringhe per l'inseguimento del modulo di carta
+  //TToken_string stati("",',');                // token string con gli stati validi dei documenti
+  TTable tip("%TIP");                           // istanzia la tabella dei tipi di documento per i profili
+  TRelation rel(LF_DOC);                        // istanzia la relazione sul file principale
+  TLocalisamfile &doc= rel.lfile();     // prende il riferimento al file principale
+  TCursor cur(&rel);                            // crea il cursore principale dalla relazione
+  doc.put("CODNUM", _codnum);           // compone la chiave per il record di inizio cursore
   doc.put("ANNO", _anno);
   doc.put("PROVV", _provv);
   doc.put("NDOC", _dalnum);
-  doc.read(); // posiziona il file sul record
-  TRectype darec= doc.curr(); // copia il record di inizio cursore
-  doc.put("NDOC", _alnum); // compone la chiave per il record di fine cursore
-  doc.read(); // posiziona il file sul record
-  TRectype arec= doc.curr(); // copia il record di fine cursore
-  cur.setregion(darec, arec); // imposta il filtro sul cursore di stampa
-  for (int i= 0; i<cur.items(); i++) { // ciclo sugli elementi del cursore di stampa
-    cur= i; // posiziona il cursore
+  doc.read();                                           // posiziona il file sul record
+  TRectype darec= doc.curr();           // copia il record di inizio cursore
+  doc.put("NDOC", _alnum);                      // compone la chiave per il record di fine cursore
+  doc.read();                                           // posiziona il file sul record
+  TRectype arec= doc.curr();            // copia il record di fine cursore
+  cur.setregion(darec, arec);           // imposta il filtro sul cursore di stampa
+  for (int i= 0; i<cur.items(); i++)// ciclo sugli elementi del cursore di stampa
+  {
+    cur= i;                     // posiziona il cursore
     tip.put("CODTAB", doc.get("TIPODOC")); // posiziona la tabella dei tipi di documento
-    if (tip.read()==NOERR) { // legge la tabella
-      nomeform= tip.get("S5"); // legge il nome del form di stampa
-      profilo= tip.get("S4"); // legge il nome del profilo di configurazione
+    int err=tip.read();
+    if (err==NOERR)                     // legge la tabella
+    {
+      nomeform= tip.get("S5");          // legge il nome del form di stampa
+      profilo= tip.get("S4");           // legge il nome del profilo di configurazione
+      profilo.ext("ini");
       TConfig config(profilo, "STAMPA"); // apre il file di configurazione del profilo
-      stati= config.get("STATIVALIDI"); // legge gli stati validi di questo tipo di documento
-      if (_definitiva && (stati.get_pos(doc.get("STATO"))== -1)) { // se lo stato del doc. corrente non è valido...
+      TToken_string stati ((const char*)config.get("STATIVALIDI"), ','); // legge gli stati validi di questo tipo di documento
+      if (_definitiva && (stati.get_pos(doc.get("STATO"))== -1))        // se lo stato del doc. corrente non è valido...
+      {
         if (_interattivo) error_box("Non è possibile stampare un documento con stato non valido"); // ...viene mostrato un messaggio (solo in modo interattivo)...
         break; // ...e la stampa viene interrotta
+              }
+              behaviour whattodo= go; // istanzia la variabile di comportamento
+            TDocVen_Form f(nomeform, *_firmrel); // istanzia il form
+            // !! modulo= f.get_module_code(); // legge dal form il codice del modulo di carta per la stampa
+            if (modulo_prec.empty()) modulo_prec= modulo; // se siamo al primo passaggio la variabile di modulo precedente viene riempita
+            if (modulo != modulo_prec) whattodo= on_module_change(modulo); // se il modulo è cambiato dalla stampa precedente interroga la funzione per sapere che comportamento tenere
+            if (whattodo==cancel)             // se non si può procedere la stampa viene interrotta
+              break;
+            else if (whattodo==go)            // altrimenti prosegue
+            {
+              TCursor &fcur= *(f.cursor()); // ricava il riferimento al cursore originale del form
+              darec= arec= doc.curr(); // prepara i record per il filtro
+              fcur.setregion(darec, arec); // setta il filtro sul form (solo il record corrente)
+              f.print(0,0); // stampa il record corrente del form
+              if (_definitiva && (numerazione_definitiva(doc) != NOERR))      // se la stampa è definitiva viene lanciata la procedura di rinumerazione
+              {
+                if (_interattivo) error_box("Non è possibile completare la procedura di numerazione definitiva dei documenti");
+                break;
+              }
+                }
+              }
+            else
+            {
+              // error_box("Il documento corrente non può essere trovato nella tabella dei tipi di documento");
+              error_box ("Errore %d leggendo da %TIP.", err);
+              break;
+            }
+          }
+        printer().close(); // chiude la stampante
       }
-      behaviour whattodo= go; // istanzia la variabile di comportamento
-      TDocVen_Form f(nomeform, *_firmrel); // istanzia il form
-      // !! modulo= f.get_module_code(); // legge dal form il codice del modulo di carta per la stampa
-      if (modulo_prec.empty()) modulo_prec= modulo; // se siamo al primo passaggio la variabile di modulo precedente viene riempita
-      if (modulo != modulo_prec) whattodo= on_module_change(modulo); // se il modulo è cambiato dalla stampa precedente interroga la funzione per sapere che comportamento tenere
-      if (whattodo==cancel) break; // se non si può procedere la stampa viene interrotta
-      else if (whattodo==go) { // altrimenti prosegue
-        TCursor &fcur= *(f.cursor()); // ricava il riferimento al cursore originale del form
-        darec= arec= doc.curr(); // prepara i record per il filtro
-        fcur.setregion(darec, arec); // setta il filtro sul form (solo il record corrente)
-        f.print(-1); // stampa il record corrente del form
-        if (_definitiva && (numerazione_definitiva(doc) != NOERR)) { // se la stampa è definitiva viene lanciata la procedura di rinumerazione
-          if (_interattivo) error_box("Non è possibile completare la procedura di numerazione definitiva dei documenti");
-          break;
-        }
+
+      behaviour TStampa_Doc_Vendita::on_module_change(const TString &modulo) {
+        // !! qui va messa la reazione al cambio di modulo
+        // !! - se non si è in interattivo bisogna, immagino, ritornare sempre "skip"
+        // !! - se si è in interattivo bisogna chiedere all'utente il da farsi, eventualmente
+        // !!   fornendo il nome esteso del modulo da inserire facendo una seek sulla tabella
+        return skip;
       }
-    } else {
-      error_box("Il documento corrente non può essere trovato nella tabella dei tipi di documento");
-      break;
-    }
-  }
-  printer().close(); // chiude la stampante
-}
 
-behaviour TStampa_Doc_Vendita::on_module_change(const TString &modulo) {
-  // !! qui va messa la reazione al cambio di modulo
-  // !! - se non si è in interattivo bisogna, immagino, ritornare sempre "skip"
-  // !! - se si è in interattivo bisogna chiedere all'utente il da farsi, eventualmente
-  // !!   fornendo il nome esteso del modulo da inserire facendo una seek sulla tabella
-  return skip;
-}
-
-bool TStampa_Doc_Vendita::query_final_print() {
-  if (_interattivo) { // se siamo in interattivo viene richiesto all'utente se la stampa è definitiva o meno
-    if (yesno_box("E' una stampa definitiva?")) return TRUE;
-    else return FALSE;
-  } else return (strcmp(argv(7), "D")==0); // altrimenti lo legge dalla linea di comando
-}
+      bool TStampa_Doc_Vendita::query_final_print() {
+        if (_interattivo) { // se siamo in interattivo viene richiesto all'utente se la stampa è definitiva o meno
+          if (yesno_box("E' una stampa definitiva?")) return TRUE;
+          else return FALSE;
+        } else return (strcmp(argv(7), "D")==0); // altrimenti lo legge dalla linea di comando
+      }
 
 
 
-int ve1100(int argc, char* argv[]) {
-  TStampa_Doc_Vendita a;
-  a.run(argc, argv, "Stampa documenti di vendita");
-  return (0);
-}
+      int ve1100(int argc, char* argv[]) {
+        TStampa_Doc_Vendita a;
+        a.run(argc, argv, "Stampa documenti di vendita");
+        return (0);
+      }