diff --git a/at/at0100a.uml b/at/at0100a.uml
index 02c5ed828..5a1b80881 100755
--- a/at/at0100a.uml
+++ b/at/at0100a.uml
@@ -377,7 +377,7 @@ BEGIN
   PROMPT 13 16 "Localita' "
   FIELD RES_CODLOC
   FLAGS "U"
-  USE LCP SELECT S7=#F_RES_CODLOC
+  USE LCP SELECT S7=#F_RES_CODCOM
   INPUT CODTAB F_RES_CODLOC
   DISPLAY "Codice" CODTAB
   DISPLAY "Localita'@30" S0
@@ -394,7 +394,7 @@ END
 STRING F_RES_DENLOC 30
 BEGIN
   PROMPT 30 16 ""
-  USE LCP SELECT S7=#F_RES_CODLOC
+  USE LCP SELECT S7=#F_RES_CODCOM
   INPUT S0 F_RES_DENLOC
   DISPLAY "Localita'@30" S0
   DISPLAY "CAP@5" S6