diff --git a/ba/ba3700.cpp b/ba/ba3700.cpp
index 7f6967571..b5e0ac41c 100755
--- a/ba/ba3700.cpp
+++ b/ba/ba3700.cpp
@@ -15,7 +15,7 @@ class BA3700_application : public TRelation_application
 {   
   TRelation*   _rel;
   TMask*       _msk;
-  Pagamento*   _pag;
+  TPagamento*  _pag;
   TSheet_field* _cs;
   int          _mode;              // Modo maschera corrente
   int          _interv_rate; 
@@ -65,7 +65,7 @@ public:
 // app-data per handlers          
 struct sht {
   TMask*        _msk;
-  Pagamento*    _pag;
+  TPagamento*    _pag;
   TSheet_field* _sht;
   TArray*       _rws;
 } shuttle;    
@@ -111,7 +111,7 @@ int BA3700_application::read(TMask& m)
 
   TString code(m.get(F_CODICE));
   int ir = m.get_int(F_INT_RATE); if (ir == 0) ir = -1;
-  shuttle._pag = _pag = new Pagamento(code);
+  shuttle._pag = _pag = new TPagamento(code);
   _pag->set_sheet(*_cs, ir);
   if (_pag->n_rate() > 1)
     _interv_rate = _pag->scad_rata(_pag->n_rate() - 1);
@@ -131,7 +131,7 @@ int BA3700_application::read(TMask& m)
 void BA3700_application::init_insert_mode(TMask& m)
 {
   TString code(m.get(F_CODICE));
-  shuttle._pag = _pag = new Pagamento(code);
+  shuttle._pag = _pag = new TPagamento(code);
   _pag->set_sheet(*_cs);
   TArray* arr = new TArray;
   if (shuttle._rws != NULL) delete shuttle._rws;
@@ -159,7 +159,7 @@ bool BA3700_application::intervallo_rate(TMask_field& f, KEY k)
   if (k != K_TAB) return TRUE;
   
   sht* s = (sht*)get_app_data();
-  Pagamento*    pag = s->_pag;
+  TPagamento*    pag = s->_pag;
   TSheet_field* shf = s->_sht;
   TMask*        msk = s->_msk;
   
@@ -183,7 +183,7 @@ bool BA3700_application::rate_differenziate(TMask_field& f, KEY k)
   if (k != K_TAB) return TRUE;
 
   sht* s = (sht*)get_app_data();
-  Pagamento*    pag = s->_pag;
+  TPagamento*    pag = s->_pag;
   TSheet_field* shf = s->_sht;
   TMask*        msk = s->_msk;
   TArray*       rws = s->_rws;
@@ -206,7 +206,7 @@ bool BA3700_application::tipo_prima_rata(TMask_field& f, KEY k)
   if (k != K_TAB) return TRUE;
 
   sht* s = (sht*)get_app_data();
-  Pagamento*    pag = s->_pag;
+  TPagamento*    pag = s->_pag;
   TSheet_field* shf = s->_sht;
   TMask*        msk = s->_msk;
   TArray*       rws = s->_rws;
@@ -231,7 +231,7 @@ bool BA3700_application::numero_rate(TMask_field& f, KEY k)
   if (k != K_TAB) return TRUE;
 
   sht* s = (sht*)get_app_data();
-  Pagamento*    pag = s->_pag;
+  TPagamento*    pag = s->_pag;
   TSheet_field* shf = s->_sht;
   TMask*        msk = s->_msk;
   TArray*       rws = s->_rws;
@@ -258,7 +258,7 @@ bool BA3700_application::mese_commerciale(TMask_field& f, KEY k)
   //  if (k != K_ENTER) return FALSE;
 
   sht* s = (sht*)get_app_data();
-  Pagamento*    pag = s->_pag;
+  TPagamento*    pag = s->_pag;
   TSheet_field* shf = s->_sht;
   TMask*        msk = s->_msk; 
   TArray*       rws = s->_rws;
@@ -285,7 +285,7 @@ bool BA3700_application::sheet_action(int r, KEY k)
   word ahiahi = P_OK;                                
 
   sht* s = (sht*)get_app_data();
-  Pagamento*    pag = s->_pag;
+  TPagamento*    pag = s->_pag;
   TSheet_field* shf = s->_sht;
   TMask*        msk = s->_msk;
   TArray*       rws = s->_rws;