diff --git a/ve/batbmag.uml b/ve/batbmag.uml
index 779ec086c..d614072dd 100755
--- a/ve/batbmag.uml
+++ b/ve/batbmag.uml
@@ -207,6 +207,11 @@ BEGIN
   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
@@ -221,6 +226,7 @@ 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
diff --git a/ve/batbrfa.uml b/ve/batbrfa.uml
index 009972127..f7dbfc008 100755
--- a/ve/batbrfa.uml
+++ b/ve/batbrfa.uml
@@ -14,7 +14,7 @@ GROUPBOX DLG_NULL 78 7
 
 STRING FLD_TABRFA_CODTAB 5
   BEGIN
-    PROMPT 2 2 "Codice      "
+    PROMPT 2 2 "Codice       "
     FIELD CODTAB
     USE RFA
     CHECKTYPE REQUIRED
@@ -28,22 +28,22 @@ STRING FLD_TABRFA_CODTAB 5
   END
 
 STRING FLD_TABRFA_S0 50
-  BEGIN
-    PROMPT 2 4 "Descrizione "
-    FIELD S0
-    USE RFA KEY 2
-    CHECKTYPE REQUIRED
-    WARNING "Manca la descrizione"
-    INPUT S0 FLD_TABRFA_S0
-    DISPLAY "Descrizione@50" S0
-    DISPLAY "Codice" CODTAB
-    COPY OUTPUT FLD_TABRFA_CODTAB
-    KEY 2
-  END
+BEGIN
+  PROMPT 2 4 "Descrizione  "
+  FIELD S0
+  KEY 2
+  USE RFA KEY 2
+  INPUT S0 FLD_TABRFA_S0
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT FLD_TABRFA_CODTAB
+  CHECKTYPE REQUIRED
+  WARNING "Manca la descrizione"
+END
 
 STRING FLD_TABRFA_S7 2
   BEGIN
-    PROMPT 2 8  "Unita' di misura"
+    PROMPT 2 8  "Unita' di misura "
     FIELD S7
     FLAG "U"
     USE %UMS
@@ -51,12 +51,14 @@ STRING FLD_TABRFA_S7 2
     DISPLAY "U.M. "          CODTAB
     DISPLAY "Descrizione@50" S0
     OUTPUT FLD_TABRFA_S7 CODTAB
+  	CHECKTYPE NORMAL
     WARNING "Unita' di misura errata"
   END
 
 STRING FLD_TABRFA_S8 2
   BEGIN
-    PROMPT 2 9  "Classe fiscale  "
+    PROMPT 2 9  "Classe fiscale   "
+		FLAGS "U"
     FIELD S8
     USE ASF
     INPUT CODTAB FLD_TABRFA_S8
@@ -74,14 +76,13 @@ STRING FLD_DESCFA 50
     INPUT S0 FLD_DESCFA
     DISPLAY "Descrizione@50" S0
     DISPLAY "Cl. Fisc." CODTAB
-    OUTPUT FLD_TABRFA_S8 CODTAB
-    OUTPUT FLD_DESCFA S0
+		COPY OUTPUT  FLD_TABRFA_S8
     CHECKTYPE NORMAL
   END
 
 STRING FLD_TABRFA_S9 4
   BEGIN
-    PROMPT 2 10 "Cod.IVA         "
+    PROMPT 2 10 "Cod.IVA          "
     FIELD S9
     USE %IVA
     INPUT CODTAB FLD_TABRFA_S9
@@ -106,13 +107,13 @@ STRING FLD_DESIVA 50
 
 NUMBER FLD_TABRFA_R0 6 2
   BEGIN
-    PROMPT 2 11 "% ricarico medio"
+    PROMPT 2 11 "% ricarico medio "
     FIELD R0
   END
 
 NUMBER FLD_TABRFA_R1 12 2
   BEGIN
-    PROMPT 2 12 "Costo minimo    "
+    PROMPT 2 12 "Costo minimo     "
     FIELD R1
   END
 
@@ -124,7 +125,7 @@ NUMBER FLD_TABRFA_R2 12 2
 
 LIST FLD_TABRFA_I0 1 30
   BEGIN
-    PROMPT 2 13 "Tipo costo      "
+    PROMPT 2 13 "Tipo costo       "
     FIELD S6
     HELP "Inserire il tipo di costo"
     ITEM "1|Costo medio annuale"
@@ -138,14 +139,14 @@ LIST FLD_TABRFA_I0 1 30
 
 NUMBER F_GRUPPOV 3
 BEGIN
-   PROMPT 2 14  "Conto di vendita"
+   PROMPT 2 14  "Conto di vendita "
    FIELD I3
    CHECKTYPE NORMAL
 END
 
 NUMBER F_CONTOV 3
 BEGIN
-  PROMPT  23 14 ""
+  PROMPT  25 14 ""
   FIELD I4
   USE LF_PCON SELECT INDBIL=="4"
   INPUT GRUPPO      F_GRUPPOV
@@ -162,7 +163,7 @@ END
 
 NUMBER F_SOTTOCV 6
 BEGIN
-   PROMPT  31 14 ""
+   PROMPT  33 14 ""
    FIELD I5
    USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
    JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@@ -184,7 +185,7 @@ END
 
 STRING F_DESCRV 50
 BEGIN
-   PROMPT  18 15 ""
+   PROMPT  19 15 ""
    FLAG "U"
    USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
    JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@@ -201,13 +202,13 @@ END
 
 NUMBER F_GRUPPOA 3
 BEGIN
-   PROMPT 2 16  "Conto d'acquisto"
+   PROMPT 2 16  "Conto d'acquisto "
    FIELD I0
 END
 
 NUMBER F_CONTOA 3
 BEGIN
-  PROMPT  23 16 ""
+  PROMPT  25 16 ""
   FIELD I1
   USE LF_PCON SELECT INDBIL=="3"
   INPUT GRUPPO      F_GRUPPOA
@@ -224,7 +225,7 @@ END
 
 NUMBER F_SOTTOCA 6
 BEGIN
-   PROMPT  31 16 ""
+   PROMPT  33 16 ""
    FIELD I2
    USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
    JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@@ -246,7 +247,7 @@ END
 
 STRING F_DESCRA 50
 BEGIN
-   PROMPT  18 17 ""
+   PROMPT  19 17 ""
    FLAG "U"
    USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
    JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
diff --git a/ve/batbubi.uml b/ve/batbubi.uml
index f3fb47789..3db92d398 100755
--- a/ve/batbubi.uml
+++ b/ve/batbubi.uml
@@ -12,7 +12,7 @@ BEGIN
  FLAGS "R"
 END
 
-STRING F_CODICE 10 
+STRING F_CODICE 3
 BEGIN
   PROMPT 2 2 "Cod. Ubicazione   "
   FIELD UBI->CODTAB 
@@ -60,6 +60,7 @@ BEGIN
   OUTPUT F_FILA       S8
   OUTPUT F_SCAFFALE   S9
   OUTPUT F_PSCAFFALE  S5
+	WARNING "Necessaria la descrizione"
   CHECKTYPE REQUIRED
   
 END
diff --git a/ve/ve2400.uml b/ve/ve2400.uml
index c98ea5eab..1afcda96e 100755
--- a/ve/ve2400.uml
+++ b/ve/ve2400.uml
@@ -5,9 +5,9 @@ TOOLBAR "" 0 20 60 2
  #include <toolbar.h>
 ENDPAGE
 
-PAGE "Pagina 1" 0 0 70 20
+PAGE "Definizione" 0 0 70 20
 
-GROUPBOX DLG_NULL 78 5
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 ""
 //FLAG "R"
@@ -28,16 +28,10 @@ BEGIN
     CHECKTYPE REQUIRED
 END
 
-// tipo articolo sostituito da Tabella gruppi articoli 
-//STRING F_TIPO 1
-//BEGIN
-//  PROMPT 42 1  "Tipo "
-//  FIELD LF_ANAMAG->TIPO
-//END
 
 STRING F_DESCR 50
 BEGIN
-    PROMPT 2 3 "Descrizione   "
+    PROMPT 2 2 "Descrizione   "
     FIELD LF_ANAMAG->DESCR
     KEY 2
     USE LF_ANAMAG KEY 2
@@ -49,9 +43,85 @@ BEGIN
     CHECKTYPE REQUIRED
 END
 
+BOOLEAN F_ARTPROD
+BEGIN
+   PROMPT 2 4 "Articolo di produzione "
+   FIELD LF_ANAMAG->ARTPROD
+	MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1|DISABLE,F_RIORDINO
+	MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1|ENABLE,F_RIORDINO
+END
+
+NUMBER F_CODFORN 6
+BEGIN
+    PROMPT 1 5 "Codice fornitore "
+    FIELD LF_ANAMAG->CODFORN
+    USE LF_CLIFO
+    INPUT TIPOCF  F_TIPOCF SELECT
+    INPUT CODCF   F_CODFORN
+    DISPLAY "Codice " CODCF
+    DISPLAY "Ragione sociale@50" RAGSOC
+    OUTPUT F_CODFORN  CODCF
+    OUTPUT F_CODFORN1 RAGSOC
+		CHECKTYPE NORMAL
+END
+
+STRING F_CODFORN1 50
+BEGIN
+    PROMPT 1 6 "Ragione sociale  "
+    USE LF_CLIFO KEY 2
+    INPUT TIPOCF  F_TIPOCF SELECT
+    INPUT RAGSOC   F_CODFORN1
+    DISPLAY "Codice " CODCF
+    DISPLAY "Ragione sociale@50" RAGSOC
+    OUTPUT F_CODFORN  CODCF
+    OUTPUT F_CODFORN1 RAGSOC
+END
+
+LISTBOX F_RIORDINO 20
+BEGIN
+	PROMPT 42 5 "Riordino per "
+	FIELD LF_ANAMAG->RIORDINO
+	ITEM "P|punto di riordino"
+	ITEM "F|fabbisogno"
+	ITEM "T|tempo"
+END
+
+
+TEXT DLG_NULL
+BEGIN 
+	PROMPT 3 7 "Codici alternativi"
+END
+
+SPREADSHEET F_SHEETCOD 71 5
+BEGIN
+     PROMPT 2 8 "Codici alternativi"
+     ITEM "Cod. art.@20"
+     ITEM "Tipo@10"
+END
+
+TEXT DLG_NULL
+BEGIN 
+     PROMPT 3 14 "Descrizioni in lingua"
+END
+
+SPREADSHEET F_SHEETDESLIN 71 5
+BEGIN
+     PROMPT 2 15 "Descrizioni in lingua"
+     ITEM "Cod. lingua"
+     ITEM "Descrizione@50"
+END
+
+ENDPAGE
+
+
+
+
+
+PAGE "Categorie" 0 0 70 20
+
 STRING F_GRMERC 3
 BEGIN
-    PROMPT 1 5 "Gr. merc.      "
+    PROMPT 1 2 "Gr. merc.      "
     FIELD LF_ANAMAG->GRMERC[1,3]
     GROUP 1
     FLAG "U"
@@ -61,12 +131,15 @@ BEGIN
     DISPLAY "Descrizione@50" S0
     OUTPUT F_GRMERC CODTAB[1,3]
     OUTPUT F_GRMERCD1 S0
+    OUTPUT H_GRMERCD1 S0
+
+    OUTPUT F_GRMERCB CODTAB[4,5]
     CHECKTYPE NORMAL
 END
 
 STRING F_GRMERCD1 50
 BEGIN
-    PROMPT 23 5 ""
+    PROMPT 23 2 ""
     GROUP 1
     USE GMC KEY 2 SELECT CODTAB ?= "???"
     INPUT S0 F_GRMERCD1
@@ -77,13 +150,20 @@ BEGIN
     CHECKTYPE NORMAL
 END
 
+STRING H_GRMERCD1 50
+BEGIN
+    PROMPT 23 2 ""
+    GROUP 1
+		FLAGS "D"
+END
+
 STRING F_GRMERCB 2
 BEGIN
-    PROMPT 1 6 "Sott. merc.     "
+    PROMPT 1 3 "Sott. merc.     "
     FIELD LF_ANAMAG->GRMERC[4,5]
     GROUP 1
     FLAG "U"
-    USE GMC SELECT CODTAB[4,5] != ""
+    USE GMC //SELECT CODTAB[4,5] != ""
     INPUT CODTAB[1,3] F_GRMERC
     INPUT CODTAB[4,5] F_GRMERCB
     DISPLAY "Codice" CODTAB
@@ -91,26 +171,29 @@ BEGIN
     OUTPUT F_GRMERC CODTAB[1,3]
     OUTPUT F_GRMERCB CODTAB[4,5]
     OUTPUT F_GRMERCD2 S0
+    MESSAGE SHOW,F_GRMERCD2|SHOW,H_GRMERCD1|HIDE,F_GRMERCD1
+    MESSAGE EMPTY HIDE,F_GRMERCD2|HIDE,H_GRMERCD1|SHOW,F_GRMERCD1
     CHECKTYPE NORMAL
 END
 
 STRING F_GRMERCD2 50
 BEGIN
-    PROMPT 23 6 ""
+    PROMPT 23 3 ""
     GROUP 1
     USE GMC KEY 2 SELECT CODTAB[4,5] != ""
     INPUT S0 F_GRMERCD2
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
-    OUTPUT F_GRMERC CODTAB[1,3]
-    OUTPUT F_GRMERCB CODTAB[4,5]
-    OUTPUT F_GRMERCD2 S0
+		COPY OUTPUT F_GRMERCB
+//    OUTPUT F_GRMERC CODTAB[1,3]
+//    OUTPUT F_GRMERCB CODTAB[4,5]
+//    OUTPUT F_GRMERCD2 S0
     CHECKTYPE NORMAL
 END
 
 STRING F_CODIVA 4
 BEGIN
-    PROMPT  1 7 "Codice IVA    "
+    PROMPT  1 5 "Codice IVA    "
     FIELD LF_ANAMAG->CODIVA
     USE %IVA
     INPUT CODTAB  F_CODIVA
@@ -123,7 +206,7 @@ END
 
 STRING F_CODIVA1 50
 BEGIN
-    PROMPT  23 7 ""
+    PROMPT  23 5 ""
     USE %IVA KEY 2
     INPUT S0 F_CODIVA1
     DISPLAY "Descrizione@50" S0
@@ -132,22 +215,29 @@ BEGIN
     OUTPUT F_CODIVA1 S0
 END
 
-SPREADSHEET F_SHEET0 77 5
+STRING F_SCONTO 25
 BEGIN
-  PROMPT 1 8 "Unità di misura"
-  ITEM "U.M."
-  ITEM "F. conversione"
-  ITEM "Prezzo netto@18"
-  ITEM "Prezzo lordo@18"
+  FIELD LF_ANAMAG->SCONTO
+  PROMPT 1 6 "Sconto        "
+END
+
+STRING F_CODIVAR 4
+BEGIN
+  PROMPT 50 6 "Codice IVA ridotta "
+  FIELD LF_ANAMAG->CODIVAR
+  USE %IVA
+  INPUT CODTAB  F_CODIVAR
+  DISPLAY "Codice " CODTAB
+  DISPLAY "Descrizione@40" S0
+  OUTPUT F_CODIVAR CODTAB
+  CHECKTYPE NORMAL
 END
 
 STRING F_CATCONA 3
 BEGIN
-   PROMPT 1 14 "Categoria conto acquisti "
+   PROMPT 1 8 "Categoria conto acquisti "
    FIELD LF_ANAMAG->CATCONA
    GROUP 11
-   MESSAGE CLEAR,12@
-   MESSAGE EMPTY ENABLE,12@
    FLAG "UZ"
    USE CAA
    INPUT CODTAB F_CATCONA
@@ -159,11 +249,13 @@ BEGIN
    OUTPUT F_CATCONA CODTAB
    OUTPUT F_CATCONA1 S0
    CHEKTYPE NORMAL
+//   MESSAGE CLEAR,12@
+//   MESSAGE EMPTY ENABLE,12@
 END
 
 STRING F_CATCONA1 40
 BEGIN
-   PROMPT 36 14 ""
+   PROMPT 36 8 ""
    FLAG "D"
    GROUP 11
    USE CAA KEY 2
@@ -178,26 +270,26 @@ END
 
 NUMBER F_GRUPPOA 3
 BEGIN
-   PROMPT 1 15 "Conto d'acquisto "
+   PROMPT 1 9 "Conto d'acquisto "
    FIELD LF_ANAMAG->GRUPPOA
    GROUP 12
-   MESSAGE CLEAR,11@
-   MESSAGE EMPTY ENABLE,11@
+//   MESSAGE CLEAR,11@
+//   MESSAGE EMPTY ENABLE,11@
 END
 
 NUMBER F_CONTOA 3
 BEGIN
-    PROMPT  22 15 ""
+    PROMPT  22 9 ""
     FIELD LF_ANAMAG->CONTOA
     GROUP 12
 END
 
 NUMBER F_SOTTOCA 6
 BEGIN
-   PROMPT  26 15 ""
+   PROMPT  26 9 ""
    FIELD LF_ANAMAG->SOTTOCA
    GROUP 12
-   USE LF_PCON
+   USE LF_PCON SELECT INDBIL=="3"
    INPUT GRUPPO F_GRUPPOA
    INPUT CONTO  F_CONTOA
    INPUT SOTTOCONTO F_SOTTOCA
@@ -210,31 +302,29 @@ BEGIN
    OUTPUT F_SOTTOCA SOTTOCONTO
    OUTPUT F_DESCRA  DESCR
    CHECKTYPE NORMAL
+	 WARNING "Il conto deve essere un costo"
 END
 
 STRING F_DESCRA 40
 BEGIN
-   PROMPT  36 15 ""
+   PROMPT  36 9 ""
    FLAG "D"
    GROUP 12
-   USE LF_PCON KEY 2
+   USE LF_PCON KEY 2 SELECT INDBIL=="3"
    INPUT DESCR F_DESCRA
    DISPLAY "Descrizione@50" DESCR
    DISPLAY "Gruppo" GRUPPO
    DISPLAY "Conto"  CONTO
    DISPLAY "Sottoconto" SOTTOCONTO
    COPY OUTPUT F_SOTTOCA
+	 WARNING "Il conto deve essere un costo"
 END
 
-
-
 STRING F_CATCONV 3
 BEGIN
-   PROMPT 1 16 "Categoria conto vendite  "
+   PROMPT 1 10 "Categoria conto vendite  "
    FIELD LF_ANAMAG->CATCONV
    GROUP 21
-   MESSAGE CLEAR,22@
-   MESSAGE EMPTY ENABLE,22@
    FLAG "UZ"
    USE CRA
    INPUT CODTAB F_CATCONV
@@ -246,11 +336,13 @@ BEGIN
    OUTPUT F_CATCONV CODTAB
    OUTPUT F_CATCONV1 S0
    CHECKTYPE NORMAL
+//   MESSAGE CLEAR,22@
+//   MESSAGE EMPTY ENABLE,22@
 END
 
 STRING F_CATCONV1 40
 BEGIN
-   PROMPT 36 16 ""
+   PROMPT 36 10 ""
    FLAG "D"
    GROUP 21
    USE CRA KEY 2
@@ -265,26 +357,26 @@ END
 
 NUMBER F_GRUPPOV 3
 BEGIN
-   PROMPT 1 17 "Conto di vendita "
+   PROMPT 1 11 "Conto di vendita "
    FIELD LF_ANAMAG->GRUPPOV
    GROUP 22
-   MESSAGE CLEAR,21@
-   MESSAGE EMPTY ENABLE,21@
+//   MESSAGE CLEAR,21@
+//   MESSAGE EMPTY ENABLE,21@
 END
 
 NUMBER F_CONTOV 3
 BEGIN
-   PROMPT  22 17 ""
+   PROMPT  22 11 ""
    FIELD LF_ANAMAG->CONTOV
    GROUP 22
 END
 
 NUMBER F_SOTTOCV 6
 BEGIN
-   PROMPT  26 17 ""
+   PROMPT  26 11 ""
    FIELD LF_ANAMAG->SOTTOCV
    GROUP 22
-   USE LF_PCON
+   USE LF_PCON SELECT INDBIL=="4"
    INPUT GRUPPO F_GRUPPOV
    INPUT CONTO  F_CONTOV
    INPUT SOTTOCONTO F_SOTTOCV
@@ -297,54 +389,89 @@ BEGIN
    OUTPUT F_SOTTOCV SOTTOCONTO
    OUTPUT F_DESCRV  DESCR
    CHECKTYPE NORMAL
+	 WARNING "Il conto deve essere un ricavo"
 END
 
 STRING F_DESCRV 40
 BEGIN
-   PROMPT  36 17 ""
+   PROMPT  36 11 ""
    FLAG "D"
    GROUP 22
-   USE LF_PCON KEY 2
+   USE LF_PCON KEY 2 SELECT INDBIL=="4"
    INPUT DESCR F_DESCRV
    DISPLAY "Descrizione@50" DESCR
    DISPLAY "Gruppo" GRUPPO
    DISPLAY "Conto"  CONTO
    DISPLAY "Sottoconto" SOTTOCONTO
    COPY OUTPUT F_SOTTOCV
+	 WARNING "Il conto deve essere un ricavo"
 END
 
-STRING F_UMP 3
+BOOLEAN F_ARTFIS
 BEGIN
-  PROMPT  1 18 "U.M. peso        "
-  FIELD LF_ANAMAG->UMP
-  FLAG "U"
-  USE %UMS
-  INPUT CODTAB F_UMP
-  DISPLAY "U.M. "          CODTAB
-  DISPLAY "Descrizione@50" S0
-  OUTPUT F_UMP CODTAB
-  VALIDATE REQIF_FUNC 1 F_PESO
-  WARNING "Necessaria una unità di misura valida per il peso "
-  CHECKTYPE NORMAL
+    PROMPT 1 13 "Articolo fiscale"
+    FIELD LF_ANAMAG->ARTFIS
+    MESSAGE TRUE ENABLE,23@
+    MESSAGE FALSE DISABLE,23@
 END
 
-NUMBER F_PESO 15 5
+STRING F_RAGGFIS 5
 BEGIN
-    PROMPT 30 18 "Peso  "
-    FIELD LF_ANAMAG->PESO
-  VALIDATE REQIF_FUNC 1 F_TARA
-  WARNING "Necessario introdurre il peso se si è introdotta la tara"
+    PROMPT 1 14 "Raggrupp. fiscale   "
+    FIELD LF_ANAMAG->RAGGFIS
+		FLAGS "U"
+    USE RFA
+    JOIN %ASF ALIAS 200 INTO CODTAB=S8
+    INPUT CODTAB F_RAGGFIS
+    DISPLAY "Codice " CODTAB
+    DISPLAY "Descrizione@40" S0
+    OUTPUT F_RAGGFIS CODTAB
+    OUTPUT F_RAGGFIS1 S0
+    OUTPUT H_CLASSEFIS S8
+    CHECKTYPE NORMAL
+    GROUP 23
 END
 
-NUMBER F_TARA 15 5
+STRING F_RAGGFIS1 40
 BEGIN
-    PROMPT 1 19 "Tara             "
-    FIELD LF_ANAMAG->TARA
+    PROMPT  31 14 ""
+    FLAG "D"
 END
 
+STRING H_CLASSEFIS 2
+BEGIN
+    PROMPT 1 15 ""
+    FLAG "HG"
+		MESSAGE  DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
+		MESSAGE EMPTY ENABLE,F_CLASSEFIS
+END
+
+STRING F_CLASSEFIS 2
+BEGIN
+    PROMPT 1 15 "Classe fiscale         "
+    FIELD LF_ANAMAG->CLASSEFIS
+		FLAGS "UD"
+    USE %ASF
+    INPUT CODTAB F_CLASSEFIS
+    DISPLAY "Codice " CODTAB
+    DISPLAY "Descrizione@40" S0
+    OUTPUT F_CLASSEFIS CODTAB
+    OUTPUT F_CLASSEFISD S0
+		MESSAGE EMPTY "",F_CLASSEFISD
+    CHECKTYPE NORMAL
+    GROUP 23
+END
+
+STRING F_CLASSEFISD 40
+BEGIN
+    PROMPT  31 15 ""
+    FLAG "D"
+END
+
+
 STRING F_CLASSDOG 10
 BEGIN
-    PROMPT  1 20 "Classe doganale  "
+    PROMPT 1 17  "Classe doganale      "
     FIELD LF_ANAMAG->CLASSDOG
     FLAG "UZ"
     USE %CLD
@@ -358,14 +485,111 @@ END
 
 STRING F_CLASSDOG1 40
 BEGIN
-    PROMPT  36 20 ""
+    PROMPT  36 17 ""
     FLAG "D"
 END
 
+STRING F_PROVOR 5
+BEGIN
+  PROMPT  1 18 "Provincia di origine "
+  FIELD LF_ANAMAG->PROV
+  USE %PRV
+  INPUT CODTAB F_PROVOR
+  DISPLAY "Codice" CODTAB 
+  DISPLAY "Provincia@50" S0
+
+  OUTPUT F_PROVOR CODTAB
+  OUTPUT F_PROVOR2 S0
+  CHECKTYPE NORMAL
+  WARNING "Provincia assente"
+END
+
+STRING F_PROVOR2 40
+BEGIN
+  PROMPT  36 18 ""
+  USE %PRV KEY 2
+  INPUT S0 F_PROVOR2
+	COPY DISPLAY F_PROVOR
+	COPY OUTPUT  F_PROVOR
+  CHECKTYPE NORMAL
+END
+
 ENDPAGE
 
 
-PAGE "Pagina 2 " 0 0 70 20
+
+
+
+
+
+PAGE "Produzione/vendita" 0 0 70 20
+
+STRING F_UMP 3
+BEGIN
+  PROMPT  1 1 "U.M. peso        "
+  FIELD LF_ANAMAG->UMP
+  FLAG "U"
+  USE %UMS
+  INPUT CODTAB F_UMP
+  DISPLAY "U.M. "          CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_UMP CODTAB
+  VALIDATE REQIF_FUNC 1 F_PESO
+  WARNING "Necessaria una unità di misura valida per il peso "
+  CHECKTYPE NORMAL
+END
+
+TEXT DLG_NULL
+BEGIN 
+  PROMPT 3 2 "Unità di misura articolo"
+END
+
+SPREADSHEET F_SHEETUM 77 5
+BEGIN
+  PROMPT 2 3 "Unità di misura "
+  ITEM "U.M."
+  ITEM "F. conversione"
+  ITEM "Prezzo netto@18"
+  ITEM "Prezzo lordo@18"
+END
+
+NUMBER F_PESO 15 5
+BEGIN
+    PROMPT 1 10 "Peso                  "
+    FIELD LF_ANAMAG->PESO
+  VALIDATE REQIF_FUNC 1 F_TARA
+  WARNING "Necessario introdurre il peso se si è introdotta la tara"
+END
+
+NUMBER F_TARA 15 5
+BEGIN
+    PROMPT 42 10 "Tara                 "
+    FIELD LF_ANAMAG->TARA
+END
+
+NUMBER F_MASSANUN 10 3
+BEGIN
+    PROMPT 1 11 "Massa netta unitaria  "
+    FIELD LF_ANAMAG->MASSANUN
+END
+
+NUMBER F_UNSUPPUN 10 3
+BEGIN
+    PROMPT 42 11 "Unità suppl.unitaria "
+    FIELD LF_ANAMAG->UNSUPPUN
+END
+
+NUMBER F_PPCONF 15 5
+BEGIN
+    PROMPT 1 12 "Pz. per confezione    "
+    FIELD LF_ANAMAG->PPCONF
+END
+
+NUMBER F_PPCOLLO 15 5
+BEGIN
+    PROMPT 42 12 "Pz. per collo        "
+    FIELD LF_ANAMAG->PPCOLLO
+END
 
 LISTBOX F_TIPOCF 20
 BEGIN
@@ -374,157 +598,133 @@ BEGIN
     ITEM "F|Fornitore"
 END
 
-NUMBER F_CODFORN 6
+NUMBER F_COSTSTD 15 2
 BEGIN
-    PROMPT  2 1 "Codice fornitore "
-    FIELD LF_ANAMAG->CODFORN
-    USE LF_CLIFO
-    INPUT TIPOCF  F_TIPOCF SELECT
-    INPUT CODCF   F_CODFORN
-    DISPLAY "Codice " CODCF
-    DISPLAY "Ragione sociale@50" RAGSOC
-    OUTPUT F_CODFORN  CODCF
-    OUTPUT F_CODFORN1 RAGSOC
-END
-
-NUMBER F_COSTSTD 18 0
-BEGIN
-    PROMPT  37 1 "Costo standard  "
+    PROMPT 1 15 "Costo standard   "
     FIELD LF_ANAMAG->COSTSTD
 END
 
-STRING F_CODFORN1 50
+NUMBER F_ULC1 15 5
 BEGIN
-    PROMPT  2 2 "Ragione sociale  "
-    USE LF_CLIFO KEY 2
-    INPUT TIPOCF  F_TIPOCF SELECT
-    INPUT RAGSOC   F_CODFORN1
-    DISPLAY "Codice " CODCF
-    DISPLAY "Ragione sociale@50" RAGSOC
-    OUTPUT F_CODFORN  CODCF
-    OUTPUT F_CODFORN1 RAGSOC
+    PROMPT 1 16 "Ultimo costo     "
+    FIELD LF_ANAMAG->ULTCOS1
 END
 
-BOOLEAN F_ARTFIS
+DATE F_DATAULC1 
 BEGIN
-    PROMPT  2 3 "Articolo fiscale"
-    FIELD LF_ANAMAG->ARTFIS
-    MESSAGE TRUE ENABLE,23@
-    MESSAGE FALSE DISABLE,23@
+    PROMPT  42 16 "Data ultimo costo    "
+    FIELD LF_ANAMAG->DULTCOS1
 END
 
-STRING F_RAGGFIS 5
+NUMBER F_ULC2 15 5
 BEGIN
-    PROMPT  2 4 "Raggrupp. fiscale   "
-    FIELD LF_ANAMAG->RAGGFIS
-    USE RFA
-    JOIN %ASF ALIAS 200 INTO CODTAB=S8
-    INPUT CODTAB F_RAGGFIS
-    DISPLAY "Codice " CODTAB
-    DISPLAY "Descrizione@40" S0
-    OUTPUT F_RAGGFIS CODTAB
-    OUTPUT F_RAGGFIS1 S0
-    OUTPUT F_CLASSEFIS S8
-    OUTPUT F_CLASSEFIS1 -200->S0
-    CHECKTYPE NORMAL
-    GROUP 23
+    PROMPT 1 17 "Penultimo costo  "
+    FIELD LF_ANAMAG->ULTCOS2
 END
 
-STRING F_RAGGFIS1 40
+DATE F_DATAULC2
 BEGIN
-    PROMPT  31 4 ""
-    FLAG "D"
-END
-
-STRING F_CLASSEFIS 1
-BEGIN
-    PROMPT  2 5 "Classe fiscale          "
-    FIELD LF_ANAMAG->CLASSEFIS
-    USE %ASF
-    INPUT CODTAB F_CLASSEFIS
-    DISPLAY "Codice " CODTAB
-    DISPLAY "Descrizione@40" S0
-    OUTPUT F_CLASSEFIS CODTAB
-    OUTPUT F_CLASSEFIS1 S0
-    CHECKTYPE NORMAL
-    GROUP 23
-END
-
-STRING F_CLASSEFIS1 40
-BEGIN
-    PROMPT  31 5 ""
-    FLAG "D"
-END
-
-STRING F_SCONTO 25
-BEGIN
-  FIELD LF_ANAMAG->SCONTO
-  PROMPT 2 6 "Sconto        "
-END
-
-STRING F_CODIVAR 4
-BEGIN
-  PROMPT 45 6 "Codice IVA ridotta  "
-  FIELD LF_ANAMAG->CODIVAR
-  USE %IVA
-  INPUT CODTAB  F_CODIVAR
-  DISPLAY "Codice " CODTAB
-  DISPLAY "Descrizione@40" S0
-  OUTPUT F_CODIVAR CODTAB
-  CHECKTYPE NORMAL
+    PROMPT  42 17 "Data penultimo costo "
+    FIELD LF_ANAMAG->DULTCOS2
 END
 
 NUMBER F_PROVV 5 2
 BEGIN
   FIELD LF_ANAMAG->PERCPROVV
-  PROMPT 2 7 "Provvigione   "
+  PROMPT 1 20 "Provvigione      "
   NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100)
   WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
 END
 
-BOOLEAN F_ARTPROD
+NUMBER F_RICARICO 5 2
 BEGIN
-   PROMPT 2 8 "Articolo di produzione "
-   FIELD LF_ANAMAG->ARTPROD
-	MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1
-	MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1
+  FIELD LF_ANAMAG->PERCRIC
+  PROMPT 42 20 "Ricarico/margine     "
+	FLAGS "U"
+//  NUM_EXPR #F_RICARICO<=
+//  WARNING "La percentuale di ricarico deve essere compresa ..."
 END
 
-NUMBER F_PPCONF 15 5
-BEGIN
-    PROMPT 2 9 "Pz. per conf. "
-    FIELD LF_ANAMAG->PPCONF
-END
-
-NUMBER F_PPCOLLO 15 5
-BEGIN
-    PROMPT 41 9 "Pz. per collo "
-    FIELD LF_ANAMAG->PPCOLLO
-END
-
-SPREADSHEET F_SHEET1 71 9
-BEGIN
-     PROMPT 2 11 "Descrizioni in lingua"
-     ITEM "Cod. lingua"
-     ITEM "Descrizione@50"
-END
 
 ENDPAGE
 
-PAGE "Pagina 3 " 0 0 70 20
 
-SPREADSHEET F_SHEET2 71 10
+
+PAGE "Giacenze" 0 0 70 20
+
+// Anno relativo alle giacenze
+NUMBER H_ANNO 4
 BEGIN
-     PROMPT 2 2 "Codici alternativi"
-     ITEM "Cod. art.@20"
-     ITEM "Tipo@10"
+  PROMPT 2 2 ""
+	FLAGS  "AHG"
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 42 2 "Vai all'anno "
+	FLAGS  "AU"
+  NUM_EXPR (#F_ANNO<=#H_ANNO)&&(#F_ANNO>=(#H_ANNO-"10"))
+	WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
+END
+
+NUMBER F_ANNORIF 4  // anno usato per il write
+BEGIN
+  PROMPT 2 2 "Anno considerato "
+	FLAGS  "AD"
+END
+
+TEXT DLG_NULL
+BEGIN 
+  PROMPT 3 4 "Giacenze"
+END
+
+SPREADSHEET F_SHEETGIAC 77 5
+BEGIN
+  PROMPT 2 5 "Giacenze"
+  ITEM "Mag."
+  ITEM "Dep."
+  ITEM "Liv1@10"
+  ITEM "Liv2@6"
+  ITEM "Liv3@6"
+  ITEM "Liv4@6"
+  ITEM "Ubicazione"
+  ITEM "Giacenza @10"
+  ITEM "Rim.Iniz.@10"
+  ITEM "V.Rim.Iniz.@12"
+  ITEM "Acq.@10"
+  ITEM "V.Acq.@12"
+  ITEM "Entr.@10"
+  ITEM "V.Entr.@12"
+  ITEM "Ven.@10"
+  ITEM "V.Ven.@12"
+  ITEM "Uscito@10"
+	ITEM "V.Uscito@12"
+  ITEM "Ord.For.@10"
+	ITEM "V.Ord.For.@12"
+  ITEM "Ord.Cli.@10"
+	ITEM "V.Ord.Cli.@12"
+  ITEM "Scarti@10"
+	ITEM "V.Scarti@12"
+  ITEM "In Prod.Comp.@10"
+  ITEM "In Prod.Fin.@10"
+	ITEM "A conto L.@10"
+	ITEM "In conto L.@10"
+	ITEM "Etichette@10"
+	ITEM "Scorta min.@10"
+	ITEM "Livello rior.@10"
+	ITEM "Lotto rior.@10"
+// !?!?!Troppe colonne!!!!!
+//	ITEM "Giorni rior.@10"
+//	ITEM "N.dist."
 END
 
 ENDPAGE
 
 ENDMASK
 
- #include "ve2400a.uml"
- #include "ve2400b.uml"
  #include "ve2400c.uml"
+ #include "ve2400b.uml"
+ #include "ve2400a.uml"
+ #include "ve2400d.uml"
+
 
diff --git a/ve/ve2400d.uml b/ve/ve2400d.uml
new file mode 100755
index 000000000..ea90206ab
--- /dev/null
+++ b/ve/ve2400d.uml
@@ -0,0 +1,360 @@
+TOOLBAR "" 0 20 60 2
+
+BUTTON DLG_OK 9 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_CANCEL 9 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON DLG_DELREC 9 2
+BEGIN
+  PROMPT -33 -1 "Elimina"
+  MESSAGE EXIT,K_DEL
+END
+
+ENDPAGE
+
+PAGE "Giacenze" -1 -1 80 23
+
+STRING F_CODMAG 3
+BEGIN
+	PROMPT 2 0 "Magazzino  "
+  FLAGS "U"
+	FIELD CODMAG[1,3]
+  USE MAG SELECT CODTAB[4,5]==""
+  INPUT CODTAB F_CODMAG
+  DISPLAY "Codice " CODTAB[1,3]
+  DISPLAY "Denominazione mag.@50 " S0
+  OUTPUT F_CODMAG CODTAB[1,3]
+  OUTPUT F_DESMAG S0
+  OUTPUT H_DESMAG S0
+  OUTPUT H_GESTGIA B0
+//  OUTPUT F_CODDEP CODTAB[4,5]
+	CHECKTYPE REQUIRED
+
+END
+
+STRING F_CODDEP 2
+BEGIN
+	PROMPT 2 1 "Deposito   "
+  FLAGS "U"
+	FIELD CODMAG[4,5]
+	USE MAG 
+	INPUT CODTAB[1,3] F_CODMAG 
+  INPUT CODTAB[4,5] F_CODDEP
+  DISPLAY "Cod. magazzino" CODTAB[1,3]
+  DISPLAY "Cod. deposito" CODTAB[4,5]
+  DISPLAY "Denominazione dep.@50" S0
+  OUTPUT F_CODDEP CODTAB[4,5]
+  OUTPUT F_DESDEP S0
+  OUTPUT F_CODMAG CODTAB[1,3]
+	CHECKTYPE NORMAL
+  STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X")
+//	WARNING "Indicare il deposito"
+END
+
+STRING F_DESMAG 50
+BEGIN
+	PROMPT 22 0 ""
+  USE MAG KEY 2 
+  INPUT S0 F_DESMAG
+  DISPLAY "Denominazione mag.@50" S0
+  DISPLAY "Cod. magazzino" CODTAB[1,3]
+  DISPLAY "Cod. deposito" CODTAB[4,5]
+	OUTPUT F_CODMAG CODTAB[1,3]
+	OUTPUT F_CODDEP CODTAB[4,5]
+// GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output
+//					a cascata??? perchè mi ritrovo il coddep cancellato???
+END
+
+
+STRING F_DESDEP 50
+BEGIN
+	PROMPT 22 1 ""
+	FLAGS "H"
+	COPY USE F_DESMAG
+  INPUT S0 F_DESDEP
+	COPY DISPLAY F_DESMAG
+  COPY OUTPUT F_DESMAG
+//	MESSAGE K_TAB,F_CODDEP
+END
+
+
+STRING H_DESMAG 50
+BEGIN
+	PROMPT 22 0 ""
+	FLAGS "D"
+END
+
+//Abilitazione/disabil. dei campi relativi al deposito
+BOOLEAN H_GESTGIA
+BEGIN
+  PROMPT 1 1 ""
+  FLAGS "HG"
+	MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP|SHOW,H_DESMAG|HIDE,F_DESMAG
+  MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP|HIDE,H_DESMAG|SHOW,F_DESMAG
+END
+
+//Livelli giacenza
+STRING F_LIV1 10
+BEGIN
+  PROMPT 2 2 "Livello 1  "
+	USE GCG //SELECT CODTAB[1,1]=="1"
+	JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "1" 
+	INPUT CODTAB[2,11] F_LIV1
+	DISPLAY	"Livello@20" 500@->S0
+	DISPLAY	"Gruppo@10" CODTAB[2,20]
+	DISPLAY	"Descr.@30" S0
+	OUTPUT F_LIV1 CODTAB[2,12] 
+	CHECKTYPE NORMAL
+
+  MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
+END
+
+STRING F_LIV2 6
+BEGIN
+  PROMPT  40 2 "Livello 2  "
+	// Non mettere 	FLAGS "D" perchè disabiliterebbe tutta la colonna
+	USE GCG //SELECT CODTAB[1,1]=="2"
+	JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "2" 
+	INPUT CODTAB[2,12] F_LIV2
+	COPY DISPLAY F_LIV1
+	OUTPUT F_LIV2 CODTAB[2,12] 
+	CHECKTYPE NORMAL
+  MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
+END
+
+STRING F_LIV3 6
+BEGIN
+  PROMPT 2 3 "Livello 3  "
+	USE GCG //SELECT CODTAB[1,1]=="3"
+	JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "3" 
+	INPUT CODTAB[2,12] F_LIV3
+	COPY DISPLAY F_LIV1
+	OUTPUT F_LIV3 CODTAB[2,12] 
+	CHECKTYPE NORMAL
+  MESSAGE EMPTY RESET,F_LIV4
+END
+
+STRING F_LIV4 6
+BEGIN
+  PROMPT 40 3 "Livello 4  "
+	USE GCG //SELECT CODTAB[1,1]=="4"
+	JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "4" 
+	INPUT CODTAB[2,12] F_LIV4
+	COPY DISPLAY F_LIV1
+	OUTPUT F_LIV4 CODTAB[2,12] 
+	CHECKTYPE NORMAL
+END
+
+// ubicazione introdotta da tabella ubicazioni
+STRING F_UBICAZ 10
+BEGIN
+	PROMPT 2 4 "Ubicazione "
+	FIELD UBICAZ
+  USE UBI 
+  INPUT CODTAB F_UBICAZ
+  DISPLAY "Codice" CODTAB[1,3]
+  DISPLAY "Ubicazione@50 " S0
+  OUTPUT F_UBICAZ CODTAB
+  OUTPUT F_UBICAZD S0
+	CHECKTYPE NORMAL
+	STR_EXPR (#F_UBICAZ?="???")
+END
+
+// ubicazione introdotta direttamente o da tabella
+STRING F_UBICAZ2 10
+BEGIN
+	PROMPT 2 4 "Ubicazione "
+	FIELD UBICAZ
+END
+
+STRING F_UBICAZD 20
+BEGIN
+	PROMPT 22 4  ""
+	FLAGS "D"
+END
+
+
+NUMBER F_SCORTAMIN	10	3
+BEGIN
+	PROMPT 50 4 "Scorta minima "
+	FIELD SCORTAMIN
+END
+
+
+NUMBER F_LIVRIOR	15 3
+BEGIN
+	PROMPT 2 5 "Riordino: Livello "
+ FIELD LIVRIOR
+END
+
+NUMBER F_LOTTORIOR	10 3
+BEGIN
+	PROMPT 40 5 "Lotto minimo " 
+	FLAGS "U"
+	FIELD LOTTORIOR
+END
+
+NUMBER F_GIORNIRIOR	2
+BEGIN
+	PROMPT 66 5 "Giorni "
+	FLAGS "U"
+	FIELD GIORNIRIOR
+END
+
+NUMBER F_GIAC 	15 5
+BEGIN
+	PROMPT 2 6 "Giacenza attuale           "
+	FIELD GIAC
+END
+
+
+NUMBER F_RIM	15 5
+BEGIN
+	PROMPT 2 7 "Rimanenze iniziali         "
+	FIELD RIM
+END
+
+
+NUMBER F_VRIM	18 3
+BEGIN
+	PROMPT 46 7 "Valore "
+	FIELD VALRIM
+END
+
+
+NUMBER F_ACQ	15 5
+BEGIN
+	PROMPT 2 8 "Acquistato                 "
+	FIELD ACQ
+END
+
+NUMBER F_VACQ	18 3
+BEGIN
+	PROMPT 46 8 "Valore "
+	FIELD VALACQ
+END
+
+NUMBER F_ENTR	15 5
+BEGIN
+	PROMPT 2 9 "Entrato                    " 
+	FIELD ENT
+END
+
+NUMBER F_VENTR	18 3
+BEGIN
+	PROMPT 46 9 "Valore "
+	FIELD VALENT
+END
+
+NUMBER F_VEN	15 5
+BEGIN
+	PROMPT 2 10  "Venduto                    "
+	FIELD VEN
+END
+
+NUMBER F_VVEN		18 3
+BEGIN
+	PROMPT 46 10 "Valore " 
+	FIELD VALVEN
+END
+
+NUMBER F_USC	15 5
+BEGIN
+	PROMPT 2  11 "Uscito                     "
+	FIELD USC
+END
+
+NUMBER F_VUSC	18 3
+BEGIN
+	PROMPT 46 11 "Valore "
+	FIELD VALUSC
+END
+
+NUMBER F_ORDF	15 5
+BEGIN
+	PROMPT 2 12  "Ordinato fornitori         "
+	FIELD ORDF
+END
+
+NUMBER F_VORDF	18 3
+BEGIN
+	PROMPT 46 12 "Valore "
+	FIELD VALORDF
+END
+
+NUMBER F_ORDC	15 5
+BEGIN
+	PROMPT 2 13 "Ordinato clienti           "
+	FIELD ORDC
+END
+
+NUMBER F_VORDC	18 3
+BEGIN
+	PROMPT 46 13 "Valore "
+	FIELD VALORDC
+END
+
+NUMBER F_SCARTI	15 5
+BEGIN
+	PROMPT 2 14 "Scarti                     "
+	FIELD SCARTI
+END
+
+NUMBER F_VSCARTI	18 3
+BEGIN
+	PROMPT 46 14 "Valore "
+	FIELD VALSCARTI
+END
+
+NUMBER F_INPRODC	15 5
+BEGIN
+	PROMPT 2 15 "In produzione (componenti) "
+	FIELD PRODCOMP
+END
+
+NUMBER F_INPRODF	15 5
+BEGIN
+	PROMPT 2 16 "In produzione (finiti)     "
+	FIELD PRODFIN
+END
+
+NUMBER F_ACL	15 5
+BEGIN
+	PROMPT 2  17 "A conto lavorazione        "
+	FIELD ACL
+END
+	
+NUMBER F_INCL	15 5
+BEGIN
+	PROMPT 2 18 "In conto lavorazione       "
+	FIELD INCL
+END
+
+NUMBER F_LABELS	10
+BEGIN
+	PROMPT 2 19  "Etichette da stampare      "
+	FIELD NLABEL
+	FLAGS "D"
+END
+
+NUMBER F_NDIST	10
+BEGIN
+	PROMPT 42 19  "Distinte "
+	FIELD NDIST
+	FLAGS "D"
+END
+
+
+ENDPAGE
+
+ENDMASK