Storico suddiviso per magazzini

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

mg/mg3500.frm

@@ -1,8 +1,10 @@
 #define LF_UMART2 349
+#define LF_TAB_MAG 500
 USE LF_ANAMAG KEY 1 
 JOIN LF_STOMAG TO LF_ANAMAG INTO ANNOESRIF==1996 CODART==CODART
 JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
 JOIN LF_UMART TO LF_STOMAG KEY 2 ALIAS LF_UMART2 INTO CODART==CODART UM==UM
+JOIN MAG TO LF_STOMAG ALIAS LF_TAB_MAG INTO CODTAB==CODMAG[1,3]
 END
   
 DESCRIPTION
@@ -79,6 +81,23 @@ SECTION BODY ODD 1
   END
 
   SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG
+
+    SECTION BODY_MAG 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
+      SECTION HD_MAG 1 2 1 NORMAL GROUP
+        STRINGA 11 20
+        BEGIN
+          KEY "CODART"
+          PROMPT 2 1 "Magazzino "
+          FIELD LF_TAB_MAG@->CODTAB
+        END
+        STRINGA 12 50
+        BEGIN
+          KEY "DESCR"
+          PROMPT 33 1 ""
+          FIELD LF_TAB_MAG@->S0
+        END
+      END // HD MAG
+
       SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP
         NUMERO 13 15
         BEGIN
@@ -102,8 +121,7 @@ SECTION BODY ODD 1
           PROMPT 5 1 ")   Valore"
         END
       END // HD ANNI
-
+      SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODMAG
-    SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
         NUMERO 13 15
         BEGIN
           KEY "offset"
@@ -131,6 +149,7 @@ SECTION BODY ODD 1
         END
     
       END // body anni
+    END // body anni
   END // gruppi anni dello stesso articolo
 
 END // section body, loop anamag