Nuova mashcera con pagine riorganizzate (con giacenze,storico )

git-svn-id: svn://10.65.10.50/trunk@4391 c028cbd2-c16b-5b4b-a496-9718f37d4682

ve/ve2400.uml

@@ -5,7 +5,7 @@ TOOLBAR "" 0 20 60 2
  #include <toolbar.h>
 ENDPAGE
 
-PAGE "Pagina 1" 0 0 70 20
+PAGE "Pag. 1" 0 0 70 20
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
@@ -26,8 +26,99 @@ BEGIN
     OUTPUT F_CODART CODART
     OUTPUT F_DESCR DESCR
     CHECKTYPE REQUIRED
+	MESSAGE DISABLE,F_GCA
+	MESSAGE EMPTY ENABLE,F_GCA
 END
 
+STRING F_LIVART1 20
+BEGIN
+	FLAGS "HG"
+  PROMPT 2 1 "Codice art.   "
+	USE GCA
+	JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "1" 
+	INPUT CODTAB[2,11] F_LIVART1
+	DISPLAY	"Livello@20" 500@->S0
+	DISPLAY	"Gruppo@10" CODTAB[2,20]
+	DISPLAY	"Descr.@30" S0
+	OUTPUT F_LIVART1 CODTAB[2,20] 
+	CHECKTYPE REQUIRED
+	ADD RUN MG0 -0 GCA
+END
+
+STRING F_LIVART2 20
+BEGIN
+	FLAGS "HG"
+  PROMPT 20  1 ""
+	USE GCA
+	JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "2" 
+	INPUT CODTAB[2,11] F_LIVART2
+	DISPLAY	"Livello@20" 500@->S0
+	DISPLAY	"Gruppo@10" CODTAB[2,20]
+	DISPLAY	"Descr.@30" S0
+	OUTPUT F_LIVART2 CODTAB[2,20] 
+	CHECKTYPE REQUIRED
+	ADD RUN MG0 -0 GCA
+END
+
+STRING F_LIVART3 20
+BEGIN
+	FLAGS "HG"
+  PROMPT 30 1 ""
+	USE GCA
+	JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
+	INPUT CODTAB[1,1] "3" 
+	INPUT CODTAB[2,11] F_LIVART3
+	DISPLAY	"Livello@20" 500@->S0
+	DISPLAY	"Gruppo@10" CODTAB[2,20]
+	DISPLAY	"Descr.@30" S0
+	OUTPUT F_LIVART3 CODTAB[2,20] 
+	CHECKTYPE REQUIRED
+	ADD RUN MG0 -0 GCA
+END
+
+STRING F_LIVART4 20
+BEGIN
+	FLAGS "HG"
+  PROMPT  15 1  ""
+END
+
+STRING F_LIVART5 20
+BEGIN
+	FLAGS "HG"
+  PROMPT  15 1  ""
+END
+
+STRING F_LIVART6 20
+BEGIN
+	FLAGS "HG"
+  PROMPT  15 1  ""
+END
+
+STRING F_LIVART7 20
+BEGIN
+	FLAGS "HG"
+  PROMPT  15 1  ""
+END
+
+STRING F_LIVART8 20
+BEGIN
+	FLAGS "HG"
+  PROMPT  15 1  ""
+END
+
+STRING F_LIVART9 20
+BEGIN
+	FLAGS "HG"
+  PROMPT  15 1  ""
+END
+
+BUTTON F_GCA 20 1
+BEGIN
+	PROMPT 45 1 "Gestione gruppi"
+	MESSAGE RUN,MG0,-0, GCA
+END
 
 STRING F_DESCR 50
 BEGIN
@@ -123,7 +214,7 @@ ENDPAGE
 
 
 
-PAGE "Pagina 2" 0 0 70 20
+PAGE "Pag. 2" 0 0 70 20
 
 STRING F_GRMERC 3
 BEGIN
@@ -533,7 +624,7 @@ ENDPAGE
 
 
 
-PAGE "Pagina 3" 0 0 70 20
+PAGE "Pag. 3" 0 0 70 20
 
 STRING F_UMP 3
 BEGIN
@@ -664,7 +755,7 @@ ENDPAGE
 
 
 
-PAGE "Pagina 4" 0 0 70 20
+PAGE "Pag. 4" 0 0 70 20
 
 // Anno relativo alle giacenze
 NUMBER H_ANNO 4
@@ -683,25 +774,30 @@ END
 
 NUMBER F_ANNORIF 4  // anno usato per il write dell'annata precedente
 BEGIN
-  PROMPT 2 2 "Anno considerato "
+  PROMPT 2 2 "Giacenze dell'anno "
 	FLAGS  "AD"
 END
 
-TEXT DLG_NULL
-BEGIN 
-  PROMPT 3 4 "Giacenze"
-END
-
 SPREADSHEET F_SHEETGIAC 77 10
 BEGIN
-  PROMPT 2 5 "Giacenze"
+  PROMPT 2 4 "Giacenze"
-  ITEM "Mag."
+	FLAGS "A"
-  ITEM "Dep."
+	USE LF_MAG KEY NRIGA
+	INPUT ANNOES F_ANNO
+	INPUT CODART F_CODART
+	// la sequenza delle colonne livelliX, mag e dep è usata per ottenere 
+	// un ordinamento delle righe dello sheet: NON cambiarla
   ITEM "Liv1@10"
   ITEM "Liv2@6"
   ITEM "Liv3@6"
   ITEM "Liv4@6"
+  ITEM "Mag."
+  ITEM "Dep."
   ITEM "Ubicazione"
+	ITEM "Scorta min.@10"
+	ITEM "Livello rior.@10"
+	ITEM "Lotto rior.@10"
+	ITEM "Giorni rior.@10"
   ITEM "Giacenza @10"
   ITEM "Rim.Iniz.@10"
   ITEM "V.Rim.Iniz.@12"
@@ -724,15 +820,10 @@ BEGIN
 	ITEM "A conto L.@10"
 	ITEM "In conto L.@10"
 	ITEM "Etichette@10"
-	ITEM "Scorta min.@10"
+	ITEM "N.dist."
-	ITEM "Livello rior.@10"
-	ITEM "Lotto rior.@10"
-// !?!?!Troppe colonne!!!!!
-//	ITEM "Giorni rior.@10"
-//	ITEM "N.dist."
 END
 ENDPAGE
-PAGE "Pagina 5" 0 0 70 20
+PAGE "Pag. 5" 0 0 70 20
 
 NUMBER F_STOANNO 4
 BEGIN
@@ -744,18 +835,13 @@ END
 
 NUMBER F_STOANNORIF 4  // anno usato per il write dell'annata precedente
 BEGIN
-  PROMPT 2 2 "Anno considerato "
+  PROMPT 2 2 "Storico Giacenze dell'anno "
 	FLAGS  "AD"
 END
 
-TEXT DLG_NULL
-BEGIN 
-  PROMPT 3 4 "Storico Giacenze"
-END
-
 SPREADSHEET F_SHEETSTOMAG 77 10
 BEGIN
-  PROMPT 2 5 "Storico Giacenze"
+  PROMPT 2 4 "Storico Giacenze"
 	FLAGS "A"
 	USE LF_STOMAG KEY NRIGA
 	INPUT ANNOESRIF F_STOANNO