diff --git a/lv/lv0400b.uml b/lv/lv0400b.uml
index 77409fec6..4792432f0 100755
--- a/lv/lv0400b.uml
+++ b/lv/lv0400b.uml
@@ -216,13 +216,25 @@ END
 STRING F_CAUSMAG 4
 BEGIN
    PROMPT 1 18 "@bCausale di default:"
+   USE CAU
+   INPUT CODTAB F_CAUSMAG
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@50" S0
+   OUTPUT F_CAUSMAG CODTAB
+   OUTPUT F_CAUSMAGDESC S0
    FIELD CAUSMAG
+   CHECKTYPE NORMAL
 END
 
 STRING F_CAUSMAGDESC 50
 BEGIN
    PROMPT 7 18 "@bDescrizione@50"
-   FIELD CAUSMAGDESC
+   USE CAU KEY 2
+   INPUT S0 F_CAUSMAGDESC
+   DISPLAY "Descrizione@50" S0
+   DISPLAY "Codice" CODTAB
+   COPY OUTPUT F_CAUSMAG
+   CHECKTYPE NORMAL
 END
 
 RADIOBUTTON F_CONTSPOR 1 80
@@ -488,8 +500,14 @@ END
 
 STRING S_CAUSMAG 4
 BEGIN
-   PROMPT "Causale di default:"
+   PROMPT 1 18 "@bCausale di default:"
+   USE CAU
+   INPUT CODTAB S_CAUSMAG
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@50" S0
+   OUTPUT S_CAUSMAG CODTAB
    FIELD CAUSMAG
+   CHECKTYPE NORMAL
 END
 
 BOOLEAN S_RITAUTDTTMP