diff --git a/pr/pr0500a.uml b/pr/pr0500a.uml
index fa24235ce..aea3c8dde 100755
--- a/pr/pr0500a.uml
+++ b/pr/pr0500a.uml
@@ -24,6 +24,7 @@ BEGIN
   INPUT CODAGE F_CODAGE
   DISPLAY "Codice@8R" CODAGE
   DISPLAY "Descrizione@50" RAGSOC
+  DISPLAY "Capo Zona@5" CAPO
   OUTPUT F_CODAGE CODAGE
   OUTPUT F_RAGSOC RAGSOC
   CHECKTYPE REQUIRED
@@ -76,11 +77,8 @@ BEGIN
   PROMPT 2 6 "Tipo agente    "
   FIELD TIPO
   ITEM "A|Agente"
-  MESSAGE CLEAR,G_CAPOZONA@
   ITEM "C|Capozona"
-  MESSAGE ENABLE,G_CAPOZONA@
   ITEM "S|Subagente"
-  MESSAGE ENABLE,G_CAPOZONA@
 END
 
 GROUPBOX DLG_NULL 80 4
@@ -91,13 +89,12 @@ END
 
 STRING F_CODCAPO 5
 BEGIN
-  PROMPT 2 8 "Cod. capozona  "
+  PROMPT 2 8 "Cod. capo zona "
   FIELD CODCAPO
   FLAGS "UZ"
   USE LF_AGENTI SELECT TIPO=="C"
   INPUT CODAGE F_CODCAPO
-  DISPLAY "Codice@8R" CODAGE
-  DISPLAY "Descrizione@50" RAGSOC
+  COPY DISPLAY F_CODAGE
   OUTPUT F_CODCAPO CODAGE
   OUTPUT F_DESCRCAPO RAGSOC
   CHECKTYPE NORMAL
@@ -111,10 +108,8 @@ BEING
   PROMPT 27 8 ""
   USE LF_AGENTI KEY 2 SELECT TIPO=="C"
   INPUT RAGSOC F_DESCRCAPO
-  DISPLAY "Descrizione@50" RAGSOC
-  DISPLAY "Codice@8R" CODAGE
-  OUTPUT F_CODCAPO CODAGE
-  OUTPUT F_DESCRCAPO RAGSOC
+  COPY DISPLAY F_RAGSOC
+  COPY OUTPUT F_CODCAPO
   CHECKTYPE NORMAL
   GROUP G_CAPOZONA
 END