diff --git a/ve/batbmag.h b/ve/batbmag.h
index f31505130..e9bf9ad08 100755
--- a/ve/batbmag.h
+++ b/ve/batbmag.h
@@ -39,3 +39,4 @@
 #define F_STARAGG   139
 #define F_USALUNICO 140
 
+#define G_INFOMAG	10
diff --git a/ve/batbmag.uml b/ve/batbmag.uml
index d614072dd..311b80fb2 100755
--- a/ve/batbmag.uml
+++ b/ve/batbmag.uml
@@ -34,6 +34,8 @@ BEGIN
   OUTPUT F_DESCR S0
   OUTPUT H_DESCR S0
   OUTPUT H_GESTGIA B0
+  OUTPUT F_CODLGIOR S8
+  OUTPUT F_UNLOC I1
   CHECKTYPE REQUIRED
 END
 
@@ -43,13 +45,8 @@ BEGIN
   FIELD CODTAB[4,5]
   FLAGS "U"
   KEY 1
-	// abilit. CODDEP sempre:
 	USE MAG 
 	INPUT CODTAB[1,3] F_CODICE SELECT
-  // abilit. CODDEP solo per i magazzini che lo consentono:
-	// ATTENZIONE! da' stack overflow
-  //USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
-
   INPUT CODTAB[4,5] F_CODDEP
   DISPLAY "Cod. magazzino" CODTAB[1,3]
   DISPLAY "Cod. deposito" CODTAB[4,5]
@@ -57,8 +54,8 @@ BEGIN
   OUTPUT F_CODICE CODTAB[1,3]
   OUTPUT F_CODDEP CODTAB[4,5]
   OUTPUT F_DESDEP S0
-  MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA
-  MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA
+  MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA|HIDE,G_INFOMAG@
+  MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA|SHOW,G_INFOMAG@
   CHECKTYPE NORMAL
 	// controllo abilit. CODDEP (utilizzabile sempre)
   STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
@@ -70,10 +67,6 @@ BOOLEAN H_GESTGIA
 BEGIN
   PROMPT 1 1 ""
   FLAGS "HG"
-
-	// abilit. CODDEP sempre:
-	// --rimuovere i campi MESSAGE--
-	// abilit. CODDEP solo per i magazzini che lo consentono:
 	MESSAGE TRUE SHOW,F_CODDEP
   MESSAGE FALSE HIDE,F_CODDEP
 END
@@ -117,9 +110,100 @@ BEGIN
   WARNING "Manca la denominazione del magazzino"
 END
 
+
+GROUPBOX DLG_NULL 72 6
+BEGIN
+  PROMPT 4 7 "Sede magazzino/deposito"
+END
+
+STRING F_IND 35
+BEGIN
+  PROMPT 6 8 "Indirizzo      "
+  FIELD S2
+END
+
+STRING F_CIV 10
+BEGIN
+  PROMPT 60 8 "N. "
+  FIELD S7
+END
+
+STRING F_COM 4
+BEGIN
+  PROMPT 6 9 "Codice comune  "
+  FLAGS "U"
+  FIELD S5
+  USE LF_COMUNI
+  INPUT STATO ""
+  INPUT COM F_COM
+  DISPLAY "Codice" COM
+  DISPLAY "Comune@50" DENCOM
+  DISPLAY "Prov.@2" PROVCOM
+  DISPLAY "CAP@5" CAPCOM
+  OUTPUT F_COM COM
+  OUTPUT F_LOC DENCOM
+  OUTPUT F_PROV PROVCOM
+  OUTPUT F_CAP CAPCOM
+  CHECKTYPE NORMAL
+  WARNING "Comune assente"
+  ADD RUN ba4 -0
+END
+
+STRING F_LOC 50
+BEGIN
+  PROMPT 6 10 "Comune         "
+  USE LF_COMUNI KEY 2
+  INPUT DENCOM F_LOC
+  COPY DISPLAY F_COM
+  COPY OUTPUT F_COM
+  CHECKTYPE NORMAL
+END
+
+STRING F_PROV 2
+BEGIN
+  PROMPT 6 11 "Provincia      "
+  FLAGS "D"
+END
+
+STRING F_CAP 5
+BEGIN
+  PROMPT 60 11 "C.A.P.  "
+  FIELD S3
+END
+
+LISTBOX F_NATMAG 1 50
+BEGIN
+PROMPT 2 14 "Natura del magazzino "
+FIELD I2
+ITEM "1|Proprieta' dell'azienda       "
+ITEM "2|Materiale nostro in lavorazione presso terzi"
+ITEM "3|Materiale nostro in deposito presso terzi"
+ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
+ITEM "5|Materiale di terzi in deposito presso l'azienda"
+END
+
+ENDPAGE
+
+
+PAGE "Gestione magazzini" 11 60 14
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 0 0 ""
+  FLAGS "AH"
+END
+
+BOOLEAN F_GESTGIA
+BEGIN
+  PROMPT 2 2 "Gestione giacenze in piu' depositi "
+  FIELD B0
+	GROUP G_INFOMAG
+END
+
 GROUPBOX DLG_NULL 72 5
 BEGIN
   PROMPT 4 6 "Unita' locale"
+	GROUP G_INFOMAG
 END
 
 NUMBER F_UNLOC 3
@@ -144,148 +228,65 @@ BEGIN
   OUTPUT H_LOC LF_COMUNI->DENCOM
   OUTPUT H_PROV LF_COMUNI->PROVCOM
   CHECKTYPE NORMAL
+	GROUP G_INFOMAG
 END
 
 STRING H_COM 4
 BEGIN
   PROMPT 30 7 "Comune "
   FLAGS "D"
+	GROUP G_INFOMAG
 END
 
 STRING H_CAP 5
 BEGIN
   PROMPT 44 7 "C.A.P. "
   FLAGS "D"
+	GROUP G_INFOMAG
 END
 
 STRING H_PROV 2
 BEGIN
   PROMPT 60 7 "Provincia  "
   FLAGS "D"
+	GROUP G_INFOMAG
 END
 
 STRING H_IND 35
 BEGIN
   PROMPT 6 8 "Indirizzo      "
   FLAGS "D"
+	GROUP G_INFOMAG
 END
 
 STRING H_CIV 10
 BEGIN
   PROMPT 60 8 "N. "
   FLAGS "D"
+	GROUP G_INFOMAG
 END
 
 STRING H_LOC 50
 BEGIN
   PROMPT 6 9 "Comune         "
   FLAGS "D"
+	GROUP G_INFOMAG
 END
 
-GROUPBOX DLG_NULL 72 6
-BEGIN
-  PROMPT 4 11 "Sede magazzino/deposito"
-END
-
-STRING F_IND 35
-BEGIN
-  PROMPT 6 12 "Indirizzo      "
-  FIELD S2
-END
-
-STRING F_CIV 10
-BEGIN
-  PROMPT 60 12 "N. "
-  FIELD S7
-END
-
-STRING F_COM 4
-BEGIN
-  PROMPT 6 13 "Codice comune  "
-  FLAGS "U"
-  FIELD S5
-  USE LF_COMUNI
-  INPUT STATO ""
-  INPUT COM F_COM
-  DISPLAY "Codice" COM
-  DISPLAY "Comune@50" DENCOM
-  DISPLAY "Prov.@2" PROVCOM
-  DISPLAY "CAP@5" CAPCOM
-
-  OUTPUT F_COM COM
-  OUTPUT F_LOC DENCOM
-  OUTPUT F_PROV PROVCOM
-  OUTPUT F_CAP CAPCOM
-  CHECKTYPE NORMAL
-  WARNING "Comune assente"
-  ADD RUN ba4 -0
-END
-
-STRING F_LOC 50
-BEGIN
-  PROMPT 6 14 "Comune         "
-  USE LF_COMUNI KEY 2
-  INPUT DENCOM F_LOC
-  COPY DISPLAY F_COM
-  COPY OUTPUT F_COM
-  CHECKTYPE NORMAL
-END
-
-STRING F_PROV 2
-BEGIN
-  PROMPT 6 15 "Provincia      "
-  FLAGS "D"
-END
-
-STRING F_CAP 5
-BEGIN
-  PROMPT 60 15 "C.A.P.  "
-  FIELD S3
-END
-
-LISTBOX F_NATMAG 1 50
-BEGIN
-PROMPT 2 17 "Natura del magazzino "
-FIELD I2
-ITEM "1|Proprieta' dell'azienda       "
-ITEM "2|Materiale nostro in lavorazione presso terzi"
-ITEM "3|Materiale nostro in deposito presso terzi"
-ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
-ITEM "5|Materiale di terzi in deposito presso l'azienda"
-END
-
-
-ENDPAGE
-
-
-PAGE "Gestione magazzini" 11 60 14
-
-NUMBER F_ANNO 4
-BEGIN
-  PROMPT 0 0 ""
-  FLAGS "AH"
-END
-
-BOOLEAN F_GESTGIA
-BEGIN
-  PROMPT 2 2 "Gestione giacenze in piu' depositi "
-  FIELD B0
-END
-
-LISTBOX F_STARAGG  22
+/*LISTBOX F_STARAGG  22
 BEGIN
   PROMPT 2 4 "Stampare i movimenti su "
 	FIELD I2
 	ITEM "1|altro magazzino"
-  MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA|HIDE,F_USALUNICO
+  MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA
 	ITEM "2|libro giornale"
-  MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR|SHOW,F_USALUNICO
+  MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR
 END
 
 STRING F_CODMAGSTA 3
 BEGIN
   PROMPT 28 5 "Codice magazzino "
-	FLAGS "HU"
+	FLAGS "U"
   FIELD S6
   USE MAG SELECT CODTAB[4,5] == ""
   INPUT CODTAB[1,3]  F_CODMAGSTA
@@ -293,14 +294,14 @@ BEGIN
   DISPLAY "Denominazione mag.@50 " S0
   OUTPUT F_CODMAGSTA CODTAB[1,3]
   CHECKTYPE REQUIRED
-END
+END*/
 
 STRING F_CODLGIOR 3
 BEGIN
-  PROMPT 23 5 "Codice libro giornale "
-	FLAGS "HU"
+  PROMPT 2 4 "Codice libro giornale "
+	FLAGS "U"
   FIELD S8
-  USE REG SELECT I0=6
+  USE REG SELECT I0=9
   INPUT CODTAB[1,4] F_ANNO SELECT
   INPUT CODTAB[5,7] F_CODLGIOR
   DISPLAY "Anno" CODTAB[1,4]
@@ -309,6 +310,7 @@ BEGIN
   DISPLAY "I" I0
   OUTPUT F_CODLGIOR CODTAB[5,7]
 	CHECKTYPE REQUIRED
+	GROUP G_INFOMAG
 END
 
 /*STRING F_CODLUNICO 3
@@ -338,79 +340,6 @@ END
 
 */
 
-NUMBER F_FREQSTA 2
-BEGIN
-  PROMPT 2 6 "Frequenza stampa movimenti "
-  FIELD I4
-END
-
-BOOLEAN F_STALDIS
-BEGIN
-  PROMPT 2 7 "Stampa libro raggruppato per classe fiscale articoli  "
-  FIELD B1
-END
-
-
-BOOLEAN F_STAFISART
-BEGIN
-  PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
-  FIELD B2
-END
-
-BOOLEAN F_STAFISCAU
-BEGIN
-  PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali  "
-  FIELD B3
-END
-
-NUMBER F_PAGULTCORR 3
-BEGIN
-  PROMPT 2 11 "Pagina e data ultima stampa esercizio corrente    "
-  FIELD MAG->I5
-END
-
-DATE F_ULTCORR
-BEGIN
-  PROMPT 58 11 ""
-  FIELD MAG->D0
-END
-
-NUMBER F_PAGULTPREC 3
-BEGIN
-  PROMPT 2 12 "Pagina e data ultima stampa esercizio precedente  "
-  FIELD MAG->I6
-END
-
-DATE F_ULTPREC
-BEGIN
-  PROMPT 58 12 ""
-  FIELD MAG->D1
-END
-
-TEXT 140
-BEGIN
-  PROMPT 2 14 "Parametri di stampa :"
-END
-
-BOOLEAN F_INTDITTA
-BEGIN
-  PROMPT 2 15 "Intestazione della ditta "
-  FIELD MAG->B4
-END
-
-BOOLEAN F_STARIS
-BEGIN
-  PROMPT 2 16 "Stampa ristretta "
-  FIELD MAG->B5
-END
-
-NUMBER F_LUNGMOD 2
-BEGIN
-  PROMPT 2 17 "Lunghezza modulo  "
-  FIELD MAG->I7
-END
-
-
 ENDPAGE
 
 ENDMASK