diff --git a/lv/lv0400a.uml b/lv/lv0400a.uml
index b2fbb6c2b..2cdf3d7ce 100755
--- a/lv/lv0400a.uml
+++ b/lv/lv0400a.uml
@@ -63,16 +63,9 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-BOOLEAN F_PROPOSTA
-BEGIN
-  PROMPT 2 3 "Proposta di contratto"
-  MESSAGE FALSE REQUIRED,F_DATAIN
-  MESSAGE TRUE NORMAL,F_DATAIN
-END
-
 DATE F_DATAIN
 BEGIN
-  PROMPT 25 3 "Inizio "
+  PROMPT 25 2 "Inizio "
   FIELD DATAIN
   FLAGS "A"
   CHECKTYPE REQUIRED
@@ -80,7 +73,7 @@ END
 
 DATE F_DATASC
 BEGIN
-  PROMPT 45 3 "Scadenza "
+  PROMPT 45 2 "Scadenza "
   FIELD DATASC
   VALIDATE DATE_CMP_FUNC >= F_DATAIN
   WARNING "Inserire una data finale maggiore della data di inizio"
@@ -88,7 +81,7 @@ END
 
 NUMBER F_INDSPED 3
 BEGIN
-  PROMPT 2 4 "Indirizzo sped. "
+  PROMPT 2 3 "Indirizzo sped. "
   USE LF_INDSP KEY 1 
   INPUT TIPOCF "C"
   INPUT CODCF F_CODCF SELECT
@@ -105,7 +98,7 @@ END
 
 STRING F_INDIR 50 39
 BEGIN
-  PROMPT 25 4 ""
+  PROMPT 25 3 ""
   FLAGS "D"
 END
 
@@ -114,6 +107,14 @@ BEGIN
   PROMPT 66 2 "~Giri"
 END
 
+LISTBOX F_PROPOSTA 15
+BEGIN
+  PROMPT 50 4 "Tipo "
+  FIELD PROPOSTA
+  ITEM "|Contratto" MESSAGE REQUIRED,F_DATAIN
+  ITEM "X|Proposta" MESSAGE NORMAL,F_DATAIN
+END
+
 SPREADSHEET F_RIGHE
 BEGIN
   PROMPT 0 6 "Righe contratto"