diff --git a/at/at0100a.uml b/at/at0100a.uml
index 61e4780eb..9542055cc 100755
--- a/at/at0100a.uml
+++ b/at/at0100a.uml
@@ -42,7 +42,28 @@ END
 
 BUTTON F_RICPARZ 23 1
 BEGIN
-   PROMPT 50 1 "Ricerca parziale"
+   PROMPT 26 1 "Ricerca parziale"
+END
+
+STRING F_CODCT 6
+BEGIN
+  PROMPT 60 1 "Cod. CT "
+  FIELDS CODCT
+  FLAGS "U"
+  KEY 7
+  MESSAGE COPY,5@
+  USE LF_SOGGETTI KEY 7
+  INPUT CODCT F_CODCT
+  DISPLAY "Codice CT" 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
+  OUTPUT F_CODICE CODICE
+  HELP "Codice Centro Trasfusionale"
 END
 
 STRING F_COGNOME 25
@@ -697,27 +718,6 @@ BEGIN
   HELP "Numero cartella clinica"
 END
 
-STRING F_CODCT 6
-BEGIN
-  PROMPT 25 8 "Cod. CT "
-  FIELDS CODCT
-  FLAGS "U"
-  KEY 7
-  MESSAGE COPY,5@
-  USE LF_SOGGETTI KEY 7
-  INPUT CODCT F_CODCT
-  DISPLAY "Codice CT" 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
-  OUTPUT F_CODICE CODICE
-  HELP "Codice Centro Trasfusionale"
-END
-
 STRING F_TESSSSN 10
 BEGIN
   PROMPT 42 8 "SSN "