Patch level : 12.0 988

Files correlati     : ve2.exe ve2400.msk
Commento            :

Corretta ricostruzione saldi nel caso di un record di magazzino che non esisteva

src/ve/ve2400.h

@@ -77,7 +77,6 @@
 
 #define H_ANNO    182
 #define F_ANNO    183
-#define F_ANNORIF   184
 
 #define F_STOANNO   185
 #define F_STOANNORIF    186

src/ve/ve2400.uml

@@ -910,12 +910,6 @@ BEGIN
   ADD RUN cg0 -5 ESC
 END
 
-STRING F_ANNORIF 4  // anno usato per il write dell'annata precedente
-BEGIN
-  PROMPT 36 4 "Giacenze dell'esercizio "
-  FLAGS  "DPZ"
-END
-
 STRING F_UMPRINCIPALE 2
 BEGIN
   PROMPT 70 4 "U.M. "
@@ -930,7 +924,7 @@ END
 
 TEXT F_WRITEON
 BEGIN
-  PROMPT 60 5 "@bSCRITTURA ATTIVA"
+  PROMPT 55 5 "@bSCRITTURA GIACENZE ATTIVA"
   FLAGS "H"
 END
 

src/ve/ve2400d.uml

@@ -227,6 +227,7 @@ NUMBER F_GIAC   15 5
 BEGIN
   PROMPT 2 7 "Giacenza attuale           "
   FIELD GIAC
+  FLAGS "D"
   MESSAGE CHECK,F_VALGIAC
 END
 
@@ -240,6 +241,7 @@ NUMBER F_RIM  15 5
 BEGIN
   PROMPT 2 8 "Rimanenze iniziali         "
   FIELD RIM
+  FLAGS "D"
   MESSAGE CHECK,F_VALGIAC
 END
 
@@ -249,6 +251,7 @@ BEGIN
   PROMPT 46 8 "Valore "
   FIELD VALRIM
   MESSAGE CHECK,F_VALGIAC
+  FLAGS "D"
 END
 
 
@@ -257,6 +260,7 @@ BEGIN
   PROMPT 2 9 "Acquistato                 "
   FIELD ACQ
   MESSAGE CHECK,F_VALGIAC
+  FLAGS "D"
 END
 
 CURRENCY F_VACQ 18
@@ -264,78 +268,91 @@ BEGIN
   PROMPT 46 9 "Valore "
   FIELD VALACQ
   MESSAGE CHECK,F_VALGIAC
+  FLAGS "D"
 END
 
 NUMBER F_ENTR 15 5
 BEGIN
   PROMPT 2 10 "Entrato                    " 
   FIELD ENT
+  FLAGS "D"
 END
 
 CURRENCY F_VENTR 18
 BEGIN
   PROMPT 46 10 "Valore "
   FIELD VALENT
+  FLAGS "D"
 END
 
 NUMBER F_VEN  15 5
 BEGIN
   PROMPT 2 11  "Venduto                    "
   FIELD VEN
+  FLAGS "D"
 END
 
 CURRENCY F_VVEN 18
 BEGIN
   PROMPT 46 11 "Valore " 
   FIELD VALVEN
+  FLAGS "D"
 END
 
 NUMBER F_USC  15 5
 BEGIN
   PROMPT 2  12 "Uscito                     "
   FIELD USC
+  FLAGS "D"
 END
 
 CURRENCY F_VUSC 18
 BEGIN
   PROMPT 46 12 "Valore "
   FIELD VALUSC
+  FLAGS "D"
 END
 
 NUMBER F_ORDF 15 5
 BEGIN
   PROMPT 2 13  "Ordinato fornitori         "
   FIELD ORDF
+  FLAGS "D"
 END
 
 CURRENCY F_VORDF 18
 BEGIN
   PROMPT 46 13 "Valore "
   FIELD VALORDF
+  FLAGS "D"
 END
 
 NUMBER F_ORDC 15 5
 BEGIN
   PROMPT 2 14 "Ordinato clienti           "
   FIELD ORDC
+  FLAGS "D"
 END
 
 CURRENCY F_VORDC 18
 BEGIN
   PROMPT 46 14 "Valore "
   FIELD VALORDC
+  FLAGS "D"
 END
 
 NUMBER F_SCARTI 15 5
 BEGIN
   PROMPT 2 15 "Scarti                     "
   FIELD SCARTI
+  FLAGS "D"
 END
 
 CURRENCY F_VSCARTI 18
 BEGIN
   PROMPT 46 15 "Valore "
   FIELD VALSCARTI
+  FLAGS "D"
 END
 
 CURRENCY F_ULC1R 15
@@ -366,37 +383,41 @@ NUMBER F_INPRODC  15 5
 BEGIN
   PROMPT 2 16 "In produzione (componenti) "
   FIELD PRODCOMP
+  FLAGS "D"
 END
 
 NUMBER F_INPRODF  15 5
 BEGIN
   PROMPT 2 17 "In produzione (finiti)     "
   FIELD PRODFIN
+  FLAGS "D"
 END
 
 NUMBER F_ACL  15 5
 BEGIN
   PROMPT 2  18 "A conto lavorazione        "
   FIELD ACL
+  FLAGS "D"
 END
   
 NUMBER F_INCL 15 5
 BEGIN
   PROMPT 2 19 "In conto lavorazione       "
   FIELD INCL
+  FLAGS "D"
 END
 
 NUMBER F_LABELS 10
 BEGIN
   PROMPT 2 20  "Etichette da stampare      "
   FIELD NLABEL
-  FLAGS "D"
 END
 
 NUMBER F_NDIST  15 5
 BEGIN
   PROMPT 42 20  "Distinte "
   FIELD NDIST
+  FLAGS "D"
 END
 
 ENDPAGE