diff --git a/at/at0200.cpp b/at/at0200.cpp
index 30f8ac420..559a682dc 100755
--- a/at/at0200.cpp
+++ b/at/at0200.cpp
@@ -506,8 +506,11 @@ int TGiornalieroDC::write(TSheet_field& s)
 						TString16 id4 = sog.get(SOG_IDON4);	  // idon. 4
 						int intsi = sog.get_int(SOG_INTSI);		// intervallo per SI
 						int intaf = sog.get_int(SOG_INTAF);		// intervallo per AF
-						id_si = ((statosi == "ID") && (intsi != 0));		// il soggetto è idoneo SI
-						id_af = ((statoaf == "ID") && (intaf != 0));		// il soggetto è idoneo AF
+						
+						const char modstatosi = modstato_tcs(statosi);
+						const char modstatoaf = modstato_tcs(statoaf);
+						id_si = ((modstatosi == 'I') && (intsi != 0));		// il soggetto è idoneo SI
+						id_af = ((modstatoaf == 'I') && (intaf != 0));		// il soggetto è idoneo AF
 				 
 						int totdon = sog.get_int(SOG_TOTDON);
 						TDate dataultdon = sog.get_date(SOG_DATAULTDON);
@@ -630,8 +633,10 @@ int TGiornalieroDC::write(TSheet_field& s)
 					  modstato = modstato_tcs(stato);
 						if (modstato == 'I' || modstato == 'F')	// il soggetto è idoneo
 						{ 
-							id_si = ((statosi == "ID") && (intsi != 0));		// il soggetto è idoneo SI
-							id_af = ((statoaf == "ID") && (intaf != 0));		// il soggetto è idoneo AF
+							const char modstatosi = modstato_tcs(statosi);
+							const char modstatoaf = modstato_tcs(statoaf);
+							id_si = ((modstatosi == 'I') && (intsi != 0));		// il soggetto è idoneo SI
+							id_af = ((modstatoaf == 'I') && (intaf != 0));		// il soggetto è idoneo AF
 							
 							if (dataultdon.ok())		// se ha fatto almeno una donazione
 							{
diff --git a/at/at0200a.h b/at/at0200a.h
index 69d398820..af1b40a60 100755
--- a/at/at0200a.h
+++ b/at/at0200a.h
@@ -17,25 +17,25 @@
 
 // pagina soggetti
 #define F_S_CODICE                101
-#define F_S_CODCT                 102
-#define F_S_COGNOME               103
-#define F_S_NOME                  104
-#define F_S_TESSAVIS              105
-#define F_S_TIPODON               106
-#define F_S_TIPOCON               107
-#define F_S_ETICHETTA             108
-#define F_S_PRIMADON              109
-#define F_S_DATADON               110
-#define F_S_DATANASC              111
-#define F_S_CODSEZ                112
-#define F_S_CODSOT                113
-#define F_S_CATDON                114
-#define F_S_INTSI                 115
-#define F_S_CC                    116
-#define F_S_PA                    117
-#define F_S_HB                    118
-#define F_S_SGPT                  119
-#define F_S_PROTIDEMIA            120
+#define F_S_COGNOME               102
+#define F_S_NOME                  103
+#define F_S_TESSAVIS              104
+#define F_S_TIPODON               105
+#define F_S_TIPOCON               106
+#define F_S_ETICHETTA             107
+#define F_S_PRIMADON              108
+#define F_S_DATADON               109
+#define F_S_DATANASC              110
+#define F_S_CODSEZ                111
+#define F_S_CODSOT                112
+#define F_S_CATDON                113
+#define F_S_INTSI                 114
+#define F_S_CC                    115
+#define F_S_PA                    116
+#define F_S_HB                    117
+#define F_S_SGPT                  118
+#define F_S_PROTIDEMIA            119
+#define F_S_CODCT                 120
 
 #define F_S_DENSEZ                151
 #define F_S_DENSOT                152
diff --git a/at/at0200a.uml b/at/at0200a.uml
index 7865cfee4..602eb22a4 100755
--- a/at/at0200a.uml
+++ b/at/at0200a.uml
@@ -160,7 +160,6 @@ SPREADSHEET F_SOGGETTI
 BEGIN
    PROMPT 2 6 "Soggetti"
    ITEM "Codice@8"
-   ITEM "Cod.CT@6"
    ITEM "Cognome@25"
    ITEM "Nome@25"
    ITEM "Tessera"
@@ -179,6 +178,7 @@ BEGIN
    ITEM "Hb@4"
    ITEM "SGPT"
    ITEM "Prot."
+   ITEM "Cod.CT"
 END
 
 ENDPAGE
@@ -224,37 +224,6 @@ BEGIN
   ADD RUN at0 -0
 END
 
-STRING F_S_CODCT 6
-BEGIN
-  PROMPT 25 1 "Cod. CT "
-  FLAGS "U"
-  USE LF_SOGGETTI KEY 7
-  INPUT CODCT F_S_CODCT
-  DISPLAY "Cod.CT@6" CODCT
-  DISPLAY "Codice@8" CODICE
-  DISPLAY "Cognome@25" COGNOME
-  DISPLAY "Nome@25" NOME
-  DISPLAY "Nato il@10" DATANASC
-  DISPLAY "Sez." CODSEZ
-  DISPLAY "Sot." CODSOT
-  DISPLAY "C." CATDON
-  DISPLAY "Tessera" TESSAVIS
-  DISPLAY "Gr.AB0" GRUPPOAB0
-  DISPLAY "Rh " RHANTID
-  DISPLAY "Int.SI" INTSI
-  OUTPUT F_S_CODICE CODICE
-  OUTPUT F_S_COGNOME COGNOME
-  OUTPUT F_S_NOME NOME
-  OUTPUT F_S_DATANASC DATANASC
-  OUTPUT F_S_CODSEZ CODSEZ
-  OUTPUT F_S_CODSOT CODSOT
-  OUTPUT F_S_CATDON CATDON
-  OUTPUT F_S_TESSAVIS TESSAVIS
-  OUTPUT F_S_INTSI INTSI
-  OUTPUT F_S_CODCT CODCT
-  ADD RUN at0 -0
-END
-
 STRING F_S_COGNOME 25
 BEGIN
   PROMPT 2 2 "Cognome e nome "
@@ -461,7 +430,38 @@ BEGIN
    FLAGS "U"
    GROUP 2
 END
-   
+
+STRING F_S_CODCT 6
+BEGIN
+  PROMPT 25 1 "Cod. CT "
+  FLAGS "U"
+  USE LF_SOGGETTI KEY 7
+  INPUT CODCT F_S_CODCT
+  DISPLAY "Cod.CT@6" CODCT
+  DISPLAY "Codice@8" CODICE
+  DISPLAY "Cognome@25" COGNOME
+  DISPLAY "Nome@25" NOME
+  DISPLAY "Nato il@10" DATANASC
+  DISPLAY "Sez." CODSEZ
+  DISPLAY "Sot." CODSOT
+  DISPLAY "C." CATDON
+  DISPLAY "Tessera" TESSAVIS
+  DISPLAY "Gr.AB0" GRUPPOAB0
+  DISPLAY "Rh " RHANTID
+  DISPLAY "Int.SI" INTSI
+  OUTPUT F_S_CODICE CODICE
+  OUTPUT F_S_COGNOME COGNOME
+  OUTPUT F_S_NOME NOME
+  OUTPUT F_S_DATANASC DATANASC
+  OUTPUT F_S_CODSEZ CODSEZ
+  OUTPUT F_S_CODSOT CODSOT
+  OUTPUT F_S_CATDON CATDON
+  OUTPUT F_S_TESSAVIS TESSAVIS
+  OUTPUT F_S_INTSI INTSI
+  OUTPUT F_S_CODCT CODCT
+  ADD RUN at0 -0
+END
+
 STRING F_S_DESC_TIPOCON 25
 BEGIN
   PROMPT 23 7 ""