diff --git a/ba/batbinl.uml b/ba/batbinl.uml
index ae1e1a1b4..7d332468e 100755
--- a/ba/batbinl.uml
+++ b/ba/batbinl.uml
@@ -16,8 +16,8 @@ BEGIN
   USE %LBU
   INPUT CODTAB[1,4] F_ANNO
   INPUT CODTAB[5,7] F_CODLIB
-  DISPLAY "Anno" ANNO
-  DISPLAY "Libro" CODLIB
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Libro" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
   OUTPUT F_ANNO CODTAB[1,4]
   OUTPUT F_CODLIB CODTAB[5,7]
@@ -117,24 +117,23 @@ STRING F_CODREG 3
 BEGIN
   PROMPT 1 8 "Codice registro "
   FIELD CODREG
-  USE REG 
   FLAGS "UZ"        
+  USE REG SELECT CODTAB[1,4]=#F_ANNO
   INPUT CODTAB[1,4] F_ANNOREG
   INPUT CODTAB[5,7] F_CODREG
-  DISPLAY "Anno" ANNO
-  DISPLAY "Codice" CODLIB
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_ANNOREG CODTAB[1,4]
   OUTPUT F_CODREG CODTAB[5,7]
   OUTPUT F_DESCREG S0
-  CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_CHECK_FIELD
+  CHECKTYPE REQUIRED
 END
 
 STRING F_DESCREG 50
 BEGIN
   PROMPT 1 9 "Descrizione     "
-  USE REG KEY 2 SELECT ANNO=#F_ANNO
+  USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
   INPUT S0 F_DESCREG
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice registro" CODLIB