diff --git a/at/at0400.cpp b/at/at0400.cpp
index 6cd0bacff..f29d321f1 100755
--- a/at/at0400.cpp
+++ b/at/at0400.cpp
@@ -769,11 +769,6 @@ int TGestioneConvocazioni::rewrite(const TMask& m)
 
 int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
 {                             
-	// questo trucco è autorizzato dal capo!
-	//TMask& hmask = (TMask&) m;
-	//TDate oggi(TODAY);
-	//hmask.set(F_DATAULTAGG,oggi);
-	//hmask.set(F_UTENULTAGG,user());
 	int err = ri ? TRelation_application::rewrite(m) : TRelation_application::write(m);
 	if (err == NOERR)
 	{
@@ -793,8 +788,10 @@ int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
 		TRectype* key = new TRectype(LF_RCONVOC);
 		key->put(RCV_NUMERO, m.get(F_NUMERO));
 		_sconvocati->set_key(key);
+		TProgind prg (s.items(), "Registrazione in corso... Prego attendere", FALSE, TRUE, 30);
 		for (int r=s.items(); r>0; r--)
 		{
+  	  prg.addstatus(1);
 			TToken_string& row = s.row(r-1);
 			TRectype& rec = _sconvocati->row(r,TRUE);
 			const long codice = row.get_long(0);			
@@ -934,6 +931,10 @@ int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
 		}
 		err = ri ? _sconvocati->rewrite() : _sconvocati->write();
 	}
+	if (err == NOERR)
+		message_box("Convocazione registrata");
+	else
+		error_box("Errore %d durante la scrittura. Convocazione non registrata correttamente", err);
 	return err;
 }