diff --git a/at/at0100.cpp b/at/at0100.cpp
new file mode 100755
index 000000000..8acc594cf
--- /dev/null
+++ b/at/at0100.cpp
@@ -0,0 +1,2423 @@
+#include <msksheet.h>
+#include <prefix.h>
+#include <recarray.h>
+#include <relapp.h>
+#include <sheet.h>
+#include <tabutil.h>
+#include <utility.h>
+
+#include "at0.h"
+#include "atlib.h"
+
+// nomi campi maschera
+#include "at0100a.h"	// maschera principale
+#include "at0100b.h"	// maschera genera donazioni
+#include "at0100c.h"	// maschera famigliari
+#include "at0100d.h"	// maschera ricerca parziale
+#include "at0100e.h"	// maschera richiesta password
+          
+// nomi dei campi
+#include "soggetti.h"
+#include "donaz.h"
+#include "contsan.h"
+#include "benem.h"
+#include "storico.h"
+#include "famiglie.h"
+#include "convoc.h"
+#include "rconvoc.h"
+#include "idoneita.h"
+
+class TGestioneSoggetti : public TRelation_application
+{
+	TMask*					_msk;
+	TRelation*   		_rel;
+	TLocalisamfile* _donaz;
+	TLocalisamfile* _contsan;
+	TLocalisamfile* _benem;
+	TLocalisamfile* _storico;
+	TLocalisamfile* _famiglie;
+	TLocalisamfile* _convoc;
+	TLocalisamfile* _rconvoc;
+	TLocalisamfile* _idoneita;
+	TRecord_array*	_sdonazioni;		// sheet donazioni
+	TRecord_array*  _scontrolli;		// sheet controlli
+	TRecord_array*  _sbenemerenze;	// sheet benemerenze
+	TRecord_array*  _sstorico;			// sheet storico
+	TRecord_array*  _sfamiglia;			// sheet famiglia
+	TRecord_array*  _sidoneita;			// sheet idoneita
+	TArray*					_aconvocazioni;	// array delle convocazioni
+	long 						_lastcod;				// ultimo codice soggetto assegnato
+	long 						_lastfam;				// ultimo codice famiglia assegnato
+	long						_famprec;				// codice famiglia precedente
+	long						_famatt;				// codice famiglia attuale
+	long						_codice;				// codice soggetto attuale (per famiglie)
+	bool						_nuovaconv;			// nuova convocazione da registrare
+	TDate						_oldconv;				// data ultima convocazione registrata su soggetto
+
+	// parametri di sezione
+	int							_numdon1, _numdon2;
+	TString16				_catini1, _catfin1, _catini2, _catfin2, _oldgruppo, _oldrh, _oldkell, _oldfen, _olddu;
+	bool						_sttess2, _dataisc, _ctrlpass, _permesso;
+	
+protected:
+	virtual bool user_create();
+	virtual bool user_destroy();
+	virtual const char* get_next_key();
+	virtual int scrivi(const TMask& m, bool ri);
+	virtual int write(const TMask& m);
+	virtual int rewrite(const TMask& m);
+	virtual int read(TMask& m);
+	virtual bool remove();
+	virtual bool changing_mask(int mode) { return FALSE; }
+	virtual TMask* get_mask( int mode = 0) { return _msk; }
+	virtual TRelation* get_relation() const { return _rel; }
+	virtual void on_firm_change();
+
+	virtual void init_insert_mode(TMask& m);
+	virtual void init_modify_mode(TMask& m);
+	virtual void init_query_mode(TMask& m);
+
+	// notify degli sheet	
+	static bool donazioni_notify(TSheet_field& s, int r, KEY k);
+	static bool controlli_notify(TSheet_field& s, int r, KEY k);
+	static bool benemerenze_notify(TSheet_field& s, int r, KEY k);
+	static bool storico_notify(TSheet_field& s, int r, KEY k);
+	static bool famiglia_notify(TSheet_field& s, int r, KEY k);
+	static bool idoneita_notify(TSheet_field& s, int r, KEY k);
+	// handler dei campi o bottoni
+	static bool ricparz_handler(TMask_field& f, KEY k);
+	static bool convoc_handler(TMask_field& f, KEY k);
+	static bool datanasc_handler(TMask_field& f, KEY k);
+	static bool catdon_handler(TMask_field& f, KEY k);
+	static bool dataconv_handler(TMask_field& f, KEY k);
+	static bool genera_handler(TMask_field& f, KEY k);
+	static bool famiglia_handler(TMask_field& f, KEY k);
+	static bool collega_handler(TMask_field& f, KEY k);
+	static bool nome_handler(TMask_field& f, KEY k);
+	static bool nuova_handler(TMask_field& f, KEY k);
+	static bool eseguigen_handler(TMask_field& f, KEY k);
+	static bool tipocon_handler(TMask_field& f, KEY k);
+	static bool idosos_handler(TMask_field& f, KEY k);
+	static bool idoncon_handler(TMask_field& f, KEY k);
+	static bool datadon_handler(TMask_field& f, KEY k);
+	static bool datacon_handler(TMask_field& f, KEY k);
+	static bool donprecsi_handler(TMask_field& f, KEY k);
+	static bool donprecaf_handler(TMask_field& f, KEY k);	
+	static bool donazioni_handler(TMask_field& f, KEY k);	
+	static bool controlli_handler(TMask_field& f, KEY k);	
+	static bool idoneita_handler(TMask_field& f, KEY k);	
+	static bool storico_handler(TMask_field& f, KEY k);	
+	static bool benem_handler(TMask_field& f, KEY k);	
+	static bool gruppo_handler(TMask_field& f, KEY k);
+	static bool rhantid_handler(TMask_field& f, KEY k);
+	static bool kell_handler(TMask_field& f, KEY k);
+	static bool fenotiporh_handler(TMask_field& f, KEY k);
+	static bool du_handler(TMask_field& f, KEY k);
+	static void c_reord(TSheet_field& controlli, TSheet_field& idoneita);
+	
+	// setta le abilitazioni ai campi di una riga dei controlli
+	void tipocon_set_row(TMask& m);	
+	// setta le abilitazioni ai campi di una riga delle idoneita
+	void idosos_set_row(TMask& m);	
+	// setta le abilitazioni ai campi di tutto lo sheet dei controlli	
+	void tipocon_set_sheet(TSheet_field& s);	
+	// setta le abilitazioni ai campi di tutto lo sheet dei controlli	
+	void idosos_set_sheet(TSheet_field& s);	
+	
+public:
+	void calcola_donazioni(TMask& mask, TSheet_field& s);		
+	bool richiesta_password();
+	TGestioneSoggetti() {}
+};
+
+HIDDEN inline TGestioneSoggetti& app() { return (TGestioneSoggetti&) main_app(); }
+
+static int compare_date(const TObject** o1, const TObject** o2)
+{
+  TToken_string* s1 = (TToken_string*)*o1;
+  TToken_string* s2 = (TToken_string*)*o2;
+  
+  const TDate d1(s1->get(0));
+  const TDate d2(s2->get(0));
+  
+  int d=0;
+  if (d1>d2) d=+1;
+  else
+  	if (d1<d2) d=-1;
+	return d;
+}	
+
+void ordina_sheet_data(TSheet_field& s)
+{
+	TArray& as = s.rows_array();
+	as.sort(compare_date);
+}
+
+void d_datepross(TSheet_field& s)
+// calcola le date di prossima donazione in base a: donazioni, stato attuale, idoneità
+{
+	TMask& m = s.mask();
+	char modstato = ' ';     
+	const TString16 stato = m.get(F_STATO);	// stato attuale
+	const TString16 id1 = m.get(F_IDON1);		// idon. 1
+	const TString16 id2 = m.get(F_IDON2);		// idon. 2
+	const TString16 id3 = m.get(F_IDON3);		// idon. 3
+	const TString16 id4 = m.get(F_IDON4);	  // idon. 4
+	const int intsi = m.get_int(F_INTSI);		// intervallo per SI
+	const int intaf = m.get_int(F_INTAF);		// intervallo per AF
+	const TDate dataultdon(m.get_date(F_DATAULTDON));	// data ultima donazione
+	const TString16 tipoultdon(m.get(F_TIPOULTDON));	// tipo ultima donazione
+	TDate datasi(NULLDATE);		// data prossima si calcolata
+	TDate dataaf(NULLDATE);		// data prossima af calcolata
+	TDate dataultsi(NULLDATE);	// data ultima donazione si
+	
+	bool id_si = FALSE;		// il soggetto è idoneo per si?
+	bool id_af = FALSE;		// il soggetto è idoneo per af?
+	
+  modstato = modstato_tcs(stato);
+	if (modstato == 'I' || modstato == 'F')	// il soggetto è idoneo
+	{ 
+		id_si = ((is_idon(id1,id2,id3,id4,IDON_SI) || (m.get(F_STATOSI) == IDONEITA)) && (intsi != 0));		// il soggetto è idoneo SI
+		id_af = ((is_idon(id1,id2,id3,id4,IDON_AF) || (m.get(F_STATOAF) == IDONEITA)) && (intaf != 0));		// il soggetto è idoneo AF
+		
+		if (dataultdon.ok())		// se ha fatto almeno una donazione
+		{
+			if (is_donaz(tipoultdon,IDON_SI))	// se l'ultima donazione è una SI
+			{
+				if (id_si) 
+				{
+					datasi=dataultdon;
+					datasi+=intsi;
+				}	
+  			if (id_af) 
+  			{
+  				dataaf=dataultdon;
+  				dataaf+=intaf;
+  			}	
+      }
+      if (is_donaz(tipoultdon,IDON_AF))	// se l'ultima donazione è una AF
+      {
+      	dataultsi = m.get(F_DATAULTSI);
+				if (id_si)
+				{
+					if (intaf != 0)
+					{
+						datasi=dataultdon; 
+						datasi+=intaf;
+					}	
+					else
+					{
+						datasi=dataultdon;
+					  datasi+=intsi;    
+					}  
+					if (dataultsi.ok())
+						dataultsi+=intsi;
+					if (dataultsi > datasi)
+						datasi = dataultsi;
+				}
+				if (id_af)
+				{
+					dataaf=dataultdon;
+					dataaf+=intaf;
+				}					
+      }	
+ 		}
+ 		else
+ 		{
+ 			if (id_si)
+ 				datasi= m.get_date(F_DATAULTID);
+ 			if (id_af)
+ 				dataaf= m.get_date(F_DATAULTID); 				
+ 		}
+	}	
+	TString16 statoparziale;
+	TDate datastatoparziale;
+	statoparziale = m.get(F_STATOSI);
+	datastatoparziale = (TDate)m.get(F_DATASI);
+	if (statoparziale == SOSPENSIONE)
+		datasi = NULLDATE;
+	if (statoparziale == IDONEITA)		
+		if (datastatoparziale > datasi)
+			datasi = datastatoparziale;
+	statoparziale = m.get(F_STATOAF);
+	datastatoparziale = (TDate)m.get(F_DATAAF);
+	if (statoparziale == SOSPENSIONE)
+		dataaf = NULLDATE;
+	if (statoparziale == IDONEITA)		
+		if (datastatoparziale > dataaf)
+			dataaf = datastatoparziale;
+	m.set(F_DATAPROSSI,datasi);
+	m.set(F_DATAPROSAF,dataaf);
+}
+
+void TGestioneSoggetti::calcola_donazioni(TMask& mask, TSheet_field& s)
+{
+	TDate ultdata(NULLDATE);
+	TString16 ulttipo = '  ';
+	TMask_field& f = mask.field(F_TIPOULTDON);
+	const int i = s.items()-1;
+	const int donprecsi = mask.get_int(F_DONPRECSI);
+	const int donprecaf = mask.get_int(F_DONPRECAF);	
+	if (i < 0)	// non ha donazioni
+	{
+		int zerodon = 0;
+		mask.set(F_DATAULTDON,ultdata);
+		mask.set(F_DATAULTSI,ultdata);
+		mask.set(F_DATAULTAF,ultdata);
+		mask.set(F_TOTDONSI,donprecsi);
+		mask.set(F_TOTDONAF,donprecaf);
+		f.set(ulttipo);
+		f.on_key(K_TAB);
+	}	
+	else	
+	{ 
+		TToken_string& row = s.row(i);
+		ultdata = TDate(row.get(0));
+		ulttipo = row.get();
+		mask.set(F_DATAULTDON,ultdata);  			  	
+		f.set(ulttipo);
+		f.on_key(K_TAB);
+		TDate dataultsi(NULLDATE);
+		TDate dataultaf(NULLDATE);
+		int totdonsi = 0;
+		int totdonaf = 0;        
+		for (int r=0; r<s.items(); r++)
+		{
+			TToken_string& row = s.row(r);
+			ultdata = TDate(row.get(0));
+			ulttipo = row.get();
+			if (is_donaz(ulttipo,IDON_SI))
+			{
+				dataultsi = ultdata;
+				totdonsi++;
+			}
+			else
+				if (is_donaz(ulttipo,IDON_AF))
+				{
+					dataultaf = ultdata;
+					totdonaf++;
+				}
+		}					
+		mask.set(F_DATAULTSI, dataultsi);
+		mask.set(F_TOTDONSI, totdonsi+donprecsi);
+		mask.set(F_DATAULTAF, dataultaf);
+		mask.set(F_TOTDONAF, totdonaf+donprecaf);
+		mask.set(F_TOTDON, totdonaf+donprecaf+totdonsi+donprecsi); //Aggiunto da Marco il 09/07/99 in modo che il cambio di categoria avvenga in modo corretto
+		TString16 catdon = mask.get(F_CATDON);		
+		int totdon = mask.get_int(F_TOTDON);
+		if ((catdon == _catini1 || _catini1.empty()) && (totdon>=_numdon1) && _catfin1.not_empty())
+		{
+			mask.set(F_CATDON, _catfin1);
+			catdon = _catfin1;
+		}	
+		if ((catdon == _catini2 || _catini2.empty()) && (totdon>=_numdon2) && _catfin2.not_empty() && !_sttess2)
+		{
+			mask.set(F_CATDON, _catfin2);
+			catdon = _catfin2;
+		}	
+		mask.field(F_CATDON).on_key(K_TAB);			
+		TDate dataisc = mask.get_date(F_DATAISC);
+		if (!dataisc.ok() && _dataisc)
+		{ 
+			if (!mask.get_date(F_DATAPRISI) == NULLDATE)
+				mask.set(F_DATAISC,mask.get(F_DATAPRISI));
+			else
+		  {
+				TToken_string& row = s.row(0);
+				TDate primadata = TDate(row.get(0));			
+				mask.set(F_DATAISC,primadata);
+			}				  	
+		}			
+	}		
+	d_datepross(s);
+}
+
+void TGestioneSoggetti::init_insert_mode(TMask& m)
+{
+	m.set(F_NOTIZIARIO,TRUE);
+	m.set(F_BENEM,TRUE);
+	m.hide(F_RICPARZ);
+}
+
+void TGestioneSoggetti::init_modify_mode(TMask& m)
+{
+	m.hide(F_RICPARZ);           
+	_oldgruppo = m.get(F_GRUPPOAB0);	
+	_oldrh = m.get(F_RHANTID);	
+	_oldfen = m.get(F_FENOTIPORH);	
+	_oldkell = m.get(F_KELL);	
+	_olddu = m.get(F_DU);	
+}
+
+void TGestioneSoggetti::init_query_mode(TMask& m)
+{
+	m.show(F_RICPARZ);
+}
+
+bool TGestioneSoggetti::donazioni_handler(TMask_field& f, KEY k)
+{
+  if (!f.mask().is_running())
+  {
+		TSheet_field& s = (TSheet_field&)f;
+		const int n = s.items()-1;
+		if (n >= 0)
+			s.select(n, TRUE);	
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::controlli_handler(TMask_field& f, KEY k)
+{
+  if (!f.mask().is_running())
+  {
+		TSheet_field& s = (TSheet_field&)f;
+		const int n = s.items()-1;
+		if (n >= 0)
+			s.select(n, TRUE);	
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::idoneita_handler(TMask_field& f, KEY k)
+{
+  if (!f.mask().is_running())
+  {
+		TSheet_field& s = (TSheet_field&)f;
+		const int n = s.items()-1;
+		if (n >= 0)
+			s.select(n, TRUE);	
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::storico_handler(TMask_field& f, KEY k)
+{
+  if (!f.mask().is_running())
+  {
+		TSheet_field& s = (TSheet_field&)f;
+		const int n = s.items()-1;
+		if (n >= 0)
+			s.select(n, TRUE);	
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::benem_handler(TMask_field& f, KEY k)
+{
+  if (!f.mask().is_running())
+  {
+		TSheet_field& s = (TSheet_field&)f;
+		const int n = s.items()-1;
+		if (n >= 0)
+			s.select(n, TRUE);	
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::datadon_handler(TMask_field& f, KEY k)
+{
+	if (f.to_check(k))
+	{
+		TMask& m = f.mask();
+		
+		TSheet_field& s = *m.get_sheet();
+		const TString16 datadon = f.get();
+		for (int r=s.items()-1; r>=0; r--)
+		{
+			if (r != s.selected())
+			{
+				TToken_string& row = s.row(r); 
+				if (datadon == row.get(0))
+					return f.error_box("Data donazione %s gia' inserita",(const char*)datadon);
+			}					
+		}				
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::datacon_handler(TMask_field& f, KEY k)
+{
+	if (f.to_check(k))
+	{
+		TMask& m = f.mask();
+		
+		TSheet_field& s = *m.get_sheet();
+		const TDate datacon = f.get();
+		for (int r=s.items()-1; r>=0; r--)
+		{
+			if (r != s.selected())
+			{
+				TToken_string& row = s.row(r); 
+				TDate datarow = TDate(row.get(0));
+				if (datacon == datarow)
+					return f.error_box("Data controllo %s gia' inserita",(const char*)datacon.string());
+				else
+					if (datacon < datarow)
+						return f.yesno_box("ATTENZIONE! Esiste un controllo sanitario %s con data successiva. Vuoi continuare?", row.get(1));
+			}					
+		}				
+		TMask& mask = s.mask();
+		TDate datastato = mask.get_date(F_DATASTATO);
+		if (datacon < datastato)
+			return f.yesno_box("ATTENZIONE! Data controllo inferiore alla data stato.;Vuoi continuare?");
+		datastato = mask.get_date(F_DATASI);			
+		if (datacon < datastato)
+			return f.yesno_box("ATTENZIONE! Data controllo inferiore alla data stato SI.;Vuoi continuare?");
+		datastato = mask.get_date(F_DATAAF);			
+		if (datacon < datastato)
+			return f.yesno_box("ATTENZIONE! Data controllo inferiore alla data stato AF.;Vuoi continuare?");
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::donprecsi_handler(TMask_field& f, KEY k)
+{
+	static int oldprecsi;
+	if (k==K_TAB)
+	{
+		TMask& m = f.mask();
+		const int donprecsi = m.get_int(F_DONPRECSI);
+		if (f.focusdirty())
+		{
+			const int totdonsi = m.get_int(F_TOTDONSI);
+			m.set(F_TOTDONSI,totdonsi-oldprecsi+donprecsi);
+			int totdon = m.get_int(F_TOTDON)-oldprecsi+donprecsi;
+			//Le righe seguenti sono state aggiunte da Marco in data 05/08/99 per gestire il cambio di categoria in caso di donazioni non dettagliate
+			//m.set(F_TOTDON,totdon-oldprecsi+donprecsi); unica riga usata da Cristina
+			m.set(F_TOTDON,totdon);
+			TString16 catdon = m.get(F_CATDON);		
+		  if ((catdon == app()._catini1 || app()._catini1.empty()) && (totdon>=app()._numdon1) && app()._catfin1.not_empty())
+		  {
+				m.set(F_CATDON, app()._catfin1);
+				catdon = app()._catfin1;
+			}	
+			if ((catdon == app()._catini2 || app()._catini2.empty()) && (totdon>=app()._numdon2) && app()._catfin2.not_empty() && !app()._sttess2)
+			{
+				m.set(F_CATDON, app()._catfin2);
+				catdon = app()._catfin2;
+			}	
+			m.field(F_CATDON).on_key(K_TAB);	
+			// fino a qui	
+		}
+		oldprecsi = donprecsi;
+	}
+	return TRUE;
+}			
+
+bool TGestioneSoggetti::donprecaf_handler(TMask_field& f, KEY k)
+{
+	static int oldprecaf;
+	if (k==K_TAB)
+	{
+		TMask& m = f.mask();
+		const int donprecaf = m.get_int(F_DONPRECAF);
+		if (f.focusdirty())
+		{
+			const int totdonaf = m.get_int(F_TOTDONAF);
+			m.set(F_TOTDONAF,totdonaf-oldprecaf+donprecaf);
+			const int totdon = m.get_int(F_TOTDON);
+			m.set(F_TOTDON,totdon-oldprecaf+donprecaf);
+		}
+		oldprecaf = donprecaf;
+	}
+	return TRUE;
+}			
+
+bool TGestioneSoggetti::datanasc_handler(TMask_field& f, KEY k)
+{
+	if (f.to_check(k) || k == K_ENTER)
+	{
+		TMask& m = f.mask();
+		if (f.empty())                                    
+		{
+			if  (m.insert_mode())
+				return f.error_box("La data di nascita e' obbligatoria");	
+	    if (m.edit_mode())
+	    	 	f.warning_box("La data di nascita e' vuota."); 
+	  }
+	  else
+	  {
+		  if (m.insert_mode())
+			{  
+			  TLocalisamfile sog(LF_SOGGETTI);                                                        
+			  sog.setkey(2);
+				sog.zero();
+				sog.put(SOG_COGNOME,m.get(F_COGNOME));
+				sog.put(SOG_NOME,m.get(F_NOME));
+				sog.put(SOG_DATANASC,m.get_date(F_DATANASC));
+				if (sog.read() == NOERR && (m.get_long(F_CODICE) != sog.get_long(SOG_CODICE)))
+					return f.error_box("Soggetto con cognome, nome e data di nascita uguali già esistente");
+      }
+		}	  	
+	}   
+	return TRUE;	
+}
+
+bool TGestioneSoggetti::catdon_handler(TMask_field& f, KEY k)
+{
+	if (f.to_check(k))
+	{
+		TMask& m = f.mask();
+		if (m.get(F_CATNOND1).not_empty() || m.get(F_CATNOND2).not_empty())
+		{
+			TTable ctd("CTD"); 	
+			ctd.put("CODTAB",m.get(F_CATDON));
+			if (ctd.read() == NOERR)
+			{ 
+				const bool dimissione = ctd.get_bool("B0");
+				if (dimissione) 
+		  	 	f.warning_box("ATTENZIONE: il soggetto ha almeno una categoria non donatori. Verificare!"); 
+			}
+		}		
+	}   
+	return TRUE;	
+}
+
+bool TGestioneSoggetti::dataconv_handler(TMask_field& f, KEY k)
+{
+	if ((k == K_TAB) && (f.focusdirty()) && (!f.empty()))
+	{ 
+		const char modstato = modstato_tcs(f.mask().get(F_STATO));
+		const char modstatosi = modstato_tcs(f.mask().get(F_STATOSI));		
+		if (modstato == 'S' || modstatosi == 'S')
+		{
+			f.error_box("ATTENZIONE!\nSoggetto sospeso.\nNon e' possibile inserire una convocazione.");
+			f.mask().set(F_DATACONV, app()._oldconv);
+		}	
+		else
+		 	if (yesno_box("ATTENZIONE!\nNuova convocazione per il soggetto.\nConfermare la convocazione?"))
+		 	{
+				TLocalisamfile rconvoc(LF_RCONVOC);
+				rconvoc.setkey(3);
+				rconvoc.zero();
+				rconvoc.put(RCV_CODICE, f.mask().get(F_CODICE));
+				rconvoc.put(RCV_DATACONV, f.mask().get(F_DATACONV));
+				if (rconvoc.read() == NOERR)
+				{
+					if (!(rconvoc.get_bool(RCV_ANNULLATO)))                      
+					{
+						f.error_box("Convocazione gia' esistente per il soggetto");
+						f.mask().set(F_DATACONV, app()._oldconv);
+					}						
+					else
+					{
+			 			app()._nuovaconv = TRUE;
+			 			f.mask().field(F_STAMPATACONV).enable();
+					}			 			
+				}		 			
+		 	  else
+		 	  {
+		 			app()._nuovaconv = TRUE;
+		 			f.mask().field(F_STAMPATACONV).enable();
+				}		 			
+			}	 		
+		else
+			f.mask().set(F_DATACONV, app()._oldconv);
+	}		
+	return TRUE;	
+}
+
+bool TGestioneSoggetti::eseguigen_handler(TMask_field& f, KEY k)
+{
+	if (k == K_SPACE)
+	{
+		TMask& m = f.mask();
+		const int quante = m.get_int(F_QUANTEGEN);
+		if (quante > 0)
+		{
+			const bool automatica = (m.get(F_COMEGEN) == "A");
+			TDate finoal = m.get_date(F_FINOALGEN);
+			TSheet_field& g = (TSheet_field&)m.field(F_DONGEN);
+			g.destroy();
+			const TString16 tipo = m.get(F_TIPOGEN);
+			const TString16 luogo = m.get(F_LUOGOGEN);
+			for (int r=0;r<quante;r++)
+			{
+				TToken_string& row = g.row(r);
+				if (automatica)
+				{
+					row.add(finoal,0);
+					finoal -=90;
+				}				
+				row.add(tipo,1);
+				row.add(luogo,2);
+			}
+			g.force_update();
+		}
+		else
+			f.error_box("Non e' possibile generare meno di 1 donazione");
+	}	
+	return TRUE;
+}
+
+bool TGestioneSoggetti::nome_handler(TMask_field& f, KEY k)
+{ 
+	/*
+  if (k == K_TAB && f.focusdirty())
+  {
+  	TMask& m = f.mask();
+  	long codsog = m.get_long(F_ES_CODICE);
+  	if (codsog == 0)
+  	{
+      f.on_key(K_F9);
+      m.field(F_ES_CODICE).on_key(K_TAB);
+		}      
+  }	
+  */
+  if (f.to_check(k))
+  {
+  	TMask& m = f.mask();
+  	long codsog = m.get_long(F_ES_CODICE);
+  	if (codsog == 0)
+  	{
+      f.on_key(K_F9);
+      m.field(F_ES_CODICE).on_key(K_TAB);
+    }  
+  }	
+  return TRUE;
+}
+
+bool TGestioneSoggetti::collega_handler(TMask_field& f, KEY k)
+{               
+	TMask& m = f.mask();
+	long codfam = m.get_long(F_ES_CODICE);
+	if (codfam != 0)
+	{
+		TLocalisamfile fam(LF_FAMIGLIE);
+		fam.setkey(2);
+		TRectype& recfam = fam.curr();
+		recfam.zero();
+		recfam.put(FAM_CODFAM, codfam);
+		if (fam.read() == NOERR)
+		{
+			TRectype* key = new TRectype(LF_FAMIGLIE);
+			key->put(FAM_FAMIGLIA, fam.get_long(FAM_FAMIGLIA));
+			TRecord_array a_famiglia(LF_FAMIGLIE, FAM_PROGFAM);
+			a_famiglia.read(key);
+			TSheet_field& s = (TSheet_field&)m.field(F_FAMIGLIARI);
+			s.destroy();                                         	
+			for (int r=1; r<=a_famiglia.rows(); r++)
+			{
+				TToken_string& row = s.row(r-1);
+				const TRectype& riga = a_famiglia.row(r);
+				row.add(riga.get(FAM_GRADOPAR));
+				row.add(riga.get(FAM_CODFAM));
+				s.check_row(r-1);
+			}
+			const int ar = s.items();
+			TToken_string& row = s.row(ar);
+			row.add("  ");
+			row.add(app()._codice);
+			s.check_row(ar);
+			s.force_update();
+			m.show(F_FAMIGLIARI);
+			m.hide(-1);
+		}			
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::nuova_handler(TMask_field& f, KEY k)
+{
+	if (k == K_SPACE)
+	{
+		app()._famatt = -1;	// significa che devo attribuire alla famiglia un nuovo codice
+		TMask& m = f.mask();
+		TSheet_field& s = (TSheet_field&)m.field(F_FAMIGLIARI);
+		TToken_string& row = s.row(0);
+		row.add("CA");
+		row.add(app()._codice);
+		s.check_row(0);
+		s.force_update(0);
+		m.show(F_FAMIGLIARI);
+		m.hide(-1);
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::famiglia_handler(TMask_field& f, KEY k)
+{
+	if (k == K_SPACE)
+	{
+		TMask& m = f.mask();
+		app()._codice = m.get_long(F_CODICE);
+		TMask msk("at0100c");
+		msk.set_handler(F_ES_CODICE, collega_handler);
+		msk.set_handler(F_ES_COGNOME, collega_handler);
+		msk.set_handler(F_ES_NOME, nome_handler);
+		msk.set_handler(F_NUOVA,nuova_handler);
+		TSheet_field& s = (TSheet_field&)msk.field(F_FAMIGLIARI);
+		s.set_notify(famiglia_notify);
+		s.destroy();                                         	
+		for (int r=1; r<=app()._sfamiglia->rows(); r++)
+		{
+			TToken_string& row = s.row(r-1);
+			const TRectype& riga = app()._sfamiglia->row(r);
+			row.add(riga.get(FAM_GRADOPAR));
+			row.add(riga.get(FAM_CODFAM));
+			s.check_row(r-1);
+		}
+		if (app()._sfamiglia->rows() == 0)
+		{                        
+			msk.show(-1);
+			msk.hide(F_FAMIGLIARI);
+		}
+		else
+		{   
+			s.force_update();
+			msk.hide(-1);
+			msk.show(F_FAMIGLIARI);
+		}
+		
+		if (msk.run() == K_ENTER)
+		{                      
+			app()._sfamiglia->destroy_rows();
+			for (int r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				TRectype& rec = app()._sfamiglia->row(r,TRUE);
+				rec.put(FAM_GRADOPAR, row.get(0));
+				rec.put(FAM_CODFAM, row.get());
+			}	
+		}
+	}
+	return TRUE;
+}
+
+bool TGestioneSoggetti::genera_handler(TMask_field& f, KEY k)
+{
+	if (k == K_SPACE)
+	{
+		TMask msk("at0100b");
+		msk.set_handler(F_ESEGUIGEN,eseguigen_handler);
+		
+  	if (msk.run() == K_ENTER) 
+  	{
+			TSheet_field& g = (TSheet_field&)msk.field(F_DONGEN);
+			if (g.items() > 0)
+			{
+  			TMask& m = f.mask();
+				TSheet_field& s = (TSheet_field&)m.field(F_DONAZIONI);
+				for (int r=0;r<g.items();r++)
+				{
+					TToken_string& row = s.row(-1);
+					TToken_string& rowgen = g.row(r);
+					row.add(rowgen.get(0));
+					row.add(rowgen.get());
+					row.add(rowgen.get());
+				}
+				ordina_sheet_data(s);
+ 				s.force_update();
+ 				app().calcola_donazioni(m, s);
+ 				const int totdonsi = m.get_int(F_TOTDONSI);
+ 				const int totdonaf = m.get_int(F_TOTDONAF);
+ 				m.set(F_TOTDON,totdonsi+totdonaf);
+ 				
+			}			
+  	}
+	}
+	return TRUE;	
+}
+
+bool TGestioneSoggetti::ricparz_handler(TMask_field& f, KEY k)
+{
+	if (k == K_SPACE)
+	{
+		TMask msk("at0100d");
+  	if (msk.run() == K_ENTER) 
+  	{ 
+  		TString filtro;
+  		if (!msk.field(F_RP_DATANASC).empty())
+  			filtro << "(ANSI(" << SOG_DATANASC << ")=\"" 
+  						 << msk.get_date(F_RP_DATANASC).string(ANSI) << "\")";
+  		if (!msk.field(F_RP_COGNOME).empty())
+  		{       
+  			if (filtro.not_empty())
+  				filtro << "&&"; 
+  			filtro << '(' << SOG_COGNOME << "?=\"" 
+  						 << msk.get(F_RP_COGNOME) << "\")"; 
+  		}				 
+  		if (!msk.field(F_RP_NOME).empty())
+  		{       
+  			if (filtro.not_empty())
+  				filtro << "&&"; 
+  			filtro << '(' << SOG_NOME << "?=\"" 
+  						 << msk.get(F_RP_NOME) << "\")"; 
+  		}				 
+  		TCursor cur(app().get_relation(), filtro, 2);
+  		TToken_string fields,head;
+  		fields.add(SOG_CODICE); head.add("Codice@9");
+  		fields.add(SOG_COGNOME); head.add("Cognome@25");
+  		fields.add(SOG_NOME); head.add("Nome@25");
+  		fields.add(SOG_DATANASC); head.add("Nato il@10");
+  		fields.add(SOG_CODSEZ); head.add("Sez.");
+  		fields.add(SOG_CODSOT); head.add("Sot.");
+  		fields.add(SOG_TESSAVIS); head.add("Tessera");
+  		TCursor_sheet srp(&cur,fields,"RICERCA SOGGETTI",head);
+  		if (srp.run() == K_ENTER)
+  		{
+  			TToken_string row = srp.row();
+  			f.mask().set(F_CODICE, row.get(0));
+  			f.mask().send_key(K_TAB,F_CODICE);
+  		}
+  	}
+	}
+	return TRUE;	
+}
+
+bool TGestioneSoggetti::convoc_handler(TMask_field& f, KEY k)
+{
+	if (k == K_SPACE)
+	{
+		TString filtro;
+		long codice = f.mask().get_long(F_CODICE);
+		if (codice != 0)
+		{
+ 			TRelation relconv = TRelation(LF_RCONVOC);
+ 			relconv.add(LF_CONVOC, "NUMERO==NUMERO");
+ 			TRectype recrconv(LF_RCONVOC);
+ 			recrconv.put(RCV_CODICE, codice);
+			TCursor cur(&relconv, "", 3, &recrconv, &recrconv);
+			TToken_string fields,head;
+			fields.add(RCV_DATACONV); head.add("Data cart.");
+			fields.add("115->PUNTO"); head.add("Punto");
+			fields.add(RCV_CHIAMATA); head.add("Tipo");
+			fields.add(RCV_STAMPATO); head.add("St.");
+			fields.add(RCV_ANNULLATO); head.add("Ann.");
+			fields.add("115->DATA"); head.add("Data conv.");
+			fields.add(RCV_NUMERO); head.add("Conv.num.");
+			TCursor_sheet sconv(&cur,fields,"Convocazioni del soggetto",head);
+			sconv.run();
+		}			
+	}
+	return TRUE;	
+}
+
+void TGestioneSoggetti::tipocon_set_row(TMask& m)
+{
+	const TString16 tipo = m.get(F_C_TIPOCON);
+	const char modstato = modstato_tcs(tipo);
+  if ( modstato == 'I' || modstato == 'M')
+  {
+		m.field(F_C_IDON1).enable();
+		m.field(F_C_IDON2).enable();
+		m.field(F_C_IDON3).enable();
+		m.field(F_C_IDON4).enable();
+		m.field(F_C_INTSI).disable();
+		m.field(F_C_INTAF).disable();
+		TString16 idon1 = m.get(F_C_IDON1);
+		TString16 idon2 = m.get(F_C_IDON2);
+		TString16 idon3 = m.get(F_C_IDON3);
+		TString16 idon4 = m.get(F_C_IDON4);
+		// propongo i dati precedenti per idoneita'
+		if (idon1.empty() && idon2.empty() && idon3.empty() && idon4.empty())
+		{
+			const TMask& mask = *(app().get_mask());
+			m.set(F_C_IDON1,mask.get(F_IDON1));
+			m.set(F_C_IDON2,mask.get(F_IDON2));
+			m.set(F_C_IDON3,mask.get(F_IDON3));
+			m.set(F_C_IDON4,mask.get(F_IDON4));
+			m.set(F_C_INTSI,mask.get(F_INTSI));
+			m.set(F_C_INTAF,mask.get(F_INTAF));
+			idon1 = m.get(F_C_IDON1);
+			idon2 = m.get(F_C_IDON2);
+			idon3 = m.get(F_C_IDON3);
+			idon4 = m.get(F_C_IDON4);
+		}
+		if (is_idon(idon1,idon2,idon3,idon4,IDON_SI))
+			m.field(F_C_INTSI).enable();
+		else
+			m.field(F_C_INTSI).reset();					
+		if (is_idon(idon1,idon2,idon3,idon4,IDON_AF))
+			m.field(F_C_INTAF).enable();
+		else			
+			m.field(F_C_INTAF).reset();					
+  }
+  else
+	{
+		m.field(F_C_IDON1).reset();
+		m.field(F_C_IDON1).disable();
+		m.field(F_C_IDON2).reset();
+		m.field(F_C_IDON2).disable();
+		m.field(F_C_IDON3).reset();
+		m.field(F_C_IDON3).disable();
+		m.field(F_C_IDON4).reset();
+		m.field(F_C_IDON4).disable();
+		m.field(F_C_INTSI).reset();
+		m.field(F_C_INTSI).disable();
+		m.field(F_C_INTAF).reset();
+		m.field(F_C_INTAF).disable();
+	}
+}	
+
+void TGestioneSoggetti::idosos_set_row(TMask& m)
+{
+	const TString16 idosos = m.get(F_I_IDO_SOS);
+  if (idosos == IDONEITA)
+  {
+		m.field(F_I_INTERVALLO).enable();
+		const int intervallo = m.get_int(F_I_INTERVALLO);
+		if (intervallo==0)
+		{
+			const TMask& mask = *(app().get_mask());
+			const TString idon = m.get(F_I_TIPOIDO);
+			if (idon == IDON_SI)
+				m.set(F_I_INTERVALLO,mask.get(F_INTSI));
+			else
+				m.set(F_I_INTERVALLO,mask.get(F_INTAF));
+		}			
+		m.field(F_I_FINESOS).reset();
+		m.field(F_I_FINESOS).disable();
+  }
+  else
+	{
+		m.field(F_I_INTERVALLO).reset();
+		m.field(F_I_INTERVALLO).disable();
+		m.field(F_I_FINESOS).enable();
+	}
+}	
+
+void TGestioneSoggetti::tipocon_set_sheet(TSheet_field& s)
+{
+	for (int r=0;r<s.items();r++)
+	{
+		TToken_string& row = s.row(r);
+		const TString16 tipo = row.get(1);
+		const char modstato = modstato_tcs(tipo);
+		if (modstato == 'I' || modstato == 'M')
+		{
+			s.enable_cell(r,2);		
+			s.enable_cell(r,3);		
+			s.enable_cell(r,4);		
+			s.enable_cell(r,5);		
+			const TString16 idon1 = row.get(2);
+			const TString16 idon2 = row.get(3);
+			const TString16 idon3 = row.get(4);
+			const TString16 idon4 = row.get(5);
+			if (is_idon(idon1,idon2,idon3,idon4,IDON_SI))
+				s.enable_cell(r,6);
+			else
+				s.disable_cell(r,6);
+			if (is_idon(idon1,idon2,idon3,idon4,IDON_AF))
+				s.enable_cell(r,7);		
+			else				
+				s.disable_cell(r,7);		
+		}
+		else
+		{
+			s.disable_cell(r,2);		
+			s.disable_cell(r,3);		
+			s.disable_cell(r,4);		
+			s.disable_cell(r,5);		
+			s.disable_cell(r,6);		
+			s.disable_cell(r,7);		
+		}
+	}
+}
+
+void TGestioneSoggetti::idosos_set_sheet(TSheet_field& s)
+{
+	for (int r=0;r<s.items();r++)
+	{
+		TToken_string& row = s.row(r);
+		const TString16 idosos = row.get(2);
+		if (idosos == IDONEITA)
+		{
+			s.enable_cell(r,3);		
+			s.disable_cell(r,4);
+		}
+		else
+		{
+			s.disable_cell(r,3);		
+			s.enable_cell(r,4);		
+		}
+	}
+}
+
+bool TGestioneSoggetti::idoncon_handler(TMask_field& f, KEY k)
+{
+	if (f.to_check(k))
+	{
+		TMask& m = f.mask();
+		const TString16 idon = f.get();
+		if (is_idon_one(idon,IDON_SI))
+			m.field(F_C_INTSI).enable();
+		if (is_idon_one(idon,IDON_AF))
+			m.field(F_C_INTAF).enable();
+	}
+	return TRUE;
+}	    
+
+bool TGestioneSoggetti::tipocon_handler(TMask_field& f, KEY k)
+{
+  if (f.to_check(k))
+  { 
+    TMask& m = f.mask();
+    app().tipocon_set_row(m);
+ 		if (app()._ctrlpass)
+ 		{
+	  	TString80 responsab = m.get(F_C_RESPONSAB);
+	  	if (responsab.empty())
+	  		m.set(F_C_RESPONSAB, user());
+ 		}    
+	}    
+	return TRUE;
+}	    
+
+bool TGestioneSoggetti::idosos_handler(TMask_field& f, KEY k)
+{
+  if (k == K_SPACE)
+  { 
+    TMask& m = f.mask();
+    app().idosos_set_row(m);
+ 		if (app()._ctrlpass)
+ 		{
+	  	TString80 responsab = m.get(F_I_RESPONSAB);
+	  	if (responsab.empty())
+	  		m.set(F_I_RESPONSAB, user());
+ 		}    
+	}    
+	return TRUE;
+}	    
+
+bool TGestioneSoggetti::gruppo_handler(TMask_field& f, KEY k)
+{          
+	bool ok = TRUE;                  
+	if (f.to_check(k))
+	{
+		const TString gr = f.get();
+		if ((gr != app()._oldgruppo) && (app()._oldgruppo.not_empty()))
+			ok = f.yesno_box("Attenzione. E' stato modificato il gruppo sanguigno. Confermi?");
+		if (ok)	
+			app()._oldgruppo =  gr;
+		else
+			f.set(app()._oldgruppo);	
+	}
+	return ok;
+}	    
+
+bool TGestioneSoggetti::rhantid_handler(TMask_field& f, KEY k)
+{          
+	bool ok = TRUE;                  
+	if (f.to_check(k))
+	{
+		const TString gr = f.get();
+		if ((gr != app()._oldrh) && (app()._oldrh.not_empty()))
+			ok = f.yesno_box("Attenzione. E' stato modificato il valore rh/antid. Confermi?");
+		if (ok)	
+			app()._oldrh =  gr;
+		else
+			f.set(app()._oldrh);	
+	}
+	return ok;
+}	    
+
+bool TGestioneSoggetti::kell_handler(TMask_field& f, KEY k)
+{          
+	bool ok = TRUE;                  
+	if (f.to_check(k))
+	{
+		const TString gr = f.get();
+		if ((gr != app()._oldkell) && (app()._oldkell.not_empty()))
+			ok = f.yesno_box("Attenzione. E' stato modificato il kell. Confermi?");
+		if (ok)	
+			app()._oldkell =  gr;
+		else
+			f.set(app()._oldkell);	
+	}
+	return ok;
+}	    
+
+bool TGestioneSoggetti::fenotiporh_handler(TMask_field& f, KEY k)
+{          
+	bool ok = TRUE;                  
+	if (f.to_check(k))
+	{
+		const TString gr = f.get();
+		if ((gr != app()._oldfen) && (app()._oldfen.not_empty()))
+			ok = f.yesno_box("Attenzione. E' stato modificato il fenotipo rh. Confermi?");
+		if (ok)	
+			app()._oldfen =  gr;
+		else
+			f.set(app()._oldfen);	
+	}
+	return ok;
+}	    
+
+bool TGestioneSoggetti::du_handler(TMask_field& f, KEY k)
+{          
+	bool ok = TRUE;                  
+	if (f.to_check(k))
+	{
+		const TString gr = f.get();
+		if ((gr != app()._olddu) && (app()._olddu.not_empty()))
+			ok = f.yesno_box("Attenzione. E' stato modificato il du. Confermi?");
+		if (ok)	
+			app()._olddu =  gr;
+		else
+			f.set(app()._olddu);	
+	}
+	return ok;
+}	    
+
+void TGestioneSoggetti::on_firm_change()
+{
+	_rel->lfile().last();
+	_lastcod = _rel->lfile().get_long(SOG_CODICE);
+}
+
+bool TGestioneSoggetti::user_create()
+{
+	_msk = new TMask("at0100a");
+	_rel = new TRelation(LF_SOGGETTI);
+	
+	_donaz 		= new TLocalisamfile(LF_DONAZ);
+	_contsan 	= new TLocalisamfile(LF_CONTSAN);
+	_benem 		=	new TLocalisamfile(LF_BENEM);
+	_storico 	=	new TLocalisamfile(LF_STORICO);
+	_famiglie = new TLocalisamfile(LF_FAMIGLIE);
+	_convoc 	= new TLocalisamfile(LF_CONVOC);
+	_rconvoc 	= new TLocalisamfile(LF_RCONVOC);
+	_idoneita = new TLocalisamfile(LF_IDONEITA);
+	
+	_sdonazioni 	= new TRecord_array(LF_DONAZ,DON_PROGDON);
+	_scontrolli 	= new TRecord_array(LF_CONTSAN,CON_PROGCON);
+	_sbenemerenze = new TRecord_array(LF_BENEM,BEN_PROGBEN);	
+	_sstorico 		= new TRecord_array(LF_STORICO,STO_PROGSTO);	
+	_sfamiglia 		= new TRecord_array(LF_FAMIGLIE, FAM_PROGFAM);
+	_sidoneita 		= new TRecord_array(LF_IDONEITA, IDO_PROGIDO);
+
+	_msk->set_handler(F_RICPARZ,ricparz_handler);
+	_msk->set_handler(F_CONVOCAZIONI,convoc_handler);
+	_msk->set_handler(F_DATANASC,datanasc_handler);
+	_msk->set_handler(F_CATDON,catdon_handler);
+	_msk->set_handler(F_DATACONV,dataconv_handler);
+	_msk->set_handler(F_GENERA,genera_handler);
+	_msk->set_handler(F_FAMIGLIA,famiglia_handler);
+	_msk->set_handler(F_DONPRECSI,donprecsi_handler);
+	_msk->set_handler(F_DONPRECAF,donprecaf_handler);
+	_msk->set_handler(F_GRUPPOAB0,gruppo_handler);
+	_msk->set_handler(F_RHANTID,rhantid_handler);
+	_msk->set_handler(F_KELL,kell_handler);
+	_msk->set_handler(F_FENOTIPORH,fenotiporh_handler);
+	_msk->set_handler(F_DU,du_handler);
+	TSheet_field& sd = (TSheet_field&)_msk->field(F_DONAZIONI);
+	sd.set_handler(donazioni_handler);
+	sd.set_notify(donazioni_notify);
+	TMask& sdmask = sd.sheet_mask();
+	sdmask.set_handler(F_D_DATADON, datadon_handler);
+	
+	TSheet_field& sc = (TSheet_field&)_msk->field(F_CONTROLLI);
+	sc.set_handler(controlli_handler);
+	sc.set_notify(controlli_notify);
+  TMask& scmask = sc.sheet_mask();
+	scmask.set_handler(F_C_DATACON, datacon_handler);
+	scmask.set_handler(F_C_TIPOCON, tipocon_handler);
+	scmask.set_handler(F_C_IDON1, idoncon_handler);
+	scmask.set_handler(F_C_IDON2, idoncon_handler);
+	scmask.set_handler(F_C_IDON3, idoncon_handler);
+	scmask.set_handler(F_C_IDON4, idoncon_handler);
+
+	TSheet_field& si = (TSheet_field&)_msk->field(F_IDONEITA);
+	si.set_handler(idoneita_handler);
+	si.set_notify(idoneita_notify);
+  TMask& simask = si.sheet_mask();
+	simask.set_handler(F_I_IDO_SOS, idosos_handler);
+
+	TSheet_field& sb = (TSheet_field&)_msk->field(F_BENEMERENZE);
+	sb.set_handler(benem_handler);
+	sb.set_notify(benemerenze_notify);
+	TSheet_field& ss = (TSheet_field&)_msk->field(F_STORICO);
+	ss.set_handler(storico_handler);
+	ss.set_notify(storico_notify);
+
+	_rel->lfile().last();
+	_lastcod = _rel->lfile().get_long(SOG_CODICE);
+	
+	_famiglie->last();
+	_lastfam = _famiglie->get_long(FAM_FAMIGLIA);
+	_famatt = _famprec = 0;
+	
+	set_search_field(F_COGNOME);
+	
+  TConfig config(CONFIG_STUDIO);
+  _numdon1 = config.get_int("NumDon1");
+  _numdon2 = config.get_int("NumDon2");
+  _catini1 = config.get("CatIni1");
+  _catfin1 = config.get("CatFin1");
+  _catini2 = config.get("CatIni2");
+  _catfin2 = config.get("CatFin2");
+  _sttess2 = config.get_bool("StTess2");
+  _dataisc = config.get_bool("DataIsc");
+  _ctrlpass = config.get_bool("CtrlPass");
+	if (_ctrlpass)
+		_permesso = richiesta_password();
+	return TRUE;
+}	
+	
+bool TGestioneSoggetti::user_destroy()	
+{
+	delete _sidoneita;
+	delete _sfamiglia;
+	delete _sstorico;
+	delete _sbenemerenze;
+	delete _scontrolli;
+	delete _sdonazioni;
+	delete _idoneita;
+	delete _rconvoc;
+	delete _convoc;
+	delete _famiglie;
+	delete _storico;
+	delete _benem;
+	delete _contsan;
+	delete _donaz;	
+	delete _rel;
+	delete _msk;
+	return TRUE;
+}
+
+const char* TGestioneSoggetti::get_next_key()
+{
+	// per gestione famiglie
+	_famatt = _famprec = 0;
+	// autonumerazione progressiva dei soggetti
+	return format("%d|%ld", F_CODICE, _lastcod+1 );
+}	
+
+bool TGestioneSoggetti::remove()
+{
+ 	// cancella donazioni
+ 	// cancella controlli sanitari
+ 	// cancella storico
+ 	// sistema nucleo familiare	** da fare
+ 	// annulla convocazioni del soggetto
+ 	// alla fine: cancella il soggetto!
+ 	
+ 	bool ok = TRUE;
+	int err; 	
+ 	ok = yesno_box("ATTENZIONE!\nCon questa operazione si elimina definitivamente tutta la scheda del soggetto.\nConfermare l'eliminazione?");
+  
+  if (ok)
+  {
+	 	// cancella donazioni
+		err = _sdonazioni->remove();	
+	  if (err == _iseof || err == _isemptyfile)
+			err = NOERR;
+		
+		// cancella controlli sanitari	
+		if (err = NOERR) err = _scontrolli->remove();
+		if (err == _iseof || err == _isemptyfile)
+			err = NOERR;
+	
+		// cancella benemerenze
+		if (err = NOERR) err = _sbenemerenze->remove();
+		if (err == _iseof || err == _isemptyfile)
+			err = NOERR;
+	
+	 	// cancella storico
+		if (err == NOERR) err = _sstorico->remove();	
+	  if (err == _iseof || err == _isemptyfile)
+			err = NOERR;
+		
+		// cancellare le convocazioni del soggetto
+			
+		// cancella il soggetto	
+		if (err == NOERR) ok = TRelation_application::remove();
+		return (ok && err==NOERR);
+	}		
+	else
+		return TRUE;
+}
+
+int TGestioneSoggetti::read(TMask& m)
+{
+	_famatt = _famprec = 0;
+	_nuovaconv = FALSE;
+	_oldconv = NULLDATE;
+	int err = TRelation_application::read(m);
+	if (err == NOERR)
+	{
+		_oldconv = m.get_date(F_DATACONV);
+		m.field(F_STAMPATACONV).reset();
+		m.field(F_STAMPATACONV).disable();
+		TRectype* key = new TRectype(LF_DONAZ);
+		key->put(DON_CODICE, m.get(F_CODICE));
+		err = _sdonazioni->read(key);
+		if (err == NOERR)
+		{
+			TSheet_field& s = (TSheet_field&)m.field(F_DONAZIONI);
+			s.destroy();
+			for (int r=1; r<=_sdonazioni->rows(); r++)
+			{
+				TToken_string& row = s.row(r-1);
+				const TRectype& riga = _sdonazioni->row(r);
+				row.add(riga.get(DON_DATADON));			// 0
+				row.add(riga.get(DON_TIPODON));			// 1
+				row.add(riga.get(DON_LUOGODON));		// 2
+				row.add("");	// descrizione luogo	// 3
+				row.add(riga.get(DON_ETICHETTA));		// 4
+				row.add(riga.get(DON_PRIMADON));		// 5
+				row.add(riga.get(DON_CODSEZ));			// 6
+				row.add(riga.get(DON_CODSOT));			// 7
+				row.add("");	// denominazione sezione		// 8
+				row.add("");	// denominazione sottogruppo// 9
+				row.add(riga.get(DON_CC));					// 10
+				row.add(riga.get(DON_PA));          // 11
+				row.add(riga.get(DON_HB));					// 12
+				row.add(riga.get(DON_SGPT));				// 13
+				row.add(riga.get(DON_PROTIDEMIA));	// 14
+				s.check_row(r-1);
+			}
+		}
+		else
+		  if (err == _iseof || err == _isemptyfile)
+		    err = NOERR;
+	}
+	if (err == NOERR)
+	{
+		TRectype* key = new TRectype(LF_CONTSAN);
+		key->put(CON_CODICE, m.get(F_CODICE));
+		err = _scontrolli->read(key);
+		if (err == NOERR)
+		{
+			TSheet_field& s = (TSheet_field&)m.field(F_CONTROLLI);
+			s.destroy();
+			for (int r=1; r<=_scontrolli->rows(); r++)
+			{
+				TToken_string& row = s.row(r-1);
+				const TRectype& riga = _scontrolli->row(r);
+				row.add(riga.get(CON_DATACON));
+				row.add(riga.get(CON_TIPOCON));
+				row.add(riga.get(CON_IDON1));
+				row.add(riga.get(CON_IDON2));
+				row.add(riga.get(CON_IDON3));
+				row.add(riga.get(CON_IDON4));
+				row.add(riga.get(CON_INTSI));
+				row.add(riga.get(CON_INTAF));
+				row.add(riga.get(CON_PROSSTIPO));
+				row.add(riga.get(CON_PROSSDATA));
+				row.add(riga.get(CON_MOTIVO));
+				row.add(riga.get(CON_RESPONSAB));
+			}
+			TGestioneSoggetti::tipocon_set_sheet(s);
+		}
+		else
+		  if (err == _iseof || err == _isemptyfile)
+		    err = NOERR;
+	}
+	if (err == NOERR)
+	{
+		TRectype* key = new TRectype(LF_IDONEITA);
+		key->put(IDO_CODICE, m.get(F_CODICE));
+		err = _sidoneita->read(key);
+		if (err == NOERR)
+		{
+			TSheet_field& s = (TSheet_field&)m.field(F_IDONEITA);
+			s.destroy();
+			for (int r=1; r<=_sidoneita->rows(); r++)
+			{
+				TToken_string& row = s.row(r-1);
+				const TRectype& riga = _sidoneita->row(r);
+				row.add(riga.get(IDO_DATAIDO));
+				row.add(riga.get(IDO_TIPOIDO));
+				row.add(riga.get(IDO_IDO_SOS));
+				row.add(riga.get(IDO_INTERVALLO));
+				row.add(riga.get(IDO_FINESOS));
+				row.add(riga.get(IDO_MOTIVO));
+				row.add(riga.get(IDO_RESPONSAB));
+			}
+			TGestioneSoggetti::idosos_set_sheet(s);
+		}
+		else
+		  if (err == _iseof || err == _isemptyfile)
+		    err = NOERR;
+	}
+
+	if (err == NOERR)
+	{
+		TRectype* key = new TRectype(LF_BENEM);
+		key->put(BEN_CODICE, m.get(F_CODICE));
+		err = _sbenemerenze->read(key);
+		if (err == NOERR)
+		{
+			TSheet_field& s = (TSheet_field&)m.field(F_BENEMERENZE);
+			s.destroy();
+			for (int r=1; r<=_sbenemerenze->rows(); r++)
+			{
+				TToken_string& row = s.row(r-1);
+				const TRectype& riga = _sbenemerenze->row(r);
+				row.add(riga.get(BEN_TIPOBEN));
+				row.add("");	// descrizione benemerenze
+				row.add(riga.get(BEN_DATAMAT));
+				row.add(riga.get(BEN_BONUS));
+				row.add(riga.get(BEN_DATABEN));
+				row.add(riga.get(BEN_DATACON));
+				row.add(riga.get(BEN_RITIRATA));
+				row.add(riga.get(BEN_CODSEZ));
+				row.add(riga.get(BEN_CODSOT));
+				row.add(riga.get(BEN_GRUPPOAZIE));
+				row.add("");	// denominazione sezione
+				row.add("");	// denominazione sottogruppo
+				row.add("");	// denominazione gruppo aziendale
+				s.check_row(r-1);
+			}
+		}
+		else
+		  if (err == _iseof || err == _isemptyfile)
+		    err = NOERR;
+	}	
+	if (err == NOERR)
+	{
+		TRectype* key = new TRectype(LF_STORICO);
+		key->put(STO_CODICE, m.get(F_CODICE));
+		err = _sstorico->read(key);
+		if (err == NOERR)
+		{
+			TSheet_field& s = (TSheet_field&)m.field(F_STORICO);
+			s.destroy();
+			for (int r=1; r<=_sstorico->rows(); r++)
+			{
+				TToken_string& row = s.row(r-1);
+				const TRectype& riga = _sstorico->row(r);
+				row.add(riga.get(STO_DATAISC));
+				row.add(riga.get(STO_DATADIM));
+				row.add(riga.get(STO_CODSEZ));
+				row.add(riga.get(STO_CODSOT));
+				row.add(riga.get(STO_CATISC));
+				row.add(riga.get(STO_MOTDIM));
+			}
+		}
+		else
+		  if (err == _iseof || err == _isemptyfile)
+		    err = NOERR;
+	}	
+	if (err == NOERR)
+	{
+		TLocalisamfile fam(LF_FAMIGLIE);
+		fam.setkey(2);
+		TRectype& recfam = fam.curr();
+		recfam.zero();
+		recfam.put(FAM_CODFAM, m.get(F_CODICE));
+		if (fam.read() == NOERR)
+		{
+			TRectype* key = new TRectype(LF_FAMIGLIE);
+			_famprec = _famatt = fam.get_long(FAM_FAMIGLIA);
+			key->put(FAM_FAMIGLIA, _famprec);
+			_sfamiglia->read(key);
+		}			
+		else
+		{
+			_famprec = _famatt = 0;
+			_sfamiglia->destroy_rows();			
+		}			
+	}
+	return err;
+}
+
+int TGestioneSoggetti::write(const TMask& m)
+{  
+	long curcod = m.get_long(F_CODICE);
+	if (curcod > _lastcod) _lastcod = curcod;
+	return TGestioneSoggetti::scrivi(m, FALSE);	
+}
+
+int TGestioneSoggetti::rewrite(const TMask& m)
+{
+	return TGestioneSoggetti::scrivi(m, TRUE);	
+}
+
+int TGestioneSoggetti::scrivi(const TMask& m, bool ri)
+{                             
+	// questo trucco è autorizzato dal capo!
+	bool ok = TRUE;
+	int err = NOERR;
+	TMask& hmask = (TMask&) m;
+	if (ok)
+	{	
+		TDate oggi(TODAY);
+		hmask.set(F_DATAULTAGG,oggi);
+		hmask.set(F_UTENULTAGG,user());
+		const TDate dataprossi = hmask.get_date(F_DATAPROSSI);
+		const TDate dataconv = hmask.get_date(F_DATACONV);
+		const char stato = modstato_tcs(hmask.get(F_STATO));
+		const TString16 statosi = hmask.get(F_STATOSI);
+		// cancellazione la data convocazione se sospeso
+		// o se è venuto a donare (la dataprossi diventa > della dataconvoc.
+		if ((stato == 'S') || (statosi == SOSPENSIONE) || (dataprossi > dataconv) || !dataprossi.ok())
+		{
+			TLocalisamfile rconvoc(LF_RCONVOC);
+			rconvoc.setkey(3);
+			rconvoc.zero();
+			rconvoc.put(RCV_CODICE, hmask.get(F_CODICE));
+			rconvoc.put(RCV_DATACONV, dataconv);
+			if (rconvoc.read() == NOERR)
+			{
+				rconvoc.put(RCV_ANNULLATO, TRUE);
+				int err = rconvoc.rewrite();
+			}
+			const TDate datanulla(NULLDATE);
+			hmask.set(F_DATACONV, datanulla);
+			hmask.set(F_DATAULTSOL, datanulla);
+			const int numzero = 0;
+			hmask.set(F_NUMCONV,numzero);
+		}	
+		
+		TDate dataisc = hmask.get_date(F_DATAISC);
+		if (!dataisc.ok() && _dataisc)
+		{ 
+			// attenzione: questa operazione viene eseguita due volte
+			// togliere!
+			if (hmask.get_date(F_DATAPRISI).ok())
+				hmask.set(F_DATAISC,hmask.get(F_DATAPRISI));
+			else
+			{
+				TSheet_field& s = (TSheet_field&)m.field(F_DONAZIONI);
+				if (s.items()>0)
+				{
+					ordina_sheet_data(s);
+					TToken_string& row = s.row(0);
+					hmask.set(F_DATAISC,row.get(0));
+				}			
+			}			
+		}
+		err = ri ? TRelation_application::rewrite(m) : TRelation_application::write(m);
+		if (err == NOERR)
+		{
+			_sdonazioni->destroy_rows();
+			TSheet_field& s = (TSheet_field&)m.field(F_DONAZIONI);
+			TRectype* key = new TRectype(LF_DONAZ);
+			key->put(DON_CODICE, m.get(F_CODICE));
+			_sdonazioni->set_key(key);
+			
+			ordina_sheet_data(s);
+			
+			for (int r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				TRectype& rec = _sdonazioni->row(r,TRUE);
+				rec.put(DON_DATADON, row.get(0));	
+				rec.put(DON_TIPODON, row.get());	//	1
+				rec.put(DON_LUOGODON, row.get());	//	2
+				// descrizione luogo							//	3
+				rec.put(DON_ETICHETTA, row.get(4));	
+				rec.put(DON_PRIMADON, row.get());	//	5
+				TString16 codsez = row.get(6);
+				TString16 codsot = row.get(7);
+				if (codsez.blank())
+				{
+					codsez = hmask.get(F_CODSEZ);
+					codsot = hmask.get(F_CODSOT);
+				}	
+				rec.put(DON_CODSEZ, codsez);		//	6
+				rec.put(DON_CODSOT, codsot);		//	7
+				// denominazione sezione					//	8
+				// denominazione sottogruppo			//	9
+				rec.put(DON_CC, row.get(10));
+				rec.put(DON_PA, row.get());				//	11
+				rec.put(DON_HB, row.get());				//	12
+				rec.put(DON_SGPT, row.get());			//	13
+				rec.put(DON_PROTIDEMIA, row.get());	//	14
+			}
+			err = ri ? _sdonazioni->rewrite() : _sdonazioni->write();
+		}
+		if (err == NOERR)
+		{
+			_scontrolli->destroy_rows();
+			TSheet_field& s = (TSheet_field&)m.field(F_CONTROLLI);
+			TRectype* key = new TRectype(LF_CONTSAN);
+			key->put(CON_CODICE, m.get(F_CODICE));
+			_scontrolli->set_key(key);
+			for (int r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				if (row.empty_items())
+					s.destroy(r-1);
+			}                     
+			ordina_sheet_data(s);		
+			for (r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				TRectype& rec = _scontrolli->row(r,TRUE);
+				rec.put(CON_DATACON,   row.get(0));
+				rec.put(CON_TIPOCON,   row.get());
+				rec.put(CON_IDON1,     row.get());
+				rec.put(CON_IDON2,     row.get());
+				rec.put(CON_IDON3,     row.get());
+				rec.put(CON_IDON4,     row.get());
+				rec.put(CON_INTSI,     row.get());
+				rec.put(CON_INTAF, 		 row.get());
+				rec.put(CON_PROSSTIPO, row.get());
+				rec.put(CON_PROSSDATA, row.get());
+				rec.put(CON_MOTIVO, 	 row.get());
+				rec.put(CON_RESPONSAB, row.get());
+			}
+			err = ri ? _scontrolli->rewrite() : _scontrolli->write();
+		}
+		if (err == NOERR)
+		{
+			_sidoneita->destroy_rows();
+			TSheet_field& s = (TSheet_field&)m.field(F_IDONEITA);
+			TRectype* key = new TRectype(LF_IDONEITA);
+			key->put(IDO_CODICE, m.get(F_CODICE));
+			_sidoneita->set_key(key);
+			for (int r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				if (row.empty_items())
+					s.destroy(r-1);
+			}		                     
+			ordina_sheet_data(s);
+			for (r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				TRectype& rec = _sidoneita->row(r,TRUE);
+				rec.put(IDO_DATAIDO,   row.get(0));
+				rec.put(IDO_TIPOIDO,   row.get());
+				rec.put(IDO_IDO_SOS, 	 row.get());
+				rec.put(IDO_INTERVALLO,row.get());
+				rec.put(IDO_FINESOS, 	 row.get());
+				rec.put(IDO_MOTIVO, 	 row.get());
+				rec.put(IDO_RESPONSAB, row.get());
+			}
+			err = ri ? _sidoneita->rewrite() : _sidoneita->write();
+		}
+		if (err == NOERR)
+		{
+			_sbenemerenze->destroy_rows();
+			TSheet_field& s = (TSheet_field&)m.field(F_BENEMERENZE);
+			for (int r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				if (row.empty())
+					s.destroy(r-1);
+			}			
+			s.force_update();
+			TRectype* key = new TRectype(LF_BENEM);
+			key->put(BEN_CODICE, m.get(F_CODICE));
+			_sbenemerenze->set_key(key);
+			                     
+			ordina_sheet_data(s);
+			
+			for (r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				TRectype& rec = _sbenemerenze->row(r,TRUE);
+				rec.put(BEN_TIPOBEN, 		row.get(0));
+				rec.put(BEN_DATAMAT, 		row.get(2));
+				rec.put(BEN_BONUS, 			row.get());
+				rec.put(BEN_DATABEN, 		row.get());
+				rec.put(BEN_DATACON, 		row.get());
+				rec.put(BEN_RITIRATA, 	row.get());
+				rec.put(BEN_CODSEZ, 		row.get());
+				rec.put(BEN_CODSOT, 		row.get());
+				rec.put(BEN_GRUPPOAZIE,	row.get());
+			}
+			err = ri ? _sbenemerenze->rewrite() : _sbenemerenze->write();
+		}
+		if (err == NOERR)
+		{
+			_sstorico->destroy_rows();
+			TSheet_field& s = (TSheet_field&)m.field(F_STORICO);
+			TRectype* key = new TRectype(LF_STORICO);
+			key->put(STO_CODICE, m.get(F_CODICE));
+			_sstorico->set_key(key);
+			
+			// ordinamento dello sheet storico
+			ordina_sheet_data(s);
+			
+			for (int r=s.items(); r>0; r--)
+			{
+				TToken_string& row = s.row(r-1);
+				TRectype& rec = _sstorico->row(r,TRUE);
+				rec.put(STO_DATAISC, row.get(0));
+				rec.put(STO_DATADIM, row.get());
+				rec.put(STO_CODSEZ, row.get());
+				rec.put(STO_CODSOT, row.get());
+				rec.put(STO_CATISC, row.get());
+				rec.put(STO_MOTDIM, row.get());
+			}
+			err = ri ? _sstorico->rewrite() : _sstorico->write();
+		}
+		if (err == NOERR)
+		{ 
+			if (_famatt == -1)
+			{
+				TRectype* key = new TRectype(LF_FAMIGLIE);
+				key->put(FAM_FAMIGLIA, _lastfam+1);
+				_sfamiglia->set_key(key);
+				_lastfam = _lastfam+1;
+			}
+			if (_famatt != _famprec)
+				err = ri ? _sfamiglia->rewrite() : _sfamiglia->write();
+		}		
+		if ((err == NOERR) && (_nuovaconv))
+		{                  
+			TDate datac = m.get_date(F_DATACONV);
+			if (datac.ok())
+			{
+				TLocalisamfile rconvoc(LF_RCONVOC);
+			
+				int progconv = 0;
+				TLocalisamfile convoc(LF_CONVOC);
+				convoc.setkey(2);
+				convoc.zero();
+				convoc.put(COV_DATA, m.get(F_DATACONV));
+				convoc.put(COV_PUNTO, m.get(F_PUNTOCONV));
+				convoc.put(COV_TIPO, "SI");
+				convoc.put(COV_CODSEZ, m.get(F_CODSEZ));
+				convoc.put(COV_CODSOT, m.get(F_CODSOT));
+				if (convoc.read() == NOERR)
+				{
+					rconvoc.setkey(1);
+					rconvoc.zero();
+					rconvoc.put(COV_NUMERO, convoc.get(RCV_NUMERO));
+					TRectype r(rconvoc.curr());
+					int items = 0;
+				  for(rconvoc.read(); !rconvoc.eof(); rconvoc.next())
+				  {   
+				    if (rconvoc.curr() != r) break;
+				    progconv = rconvoc.get_int(RCV_PROGCONV);
+					}
+					progconv++;
+				}
+				else
+				{           
+					progconv++;
+					convoc.setkey(1);
+					convoc.last();
+					const long numero = convoc.get_long(COV_NUMERO)+1;
+					convoc.zero();
+					convoc.put(COV_DATA, m.get(F_DATACONV));
+					convoc.put(COV_PUNTO, m.get(F_PUNTOCONV));
+					convoc.put(COV_TIPO, "SI");
+					convoc.put(COV_CODSEZ, m.get(F_CODSEZ));
+					convoc.put(COV_CODSOT, m.get(F_CODSOT));
+					convoc.put(COV_NUMERO, numero);
+					convoc.put(COV_NOTE, "Convocazione automatica");
+					convoc.write();
+				}				
+				rconvoc.setkey(3);
+				rconvoc.zero();
+				rconvoc.put(RCV_CODICE, m.get(F_CODICE));
+				rconvoc.put(RCV_DATACONV, m.get(F_DATACONV));
+				if ((rconvoc.read() != NOERR) || (rconvoc.get_bool(RCV_ANNULLATO)))
+				{
+					rconvoc.zero();
+					rconvoc.put(RCV_CODICE, m.get(F_CODICE));
+					rconvoc.put(RCV_DATACONV, m.get(F_DATACONV));
+					rconvoc.put(RCV_NUMERO, convoc.get_long(COV_NUMERO));
+					rconvoc.put(RCV_PROGCONV, progconv);
+					rconvoc.put(RCV_CHIAMATA, 'C');
+					rconvoc.put(RCV_STAMPATO, m.get(F_STAMPATACONV));
+					err = rconvoc.write();
+				}
+			}			
+		}
+	}	
+	return err;
+}
+
+void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si)
+{           
+	const TDate datanulla(NULLDATE);
+	TDate data(NULLDATE);
+	TDate prossdata(NULLDATE);
+	TString16 tipo = "  ";
+	TString16 prosstipo = "  ";
+	char modstato = ' ';			  
+	int r_ultid = -1;					// riga ultima idoneità
+	int r_ultstato = -1;			// riga ultimo stato valido
+	char penultstato = ' ';		// penultimo stato valido
+	char ultstato = ' ';			// ultimo stato valido
+	TDate dataultstato(NULLDATE);	// data ultimo stato valido
+	
+	for (int r=s.items()-1; r>=0; r--)
+	{ 			
+		TToken_string& row = s.row(r);
+		tipo = row.get(1);
+   	modstato = modstato_tcs(tipo);
+ 		if ((modstato != 'N') && (r_ultstato == -1))
+ 			r_ultstato = r;
+ 		else if ((modstato != 'N') && (penultstato == ' '))
+					 penultstato = modstato;
+		if ((modstato == 'I') && (r_ultid == -1))
+			r_ultid = r;
+ 	}		
+	TString16 id1 = '  ';		
+	TString16 id2 = '  ';		
+	TString16 id3 = '  ';		
+	TString16 id4 = '  ';			
+	int intsi = 0;
+	int intaf = 0;
+	tipo = '  ';
+	prosstipo = '  ';
+	data = TDate(NULLDATE);
+	prossdata = TDate(NULLDATE);
+
+ 	if (r_ultid != -1)
+ 	{
+ 		TToken_string& row = s.row(r_ultid);
+		data = TDate(row.get(0));
+		tipo = row.get();
+		id1 = row.get();		
+		id2 = row.get();
+		id3 = row.get();
+		id4 = row.get();
+		intsi = row.get_int();
+		intaf = row.get_int();
+ 	}
+	TMask& mask = s.mask();
+	mask.field(F_DATAULTID).set(data);			
+	mask.field(F_DATAULTID).on_key(K_TAB);
+	mask.field(F_TIPOULTID).set(tipo);
+	mask.field(F_TIPOULTID).on_key(K_TAB);
+	mask.field(F_IDON1).set(id1);
+	mask.field(F_IDON1).on_key(K_TAB);
+	mask.field(F_IDON2).set(id2);
+	mask.field(F_IDON2).on_key(K_TAB);
+	mask.field(F_IDON3).set(id3);
+	mask.field(F_IDON3).on_key(K_TAB);
+	mask.field(F_IDON4).set(id4);
+	mask.field(F_IDON4).on_key(K_TAB);
+	mask.set(F_INTSI,intsi);
+	mask.field(F_INTSI).on_key(K_TAB);
+	mask.set(F_INTAF,intaf);
+	mask.field(F_INTAF).on_key(K_TAB);
+
+ 	tipo = '  ';
+ 	if (r_ultstato != -1)
+ 	{
+ 	 	TToken_string& row = s.row(r_ultstato);
+		dataultstato = TDate(row.get(0)); 	 	
+		tipo = row.get();
+		prosstipo = row.get(8);
+		prossdata = TDate(row.get());
+		ultstato = modstato_tcs(tipo);
+	}
+	mask.set(F_STATO,tipo);
+	mask.field(F_STATO).on_key(K_TAB);
+	mask.set(F_DATASTATO,dataultstato);
+	mask.set(F_PROS_STATO,prosstipo);
+	mask.field(F_PROS_STATO).on_key(K_TAB);
+	mask.set(F_DATA_PROS,prossdata);
+	  
+	if (intsi>0)
+	{
+	  mask.set(F_STATOSI,tipo);
+	  mask.set(F_DATASI,dataultstato);
+	  //if (prosstipo == "FS")
+	  if (modstato_tcs(prosstipo)=='F')
+	  	mask.set(F_FINESOSSI,prossdata);
+		else	  	
+	  	mask.set(F_FINESOSSI,datanulla);
+	}
+	else
+	{
+	  mask.set(F_STATOSI,"  ");
+	  mask.set(F_DATASI,datanulla);
+	  mask.set(F_FINESOSSI,datanulla);
+	}
+	if (intaf>0)
+	{
+	  mask.set(F_STATOAF,tipo);
+	  mask.set(F_DATAAF,dataultstato);
+	  //if (prosstipo == "FS")
+	  if (modstato_tcs(prosstipo)=='F')
+		  mask.set(F_FINESOSAF,prossdata);
+		else
+		  mask.set(F_FINESOSAF,datanulla);
+	}
+	else
+	{
+	  mask.set(F_STATOAF,"  ");
+	  mask.set(F_DATAAF,datanulla);
+	  mask.set(F_FINESOSAF,datanulla);
+	}
+		                             
+	/*	                             
+  mask.set(F_STATOSI,"  ");
+  mask.set(F_STATOAF,"  ");
+  mask.set(F_DATASI,datanulla);
+  mask.set(F_DATAAF,datanulla);
+  mask.set(F_FINESOSSI,datanulla);
+  mask.set(F_FINESOSAF,datanulla);
+	*/  
+	// riordino le idoneita
+	for (int ri=0; ri<si.items(); ri++)
+	{ 			  
+		TToken_string& row = si.row(ri);
+		TDate dataido = TDate(row.get(0));
+		TString16 tipoido = row.get();
+		TString16 ido_sos = row.get();
+		int intervallo = row.get_int();
+		TDate finesos = TDate(row.get());
+		if (tipoido == IDON_SI)
+			if ((intervallo != 0) && (intsi == 0))
+			{
+				mask.set(F_INTSI, intervallo);
+				mask.field(F_INTSI).on_key(K_TAB);
+			}					
+		if (tipoido == IDON_AF)
+			if ((intervallo != 0) && (intaf == 0))
+			{
+				mask.set(F_INTAF, intervallo);
+				mask.field(F_INTAF).on_key(K_TAB);
+			}					
+		if (dataido >= dataultstato)
+		{ 
+			if (tipoido == IDON_SI)
+			{
+				mask.field(F_DATASI).set(dataido);			
+				mask.field(F_STATOSI).set(ido_sos);			
+				mask.field(F_FINESOSSI).set(finesos);
+				if (intervallo != 0 && ido_sos == IDONEITA)
+				{
+					mask.set(F_INTSI,intervallo);
+					if (id1 != IDON_SI && id2 != IDON_SI && id3 != IDON_SI && id4 != IDON_SI)
+						if (id1.empty())
+							mask.field(F_IDON1).set(IDON_SI);
+						else						
+							if (id2.empty())
+								mask.field(F_IDON2).set(IDON_SI);
+							else						
+								if (id3.empty())
+									mask.field(F_IDON3).set(IDON_SI);
+								else						
+									if (id4.empty())
+										mask.field(F_IDON4).set(IDON_SI);
+				}				
+			}				
+			if (tipoido == IDON_AF)
+			{
+				mask.field(F_DATAAF).set(dataido);			
+				mask.field(F_STATOAF).set(ido_sos);			
+				mask.field(F_FINESOSAF).set(finesos);
+				if (intervallo != 0 && ido_sos == IDONEITA)
+				{
+					mask.set(F_INTAF,intervallo);
+					if (id1 != IDON_PL && id2 != IDON_PL && id3 != IDON_PL && id4 != IDON_PL)
+						if (id1.empty())
+							mask.field(F_IDON1).set(IDON_PL);
+						else						
+							if (id2.empty())
+								mask.field(F_IDON2).set(IDON_PL);
+							else						
+								if (id3.empty())
+									mask.field(F_IDON3).set(IDON_PL);
+								else						
+									if (id4.empty())
+										mask.field(F_IDON4).set(IDON_PL);
+				}				
+			}				
+		}			
+	}				
+	TTable tcs("TCS"); 
+	tcs.put("CODTAB",tipo);
+	if (tcs.read() == NOERR)
+	{
+		TString catcoll = tcs.get("S7");
+		if (catcoll.not_empty())
+		{
+			mask.set(F_CATDON,catcoll);
+			mask.field(F_CATDON).on_key(K_TAB);
+		}		
+	}		
+	// verifico la concordanza di stato soggetto e stato idoneita
+	TString16 statosi = mask.get(F_STATOSI);
+	TString16 statoaf = mask.get(F_STATOAF);
+	TDate datastatosi = mask.get_date(F_DATASI);
+	TDate datastatoaf = mask.get_date(F_DATAAF);
+	if (statosi.not_empty() || statoaf.not_empty())
+	{ 
+		TString16 stato = mask.get(F_STATO);
+		char modstato = modstato_tcs(stato);           
+		// prima c'era un &&
+		if ((statosi == IDONEITA) || (statoaf == IDONEITA))
+	  	if ((modstato != 'I') && (modstato != 'F')) //corretto || con && da Marco in data 07/09/99
+	  		stato = IDONEITA;
+		//if ((statosi == SOSPENSIONE || statosi.empty()) && (statoaf == SOSPENSIONE || statoaf.empty()))
+		if ((statosi == SOSPENSIONE) && (statoaf == SOSPENSIONE))
+	  	if (modstato != 'S')
+	  		stato = SOSPENSIONE;      
+		char statocalcolato =	modstato_tcs(stato);
+		if (modstato != statocalcolato)
+		{
+			mask.set(F_STATO, stato);
+			mask.field(F_STATO).on_key(K_TAB);
+			mask.set(F_PROS_STATO,"  ");
+			mask.field(F_PROS_STATO).on_key(K_TAB);
+			mask.set(F_DATA_PROS,datanulla);
+			mask.field(F_DATA_PROS).on_key(K_TAB);
+			if (statocalcolato == 'I')
+			{   
+				TDate datacalcolata = NULLDATE;
+				if (statosi == IDONEITA)
+					datacalcolata = datastatosi;
+				if ((statoaf == IDONEITA) && (datastatoaf > datacalcolata))
+					datacalcolata = datastatoaf;					
+				mask.set(F_DATASTATO,datacalcolata);
+			}
+			else
+				if (datastatoaf > datastatosi)
+					mask.set(F_DATASTATO,datastatoaf);
+				else
+					mask.set(F_DATASTATO,datastatosi);							
+	  }
+	}	  
+ 	d_datepross(s);
+	
+ 	if (((penultstato == 'S') || (penultstato == 'I')) && ((ultstato == 'I') || (ultstato == 'F')))
+ 	{
+ 		data = mask.get_date(F_DATAPROSSI);
+		if (data < dataultstato && data.ok()) mask.set(F_DATAPROSSI,dataultstato);
+ 		data = mask.get_date(F_DATAPROSAF);		
+ 		if (data < dataultstato && data.ok()) mask.set(F_DATAPROSAF,dataultstato);
+ 	}
+ 	// verifico la categoria e lo stato
+	TString16 catdon = mask.get(F_CATDON);		
+	TTable ctd("CTD"); 	
+	ctd.put("CODTAB",catdon);
+	if (ctd.read() == NOERR)
+	{ 
+		const bool dimissione = ctd.get_bool("B0");
+		const char statocalcolato = modstato_tcs(mask.get(F_STATO));
+		// tolto l'if da Cristina il 18/06/99 - da qui
+		// rimesso da Marco il 06/07/99 modificando dimissione in !dimissione e suddividendolo in due if
+		if ((statocalcolato == 'I') || (statocalcolato == 'F'))
+		{
+			int totdon = mask.get_int(F_TOTDON);
+			if (!dimissione)
+			{
+				//Operazione sostituita da Marco il 26/07/99 al posto di quella commentata sotto
+				if ((catdon == app()._catini1 || app()._catini1.empty()) && (totdon>=app()._numdon1) && app()._catfin1.not_empty())
+				{
+					mask.set(F_CATDON, app()._catfin1);    
+					catdon = app()._catfin1;
+				}	
+				const bool tstampata = mask.get_bool(F_T_STAMPATA);				
+				if ((catdon == app()._catini2 || app()._catini2.empty()) && (totdon>=app()._numdon2) && app()._catfin2.not_empty() && ((!app()._sttess2)|| (tstampata)))
+				{
+					mask.set(F_CATDON, app()._catfin2);
+					catdon = app()._catfin2;
+				}	
+			// Corretto da Marco il 26/07/99 sostituendolo con quello sopra
+			// Reinserito come else da Marco il 07/09/99 per gestire il cambio in caso di inserimento idoneità parziali invece di controllo
+			}
+			else
+			{
+				if ((totdon>=app()._numdon1) && (app()._catfin1.not_empty()))
+				{
+					mask.set(F_CATDON, app()._catfin1);
+					catdon = app()._catfin1;
+				}	
+				const bool tstampata = mask.get_bool(F_T_STAMPATA);
+				if ((totdon>=app()._numdon2) && (app()._catfin2.not_empty()) && ((!app()._sttess2) || (tstampata)))
+				{
+					mask.set(F_CATDON, app()._catfin2);
+					catdon = app()._catfin2;
+				}	
+			}
+			mask.field(F_CATDON).on_key(K_TAB);			
+			TDate datanulla(NULLDATE);
+			mask.set(F_DATADIM,datanulla);
+		}
+		//fino a qui 
+	}				
+}
+
+bool TGestioneSoggetti::famiglia_notify(TSheet_field& s, int r, KEY k)
+{
+	static long oldcodice;
+	switch (k)
+	{ 
+		case K_ENTER:				// uscita da riga modificata
+		{     
+			TToken_string& row = s.row(r);
+			const long codice = row.get_long(1);
+			if (codice != 0)
+			{
+				TLocalisamfile fam(LF_FAMIGLIE);
+				fam.setkey(2);
+				TRectype& recfam = fam.curr();
+				recfam.zero();
+				recfam.put(FAM_CODFAM, codice);
+				if (fam.read() == NOERR)
+					if (fam.get_long(FAM_FAMIGLIA) != app()._famatt)
+						return s.error_box("Soggetto gia' inserito in altra famiglia");
+				app()._famprec = 0;
+			}
+		}
+		break;		
+		case K_CTRL+K_DEL:  // avvenuta cancellazione riga
+		{
+			if (s.items() == 1 || oldcodice == app()._codice)
+			{
+				s.destroy();
+				app()._famatt = 0;
+				TMask& m = s.mask();
+				m.show(-1);
+				m.hide(F_FAMIGLIARI);
+			}
+			else
+				app()._famprec = 0;
+		}     
+		break;
+		case K_DEL:					// richiesta di cancellazione riga
+		{
+			if (s.items() == 2)
+				return s.yesno_box("Attenzione: dopo la cancellazione la famiglia verra' eliminata");
+			TToken_string& row = s.row(r);
+			const long codice = row.get_long(1);
+			oldcodice = codice;
+			if (app()._codice == codice)
+				return s.yesno_box("Attenzione: si sta eliminando il soggetto dalla famiglia");
+		}	
+		break;
+	} 	
+	return TRUE;
+}
+
+bool TGestioneSoggetti::donazioni_notify(TSheet_field& s, int r, KEY k)
+{              
+	static TToken_string oldrow;
+	bool modified = FALSE;
+	TMask& mask = s.mask();
+	if (k == K_CTRL+K_DEL)		// avvenuta cancellazione riga
+	{
+		int totdon = mask.get_int(F_TOTDON);
+ 		mask.set(F_TOTDON,totdon-1);
+ 		const TDate data = oldrow.get(0);
+ 		const TString16 tipo = oldrow.get();
+		if (data == mask.get_date(F_DATAULTDON) 
+			  || data == mask.get_date(F_DATAULTSI)
+	  		|| data == mask.get_date(F_DATAULTAF))
+			modified = TRUE;	  		
+ 		if (is_donaz(tipo,IDON_SI))
+ 		{
+ 			totdon = mask.get_int(F_TOTDONSI);
+ 			mask.set(F_TOTDONSI,totdon-1);
+ 		}	
+ 		else
+ 			if (is_donaz(tipo,IDON_AF))
+ 			{
+ 				totdon = mask.get_int(F_TOTDONAF);
+ 				mask.set(F_TOTDONAF,totdon-1);
+ 			}	
+	}
+	else
+	{
+		switch (k)                                           
+		{ 
+			case K_DEL:						// richiesta di cancellazione riga
+				oldrow = s.row(r);
+			break;				
+	  	case K_SPACE:				// inizio modifica riga
+	  		oldrow = s.row(r);
+	  	break;
+			case K_ENTER:				// uscita da riga modificata
+			{
+				TToken_string& row = s.row(r);
+	 			const TDate actdata(row.get(0));
+	 			const TString16 acttipo(row.get());
+	 			const TDate olddata = oldrow.get(0);
+	 			const TString16 oldtipo = oldrow.get();
+//Righe aggiunte da Marco in data 05/08/99 per visualizzare un messaggio di avvertimento in caso di donazione in stato di sospensione
+	 			const char statocalcolato = modstato_tcs(mask.get(F_STATO)); 
+	 			const char statosi = modstato_tcs(mask.get(F_STATOSI));
+	 			const char statoaf = modstato_tcs(mask.get(F_STATOAF));
+	 			if (actdata > mask.get_date(F_DATASTATO))
+	 				if (((statocalcolato != 'I') && (statocalcolato != 'F')) || ((statosi != 'I') && (is_donaz(acttipo,IDON_SI)))
+	 						|| ((statoaf != 'I') && (is_donaz(acttipo,IDON_AF))))     
+	  			{
+	  				TString messaggio = "";
+	  				messaggio << "Stato soggetto non compatibile per una donazione.\n";
+	  				messaggio << "In caso si prosegua, adeguare manualmente lo stato del soggetto!!!";
+	  				s.warning_box(messaggio);	
+	  			};   
+//fino a qui
+	  		if (olddata != actdata)
+	  		{
+  				ordina_sheet_data(s);
+  				s.force_update();
+					if (olddata == mask.get_date(F_DATAULTSI) 
+							|| olddata == mask.get_date(F_DATAULTAF)
+							|| actdata > mask.get_date(F_DATAULTSI) 
+							|| actdata > mask.get_date(F_DATAULTAF))
+	    			modified = TRUE;
+				}		    			
+	  		if (oldtipo != acttipo)
+	  			modified = TRUE;
+	  	}		
+	  	break;  	
+	  	case K_CTRL+K_INS:	// avvenuto inserimento riga (ancora vuota)
+// Aggiunte le righe seguenti da Marco il 05/08/99 per visualizzare un messaggio in caso di inserimento donazione su soggetto non idoneo
+	  		if ((modstato_tcs(mask.get(F_STATO)) != 'I') && (modstato_tcs(mask.get(F_STATO)) != 'F'))
+	  		{	
+	  			TString messaggio = "";
+	  			messaggio << "Stato soggetto non compatibile per una donazione.\n";
+	  			messaggio << "In caso si prosegua, adeguare manualmente lo stato del soggetto!!!";
+	  			s.warning_box(messaggio);	
+	  		} 
+//Fino a qui
+	  		const int totdon = mask.get_int(F_TOTDON);
+	  		mask.set(F_TOTDON,totdon+1);  			
+	  	break;
+	  }
+	}	  
+  if (modified)
+  	app().calcola_donazioni(mask, s);
+  return TRUE;  
+}
+
+bool TGestioneSoggetti::controlli_notify(TSheet_field& s, int r, KEY k)
+{
+	static bool delete_l = FALSE;	// flag per cancellazione ultima riga
+	static TToken_string oldrow;
+	bool modified = FALSE;
+	TMask& mask = s.mask();
+	if (k == K_CTRL+K_DEL)	// avvenuta cancellazione riga
+  {
+		if (delete_l)
+  		modified = TRUE;
+  	delete_l = FALSE;	
+ 	}		
+	else	
+	{
+		switch (k)
+		{
+			case K_INS:  			// richiesta inserimento riga
+				return app()._permesso;
+			break;		
+	  	case K_SPACE:	  	// inizio modifica riga	  		
+	  		oldrow = s.row(r);
+	  	break;
+			case K_ENTER:			// uscita da riga modificata
+			{             
+				TToken_string& row = s.row(r);
+	 			const TDate actdata(row.get(0));
+	 			const TString16 acttipo(row.get());
+	 			const TDate olddata(oldrow.get(0));
+	 			const TString16 oldtipo(oldrow.get());
+	 			if (olddata != actdata)
+	  		{
+	  			ordina_sheet_data(s);
+	  			app().tipocon_set_sheet(s);
+	  			s.force_update();
+	  		}	
+				if (modstato_tcs(oldtipo) != 'N' || modstato_tcs(acttipo) != 'N')
+	    		modified = TRUE;						    		
+	  	}		
+	  	break;  	
+	  	case K_DEL:  	  	// richiesta di cancellazione riga
+	  	{	             
+	  		oldrow = s.row(r);
+	  		const TString16 oldtipo(oldrow.get(1));
+	  		if (r == (s.items()-1) && modstato_tcs(oldtipo) != 'N') 
+	  			delete_l = TRUE;
+				return app()._permesso;	  			
+	 		}		
+	  	break;	
+	  }
+  }
+  if (modified)
+  {
+		TSheet_field& i = (TSheet_field&)mask.field(F_IDONEITA);
+  	c_reord(s, i);		
+	}  	
+	return TRUE;  
+}
+
+bool TGestioneSoggetti::idoneita_notify(TSheet_field& s, int r, KEY k)
+{               
+	static TToken_string oldrow;
+	bool modified = FALSE;
+	TMask& mask = s.mask();
+
+	if (k == K_CTRL+K_DEL)	// avvenuta cancellazione riga
+  		modified = TRUE;
+	else	
+	{
+		switch (k)
+		{                                          
+			case K_INS:  			// richiesta inserimento riga
+				return app()._permesso;
+			break;		
+	  	case K_SPACE:	  	// inizio modifica riga
+	  		oldrow = s.row(r);
+	  	break;
+			case K_ENTER:			// uscita da riga modificata
+			{
+				TToken_string& row = s.row(r);
+	 			const TDate actdata(row.get(0));
+	 			const TString16 acttipo(row.get());
+				const TString16 actidosos(row.get());	 			
+	 			const TDate olddata(oldrow.get(0));
+	 			const TString16 oldtipo(oldrow.get());
+	 			const TString16 oldidosos(oldrow.get());
+	 			if (olddata != actdata)
+	  		{
+	  			ordina_sheet_data(s);
+	  			app().idosos_set_sheet(s);
+	  			s.force_update();
+	  		}	
+	  		if (olddata!=actdata || oldtipo!=acttipo || oldidosos!=actidosos)
+	    		modified = TRUE;
+	  	}		
+	  	break;  	
+	  	case K_DEL:
+	  		return app()._permesso;
+	  }
+  }
+  if (modified)
+  {
+		TSheet_field& c = (TSheet_field&)mask.field(F_CONTROLLI);
+		c_reord(c,s);
+	}		
+	return TRUE;  
+}
+
+
+bool TGestioneSoggetti::benemerenze_notify(TSheet_field& s, int r, KEY k)
+{
+  if (k == K_ENTER)
+  {
+  }
+	return TRUE;  
+}
+
+bool TGestioneSoggetti::storico_notify(TSheet_field& s, int r, KEY k)
+{
+  if (k == K_ENTER)
+  {
+  }
+	return TRUE;  
+}
+
+bool TGestioneSoggetti::richiesta_password()
+{                      
+	TMask& mask = *(app().get_mask());
+	TMask msk("at0100e");
+  if (msk.run() == K_ENTER) 
+  {
+  	if (msk.get(F_PASSWORD) == "BAMP")
+  	{   
+  		mask.enable(F_CONTROLLI);
+  		mask.enable(F_IDONEITA);
+  		return TRUE;
+		}  		
+		else  		
+		{
+			error_box("Password errata! Non e' possibile modificare la situazione sanitaria");			
+  		mask.disable(F_CONTROLLI);
+  		mask.disable(F_IDONEITA);
+		}			
+  }
+	return FALSE;  
+}
+
+int at0100(int argc, char* argv[])
+{
+	TGestioneSoggetti a;
+	a.run(argc, argv, "Soggetti");
+	return 0;
+}
\ No newline at end of file
diff --git a/at/at1.h b/at/at1.h
new file mode 100755
index 000000000..eadec5e7f
--- /dev/null
+++ b/at/at1.h
@@ -0,0 +1,12 @@
+#ifndef __AT1_H
+#define __AT1_H
+
+int at1100(int argc, char* argv[]);
+int at1200(int argc, char* argv[]);
+int at1300(int argc, char* argv[]);
+int at1400(int argc, char* argv[]);
+int at1500(int argc, char* argv[]);
+int at1600(int argc, char* argv[]);
+
+#endif // __AT1_H
+
diff --git a/at/at2500a.h b/at/at2500a.h
new file mode 100755
index 000000000..d213af89f
--- /dev/null
+++ b/at/at2500a.h
@@ -0,0 +1,39 @@
+// stampa soggetti idonei
+// definizione campi per maschera di selezione
+
+#define F_SEZINI    101
+#define F_D_SEZINI  102
+#define F_SOTINI    103
+#define F_D_SOTINI  104
+#define F_SEZFIN    105
+#define F_D_SEZFIN  106
+#define F_SOTFIN    107
+#define F_D_SOTFIN  108
+
+#define F_CAT1      201
+#define F_D_CAT1    202
+#define F_CAT2      203
+#define F_D_CAT2    204
+#define F_CAT3      205
+#define F_D_CAT3    206
+#define F_CAT4      207
+#define F_D_CAT4    208
+#define F_CAT5      209
+#define F_D_CAT5    210
+#define F_CAT6      211
+#define F_D_CAT6    212
+
+#define F_TIPO      301
+#define F_D_TIPO    302
+#define F_IDON1     303
+#define F_IDON2     304
+#define F_IDON3     305
+#define F_IDON4     306
+#define F_D_IDON1   307
+#define F_D_IDON2   308
+#define F_D_IDON3   309
+#define F_D_IDON4   310
+#define F_STAMPA    311
+
+#define F_ELENCO    401
+#define F_ETICHETTE 402
diff --git a/at/at4.h b/at/at4.h
new file mode 100755
index 000000000..2dabd69c3
--- /dev/null
+++ b/at/at4.h
@@ -0,0 +1,15 @@
+#ifndef __AT4_H
+#define __AT4_H
+
+int at4100(int argc, char* argv[]);
+int at4200(int argc, char* argv[]);
+int at4300(int argc, char* argv[]);
+int at4400(int argc, char* argv[]);
+int at4500(int argc, char* argv[]);
+int at4600(int argc, char* argv[]);
+int at4700(int argc, char* argv[]);
+int at4800(int argc, char* argv[]);
+int at4900(int argc, char* argv[]);
+
+#endif // __AT4_H
+