diff --git a/ps/pl0002100.cpp b/ps/pl0002100.cpp
index 77cf38d5d..cc5af461e 100755
--- a/ps/pl0002100.cpp
+++ b/ps/pl0002100.cpp
@@ -157,10 +157,11 @@ bool TLif_clifo_ca_anagrafiche::trasferisci()
       const TString80 ragsoc = get_str("des_ragsoc");
       const TString16 cofi = get_str("cod_cfisc");
       const TString16 paiv = get_str("cod_piva");
-      const char      tpper = get_str("flg_per_fis")[0];
+      const long      tpper = get_long("flg_per_fis");
       const TString80 mail = get_str("des_email1");
       const TString80 tel  = get_str("sig_tel_fis");
       const TString80 fax  = get_str("sig_fax_fis");
+      const TString80 indirizzo = get_str("des_indir_res");
       const TString   localita = get_str("des_localita_fis");
       const long      cap = get_long("cod_cap_fis");
 
@@ -168,12 +169,13 @@ bool TLif_clifo_ca_anagrafiche::trasferisci()
       rec.put(CLI_CODCF, codcf);
       rec.put(CLI_STATOCF, stato);
       rec.put(CLI_RAGSOC, ragsoc);
-      rec.put(CLI_TIPOPERS, tpper == '0' ? 'G' : 'F');
+      rec.put(CLI_TIPOPERS, tpper == 0L ? 'G' : 'F');
       rec.put(CLI_COFI, cofi);
       rec.put(CLI_PAIV, paiv);
       rec.put(CLI_MAIL, mail);
       rec.put(CLI_TEL, tel);
       rec.put(CLI_FAX, fax);
+      rec.put(CLI_INDCF, indirizzo);
       rec.put(CLI_LOCCF, localita);
       rec.put(CLI_CAPCF, cap);