diff --git a/src/ve/velib04b.cpp b/src/ve/velib04b.cpp
index acf6db639..617852fd5 100755
--- a/src/ve/velib04b.cpp
+++ b/src/ve/velib04b.cpp
@@ -3230,7 +3230,17 @@ error_type TContabilizzazione::write_all(TDocumento& doc, TMovimentoPN_VE & movi
 
     if (_caus->iva() == iva_acquisti && _caus->causale_reg_iva().full())
     {
-      if (doc.clifor().get_long(CLI_CODCFASS) > 0)
+			TCausale caus_reg(_caus->causale_reg_iva());
+			TBill contocf; caus_reg.bill(1, contocf);
+			char tcf_reg = contocf.tipo();
+			long cod = doc.clifor().get_long(CLI_CODCFASS);
+
+			// Reperisce l'eventuale cliente associato al fornitore e lo propone
+			if (tcf_reg == 'F')
+				cod = doc.codcf();
+			else
+				tcf_reg = 'C';
+      if (cod > 0)
       {
         TMovimentoPN movreg;
         const error_type err = write_regolarizzazione(doc, movreg);