diff --git a/ca/ca2100a.uml b/ca/ca2100a.uml
index b6ab8f5c9..2eacf0687 100755
--- a/ca/ca2100a.uml
+++ b/ca/ca2100a.uml
@@ -57,7 +57,7 @@ END
 NUMBER F_NUMREG 7
 BEGIN
   PROMPT 52 6 "Movimento n. "
-  USE LF_MOVANA
+  USE LF_MOVANA SELECT TIPOMOV==#F_TIPO
   INPUT NUMREG F_NUMREG
   DISPLAY "Numero@7" NUMREG
   DISPLAY "Tipo" TIPOMOV
@@ -150,7 +150,7 @@ BEGIN
   GROUP 5
 END
 
-STRING F_NUMDOC 5
+STRING F_NUMDOC 7
 BEGIN
   PROMPT 27 12 "Numero "
   CHECKTYPE NORMAL