diff --git a/src/li/li0400.cpp b/src/li/li0400.cpp
index a651ff110..e41792ff4 100755
--- a/src/li/li0400.cpp
+++ b/src/li/li0400.cpp
@@ -112,9 +112,16 @@ bool TLetint_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
 			enable(F_DAL);
 			break;
 		case 3:
-			disable(DLG_SAVEREC);
-			disable(F_DAL);
-			break;
+			{
+				disable(DLG_SAVEREC);
+				disable(F_DAL);
+				// Chiudo la dichiarazione di intento
+				TRectype liclosed = cache().get(LF_LETINT, TString(get(F_ANNO)) << "|" << get_int(F_NUMPROT));
+				liclosed.put("CHIUSA", "X");
+				liclosed.rewrite(TLocalisamfile(LF_LETINT));
+				set(B_CHIUSA, true);
+				break;
+			}
 		default:
 			break;
 		}