Stampe delle tabello formato con form

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

mg/mg0200.cpp

@@ -7,36 +7,61 @@
 #include <tabutil.h>
 #include <urldefid.h>
 #include <utility.h>
+#include "MG0200.h"
 
 class TStampa_tabmag : public TApplication
 {
 	TMask * _mask;
 	TForm * _form; 
 
+	void set_print(TString & tabname);
 protected:
   virtual bool create();
   virtual bool destroy();
 };
 
+void TStampa_tabmag::set_print(TString & tabname)
+{
+	TString filter;
+	TRectype from_rec(LF_TAB),to_rec(LF_TAB);
+	from_rec.put("COD",tabname);
+	from_rec.put("CODTAB",_mask->get(F_INIZIO1));
+	to_rec.put("COD",tabname);
+	to_rec.put("CODTAB",_mask->get(F_FINE1));
+	if (tabname=="FCA" || tabname=="FCG") {
+		if (*_mask->get(F_INIZIO2))
+			filter << "500@->CODTAB[2,20]>="	<< _mask->get(F_INIZIO2);
+		if (filter.not_empty())
+			filter << "&&";
+		if (*_mask->get(F_FINE2))
+			filter << "500@->CODTAB[2,20]<="	<< _mask->get(F_FINE2);
+		_form->find_field('B',odd_page,"GRUPPI").show(_mask->get_bool(F_DETTAGLIO));
+	}
+	_form->cursor()->setregion(from_rec,to_rec);
+	if (filter.not_empty()) 
+		_form->cursor()->setfilter(filter);
+}
+
 bool TStampa_tabmag::create()
 {
-
+	TString16 maskname("bast");
-  _mask = new TMask("bastgca");
+	TString16 formname("tab_");
-	while (TRUE) {
+	TString16 tabname(argv(2));
-  	if (_mask->run() != K_ENTER) 
+  tabname.upper();
-	    return FALSE;
   
-/*		_mask->get(F_INIZIO1);
+  maskname << tabname;
-		_mask->get(F_INIZIO2);
+  formname << tabname;
-    _mask->get(F_FINE1);
-    _mask->get(F_FINE2);*/
 
-		_form = new TForm("tab_gca");
+  _mask = new TMask(maskname);
+	while ((_mask->run() == K_ENTER)) {
+		_form = new TForm(formname);
+		set_print(tabname);
 		_form->print();
 		delete _form;
-	} // while true  
+	} // while 
-  return TRUE;
+  return FALSE;
 }
+
 bool TStampa_tabmag::destroy()
 {
 	delete _mask;

mg/tab_fca.frm

@@ -0,0 +1,99 @@
+USE FCA
+JOIN GCA TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
+END
+	
+DESCRIPTION
+BEGIN
+		5->* "Formato del codice"
+    500->* "Gruppi codice"
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    FONT "Courier New"
+    SIZE 12
+    CARATTERE "X"
+    INIZIALE 5 2
+    FINALE 133
+END
+
+SECTION HEADER ODD 3
+	STRINGA 100 132 1
+	BEGIN
+	 PROMPT 1 1 "----------------------------------------------------------------------------------------------"
+	END
+	STRINGA 101 132 1
+	BEGIN
+	 PROMPT 21 2 "Tabella Gruppi Formato Codice Articoli"
+	END
+	STRINGA 100 132 1
+	BEGIN
+	 PROMPT 1 3 "----------------------------------------------------------------------------------------------"
+	END
+END
+
+SECTION BODY ODD 2
+
+	STRINGA 110 20 1
+	BEGIN
+		KEY "CODICE livelo"
+		PROMPT 2 1 "Livello "
+		FIELD CODTAB
+	END
+	
+	STRINGA 111 50 1
+	BEGIN
+		KEY "DESCR.livelo"
+		PROMPT 12 1 ""
+		FIELD S0
+	END
+
+	STRINGA 112 18 
+	BEGIN
+	 KEY "FORM.livelo"
+	 PROMPT 4 2 "Formato "
+	 FIELD S1
+	 //PICTURE "('','')"
+	END
+
+	SECTION GRUPPO 3 1 0 FILE -500
+		SECTION GRUPPI 1 1 1 GROUP
+			STRINGA 120 20 1
+			BEGIN
+			 KEY "CODICE livelo"
+			 PROMPT 12 1 ""
+			 FIELD 500@->CODTAB[2,20]
+			END
+	
+			STRINGA 121 50 1
+			BEGIN
+			 KEY "DESCR.livelo"
+			 PROMPT 32 1 ""
+			 FIELD 500@->S0
+			END
+		END // GRUPPI
+	END
+	STRINGA 131 20 1
+	BEGIN
+		KEY "CODICE livelo"
+		FLAGS "H"
+		PROMPT 2 1 ""
+	END
+
+
+END
+
+SECTION FOOTER ODD 2
+
+	NUMERO 101
+	BEGIN
+		KEY "NUMPAGE"
+		PROMPT 50 2 ""
+		MESSAGE _PAGENO
+		PICTURE "- ### -"
+	END
+
+END
+
+

mg/tab_fcg.frm

@@ -0,0 +1,99 @@
+USE FCG 
+JOIN GCG TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
+END
+	
+DESCRIPTION
+BEGIN
+		5->* "Formato del codice"
+    500->* "Gruppi codice"
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    FONT "Courier New"
+    SIZE 12
+    CARATTERE "X"
+    INIZIALE 5 2
+    FINALE 133
+END
+
+SECTION HEADER ODD 3
+	STRINGA 100 132 1
+	BEGIN
+	 PROMPT 1 1 "----------------------------------------------------------------------------------------------"
+	END
+	STRINGA 101 132 1
+	BEGIN
+	 PROMPT 21 2 "Tabella Gruppi Formato Codice Giacenze"
+	END
+	STRINGA 100 132 1
+	BEGIN
+	 PROMPT 1 3 "----------------------------------------------------------------------------------------------"
+	END
+END
+
+SECTION BODY ODD 2
+
+	STRINGA 110 20 1
+	BEGIN
+		KEY "CODICE livelo"
+		PROMPT 2 1 "Livello "
+		FIELD CODTAB
+	END
+	
+	STRINGA 111 50 1
+	BEGIN
+		KEY "DESCR.livelo"
+		PROMPT 12 1 ""
+		FIELD S0
+	END
+
+	STRINGA 112 18 
+	BEGIN
+	 KEY "FORM.livelo"
+	 PROMPT 4 2 "Formato "
+	 FIELD S1
+	 //PICTURE "('','')"
+	END
+
+	SECTION GRUPPO 3 1 0 FILE -500
+		SECTION GRUPPI 1 1 1 GROUP
+			STRINGA 120 20 1
+			BEGIN
+			 KEY "CODICE livelo"
+			 PROMPT 12 1 ""
+			 FIELD 500@->CODTAB[2,20]
+			END
+	
+			STRINGA 121 50 1
+			BEGIN
+			 KEY "DESCR.livelo"
+			 PROMPT 32 1 ""
+			 FIELD 500@->S0
+			END
+		END // GRUPPI
+	END
+	STRINGA 131 20 1
+	BEGIN
+		KEY "CODICE livelo"
+		FLAGS "H"
+		PROMPT 2 1 ""
+	END
+
+
+END
+
+SECTION FOOTER ODD 2
+
+	NUMERO 101
+	BEGIN
+		KEY "NUMPAGE"
+		PROMPT 50 2 ""
+		MESSAGE _PAGENO
+		PICTURE "- ### -"
+	END
+
+END
+
+