diff --git a/src/fp/fp0100a.uml b/src/fp/fp0100a.uml
index 84da19f00..0e3d42abc 100644
--- a/src/fp/fp0100a.uml
+++ b/src/fp/fp0100a.uml
@@ -76,6 +76,7 @@ BOOLEAN F_ESPORTADOC
 BEGIN
   PROMPT 2 12 "Allega pdf documento nell'XML"
   FLAGS "D"
+  MODULE RS
 END
 
 STRING F_FLDDEST 300 50
diff --git a/src/fp/fplib01.cpp b/src/fp/fplib01.cpp
index c711f133c..5a324102e 100644
--- a/src/fp/fplib01.cpp
+++ b/src/fp/fplib01.cpp
@@ -1425,43 +1425,33 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
 		remove(paf2600f); // Cancella eventuali allegati
 		long      nprogr = 0; // Numero di file allegati
 		// Se abilitato stampo il documento e lo allego
-		if (_allegafattura)
+		TFilename rep;
+		if (_allegafattura && dongle().active(RSAUT) && doc.tipo().main_print_profile(rep, 2))
 		{
-			//ve1 - 2 FPA 2017 D 202 P D / uADMIN
-			TFilename rep;
-			int filter = dongle().active(RSAUT) ? 2 : 1;
-			while (filter > 0 && !doc.tipo().main_print_profile(rep, filter))
-				filter--;
-			if (filter > 0)
-			{
-				// Costruisco la chiamata
-				TString commandline = "ve1 -";
-				if (filter == 2)
-					commandline << 2;      // Esiste il nuovo report :-)
-				else
-					commandline << 0;      // Esiste il vecchio form :-(
+			//ve1 -2 {CODNUM} {ANNO} {PROVV} {NDOC}(-{ANDOC}) {TIPO_ELABORAZIONE} {TIPO_STAMPA}
 
-				commandline << ' ' << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
-					<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC) << " X P";	// X: stampa su disco, P: provvisorio
-				TExternal_app interattivo(commandline);
-				if (interattivo.run() != NOERR)
+			// Costruisco la chiamata
+			static TString commandline;
+			commandline.cut(0) << "ve1 -2 " << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
+				<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC) << " X P";	// X: stampa su disco, P: provvisorio
+			TExternal_app interattivo(commandline);
+			if (interattivo.run() != NOERR)
+			{
+				TString msgerr = "Fallita generazione PDF documento ";
+				msgerr << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
+					<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC);
+				error_box(msgerr);
+			}
+			else
+			{
+				TFilename pdf; pdf.tempdir();
+				pdf << SLASH << doc.get(DOC_ANNO) << '_' << doc.get(DOC_CODNUM) << '_' << doc.get(DOC_NDOC) << ".pdf";
+				if (!pdf.exist() && !yesno_box("Attenzione! Non è stato possibile creare il pdf, continuare?"))
 				{
-					TString msgerr = "Fallita generazione PDF documento ";
-					msgerr << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
-						<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC);
-					error_box(msgerr);
-				}
-				else
-				{
-					TFilename pdf; pdf.tempdir();
-					pdf << SLASH << doc.get(DOC_ANNO) << '_' << doc.get(DOC_CODNUM) << '_' << doc.get(DOC_NDOC) << ".pdf";
-					if (!pdf.exist() && !yesno_box("Attenzione! Non è stato possibile creare il pdf, continuare?"))
-					{
-						return false;
-					}
-					if (!add_row_alleg(pdf, nprogr, paf2600f))
-						return false;
+					return false;
 				}
+				if (!add_row_alleg(pdf, nprogr, paf2600f))
+					return false;
 			}
 		}