Stampa unica formato e gruppi con form

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

mg/bastfca.uml

@@ -1,26 +1,65 @@
-#include "..\ba\ba3200.h"
+#include "..\mg\mg0200.h"
-PAGE "Stampa Tabella Formato Codice Articoli" -1 -1 58 8
+PAGE "Stampa Tabella Gruppi Codice Articoli" -1 -1 68 8
 
 STRING F_INIZIO1 1
 BEGIN
   PROMPT 2 1 "Dal livello "
+	FIELD LF_TABCOM->CODTAB[1,1]
   USE FCA
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice " CODTAB[1,1]
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_INIZIO1 CODTAB
+  OUTPUT F_INIZIO1 CODTAB[1,1]
   GROUP 1
+	CHECKTYPE NORMAL
 END
 
 STRING F_FINE1 1
 BEGIN
   PROMPT 2 3 " Al livello "
-  HELP "Inserire il codice di fine  "
+	FIELD LF_TABCOM->CODTAB[1,1]
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
   GROUP 2
+	CHECKTYPE NORMAL
+END
+
+BOOL F_DETTAGLIO 
+BEGIN
+	PROMPT 2 5 "Stampo anche i gruppi "
+	MESSAGE TRUE ENABLE,F_FINE2 |ENABLE,F_INIZIO2 
+	MESSAGE FALSE DISABLE,F_FINE2 |DISABLE,F_INIZIO2 
+END
+
+STRING F_INIZIO2 20
+BEGIN
+  PROMPT 28 1 "Dal gruppo "
+	FIELD LF_TABCOM->CODTAB[2,20]
+  USE GCA SELECT CODTAB[1,1]==#F_INIZIO1
+  INPUT CODTAB[1,1] F_INIZIO1
+  INPUT CODTAB[2,20] F_INIZIO2
+  DISPLAY "Codice " CODTAB[2,20]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_INIZIO2 CODTAB[2,20]
+  OUTPUT F_INIZIO1 CODTAB[1,1]
+  GROUP 1
+	CHECKTYPE NORMAL
+END
+
+STRING F_FINE2 20
+BEGIN
+  PROMPT 28 3 " Al gruppo "
+	FIELD LF_TABCOM->CODTAB[2,20]
+  USE GCA SELECT CODTAB[1,1]==#F_FINE1
+  INPUT CODTAB[1,1] F_FINE1
+  INPUT CODTAB[2,20] F_FINE2
+  COPY DISPLAY F_INIZIO2
+  OUTPUT F_FINE2 CODTAB[2,20]
+  OUTPUT F_FINE1 CODTAB[1,1]
+  GROUP 2
+	CHECKTYPE NORMAL
 END
 
 BUTTON DLG_OK 10 2