diff --git a/cg/cg7200.cpp b/cg/cg7200.cpp
index 2349fe5f2..f1b67cee2 100755
--- a/cg/cg7200.cpp
+++ b/cg/cg7200.cpp
@@ -94,7 +94,7 @@ void TInvioP_mask::config_loader(TSheet_field& sf, const char* paragrafo)
 	//carica file configurazione conti; attenzione!!!il file di configurazione in questione e' il
 	//medesimo del programma per la stampa del pagato in contabilita' analitica, visto che i due
 	//programmi necessitano degli stessi conti
-	TFilename configname = "ca3600.ini";
+	TFilename configname = "ca3600a.ini";
 	configname.custom_path();
 	TConfig configfile(configname, paragrafo);
 
@@ -122,7 +122,7 @@ void TInvioP_mask::config_loader(TSheet_field& sf, const char* paragrafo)
 
 void TInvioP_mask::config_setter(TSheet_field& sf, const char* paragrafo)
 {
-	TFilename configname = "ca3600.ini";
+	TFilename configname = "ca3600a.ini";
 	configname.custom_path();
 	TConfig configfile(configname, paragrafo);
   
@@ -512,7 +512,7 @@ bool TInvioP::i_proforma_righe(TCursor& cur, TInvioP_file* trasfilerighe)
 			cur_rmovana.curr() = riga;
 			//carica le righe analitiche
 			trasfilerighe->autoload(recrighe, cur_rmovana);
-			//tglie le righe contabili corrispondenti che sono appena state aggiunte con la autoload (sarebbero..
+			//toglie le righe contabili corrispondenti che sono appena state aggiunte con la autoload (sarebbero..
 			//..duplicate se non lo facesse!!!)
 			conti_importi.sottrai(riga);
 
@@ -867,7 +867,7 @@ bool TInvioP::cerca_sociali(const TBill& bill) const
 
 void TInvioP::lettura_conti(TAssoc_array& assoc, const char tipoconto)
 {
-  TConfig conti("ca3600.ini","Pdcc"); //paragrafo da scandire nell'ini
+  TConfig conti("ca3600a.ini","Pdcc"); //paragrafo da scandire nell'ini
   TAssoc_array& vars = conti.list_variables();
 
   FOR_EACH_ASSOC_STRING(vars, h, k, val)  //riempie l'assoc con i soli valori del paragrafo dell'ini
@@ -954,19 +954,29 @@ real TInvioP::calcola_pagamento(TRectype& curpag_rec)
 					if (conto.tipo() > ' ')
 						totdoc -= importo.valore(); 
 					else
+					{
 						if (cerca_fiscali(conto) || cerca_sociali(conto))
 							totdoc -= importo.valore(); //valore da stampare nella colonna Tot.fattura con ritenute
-					else	
-						if (rmov.get_char(RMV_ROWTYPE) != 'T' && conto.indicatore_bilancio() != 5)
+						else
 						{
-							imponibile += importo.valore();
-							totdoc += importo.valore();
+						  if (rmov.get_char(RMV_ROWTYPE) != 'T' && conto.indicatore_bilancio() != 5)
+							{
+							  imponibile += importo.valore();
+							  totdoc += importo.valore();
+							}
 						}
-				}
+					}	//else di if (conto.tipo()
+				}	//for (int i = 0...
+				//tanti calcoli per nulla?
+				const real totdoc_testata = totale_documento(pn.curr());
+				if (totdoc_testata != ZERO)
+					totdoc = totdoc_testata;
+
 			}	//end di else pn.iva_items()...
 
 			real percentuale = imponibile / totdoc;
 			totpagato *= percentuale;
+			totpagato.round(2);
 		}
 	}
 	return totpagato;
@@ -978,8 +988,8 @@ bool TInvioP::i_proforma_pagamenti()
 	
 	TRectype da(LF_MOV);
   TRectype a(LF_MOV);
-  da.put(MOV_DATACOMP, _dataini);
-  a.put(MOV_DATACOMP, _datafin);
+  da.put(MOV_DATAREG, _dataini);
+  a.put(MOV_DATAREG, _datafin);
   TRelation rel(LF_MOV);
 	rel.add(LF_CAUSALI, "CODCAUS==CODCAUS");
   TCursor cur(&rel, "", 2, &da, &a);
diff --git a/cg/cg7200a.ini b/cg/cg7200a.ini
index ccc3e4703..a30989f60 100755
--- a/cg/cg7200a.ini
+++ b/cg/cg7200a.ini
@@ -1,4 +1,5 @@
 [OPZIONI]
-DATA = 
-PERCORSO = 
+CONFSTRINGA =
+DATA =
+PERCORSO =