diff --git a/ca/ca0600a.uml b/ca/ca0600a.uml
index 511fb6382..187cf0567 100755
--- a/ca/ca0600a.uml
+++ b/ca/ca0600a.uml
@@ -230,7 +230,7 @@ STRING F_CMS_CODTIPCM 5
 BEGIN
   PROMPT 2 8 "Tipologia di commessa "
   FIELD CODTIPCM
-  USE TPC
+  USE %TPC
   INPUT CODTAB F_CMS_CODTIPCM
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
@@ -242,7 +242,7 @@ END
 STRING F_CMS_DESTIPCM 50 42
 BEGIN
   PROMPT 32 8 ""
-  USE TPC KEY 2
+  USE %TPC KEY 2
   INPUT S0 F_CMS_DESTIPCM
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
@@ -253,7 +253,7 @@ STRING F_CMS_CODTIPOL 5
 BEGIN
   PROMPT 2 9 "Tipologia di lavoro   "
   FIELD CODTIPO
-  USE TPL
+  USE %TPL
   INPUT CODTAB F_CMS_CODTIPOL
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
@@ -265,7 +265,7 @@ END
 STRING F_CMS_DESTIPOL 50 42
 BEGIN
   PROMPT 32 9 ""
-  USE TPL KEY 2
+  USE %TPL KEY 2
   INPUT S0 F_CMS_DESTIPOL
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
@@ -276,7 +276,7 @@ STRING F_CMS_CODRESP 10
 BEGIN
   PROMPT 2 10 "Responsabile     "
   FIELD CODRESP
-  USE RSP
+  USE %RSP
   INPUT CODTAB F_CMS_CODRESP
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
@@ -288,7 +288,7 @@ END
 STRING F_CMS_DESRESP 50 42
 BEGIN
   PROMPT 32 10 ""
-  USE RSP KEY 2
+  USE %RSP KEY 2
   INPUT S0 F_CMS_DESRESP
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
diff --git a/ca/catbrsp.uml b/ca/catbrsp.uml
index 40f1bb2b6..251065ce4 100755
--- a/ca/catbrsp.uml
+++ b/ca/catbrsp.uml
@@ -9,11 +9,30 @@ PAGE "Responsabili" -1 -1 64 6
 STRING F_RSP_CODICE 10
 BEGIN
   PROMPT 2 2 "Codice      "
+  USE %RSP
+  FIELD CODTAB
+  FLAGS "UZ"
+  KEY 1
+  INPUT CODTAB F_RSP_CODICE
+  DISPLAY "Codice@10" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_RSP_CODICE CODTAB
+  OUTPUT F_RSP_DESCR S0
+  CHECKTYPE REQUIRED
 END
 
 STRING F_RSP_DESCR 50
 BEGIN
   PROMPT 2 3 "Descrizione "
+  USE %RSP
+  FIELD S0
+  KEY 2
+  INPUT S0 F_RSP_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@10" CODTAB
+  COPY OUTPUT F_RSP_CODICE
+  CHECKTYPE NORMAL
+  WARNING "Manca la descrizione"
 END
 
 ENDPAGE
diff --git a/ca/catbtpc.uml b/ca/catbtpc.uml
index ad6815633..cf4226121 100755
--- a/ca/catbtpc.uml
+++ b/ca/catbtpc.uml
@@ -9,11 +9,30 @@ PAGE "Tipo Commessa" -1 -1 64 6
 STRING F_TPC_CODICE 5
 BEGIN
   PROMPT 2 2 "Codice      "
+  USE %TPC
+  FIELD CODTAB
+  FLAGS "UZ"
+  KEY 1
+  INPUT CODTAB F_TPC_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_TPC_CODICE CODTAB
+  OUTPUT F_TPC_DESCR S0
+  CHECKTYPE REQUIRED
 END
 
 STRING F_TPC_DESCR 50
 BEGIN
   PROMPT 2 3 "Descrizione "
+  USE %TPC
+  FIELD S0
+  KEY 2
+  INPUT S0 F_TPC_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_TPC_CODICE
+  CHECKTYPE NORMAL
+  WARNING "Manca la descrizione"
 END
 
 ENDPAGE
diff --git a/ca/catbtpl.uml b/ca/catbtpl.uml
index 384cc94a6..7a867304b 100755
--- a/ca/catbtpl.uml
+++ b/ca/catbtpl.uml
@@ -9,11 +9,30 @@ PAGE "Tipo Lavoro" -1 -1 64 6
 STRING F_TPL_CODICE 5
 BEGIN
   PROMPT 2 2 "Codice      "
+  USE %TPL
+  FIELD CODTAB
+  FLAGS "UZ"
+  KEY 1
+  INPUT CODTAB F_TPL_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_TPL_CODICE CODTAB
+  OUTPUT F_TPL_DESCR S0
+  CHECKTYPE REQUIRED
 END
 
 STRING F_TPL_DESCR 50
 BEGIN
   PROMPT 2 3 "Descrizione "
+  USE %TPL
+  FIELD S0
+  KEY 2
+  INPUT S0 F_TPL_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_TPL_CODICE
+  CHECKTYPE NORMAL
+  WARNING "Manca la descrizione"
 END
 
 ENDPAGE