Storico con magazzini e info di storico

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

ve/ve2400.uml

@@ -762,20 +762,25 @@ NUMBER H_ANNO 4
 BEGIN
   PROMPT 2 2 ""
   FLAGS  "AHG"
+  //MESSAGE COPY,F_ANNO |COPY,F_ANNORIF 
 END
 
-NUMBER F_ANNO 4
+STRING F_ANNO 4
 BEGIN
   PROMPT 42 2 "Vai all'anno "
-	FLAGS  "AU"
+  FLAGS  "U"
-  NUM_EXPR (#F_ANNO<=#H_ANNO)&&(#F_ANNO>=(#H_ANNO-"10"))
+  USE ESE
-	WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
+  INPUT CODTAB F_ANNO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Dal@10" D0
+  DISPLAY "Al@10"   D1
+  OUTPUT F_ANNO CODTAB 
 END
 
-NUMBER F_ANNORIF 4  // anno usato per il write dell'annata precedente
+STRING F_ANNORIF 4  // anno usato per il write dell'annata precedente
 BEGIN
   PROMPT 2 2 "Giacenze dell'anno "
-	FLAGS  "AD"
+  FLAGS  "D"
 END
 
 SPREADSHEET F_SHEETGIAC 77 10
@@ -825,70 +830,82 @@ END
 ENDPAGE
 PAGE "Pag. 5" 0 0 70 20
 
-NUMBER F_STOANNO 4
+STRINGA  F_STOANNO 4
 BEGIN
   PROMPT 42 2 "Vai all'anno "
-	FLAGS  "AU"
+  FLAGS  "U"
-  NUM_EXPR (#F_STOANNO<=#H_ANNO)&&(#F_STOANNO>=(#H_ANNO-"10"))
+  USE ESE
-	WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
+  INPUT CODTAB F_STOANNO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Dal@10" D0
+  DISPLAY "Al@10"   D1
+  OUTPUT F_STOANNO CODTAB 
 END
 
-NUMBER F_STOANNORIF 4  // anno usato per il write dell'annata precedente
+STRINGA F_STOANNORIF 4  // anno usato per il write dell'annata precedente
 BEGIN
   PROMPT 2 2 "Storico Giacenze dell'anno "
-	FLAGS  "AD"
+  FLAGS  "D"
 END
 
+TEXT DLG_NULL
+BEGIN
+  PROMPT 2 4 "Composizione rimanenze a fine anno "
+END
+
+SPREADSHEET F_SHEETSTOMAG 77 11
+BEGIN
+  PROMPT 2 5 "Composizione"
+  FLAGS "A"
+  USE LF_STOMAG KEY NRIGA
+  INPUT ANNOESRIF F_STOANNO
+  INPUT CODART F_CODART
+  ITEM " @1F"
+  ITEM "Magazzino"
+  ITEM "Esercizio@10"
+  ITEM "U.M.@10"
+  ITEM "Quantità@15"
+  ITEM "Valore@15"
+END
+
+
 NUMBER F_STOULTCOS1 15 5
 BEGIN
   FLAGS "U"
-	PROMPT 2 16 "Ultimo costo   "
+  PROMPT 2 17 "Ultimo costo   "
 END
 
 NUMBER F_STOULTCOS2 15 5
 BEGIN
   FLAGS "U"
-	PROMPT 42 16 "Penultimo costo "
+  PROMPT 42 17 "Penultimo costo "
 END
 
 NUMBER F_STOCOSTOSTD 15 5
 BEGIN
   FLAGS "U"
-	PROMPT 2 17 "Costo standard "
+  PROMPT 2 18 "Costo standard "
 END
 
 NUMBER F_STOCOSTOMEDIO 15 5
 BEGIN
   FLAGS "U"
-	PROMPT 42 17 "Costo medio     "
+  PROMPT 42 18 "Costo medio     "
 END
 
 STRING F_STOCATVEN 3
 BEGIN
-	PROMPT 2 18 "Cat.vendita "
+  PROMPT 2 19   "Cat.vendita    "
 END
 STRING F_STOCODLIST 3 
 BEGIN
-	PROMPT 26 18 "Cod.listino "
+  PROMPT 26 19 "Cod.listino "
 END
 
 NUMBER F_STOPREZZOLIST 15 5
 BEGIN
   FLAGS "U"
-	PROMPT 47 18  "Prezzo "
+  PROMPT 51 19  "Prezzo "
-END
-
-SPREADSHEET F_SHEETSTOMAG 77 10
-BEGIN
-  PROMPT 2 4 "Storico Giacenze"
-	FLAGS "A"
-	USE LF_STOMAG KEY NRIGA
-	INPUT ANNOESRIF F_STOANNO
-	INPUT CODART F_CODART
-  ITEM "Esercizio@10"
-  ITEM "U.M.@10"
-  ITEM "Quantità@15"
-	ITEM "Valore@15"
 END
 
 

ve/ve2400d.uml

@@ -183,7 +183,7 @@ END
 
 STRING F_UBICAZD 20
 BEGIN
-	PROMPT 22 4  ""
+	PROMPT 27 4  ""
 	FLAGS "D"
 END
 

ve/ve2400e.uml

@@ -20,6 +20,25 @@ ENDPAGE
 
 PAGE "Storico giacenze" -1 -1 80 23
 
+STRING F_STOTIPORIGA 1
+BEGIN
+  FLAGS "D"
+  PROMPT 2 100 "Tipo riga"
+END
+
+STRING F_STOCODMAG 3
+BEGIN
+  PROMPT 2 2 "Codice magazzino "
+  FLAGS "U"
+  FIELD LF_STOMAG->CODMAG
+  USE MAG
+  INPUT CODTAB F_STOCODMAG
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@40" S0
+  OUTPUT F_STOCODMAG CODTAB
+  CHECKTYPE REQUIRED  
+END
+
 NUMBER F_STOANNOES 4
 BEGIN
   PROMPT 2 4 "Codice esercizio "
@@ -36,14 +55,7 @@ END
 STRING F_STOUM 2
 BEGIN
   PROMPT 2 6 "Unità di misura  "
-	FLAGS "U"
+  FLAGS "UD"
-	FIELD LF_STOMAG->UM
-	USE LF_UMART KEY 2
-	INPUT CODART F_STOCODART SELECT
-	INPUT UM F_STOUM
-	DISPLAY "U.M.@20" UM
-	OUTPUT F_STOUM UM 
-	CHECKTYPE REQUIRED
 END
 
 NUMBER F_STOQUANT 15 5
@@ -54,18 +66,18 @@ BEGIN
   WARNING "Indicare la quantità"
 END
 
-NUMBER F_STOPREZZO 18 3
+NUMBER F_STOVAL 18 3
 BEGIN
   PROMPT 2 10 "Valore           "
   FIELD LF_STOMAG->VALORE
   CHECKTYPE REQUIRED  
-	WARNING "Indicare il prezzo"
+  WARNING "Indicare il valore"
 END
 
 STRING F_STOCODART 20
 BEGIN
-	PROMPT 2 1 "Codice art.   "
+  PROMPT 2 18 "Codice art.   "
-	FLAGS "H"
+  FLAGS "HG"
 END
 
 ENDPAGE