diff --git a/src/fp/fp0400.cpp b/src/fp/fp0400.cpp
index 5bce537c8..f2ccd04a5 100644
--- a/src/fp/fp0400.cpp
+++ b/src/fp/fp0400.cpp
@@ -103,7 +103,8 @@ void TPassive_mask::fill()
 		"LEFT JOIN FPPRO00F FPPRO ON P1_KEYPRGINVIO = PZ_KEYPRGINVIO and P1_KEYHEADERFATT = PZ_KEYHEADERFATT and P1_KEYBODYFATT = PZ_KEYBODYFATT\n" <<
 		"WHERE P7_DATA >= \'" << dal.date2ansi() << "\' AND P7_DATA <= \'" << al.date2ansi() << "\'" << prots_query << "\n" <<
 		"GROUP BY YEAR(P7_DATA), P7_TIPODOC, P7_NUMERO, P7_DATA, PQ_IMPTOTDOC, P2_ANADENOMIN, P2_ANANOME, P2_ANACOGNOME, P2_FISCIVACOD, P2_CODFISCALE, P2_FISCIVAPAESE,\n" <<
-		"P1_CODDEST, PU_PEC, P1_KEYPRGINVIO, P1_KEYHEADERFATT, P1_KEYBODYFATT, PZ_TIPOPROT, PZ_NUMPROT, PZ_ANNOPROT, PZ_TIPOCF, PZ_CLIFOR";
+		"P1_CODDEST, PU_PEC, P1_KEYPRGINVIO, P1_KEYHEADERFATT, P1_KEYBODYFATT, PZ_TIPOPROT, PZ_NUMPROT, PZ_ANNOPROT, PZ_TIPOCF, PZ_CLIFOR\n" <<
+		"ORDER BY PZ_ANNOPROT DESC, PZ_TIPOPROT ASC, PZ_NUMPROT DESC";
 	fp_db().sq_set_exec(query, false);
 
 
@@ -132,12 +133,13 @@ void TPassive_mask::elenco_prots_sel(TString& string) const
 			elenco.add(row->get());
 	}
 
-	// Creo una stringa cosė fatta: "'a', 'b', 'c'". (con elenco avente "a", "b" e "c" come stringhe)
+	// Creo una stringa da aggiungere alla query per la ricerca col codice protocollo, cosė fatta:
+	//  " AND PZ_TIPOPROT IN ('a', 'b', 'c')". (con elenco avente "a", "b" e "c" come stringhe)
 	if (elenco.items() > 0)
 	{
 		for (int i = 0; i < elenco.items() - 1; i++)
 			string << "\'" << elenco.row(i) << "\', ";
-		string << "\'" << elenco.row(elenco.items() - 1) << "\'" << ")\n";
+		string << "\'" << elenco.row(elenco.items() - 1) << "\')";
 	}
 	else
 		string = "";
@@ -231,16 +233,16 @@ void TPassive_mask::add_row_err_forn(int forn_code, TSheet_field& sf_err, TStrin
 
 	switch (forn_code){
 	case err_match_db:
-		row_err.add("Salvato in db ma non corrisponde a un fornitore.");
+		row_err.add("Salvato in database ma non corrisponde a un fornitore codificato.");
 		break;
 	case no_forn:
-		row_err.add("Non trovato fornitore per quella P.IVA.");
+		row_err.add("Non trovato fornitore per la P.IVA.");
 		break;
 	case no_match_cf:
 		row_err.add("Trovato fornitore ma il codice fiscale non corrisponde.");
 		break;
 	case no_cf:
-		row_err.add("Non trovato fornitore con quel codice fiscale (senza la P.IVA).");
+		row_err.add("Fornitore senza P. IVA, non trovato il codice fiscale");
 		break;
 	default:
 		row_err.add("Errore durante identificazione fornitore.");
@@ -251,7 +253,7 @@ void TPassive_mask::add_row_err_forn(int forn_code, TSheet_field& sf_err, TStrin
 int TPassive_mask::find_fornitore(TLocalisamfile& clifo)
 {
 	TString paa_codfisc					= fp_db().sq_get("COD_FISC");
-	TString paa_piva						= fp_db().sq_get("P_IVA");
+	const TString paa_piva			= fp_db().sq_get("P_IVA");
 	TString paa_codpaese				= fp_db().sq_get("COD_PAESE");
 	const TString fppro_tipocf	= fp_db().sq_get("TIPO_CF");
 	TString fppro_codcf					= fp_db().sq_get("COD_CLIFOR");
diff --git a/src/fp/fp0400a.uml b/src/fp/fp0400a.uml
index 25dcdbbec..7475a2118 100644
--- a/src/fp/fp0400a.uml
+++ b/src/fp/fp0400a.uml
@@ -63,9 +63,9 @@ BEGIN
   ITEM "P. IVA@16"
 	ITEM "Cod. Fiscale@16"
   ITEM "Allegati"
-  ITEM "Codice destinatario@20"
+  ITEM "Codice\ndestinatario@7"
 	ITEM "Rag. Soc. (XML)@50"
-	ITEM "Numero Protocollo\n[anno-tipo prot/progressivo]"
+	ITEM "Numero Protocollo (in entrata)\n[anno-tipo prot/progressivo]@22"
 	ITEM "Chiave Prot.@80"
 END
 
@@ -272,7 +272,7 @@ STRING S_RAGXML 50
 	HELP "Ragione sociale scritta nell'xml"
 END
 
-STRING S_NPROT 20
+STRING S_NPROT 22
 BEGIN
   PROMPT 1 5 ""
   HELP "Numero Protocollo"