diff --git a/src/m770/776200.cpp b/src/m770/776200.cpp
index 9874dff25..c4f3433ca 100755
--- a/src/m770/776200.cpp
+++ b/src/m770/776200.cpp
@@ -51,7 +51,7 @@ bool TImmissioneDichiarazione::do_it()
   while ((tasto = _msk->run()) != K_QUIT)
   { 
     long codditta = _msk->get_long(F_CODDITTA);
-    if (exist_dichiar_770(codditta)) {
+    if (!_msk->get_bool(F_FORCE) && exist_dichiar_770(codditta)) {
       warning_box("La dichiarazione della ditta %ld esiste gia'", codditta);
       continue;
     }
diff --git a/src/m770/776200a.h b/src/m770/776200a.h
index b32a74458..26bed060d 100755
--- a/src/m770/776200a.h
+++ b/src/m770/776200a.h
@@ -4,5 +4,5 @@
 #define F_CODDITTA      101
 #define F_RAGDITTA      102  
 #define F_ANNODIC       103
-
+#define F_FORCE         104
 #endif
diff --git a/src/m770/776200a.uml b/src/m770/776200a.uml
index d75977147..24efc3592 100755
--- a/src/m770/776200a.uml
+++ b/src/m770/776200a.uml
@@ -44,6 +44,11 @@ BEGIN
   FLAGS "D"
 END
 
+BOOLEAN F_FORCE
+BEGIN
+  PROMPT 1 6 "Forza riapertura"
+END
+
 ENDPAGE
 
 ENDMASK
diff --git a/src/m770/777200.cpp b/src/m770/777200.cpp
index 4e41d1924..23561a8e3 100755
--- a/src/m770/777200.cpp
+++ b/src/m770/777200.cpp
@@ -1087,7 +1087,6 @@ void TCU_mask::fill_row(TMask & m, const char * tipoa, long percip)
 
 bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
-	int i;
   switch (o.dlg())
   {
   case F_ANNO:
@@ -1308,7 +1307,7 @@ void TCU_app::main_loop()
     {
       tmp.add(CU_DEFAULT_NAME);
       if (yesno_box(FR("E' stato generato il file %s\nSi desidera visualizzarlo in anteprima?"), (const char*) tmp))
-        m.send_key(K_SPACE, DLG_PREVIEW);
+        m.send_key(K_SPACE, F_PRINT);
     }
     else
     {
diff --git a/src/m770/77lib01.cpp b/src/m770/77lib01.cpp
index 2c99f06b7..9c8867ed3 100755
--- a/src/m770/77lib01.cpp
+++ b/src/m770/77lib01.cpp
@@ -513,8 +513,10 @@ bool enter_dichiar_770(long codditta, int anno_dic, bool sogg_dich)
     warning_box("rewrite su basebis fallita codice %d", rc2rw);
 #endif
 
-//  return (rc1 == NOERR && rc2 == NOERR);
-  return TRUE;
+	TConfig ditta(CONFIG_DITTA, "CU");
+
+	ditta.remove_all();
+  return true;
 }
 
 // Ritorna numero quadri L aggiuntivi