From 06d0d8f435797f9398a2551a1ac21846b5c088c2 Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 12 Jun 1997 15:33:21 +0000
Subject: [PATCH] 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 | 47 +++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 43 insertions(+), 4 deletions(-)

diff --git a/mg/bastfca.uml b/mg/bastfca.uml
index 7bfc73b19..85f0d0a7f 100755
--- a/mg/bastfca.uml
+++ b/mg/bastfca.uml
@@ -1,26 +1,65 @@
-#include "..\ba\ba3200.h"
-PAGE "Stampa Tabella Formato Codice Articoli" -1 -1 58 8
+#include "..\mg\mg0200.h"
+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