diff --git a/mg/mg0400a.uml b/mg/mg0400a.uml
index 1087e256d..f2b0939df 100755
--- a/mg/mg0400a.uml
+++ b/mg/mg0400a.uml
@@ -48,6 +48,23 @@ BEGIN
   COPY OUTPUT F_CODCF
 END
 
+NUMBER F_INDSPED 3
+BEGIN
+  PROMPT 1 2 "Codice indirizzo spedizione "
+  USE LF_INDSP KEY 1 
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT CODCF F_CODCF SELECT
+  INPUT CODIND F_INDSPED
+  DISPLAY "Tipo" TIPOCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Cod.Ind.Sped." CODIND
+  DISPLAY "Indirizzo@30" INDIR
+  DISPLAY "C.A.P." CAP
+  OUTPUT F_INDSPED CODIND
+  FIELD INDSPED
+  CHECKTYPE SEARCH
+END
+
 STRING F_CODART 20
 BEGIN
   PROMPT 1 4 "Articolo "
@@ -78,12 +95,25 @@ STRING F_ANNOES 4
 BEGIN
   PROMPT 1 5 "Esercizio "
   FLAGS  "UPZ"
-  USE ESC
-  INPUT CODTAB F_ANNOES
-  DISPLAY "Codice@10" CODTAB
-  DISPLAY "Dal@16" D0
-  DISPLAY "Al@16"   D1
-  OUTPUT F_ANNOES CODTAB
+  USE LF_CLIFOGIAC
+  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
+  JOIN LF_ANAMAG INTO CODART==CODART
+  INPUT ANNOES F_ANNOES SELECT
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT CODCF F_CODCF SELECT
+  INPUT INDSPED F_INDSPED
+  INPUT CODART F_CODART
+  DISPLAY "Anno@4" ANNOES
+  DISPLAY "Tipo@4" TIPOCF
+  DISPLAY "Codice@7" CODCF
+  DISPLAY "Ragione Sociale@50" 20->RAGSOC
+  DISPLAY "Codice articolo@20" CODART
+  DISPLAY "Descrizione@50" 47->DESCR
+  OUTPUT F_ANNOES ANNOES 
+  OUTPUT F_TIPOCF TIPOCF 
+  OUTPUT F_CODCF CODCF
+  OUTPUT F_INDSPED INDSPED
+  OUTPUT F_CODART CODART
   FIELD ANNOES
   KEY 1 2
   CHECKTYPE REQUIRED                   
@@ -99,7 +129,7 @@ BEGIN
   INPUT CODCF F_CODCF
   INPUT ANNOES F_ANNOES
   INPUT CODART F_CODART
-  ITEM "Ind.Sped."
+  INPUT INDSPED F_INDSPED
   // la sequenza delle colonne livelliX è usata per ottenere 
   // un ordinamento delle righe dello sheet: NON cambiarla
   ITEM "Liv1@10"
@@ -169,21 +199,16 @@ ENDPAGE
 
 PAGE "Giacenze" -1 -1 80 23
 
-NUMBER F_INDSPED 3
+STRING F_CODARTR 20
 BEGIN
-  PROMPT 2 1 "Codice indirizzo spedizione "
-  USE LF_INDSP KEY 1 
-  INPUT TIPOCF -F_TIPOCF SELECT
-  INPUT CODCF -F_CODCF SELECT
-  INPUT CODIND F_INDSPED
-  DISPLAY "Tipo" TIPOCF
-  DISPLAY "Codice" CODCF
-  DISPLAY "Cod.Ind.Sped." CODIND
-  DISPLAY "Indirizzo@30" INDIR
-  DISPLAY "C.A.P." CAP
-  OUTPUT F_INDSPED CODIND
-  FIELD INDSPED
-  CHECKTYPE REQUIRED
+  PROMPT 2 1 "Articolo "
+  FLAGS "UD"
+END
+
+STRING F_DESCRR 50 45
+BEGIN
+  PROMPT 33 1 ""
+  FLAGS "D"
 END
 
 //Livelli giacenza
@@ -249,12 +274,6 @@ BEGIN
   CHECKTYPE NORMAL
 END
 
-DATE F_DATARIF
-BEGIN
-  PROMPT 46 4 "Data rif. "
-  FIELD DATARIF
-END
-
 //ubicazione introdotta da tabella ubicazioni (accensione/spegnimento gestito da programma)
 STRING F_UBICAZ 3
 BEGIN
@@ -276,16 +295,10 @@ BEGIN
   FLAGS "D"
 END
 
-STRING F_CODARTR 20
+DATE F_DATARIF
 BEGIN
-  PROMPT 2 21 "Articolo "
-  FLAGS "UD"
-END
-
-STRING F_DESCRR 50 45
-BEGIN
-  PROMPT 33 21 ""
-  FLAGS "D"
+  PROMPT 52 4 "Data rif. "
+  FIELD DATARIF
 END
 
 NUMBER F_LIVRIOR  10 3