diff --git a/mg/mg4.cpp b/mg/mg4.cpp
index d2f1ee6b7..c08172371 100755
--- a/mg/mg4.cpp
+++ b/mg/mg4.cpp
@@ -14,11 +14,11 @@ int main(int argc, char** argv)
   switch (r)
   {
   case 0: 
-    //rt = mg4100(argc,argv) ; break; // stampa lista controllo movimenti
+    rt = mg4100(argc,argv) ; break; // stampa lista controllo movimenti
   case 1:
-    //rt = mg4200(argc,argv) ; break;  // stampa inventario
-  case 1:
-    //rt = mg4300(argc,argv) ; break;  // stampa libro giornale
+    rt = mg4200(argc,argv) ; break;  // stampa inventario
+  case 2:
+    rt = mg4300(argc,argv) ; break;  // stampa libro giornale
   default:
     error_box(usage, argv[0]) ; break;
   }
diff --git a/mg/mg4100.cpp b/mg/mg4100.cpp
new file mode 100755
index 000000000..ecd150803
--- /dev/null
+++ b/mg/mg4100.cpp
@@ -0,0 +1,84 @@
+#include <applicat.h>
+#include <config.h>
+#include <mask.h>   
+#include <printer.h>
+#include <relation.h>
+#include <tabutil.h>
+#include <urldefid.h>
+#include <utility.h>
+#include <form.h>
+#include <printapp.h>
+
+#include "mglib01.h"
+#include "mg4100.h"
+
+class TStampa_listamov : public TApplication
+{
+	TMask * _mask;
+	TForm * _form; 
+
+	int _codicees;
+	bool _raggmag;
+	TString _daart,_aart,_damag,_amag;
+	TDate _dadata,_adata;
+protected:
+  virtual bool create();
+  virtual bool destroy();
+};
+
+bool TStampa_listamov::create()
+{
+  TRectype darec(LF_MOVMAG),arec(LF_MOVMAG);
+  _mask = new TMask("mg1500");
+	while (TRUE) {
+  	if (_mask->run() != K_ENTER) 
+	    return FALSE;
+	  _form = new TForm("mg1500a", "");
+	  TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
+  
+		
+
+
+		TString filter("ANNOES==");
+
+		filter << _mask->get(F_ANNOES);
+		cur.setfilter(filter);
+		darec.zero(' ');
+		arec.zero(' ');
+		if (_mask->get(F_ORDINE)=="N")
+		{
+	  	cur.setkey(1);
+			// trova il record iniziale
+			darec.put("NUMREG",_mask->get(F_DANUM));
+			//	 trova il record finale
+			arec.put("NUMREG",_mask->get(F_ANUM));
+			_form->find_field('B',odd_page,"HEADER_DATA").hide();
+		} else {
+	  	cur.setkey(4);
+			// trova il record iniziale
+			darec.put("DATACOMP",_mask->get(F_DADATA));
+			//	 trova il record finale
+			arec.put("DATACOMP",_mask->get(F_ADATA));
+			_form->find_field('B',odd_page,"HEADER_DATA").show();
+	  }
+		cur.setregion(darec,arec);	  
+
+
+		_form->print();
+		delete _form;
+	} // while true  
+  return TRUE;
+}
+bool TStampa_listamov::destroy()
+{
+	delete _mask;
+  return TRUE;
+}
+
+
+int mg4100(int argc, char* argv[])
+{
+	TStampa_listamov a;// derivata da Application e con uso di form
+	a.run(argc,argv,"Stampa schede di magazzino");
+	return 0;
+}
diff --git a/mg/mg4100.h b/mg/mg4100.h
new file mode 100755
index 000000000..9a428c3b1
--- /dev/null
+++ b/mg/mg4100.h
@@ -0,0 +1,7 @@
+#define F_DADATA 101
+#define F_ADATA 102
+#define F_DANUM 103
+#define F_ANUM 104
+#define F_ORDINE 105
+#define F_ANNOES 106
+
diff --git a/mg/mg4200.cpp b/mg/mg4200.cpp
new file mode 100755
index 000000000..1e134679e
--- /dev/null
+++ b/mg/mg4200.cpp
@@ -0,0 +1,460 @@
+#include <applicat.h>
+#include <config.h>
+#include <mask.h>   
+#include <printer.h>
+#include <relation.h>
+#include <tabutil.h>
+#include <urldefid.h>
+#include <utility.h>
+#include <form.h>
+#include <printapp.h>
+
+#include "..\ve\velib03.h"
+#include "..\ve\veconf.h"
+#include "mglib02.h"
+#include "mglib03.h"
+#include "mg4200.h"
+#include "mg4frm.h"
+
+#define MAX_VAL_COLUMNS 6
+class TForm_inventario : public TForm_stampemg
+{
+	int colonne;
+	TConfig *conf_ditta;
+	TArticolo_giacenza * _curr_art;
+	TString16 _codlist,_catven;
+	TArticolo_giacenza &curr_art();
+	TTipo_valorizz _valorizz_scelte[MAX_VAL_COLUMNS];
+public:
+	void set_codlistino(const char * codcm,const char * cod);
+	bool valorizzazione(TForm_item &cf, TTipo_valorizz t);
+	bool validate(TForm_item &cf, TToken_string &s);
+	void add_colval(int tipo);
+	TForm_inventario(const char *name,const char *code) ;
+	~TForm_inventario();
+};
+
+bool TForm_inventario::validate(TForm_item &cf, TToken_string &s)
+{ 
+  const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
+  TString subcode;
+
+  if (code=="_USER") {
+		TRectype & magrec=relation()->lfile(LF_MAG).curr();
+		TString16 annoes(magrec.get(MAG_ANNOES));
+  	subcode=s.get();
+  	if (subcode=="GIAC") {
+  		cf.set("135");
+  	}
+  	if (subcode=="VAL1") {
+  		valorizzazione(cf,_valorizz_scelte[0]);
+  	}
+  	if (subcode=="VAL2"&& colonne >=2) {
+  		valorizzazione(cf,_valorizz_scelte[1]);
+  	}
+  	if (subcode=="VAL3" && colonne >=3) {
+  		valorizzazione(cf,_valorizz_scelte[2]);
+  	}
+  	if (subcode=="VAL4" && colonne >=4) {
+  		valorizzazione(cf,_valorizz_scelte[3]);
+  	}
+  	if (subcode=="VAL5"&& colonne >=5) {
+  		valorizzazione(cf,_valorizz_scelte[4]);
+  	}
+  	if (subcode=="VAL6" && colonne >=6) {
+  		valorizzazione(cf,_valorizz_scelte[5]);
+  	}
+  	if (subcode=="LINEATOTALI") {
+  		TString l(39*colonne+12,'-');
+  		cf.set(l);
+	  }
+  }
+  return TForm_stampemg::validate(cf, s);
+}
+
+TArticolo_giacenza &TForm_inventario::curr_art()
+{
+	TRectype & magrec=relation()->lfile(LF_MAG).curr();
+	if (_curr_art==NULL || _curr_art->codice()!=magrec.get(MAG_CODART) ) {
+		if (_curr_art) delete _curr_art;
+		_curr_art=new TArticolo_giacenza(magrec.get(MAG_CODART));
+	}
+	return *_curr_art;
+}
+
+void TForm_inventario::add_colval(int tipo)
+{
+	TTipo_valorizz t	;
+	switch (tipo) {
+		case 1:
+			t=valorizz_ultcos;
+		break;
+		case 2:
+			t=valorizz_mediacos;
+		break;
+		case 3:
+			t=valorizz_przlist;
+		break;
+		case 4:
+			t=valorizz_coststd;
+		break;
+		case 5:
+			t=valorizz_costmedio;
+		break;
+		case 6:
+			t=valorizz_FIFOa;
+		break;
+		case 7:
+			t=valorizz_LIFOa;
+		break;
+		case 8:
+			t=valorizz_FIFO;
+		break;
+		case 9:
+			t=valorizz_LIFO;
+		break;
+		default:
+			return;
+	}
+	_valorizz_scelte[colonne++]=t;
+	TString col;
+	col << colonne;
+	find_field('B',odd_page,FF_ENABLECOLS).set(col);
+	find_field('H',odd_page,FF_ENABLECOLS).set(col);
+}
+
+bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
+{ 
+	TRectype & magrec=relation()->lfile(LF_MAG).curr();
+	TString annoes(magrec.get(MAG_ANNOES));
+	if (t==valorizz_ultcos) {
+		cf.set(curr_art().ultimo_costo(annoes).string());
+	}
+	if (t==valorizz_mediacos) {
+		cf.set(curr_art().media_costi(annoes).string());
+	}
+	if (t==valorizz_przlist) {
+		cf.set(curr_art().prezzo_listino(annoes,_codlist,_catven).string());
+	}
+	if (t==valorizz_coststd) {
+		cf.set(curr_art().costo_standard(annoes).string());
+	}
+	if (t==valorizz_costmedio) {
+		cf.set(curr_art().costo_standard(annoes).string());
+	}
+	if (t==valorizz_LIFO) {
+		cf.set(curr_art().LIFO(annoes,magrec.get(MAG_CODMAG),magrec.get(MAG_LIVELLO)).string());
+	}
+	if (t==valorizz_FIFO) {
+		cf.set(curr_art().FIFO(annoes,magrec.get(MAG_CODMAG),magrec.get(MAG_LIVELLO)).string());
+	}
+	if (t==valorizz_LIFOa) {
+		cf.set(curr_art().LIFO_annuale(annoes,magrec.get(MAG_CODMAG),magrec.get(MAG_LIVELLO)).string());
+	}
+	if (t==valorizz_FIFOa) {
+		cf.set(curr_art().FIFO_annuale(annoes,magrec.get(MAG_CODMAG),magrec.get(MAG_LIVELLO)).string());
+	}
+ 	return TRUE;
+}
+
+
+
+
+
+void TForm_inventario::set_codlistino(const char * codcatv,const char * codlist)
+{
+	_catven=codcatv;
+	_codlist=codlist;
+}
+
+TForm_inventario::TForm_inventario(const char *name,const char *code) :
+	TForm_stampemg(name,code),_curr_art(NULL)
+{
+	colonne=0;
+}
+
+
+TForm_inventario::~TForm_inventario()
+{
+	if (_curr_art) delete _curr_art;
+}
+
+
+
+class TStampainv_mask: public TMask
+{
+	static bool handle_ragg(TMask_field &fld, KEY k); // handler 
+	static bool handle_liv(TMask_field &fld, KEY k); // handler 
+	static bool handle_subord(TMask_field &fld, KEY k); // handler 
+public:
+	TStampainv_mask();
+	~TStampainv_mask(){};
+};
+
+TStampainv_mask::TStampainv_mask():
+	TMask("mg4200")
+{
+  TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
+  if (prassid.get_bool("GES", NULL, A_LISTINI))
+	  field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV"));
+	else {
+		field(F_CATVENLISTINO).disable();	field(F_CODLISTINO).disable();
+	}
+	TMag_livelli giaclev("FCA"),artlev("FCG");
+  
+  set_handler(F_TOLIVELLOART, handle_liv);
+  set_handler(F_TOLIVELLOGIAC, handle_liv);
+  set_handler(F_ORDINE, handle_ragg);
+  set_handler(F_DETTAGLIODEP, handle_ragg);
+  set_handler(F_DETTAGLIOMAG, handle_ragg);
+	set_handler(F_ORDINEART,handle_subord);
+	if (!artlev.enabled()) {
+		TMask_field &f1=field(F_RAGGCODICE);
+		f1.reset(); f1.check();f1.hide();
+	}
+	if (!giaclev.enabled()) {
+		TMask_field &f2=field(F_RAGGLIVGIAC);
+		f2.reset(); f2.check();f2.hide();
+	}
+}
+
+bool TStampainv_mask::handle_subord(TMask_field &fld, KEY k)
+{
+	if (k == K_SPACE) 
+	{
+		TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
+		TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
+		switch (fld.get()[1]) {
+			case 'C':
+				if (fld.mask().get(F_ORDINE)=="A") 
+					fraggcod.enable();
+				else {
+					if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
+					{
+						fraggcod.reset(); fraggcod.disable();
+						fragggiac.reset(); fragggiac.disable();
+						fraggcod.do_message(0);fragggiac.do_message(0);
+					}
+				}
+			break;
+			case 'M':
+			case 'D':
+				fraggcod.reset(); fraggcod.check();fraggcod.disable();
+			break;
+		}
+	}
+	return TRUE;
+}
+
+bool TStampainv_mask::handle_liv(TMask_field &fld, KEY k)
+{
+	if (k == K_TAB) 
+	{
+		TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
+		TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
+		if (fld.mask().get(F_ORDINE)=="A") 
+		{
+			if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
+			{
+				// raggruppamenti prima del dettaglio magazzini
+				ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
+			} else {
+				ftotmag.enable();
+			}
+		}
+	}
+  return TRUE;
+}
+
+bool TStampainv_mask::handle_ragg(TMask_field &fld, KEY k)
+{
+	if (k == K_SPACE) 
+	{
+		TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
+		TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
+		TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
+		if (fld.mask().get(F_ORDINE)=="M")
+		{
+			ftotmag.enable();
+			if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
+			{
+				fraggcod.reset(); fraggcod.disable();
+				fragggiac.reset(); fragggiac.disable();
+				fraggcod.do_message(0);fragggiac.do_message(0);
+			  return TRUE;
+			}
+		} 
+		fraggcod.enable();
+		fragggiac.enable();
+	}
+  return TRUE;
+}
+
+
+// STAMPA anagrafiche
+class TStampa_inventario : public TPrint_application
+{
+	TArray * _files;
+	TMask * _mask;
+	TCursor * _cur;
+	TForm_inventario * _form; // to be moved into TPrint_application
+
+protected:
+  virtual bool print_one(int file) 
+  {return TRUE;}
+  virtual bool user_create();
+  virtual bool user_destroy();
+  virtual bool set_print(int i=1);
+  virtual void set_page(int file,int count)
+	{	}
+	void setprint_permagazzini();
+	void setprint_perarticoli();
+
+public:
+  TStampa_inventario() {}
+};
+
+
+bool TStampa_inventario::user_create()
+{
+  _mask = new TStampainv_mask();
+  _files = new TArray();
+  _files->add(new TLocalisamfile(LF_ANAMAG));
+  _files->add(new TLocalisamfile(LF_MAG));
+  _files->add(new TLocalisamfile(LF_STOMAG));
+  return TRUE;
+}
+
+bool TStampa_inventario::user_destroy()
+{
+	delete _mask;
+	delete _files;
+  return TRUE;
+}
+
+void TStampa_inventario::setprint_permagazzini()
+{
+  char subordine=*_mask->get(F_ORDINEART);
+  TRectype darec(LF_MAG),arec(LF_MAG);
+  TString cfilter,sortexp,joinexp;
+  _cur = _form->cursor();
+	// setta il filtro sul cursore
+	if (*_mask->get(F_DAART))
+		cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
+	if (*_mask->get(F_AART))
+		cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
+	if (cfilter.not_empty())
+		cfilter.cut(cfilter.len()-2); 
+
+	// abilita/disabilita le sezioni dei totali
+	_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),
+		_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),
+		TRUE,_mask->get_bool(F_DETTAGLIOMAG),_mask->get_bool(F_DETTAGLIODEP));
+
+	darec.put("ANNOES",_mask->get(F_ANNOES));
+	darec.put("CODMAG",_mask->get(F_DAMAG));
+	arec.put("ANNOES",_mask->get(F_ANNOES));
+	arec.put("CODMAG",_mask->get(F_AMAG));
+	_cur->setfilter(cfilter);
+	_cur->setregion(darec,arec);
+}
+
+// ORDINAMENTO 
+void TStampa_inventario::setprint_perarticoli()
+{
+  TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
+  TString cfilter,filter,joinexp;
+	TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
+
+  char subordine=*_mask->get(F_ORDINEART);
+  _cur = _form->cursor();
+	if (*_mask->get(F_DAMAG))
+		filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
+	if (*_mask->get(F_AMAG))
+		filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
+	if (filter.not_empty())
+		filter.cut(filter.len()-2); 
+  switch (subordine)
+  {
+  	case 'C':
+  		_cur->setkey(1);
+			darec.put("CODART",_mask->get(F_DAART));
+			arec.put("CODART",_mask->get(F_AART));
+			_form->find_field('B',odd_page,"H_CATMER").hide();
+			_form->find_field('B',odd_page,"TOT_CATMER").hide();
+			_form->setcatmer(FALSE);
+  	break;
+  	case 'D':
+  		_cur->setkey(2);
+			darec.put("DESCR",_mask->get(F_DADES));
+			arec.put("DESCR",_mask->get(F_ADES));
+			_form->find_field('B',odd_page,"H_CATMER").disable();
+			_form->find_field('B',odd_page,"TOT_CATMER").hide();
+			_form->setcatmer(FALSE);
+  	break;
+  	case 'M':
+  		_cur->setkey(3);
+			darec.put("GRMERC",_mask->get(F_DACATMER));
+			darec.put("CODART",_mask->get(F_DAART));
+			arec.put("GRMERC",_mask->get(F_ACATMER));
+			arec.put("CODART",_mask->get(F_AART));
+			_form->find_field('B',odd_page,"H_CATMER").show();
+			_form->find_field('B',odd_page,"TOT_CATMER").show();
+			_form->setcatmer(TRUE);
+  	break;
+  }
+	_form->setdett_perart(
+		_mask->get_int(F_FROMLIVELLOART),
+		_mask->get_int(F_TOLIVELLOART),
+		_mask->get_int(F_FROMLIVELLOGIAC),
+		_mask->get_int(F_TOLIVELLOGIAC),
+		_mask->get_bool(F_TOTALIMAGAZZINI),
+		_mask->get_bool(F_TOTALIDEPOSITI));
+
+
+
+	joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
+
+	TSortedfile *mag;
+	mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
+	_cur->relation()->replace(mag,1,joinexp);
+	_cur->setfilter(cfilter);
+	_cur->setregion(darec,arec);
+}
+
+
+bool TStampa_inventario::set_print(int i)
+{
+	while (TRUE) {
+  	if (_mask->run() != K_ENTER) 
+	    return FALSE;
+
+	  if (*_mask->get(F_ORDINE)=='A')  
+	  {
+		 	_form = new TForm_inventario("mg4200a", "");
+			setprint_perarticoli();
+		} else {                      
+		 	_form = new TForm_inventario("mg4200b", "");
+			setprint_permagazzini();
+		}
+		_form->add_colval(_mask->get_int(F_VAL1));
+		_form->add_colval(_mask->get_int(F_VAL2));
+		_form->add_colval(_mask->get_int(F_VAL3));
+		_form->add_colval(_mask->get_int(F_VAL4));
+		_form->add_colval(_mask->get_int(F_VAL5));
+		_form->add_colval(_mask->get_int(F_VAL6));
+		_form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
+		
+		_form->print();
+		delete _form;
+	} // while true  
+  return TRUE;
+}
+
+
+int mg4200(int argc, char* argv[])
+{
+	TStampa_inventario a;
+	a.run(argc,argv,"Stampa inventario");
+	return 0;
+}
diff --git a/mg/mg4200.frm b/mg/mg4200.frm
new file mode 100755
index 000000000..02077aca2
--- /dev/null
+++ b/mg/mg4200.frm
@@ -0,0 +1,2035 @@
+#include "mg4frm.h"
+USE 109 KEY 2
+JOIN 47 TO 109 INTO CODART==CODART
+JOIN MAG TO 109 ALIAS 500 INTO CODTAB==CODMAG[1,3]
+JOIN MAG TO 109 ALIAS 501 INTO CODTAB==CODMAG
+JOIN 49 TO 47 INTO CODART==CODART
+END
+	
+DESCRIPTION
+BEGIN
+    47->* "Anagrafica articoli"
+    109->* "Archivio Giacenze"
+    MAG->* "Tabella magazzini"
+    49->* "Unità di misura articoli"
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    FONT "Courier New"
+    SIZE 8
+    CARATTERE "X"
+    INIZIALE 5 2
+    FINALE 133
+END
+
+SECTION HEADER ODD 5
+
+STRINGA 1 40 1
+BEGIN
+ KEY "nome ditta"
+ PROMPT  1 1 "Ditta "
+ MESSAGE _DITTA, !RAGSOC
+END
+end
+
+SECTION BODY ODD 0 COLUMNWISE
+
+	LIST FF_PREZZIVALORI 1
+	BEGIN
+	  PROMPT 1 1 ""
+		FLAG "H"
+	  KEY "H PREZZI O VALORI"
+		ITEM "V|Valori"
+		MESSAGE DISABLE,FG_RIGAPREZZI@|ENABLE,FG_RIGAVALORI@
+		ITEM "P|Prezzi"
+		MESSAGE ENABLE,FG_RIGAPREZZI@|DISABLE,FG_RIGAVALORI@
+	END
+
+	NUMBER FF_FLAGTOTQTA 1
+	BEGIN
+		FLAG "H"
+		PROMPT 1 1 ""
+	END 
+
+	LIST FF_FLAGVALMEDI 1
+	BEGIN
+	  PROMPT 1 1 ""
+		FLAG "H"
+	  KEY "FLAG VALORI MEDI"
+		ITEM "0|N"
+		MESSAGE SHOW,25@|DISABLE,26@
+		ITEM "1|Y"
+		MESSAGE HIDE,25@|ENABLE,26@
+	END
+
+
+	STRINGA 60 40 1
+	BEGIN
+		FLAGS "H"
+	  KEY "MAGAZZ" 
+	  PROMPT 2 1 ""
+		MESSAGE RESET,1@
+	END							
+	SECTION H_MAGAZZINO 1 1 1 GROUP
+		STRINGA 60 40 1
+		BEGIN
+		  KEY "codice magazzino" 
+		  PROMPT 2 1 "Magazzino "
+		  FIELD 500@->s0
+			MESSAGE COPY,150
+		END
+	END 
+	
+	SECTION GRUPPI_MAGAZZINO 1 0 0 FILE 109 GROUP CODMAG[1,3]
+		STRINGA 60 40 1
+		BEGIN
+			FLAGS "H"
+		  KEY "dep" 
+		  PROMPT 2 1 ""
+			MESSAGE RESET,15@
+		END
+		SECTION H_DEPOSITO 1 1 1 GROUP
+			STRINGA 60 40 1
+			BEGIN
+			  KEY "codice magazzino" 
+			  PROMPT 2 1 "Deposito "
+			  FIELD 501@->s0
+				MESSAGE COPY,50
+			END
+		END
+
+		SECTION GRUPPI_DEPOSITO 1 0 0 FILE 109 GROUP CODMAG[1,5]
+			STRINGA 60 40 1
+			BEGIN
+				FLAGS "H"
+			  KEY "gcodart1" 
+			  PROMPT 2 1 ""
+				MESSAGE RESET,14@
+			END
+			SECTION H_GCODART1 1 1 1 GROUP 
+				STRINGA 16 12 2 
+				BEGIN
+					KEY "CODICE GRUPPO1"
+					PROMPT 2 1 ""
+					MESSAGE _USER,CODGRUPPOART,1
+				END
+				STRINGA 17 30 2 
+				BEGIN
+				 KEY "CODICE GRUPPO1"
+				 PROMPT 3 1 ""
+				 MESSAGE _USER,GRUPPOART,1|COPY,1450
+				END
+			END
+					
+			SECTION GRUPPI_CODART1 1 0 0 FILE 109 GROUP CODART
+				STRINGA 60 40 1
+				BEGIN
+					FLAGS "H"
+				  KEY "" 
+				  PROMPT 2 1 ""
+					MESSAGE RESET,13@
+				END
+				SECTION H_GCODART2 1 1 1 GROUP 
+					STRINGA 16 12 2 
+					BEGIN
+						KEY "CODICE GRUPPO"
+						PROMPT 2 1 ""
+						MESSAGE _USER,CODGRUPPOART,2
+					END
+					STRINGA 17 30 2 
+					BEGIN
+					 KEY "CODICE GRUPPO"
+					 PROMPT 3 1 ""
+					 MESSAGE _USER,GRUPPOART,2|COPY,1350
+					END
+				END
+					
+				SECTION GRUPPI_CODART2 1 0 0 FILE 109 GROUP CODART
+					STRINGA 60 40 1
+					BEGIN
+						FLAGS "H"
+					  KEY "CATMER" 
+					  PROMPT 2 1 ""
+						MESSAGE RESET,12@
+					END
+					SECTION H_GCODART3 1 1 1 GROUP 
+						STRINGA 16 12 2 
+						BEGIN
+							KEY "CODICE GRUPPO"
+							PROMPT 2 1 ""
+							MESSAGE _USER,CODGRUPPOART,3
+						END
+						STRINGA 17 30 2 
+						BEGIN
+						 KEY "CODICE GRUPPO"
+						 PROMPT 3 1 ""
+						 MESSAGE _USER,GRUPPOART,3|COPY,1250
+						END
+					END
+					
+					SECTION GRUPPI_CODART3 1 0 0 FILE 109 GROUP CODART
+						STRINGA 60 40 1
+						BEGIN
+							FLAGS "H"
+						  KEY "CATMER" 
+						  PROMPT 2 1 ""
+							MESSAGE RESET,11@
+						END					
+						SECTION H_GCODART4 1 1 1 GROUP 
+							STRINGA 16 12 2 
+							BEGIN
+								KEY "CODICE GRUPPO"
+								PROMPT 2 1 ""
+								MESSAGE _USER,CODGRUPPOART,4
+							END
+							STRINGA 17 30 2 
+							BEGIN
+							 KEY "CODICE GRUPPO"
+							 PROMPT 3 1 ""
+							 MESSAGE _USER,GRUPPOART,4|COPY,1150
+							END
+						END
+					
+						SECTION GRUPPI_CODART4 1 0 0 FILE 109 GROUP CODART
+							STRINGA 60 40 1
+							BEGIN
+								FLAGS "H"
+							  KEY "CATMER" 
+							  PROMPT 2 1 ""
+								MESSAGE RESET,10@
+							END
+							SECTION H_GCODART5 1 1 1 GROUP 
+								STRINGA 16 12 2 
+								BEGIN
+									KEY "CODICE GRUPPO"
+									PROMPT 2 1 ""
+									MESSAGE _USER,CODGRUPPOART,5
+								END
+								STRINGA 17 30 2 
+								BEGIN
+								 KEY "CODICE GRUPPO"
+								 PROMPT 3 1 ""
+								 MESSAGE _USER,GRUPPOART,5|COPY,1050
+								END
+							END
+					
+							SECTION GRUPPI_CODART5 1 0 0 FILE 109 GROUP CODART
+								STRINGA 60 40 1
+								BEGIN
+									FLAGS "H"
+								  KEY "CATMER" 
+								  PROMPT 2 1 ""
+									MESSAGE RESET,9@
+								END							
+								SECTION H_GCODART6 1 1 2 GROUP 
+									STRINGA 16 12 2 
+									BEGIN
+										KEY "CODICE GRUPPO"
+										PROMPT 2 1 ""
+										MESSAGE _USER,CODGRUPPOART,6
+									END
+									STRINGA 17 30 2 
+									BEGIN
+									 KEY "CODICE GRUPPO"
+									 PROMPT 3 1 ""
+									 MESSAGE _USER,GRUPPOART,6|COPY,950
+									END
+								END
+					
+								SECTION GRUPPI_CODART6 1 0 0 FILE 109 GROUP CODART
+									STRINGA 60 40 1
+									BEGIN
+										FLAGS "H"
+									  KEY "CATMER" 
+									  PROMPT 2 1 ""
+										MESSAGE RESET,8@
+									END							
+									SECTION H_GCODART7 1 1 1 GROUP 
+										STRINGA 16 12 2 
+										BEGIN
+											KEY "CODICE GRUPPO"
+											PROMPT 2 1 ""
+											MESSAGE _USER,CODGRUPPOART,7
+										END
+										STRINGA 17 30 2 
+										BEGIN
+										 KEY "CODICE GRUPPO"
+										 PROMPT 3 1 ""
+										 MESSAGE _USER,GRUPPOART,7|COPY,850
+										END
+									END
+					
+									SECTION GRUPPI_CODART7 1 0 0 FILE 109 GROUP CODART
+										STRINGA 60 40 1
+										BEGIN
+											FLAGS "H"
+										  KEY "CATMER" 
+										  PROMPT 2 1 ""
+											MESSAGE RESET,7@
+										END							
+					
+										SECTION H_GCODART8 1 1 1 GROUP 
+											STRINGA 16 12 2 
+											BEGIN
+												KEY "CODICE GRUPPO"
+												PROMPT 2 1 ""
+												MESSAGE _USER,CODGRUPPOART,8
+											END
+											STRINGA 17 30 2 
+											BEGIN
+											 KEY "CODICE GRUPPO"
+											 PROMPT 3 1 ""
+											 MESSAGE _USER,GRUPPOART,8|COPY,750
+											END
+										END
+					
+										SECTION GRUPPI_CODART8 1 0 0 FILE 109 GROUP CODART
+											STRINGA 60 40 1
+											BEGIN
+												FLAGS "H"
+											  KEY "CATMER" 
+											  PROMPT 2 1 ""
+												MESSAGE RESET,6@
+											END							
+											SECTION H_ARTICOLO 1 1 1 GROUP
+												STRINGA 20 12 2
+												BEGIN
+													KEY "CODICE articolo"
+													PROMPT 2 1 ""
+													FIELD CODART
+												END
+												STRINGA 21 30 2
+												BEGIN
+													KEY "DESCR.articolo"
+													PROMPT 3 1 ""
+													FIELD 47->DESCR
+													MESSAGE COPY,650
+												END
+												NUMERO 22 12
+												BEGIN
+													KEY "ULC"
+													FLAGS "H"
+													PROMPT 7 2 ""
+													FIELD LF_ANAMAG->ULTCOS1
+													MESSAGE COPY,648
+												END
+												NUMERO 23 12
+												BEGIN
+													KEY "PREZZO"
+													FLAGS "H"
+													PROMPT 7 2 ""
+													MESSAGE _USER,PREZZO|COPY,649
+												END
+											END										
+					
+											SECTION ARTICOLO 1 0 0 FILE 109 GROUP CODART
+												STRINGA 60 40 1
+												BEGIN
+													FLAGS "H"
+												  KEY "CATMER" 
+												  PROMPT 2 1 ""
+													MESSAGE RESET,5@
+												END							
+												SECTION H_GLIVGIAC1 1 1 1 GROUP
+													STRINGA 31 50 1
+													BEGIN
+													  KEY "Livello giac" 
+													  PROMPT 2 1 ""
+														MESSAGE _USER,GRUPPOGIAC,1|COPY,550
+													END
+												END										
+					
+												SECTION GRUPPI_LIVGIAC1 1 0 0 FILE 109 GROUP LIVELLO
+													STRINGA 60 40 1
+													BEGIN
+														FLAGS "H"
+													  KEY "CATMER" 
+													  PROMPT 2 1 ""
+														MESSAGE RESET,4@
+													END							
+													SECTION H_GLIVGIAC2 1 1 1 GROUP
+														STRINGA 31 50 1
+														BEGIN
+														  KEY "Livello giac" 
+														  PROMPT 2 1 ""
+															MESSAGE _USER,GRUPPOGIAC,2|COPY,450
+														END
+													END										
+					
+													SECTION GRUPPI_LIVGIAC2 1 0 0 FILE 109 GROUP LIVELLO
+														STRINGA 60 40 1
+														BEGIN
+															FLAGS "H"
+														  KEY "CATMER" 
+														  PROMPT 2 1 ""
+															MESSAGE RESET,3@
+														END							
+					
+														SECTION H_GLIVGIAC3 1 1 1 GROUP
+															STRINGA 31 50 1
+															BEGIN
+															  KEY "Livello giac" 
+															  PROMPT 2 1 ""
+																MESSAGE _USER,GRUPPOGIAC,3|COPY,350
+															END
+														END										
+					
+														SECTION GRUPPI_LIVGIAC3 1 0 0 FILE 109 GROUP LIVELLO
+															STRINGA 60 40 1
+															BEGIN
+																FLAGS "H"
+															  KEY "CATMER" 
+															  PROMPT 2 1 ""
+																MESSAGE RESET,2@
+															END							
+					
+															SECTION H_GLIVGIAC4 1 1 1 GROUP
+															END // GGIAC4
+															SECTION TOT_GLIVGIAC4 1 2 2 GROUP
+																STRINGA 250 35 2
+																BEGIN
+																	PROMPT 3 2 ""
+																END
+																STRINGA 251 7 2
+																BEGIN
+																  KEY "Livello giac4" 
+																  PROMPT 2 2 " Totale"
+																END
+																STRINGA 253 3
+																BEGIN
+																	KEY "UM"
+																	PROMPT 5 2 ""
+																	FIELD 49->UM
+																	MESSAGE COPY,353
+																END
+																	
+																NUMERO 241 12
+																BEGIN
+																	KEY "ACQ"
+																	PROMPT 6 2 ""
+																	PICTURE "########,@#"
+																	MESSAGE ADD,341
+																	FIELD 109->ACQ
+																	GROUP 2 FG_RIGAVALORI
+																END
+																NUMERO 242 12
+																BEGIN
+																	KEY "VALACQ"
+																	PROMPT 7 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE ADD,342
+																	FIELD 109->VALACQ
+																	GROUP 2 FG_VALORI FG_RIGAVALORI
+																END
+																NUMERO 282 12
+																BEGIN
+																	KEY "VALACQ"
+																	PROMPT 7 2 ""
+																	PICTURE "#######,@##"
+																	MESSAGE _NUMEXPR,#242/#241
+																	GROUP FG_VALMEDI FG_RIGAVALORI
+																END
+																	
+																NUMERO 243 12
+																BEGIN
+																	KEY "ven"
+																	PROMPT 8 2 ""
+																	PICTURE "########,@#"
+																	MESSAGE ADD,343
+																	FIELD 109->VEN
+																	GROUP 2 FG_RIGAVALORI
+																END
+																NUMERO 244 12
+																BEGIN
+																	KEY "VALven"
+																	PROMPT 9 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE ADD,344
+																	GROUP 2 FG_VALORI FG_RIGAVALORI
+																	FIELD 109->VALVEN
+																END
+																NUMERO 284 12
+																BEGIN
+																	KEY "VALven"
+																	PROMPT 9 2 ""
+																	PICTURE "#######,@##"
+																	MESSAGE _NUMEXPR,#244/#243
+																	GROUP FG_VALMEDI
+																END
+																	
+																NUMERO 245 12	
+																BEGIN
+																	KEY "rim"
+																	PROMPT 10 2 ""
+																	PICTURE "########,@#"
+																	MESSAGE ADD,345
+																	FIELD 109->RIM
+																	GROUP 2 FG_RIGAVALORI
+																END
+																NUMERO 246 12
+																BEGIN
+																	KEY "VALrim"
+																	PROMPT 11 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE ADD,346
+																	FIELD 109->VALRIM
+																	GROUP 2 FG_VALORI FG_RIGAVALORI
+																END
+																NUMERO 286 12
+																BEGIN
+																	KEY "VALrim"
+																	PROMPT 11 2 ""
+																	PICTURE "#######,@##"
+																	MESSAGE _NUMEXPR,#246/#245
+																	GROUP FG_VALMEDI FG_RIGAVALORI
+																END 
+																	
+																NUMERO 247 12
+																BEGIN
+																	KEY "giac"
+																	PROMPT 12 2 ""
+																	PICTURE "########,@#"
+																	FIELD 109->GIAC
+																	MESSAGE ADD,347
+																	GROUP 2 FG_RIGAVALORI
+																END
+																NUMERO 248 12
+																BEGIN
+																	KEY "scorta-giac"
+																	PROMPT 12 1 ""
+																	PICTURE "#######@,@#"
+																	MESSAGE _NUMEXPR,109->SCORTAMIN-109->GIAC|ADD,347
+																	GROUP 2 FG_RIGAVALORI
+																END
+																NUMERO 249 12
+																BEGIN
+																	KEY "giac"
+																	PROMPT 6 2 ""
+																	PICTURE "########,@#"
+																	FIELD 109->GIAC
+																	MESSAGE ADD,341
+																	GROUP 2 FG_RIGAPREZZI
+																END
+															END	// tot ggiac4
+						
+														END // GGIAC3
+														SECTION TOT_GLIVGIAC3 1 2 2 GROUP
+															STRINGA 377 
+															BEGIN
+																KEY "giac"
+																		PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+															END
+															STRINGA 350 35 2
+															BEGIN
+															  KEY "" 
+															  PROMPT 3 2 ""
+															END
+															STRINGA 351 7 2
+															BEGIN
+															  KEY "" 
+															  PROMPT 2 2 " Totale"
+															END
+															STRINGA 353 3
+															BEGIN
+																KEY "UM"
+																PROMPT 5 2 ""
+																MESSAGE COPY,453
+															END
+															NUMERO 341 12
+															BEGIN
+																KEY "ACQ"
+																PROMPT 6 2 ""
+																PICTURE "########,@#"
+																MESSAGE ADD,441
+																GROUP 3
+															END
+															NUMERO 342 12
+															BEGIN
+																KEY "VALACQ"
+																PROMPT 7 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE ADD,442
+																GROUP 3 FG_VALORI
+															END
+															NUMERO 382 12
+															BEGIN
+																KEY "VALACQ"
+																PROMPT 7 2 ""
+																PICTURE "#######,@##"
+																MESSAGE _NUMEXPR,#342/#341
+																GROUP FG_VALMEDI
+															END
+																	
+															NUMERO 343 12
+															BEGIN
+																KEY "ven"
+																PROMPT 8 2 ""
+																PICTURE "########,@#"
+																MESSAGE ADD,443
+																GROUP 3
+															END
+															NUMERO 344 12
+															BEGIN
+																KEY "VALven"
+																PROMPT 9 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE ADD,444
+																GROUP 3 FG_VALORI
+															END
+															NUMERO 384 12
+															BEGIN
+																KEY "VALven"
+																PROMPT 9 2 ""
+																PICTURE "#######,@##"
+																MESSAGE _NUMEXPR,#344/#343
+																GROUP FG_VALMEDI
+															END
+																	
+															NUMERO 345 12
+															BEGIN
+																KEY "rim"
+																PROMPT 10 2 ""
+																PICTURE "########,@#"
+																MESSAGE ADD,445
+																GROUP 3
+															END
+															NUMERO 346 12
+															BEGIN
+																KEY "VALrim"
+																PROMPT 11 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE ADD,446
+																GROUP 3 FG_VALORI
+															END
+															NUMERO 386 12
+															BEGIN
+																KEY "VALrim"
+																PROMPT 11 2 ""
+																PICTURE "#######,@##"
+																MESSAGE _NUMEXPR,#346/#345
+																GROUP FG_VALMEDI
+															END
+																	
+															NUMERO 347 12
+															BEGIN
+																KEY "giac"
+																PROMPT 12 2 ""
+																PICTURE "########,@#"
+																MESSAGE ADD,447
+																GROUP 3
+															END
+														END // tot ggiac3
+						
+													END // GGIAC2
+													SECTION TOT_GLIVGIAC2 1 2 2 GROUP
+														STRINGA 477 
+														BEGIN
+															KEY "giac"
+																	PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+														END
+														STRINGA 450 35 2
+														BEGIN
+														  KEY "" 
+														  PROMPT 3 2 ""
+														END
+														STRINGA 451 7 2
+														BEGIN
+														  KEY "" 
+														  PROMPT 2 2 " Totale"
+														END
+														STRINGA 453 3
+														BEGIN
+															KEY "UM"
+															PROMPT 5 2 ""
+															MESSAGE COPY,553
+														END
+														NUMERO 441 12
+														BEGIN
+															KEY "ACQ"
+															PROMPT 6 2 ""
+															PICTURE "########,@#"
+															MESSAGE ADD,541
+															GROUP 4
+														END
+														NUMERO 442 12
+														BEGIN
+															KEY "VALACQ"
+															PROMPT 7 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE ADD,542
+															GROUP 4 FG_VALORI
+														END
+														NUMERO 482 12
+														BEGIN
+															KEY "VALACQ"
+															PROMPT 7 2 ""
+															PICTURE "#######,@##"
+															MESSAGE _NUMEXPR,#442/#441
+															GROUP FG_VALMEDI
+														END
+																	
+														NUMERO 443 12
+														BEGIN
+															KEY "ven"
+															PROMPT 8 2 ""
+															PICTURE "########,@#"
+															MESSAGE ADD,543
+															GROUP 4
+														END
+														NUMERO 444 12
+														BEGIN
+															KEY "VALven"
+															PROMPT 9 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE ADD,544
+															GROUP 4 FG_VALORI
+														END
+														NUMERO 484 12
+														BEGIN
+															KEY "VALven"
+															PROMPT 9 2 ""
+															PICTURE "#######,@##"
+															MESSAGE _NUMEXPR,#444/#443
+															GROUP FG_VALMEDI
+														END
+																	
+														NUMERO 445 12
+														BEGIN
+															KEY "rim"
+															PROMPT 10 2 ""
+															PICTURE "########,@#"
+															MESSAGE ADD,545
+															GROUP 4
+														END
+														NUMERO 446 12
+														BEGIN
+															KEY "VALrim"
+															PROMPT 11 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE ADD,546
+															GROUP 4 FG_VALORI
+														END
+														NUMERO 486 12
+														BEGIN
+															KEY "VALrim"
+															PROMPT 11 2 ""
+															PICTURE "#######,@##"
+															MESSAGE _NUMEXPR,#446/#445
+															GROUP FG_VALMEDI
+														END
+																	
+														NUMERO 447 12
+														BEGIN
+															KEY "giac"
+															PROMPT 12 2 ""
+															PICTURE "########,@#"
+															MESSAGE ADD,547
+															GROUP 4
+														END
+													END // tot ggiac2
+												END // GGIAC1
+												SECTION TOT_GLIVGIAC1 1 2 2 GROUP
+													STRINGA 577 
+													BEGIN
+														KEY "giac"
+														PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+													END
+													STRINGA 550 35 2
+													BEGIN
+													  KEY "" 
+													  PROMPT 3 2 ""
+													END
+													STRINGA 551 7 2
+													BEGIN
+													  KEY "" 
+													  PROMPT 2 2 " Totale"
+													END
+													STRINGA 553 3
+													BEGIN
+														KEY "UM"
+														PROMPT 5 2 ""
+														MESSAGE COPY,653
+													END
+													NUMERO 541 12
+													BEGIN
+														KEY "ACQ"
+														PROMPT 6 2 ""
+														PICTURE "########,@#"
+														MESSAGE ADD,641
+														GROUP 5
+													END
+													NUMERO 542 12
+													BEGIN
+														KEY "VALACQ"
+														PROMPT 7 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE ADD,642
+														GROUP 5 FG_VALORI
+													END
+													NUMERO 582 12
+													BEGIN
+														KEY "VALACQ"
+														PROMPT 7 2 ""
+														PICTURE "#######,@##"
+														MESSAGE _NUMEXPR,#542/#541
+														GROUP FG_VALMEDI
+													END
+																	
+													NUMERO 543 12
+													BEGIN
+														KEY "ven"
+														PROMPT 8 2 ""
+														PICTURE "########,@#"
+														MESSAGE ADD,643
+														GROUP 5
+													END
+													NUMERO 544 12
+													BEGIN
+														KEY "VALven"
+														PROMPT 9 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE ADD,644
+														GROUP 5 FG_VALORI
+													END
+													NUMERO 584 12
+													BEGIN
+														KEY "VALven"
+														PROMPT 9 2 ""
+														PICTURE "#######,@##"
+														MESSAGE _NUMEXPR,#544/#543
+														GROUP FG_VALMEDI
+													END
+																	
+													NUMERO 545 12
+													BEGIN
+														KEY "rim"
+														PROMPT 10 2 ""
+														PICTURE "########,@#"
+														MESSAGE ADD,645
+														GROUP 5
+													END
+													NUMERO 546 12
+													BEGIN
+														KEY "VALrim"
+														PROMPT 11 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE ADD,646
+														GROUP 5 FG_VALORI
+													END
+													NUMERO 586 12
+													BEGIN
+														KEY "VALrim"
+														PROMPT 11 2 ""
+														PICTURE "#######,@##"
+														MESSAGE _NUMEXPR,#546/#545
+														GROUP FG_VALMEDI
+													END
+																	
+													NUMERO 547 12
+													BEGIN
+														KEY "giac"
+														PROMPT 12 2 ""
+														PICTURE "########,@#"
+														MESSAGE ADD,647
+														GROUP 5
+													END
+												END	// tot ggiac1									
+					
+											END // FILE GIACENZE
+											SECTION TOT_ARTICOLO 1 2 2 GROUP
+												STRINGA 677 
+												BEGIN
+													KEY "giac"
+													PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+												END
+												STRINGA 650 30 2
+												BEGIN
+												  KEY "" 
+												  PROMPT 3 2 ""
+												END
+												STRINGA 651 12 2
+												BEGIN
+												  KEY "" 
+												  PROMPT 2 2 " Totale art."
+												END
+												STRINGA 653 3
+												BEGIN
+													KEY "UM"
+													PROMPT 5 2 ""
+													MESSAGE COPY,753
+												END
+												NUMERO 641 12
+												BEGIN
+													KEY "ACQ"
+													PROMPT 6 2 ""
+													PICTURE "########,@#"
+													MESSAGE ADD,741
+													GROUP 6 
+												END
+												NUMERO 642 12
+												BEGIN
+													KEY "VALACQ"
+													PROMPT 7 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE ADD,742
+													GROUP 6 FG_VALORI FG_RIGAVALORI
+												END
+												NUMERO 682 12
+												BEGIN
+													KEY "VALACQ"
+													PROMPT 7 2 ""
+													PICTURE "#######,@##"
+													MESSAGE _NUMEXPR,#642/#641
+													GROUP FG_VALMEDI FG_RIGAVALORI
+												END
+												NUMERO 643 12
+												BEGIN
+													KEY "ven"
+													PROMPT 8 2 ""
+													PICTURE "########,@#"
+													MESSAGE ADD,743
+													GROUP 6 FG_RIGAVALORI
+												END
+												NUMERO 644 12
+												BEGIN
+													KEY "VALven"
+													PROMPT 9 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE ADD,744
+													GROUP 6 FG_VALORI FG_RIGAVALORI
+												END
+												NUMERO 684 12
+												BEGIN
+													KEY "VALven"
+													PROMPT 9 2 ""
+													PICTURE "#######,@##"
+													MESSAGE _NUMEXPR,#644/#643
+													GROUP FG_VALMEDI FG_RIGAVALORI
+												END
+												NUMERO 645 12
+												BEGIN
+													KEY "rim"
+													PROMPT 10 2 ""
+													PICTURE "########,@#"
+													MESSAGE ADD,745
+													GROUP 6 FG_RIGAVALORI
+												END
+												NUMERO 646 12
+												BEGIN
+													KEY "VALrim"
+													PROMPT 11 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE ADD,746
+													GROUP 6 FG_VALORI FG_RIGAVALORI
+												END
+												NUMERO 686 12
+												BEGIN
+													KEY "VALrim"
+													PROMPT 11 2 ""
+													PICTURE "#######,@##"
+													MESSAGE _NUMEXPR,#646/#645
+													GROUP FG_VALMEDI FG_RIGAVALORI
+												END
+																		
+												NUMERO 647 12
+												BEGIN
+													KEY "giac"
+													PROMPT 12 2 ""
+													PICTURE "########,@#"
+													MESSAGE ADD,747
+													GROUP 6 FG_RIGAVALORI
+												END
+												NUMERO 648 12
+												BEGIN
+													KEY "ULC"
+													PROMPT 7 2 ""
+													PICTURE "###.###.###"
+													GROUP 6 FG_RIGAPREZZI
+												END
+												NUMERO 649 12
+												BEGIN
+													KEY "PREZZO"
+													PROMPT 8 2 ""
+													PICTURE "###.###.###"
+													GROUP 6 FG_RIGAPREZZI
+												END
+											END	// TOT ART
+					
+										END // GART8
+										SECTION TOT_GART8 1 2 2 GROUP
+											STRINGA 777 
+											BEGIN
+												KEY "giac"
+												PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+											END
+											STRINGA 750 34 2
+											BEGIN
+											  KEY "" 
+											  PROMPT 3 2 ""
+											END
+											STRINGA 751 8 2
+											BEGIN
+											  KEY "" 
+											  PROMPT 2 2 " Totale"
+											END
+											STRINGA 753 3
+											BEGIN
+												KEY "UM"
+												PROMPT 5 2 ""
+												MESSAGE COPY,853
+											END
+											NUMERO 741 12
+											BEGIN
+												KEY "ACQ"
+												PROMPT 6 2 ""
+												PICTURE "########,@#"
+												MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841
+												GROUP 7 
+											END
+											NUMERO 742 12
+											BEGIN
+												KEY "VALACQ"
+												PROMPT 7 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE ADD,842
+												GROUP 7 FG_VALORI 
+											END
+											NUMERO 782 12
+											BEGIN
+												KEY "VALACQ"
+												PROMPT 7 2 ""
+												PICTURE "#######,@##"
+												MESSAGE _NUMEXPR,#742/#741
+												GROUP FG_VALMEDI 
+											END
+																	
+											NUMERO 743 12
+											BEGIN
+												KEY "ven"
+												PROMPT 8 2 ""
+												PICTURE "########,@#"
+												MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#743|ADD,843
+												GROUP 7 FG_RIGAVALORI
+											END
+											NUMERO 744 12
+											BEGIN
+												KEY "VALven"
+												PROMPT 9 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE ADD,844
+												GROUP 7 FG_VALORI 
+											END
+											NUMERO 784 12
+											BEGIN
+												KEY "VALven"
+												PROMPT 9 2 ""
+												PICTURE "#######,@##"
+												MESSAGE _NUMEXPR,#744/#743
+												GROUP FG_VALMEDI 
+											END
+																	
+											NUMERO 745 12
+											BEGIN
+												KEY "rim"
+												PROMPT 10 2 ""
+												PICTURE "########,@#"
+												MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#745|ADD,845
+												GROUP 7 
+											END
+											NUMERO 746 12
+											BEGIN
+												KEY "VALrim"
+												PROMPT 11 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE ADD,846
+												GROUP 7 FG_VALORI 
+											END
+											NUMERO 786 12
+											BEGIN
+												KEY "VALrim"
+												PROMPT 11 2 ""
+												PICTURE "#######,@##"
+												MESSAGE _NUMEXPR,#746/#745
+												GROUP FG_VALMEDI 
+											END
+											NUMERO 747 12
+											BEGIN
+												KEY "giac"
+												PROMPT 12 2 ""
+												PICTURE "########,@#"
+												MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#747|ADD,847
+												GROUP 7 
+											END
+
+										END	// tot gart8
+					
+									END // GART7
+									SECTION TOT_GART7 1 2 2 GROUP
+										STRINGA 877 
+										BEGIN
+											KEY "giac"
+											PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+										END
+										STRINGA 850 34 2
+										BEGIN
+										  KEY "" 
+										  PROMPT 3 2 ""
+										END
+										STRINGA 851 8 2
+										BEGIN
+										  KEY "" 
+										  PROMPT 2 2 " Totale"
+										END
+										STRINGA 853 3
+										BEGIN
+											KEY "UM"
+											PROMPT 5 2 ""
+											MESSAGE COPY,953
+										END
+										NUMERO 841 12
+										BEGIN
+											KEY "ACQ"
+											PROMPT 6 2 ""
+											PICTURE "########,@#"
+											MESSAGE ADD,941
+											GROUP 8
+										END
+										NUMERO 842 12
+										BEGIN
+											KEY "VALACQ"
+											PROMPT 7 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE ADD,942
+											GROUP 8 FG_VALORI
+										END
+										NUMERO 882 12
+										BEGIN
+											KEY "VALACQ"
+											PROMPT 7 2 ""
+											PICTURE "#######,@##"
+											MESSAGE _NUMEXPR,#842/#841
+											GROUP FG_VALMEDI
+										END
+																	
+										NUMERO 843 12
+										BEGIN
+											KEY "ven"
+											PROMPT 8 2 ""
+											PICTURE "########,@#"
+											MESSAGE ADD,943
+											GROUP 8
+										END
+										NUMERO 844 12
+										BEGIN
+											KEY "VALven"
+											PROMPT 9 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE ADD,944
+											GROUP 8 FG_VALORI
+										END
+										NUMERO 884 12
+										BEGIN
+											KEY "VALven"
+											PROMPT 9 2 ""
+											PICTURE "#######,@##"
+											MESSAGE _NUMEXPR,#844/#843
+											GROUP FG_VALMEDI
+										END
+																	
+										NUMERO 845 12
+										BEGIN
+											KEY "rim"
+											PROMPT 10 2 ""
+											PICTURE "########,@#"
+											MESSAGE ADD,945
+											GROUP 8
+										END
+										NUMERO 846 12
+										BEGIN
+											KEY "VALrim"
+											PROMPT 11 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE ADD,946
+											GROUP 8 FG_VALORI
+										END
+										NUMERO 886 12
+										BEGIN
+											KEY "VALrim"
+											PROMPT 11 2 ""
+											PICTURE "#######,@##"
+											MESSAGE _NUMEXPR,#846/#845
+											GROUP FG_VALMEDI
+										END
+																	
+										NUMERO 847 12
+										BEGIN
+											KEY "giac"
+											PROMPT 12 2 ""
+											PICTURE "########,@#"
+											MESSAGE ADD,947
+											GROUP 8
+										END
+									END	// tot gart7									
+					
+								END // GART6
+								SECTION TOT_GART6 1 2 2 GROUP
+									STRINGA 977 
+									BEGIN
+										KEY "giac"
+										PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+									END
+									STRINGA 950 34 2
+									BEGIN
+									  KEY "" 
+									  PROMPT 3 2 ""
+									END
+									STRINGA 951 8 2
+									BEGIN
+									  KEY "" 
+									  PROMPT 2 2 " Totale"
+									END
+									STRINGA 953 3
+									BEGIN
+										KEY "UM"
+										PROMPT 5 2 ""
+										MESSAGE COPY,1053
+									END
+									NUMERO 941 12
+									BEGIN
+										KEY "ACQ"
+										PROMPT 6 2 ""
+										PICTURE "########,@#"
+										MESSAGE ADD,1041
+										GROUP 9
+									END
+									NUMERO 942 12
+									BEGIN
+										KEY "VALACQ"
+										PROMPT 7 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE ADD,1042
+										GROUP 9 FG_VALORI
+									END
+									NUMERO 982 12
+									BEGIN
+										KEY "VALACQ"
+										PROMPT 7 2 ""
+										PICTURE "#######,@##"
+										MESSAGE _NUMEXPR,#942/#941
+										GROUP FG_VALMEDI
+									END
+																	
+									NUMERO 943 12
+									BEGIN
+										KEY "ven"
+										PROMPT 8 2 ""
+										PICTURE "########,@#"
+										MESSAGE ADD,1043
+										GROUP 9
+									END
+									NUMERO 944 12
+									BEGIN
+										KEY "VALven"
+										PROMPT 9 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE ADD,1044
+										GROUP 9 FG_VALORI
+									END
+									NUMERO 984 12
+									BEGIN
+										KEY "VALven"
+										PROMPT 9 2 ""
+										PICTURE "#######,@##"
+										MESSAGE _NUMEXPR,#944/#943
+										GROUP FG_VALMEDI
+									END
+																	
+									NUMERO 945 12
+									BEGIN
+										KEY "rim"
+										PROMPT 10 2 ""
+										PICTURE "########,@#"
+										MESSAGE ADD,1045
+										GROUP 9
+									END
+									NUMERO 946 12
+									BEGIN
+										KEY "VALrim"
+										PROMPT 11 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE ADD,1046
+										GROUP 9 FG_VALORI
+									END
+									NUMERO 986 12
+									BEGIN
+										KEY "VALrim"
+										PROMPT 11 2 ""
+										PICTURE "#######,@##"
+										MESSAGE _NUMEXPR,#946/#945
+										GROUP FG_VALMEDI
+									END
+																	
+									NUMERO 947 12
+									BEGIN
+										KEY "giac"
+										PROMPT 12 2 ""
+										PICTURE "########,@#"
+										MESSAGE ADD,1047
+										GROUP 9
+									END
+								END	// tot gart6
+					
+							END // GART5
+							SECTION TOT_GART5 1 2 2 GROUP
+								STRINGA 1077 
+								BEGIN
+									KEY "giac"
+									PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+								END
+								STRINGA 1050 34 2
+								BEGIN
+								  KEY "" 
+								  PROMPT 3 2 ""
+								END
+								STRINGA 1051 8 2
+								BEGIN
+								  KEY "" 
+								  PROMPT 2 2 " Totale"
+								END
+								STRINGA 1053 3
+								BEGIN
+									KEY "UM"
+									PROMPT 5 2 ""
+									MESSAGE COPY,1153
+								END
+								NUMERO 1041 12
+								BEGIN
+									KEY "ACQ"
+									PROMPT 6 2 ""
+									PICTURE "########,@#"
+									MESSAGE ADD,1141
+									GROUP 10
+								END
+								NUMERO 1042 12
+								BEGIN
+									KEY "VALACQ"
+									PROMPT 7 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE ADD,1142
+									GROUP 10 FG_VALORI
+								END
+								NUMERO 1082 12
+								BEGIN
+									KEY "VALACQ"
+									PROMPT 7 2 ""
+									PICTURE "#######,@##"
+									MESSAGE _NUMEXPR,#1042/#1041
+									GROUP FG_VALMEDI
+								END
+								NUMERO 1043 12
+								BEGIN
+									KEY "ven"
+									PROMPT 8 2 ""
+									PICTURE "########,@#"
+									MESSAGE ADD,1143
+									GROUP 10
+								END
+								NUMERO 1044 12
+								BEGIN
+									KEY "VALven"
+									PROMPT 9 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE ADD,1144
+									GROUP 10 FG_VALORI
+								END
+								NUMERO 1084 12
+								BEGIN
+									KEY "VALven"
+									PROMPT 9 2 ""
+									PICTURE "#######,@##"
+									MESSAGE _NUMEXPR,#1044/#1043
+									GROUP FG_VALMEDI
+								END
+								NUMERO 1045 12
+								BEGIN
+									KEY "rim"
+									PROMPT 10 2 ""
+									PICTURE "########,@#"
+									MESSAGE ADD,1145
+									GROUP 10
+								END
+								NUMERO 1046 12
+								BEGIN
+									KEY "VALrim"
+									PROMPT 11 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE ADD,1146
+									GROUP 10 FG_VALORI
+								END
+								NUMERO 1086 12
+								BEGIN
+									KEY "VALrim"
+									PROMPT 11 2 ""
+									PICTURE "#######,@##"
+									MESSAGE _NUMEXPR,#1046/#1045
+									GROUP FG_VALMEDI
+								END
+								NUMERO 1047 12
+								BEGIN
+									KEY "giac"
+									PROMPT 12 2 ""
+									PICTURE "########,@#"
+									MESSAGE ADD,1147
+									GROUP 10
+								END
+							END // tot gart5
+					
+						END // GART4
+						SECTION TOT_GART4 1 2 2 GROUP
+							STRINGA 1177 
+							BEGIN
+								KEY "giac"
+								PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+							END
+							STRINGA 1150 34 2
+							BEGIN
+							  KEY "" 
+							  PROMPT 3 2 ""
+							END
+							STRINGA 1151 8 2
+							BEGIN
+							  KEY "" 
+							  PROMPT 2 2 " Totale"
+							END
+							STRINGA 1153 3
+							BEGIN
+								KEY "UM"
+								PROMPT 5 2 ""
+								MESSAGE COPY,1253
+							END
+							NUMERO 1141 12
+							BEGIN
+								KEY "ACQ"
+								PROMPT 6 2 ""
+								PICTURE "########,@#"
+								MESSAGE ADD,1241
+								GROUP 11
+							END
+							NUMERO 1142 12
+							BEGIN
+								KEY "VALACQ"
+								PROMPT 7 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE ADD,1242
+								GROUP 11 FG_VALORI
+							END
+							NUMERO 1182 12
+							BEGIN
+								KEY "VALACQ"
+								PROMPT 7 2 ""
+								PICTURE "#######,@##"
+								MESSAGE _NUMEXPR,#1142/#1141
+								GROUP FG_VALMEDI
+							END
+							NUMERO 1143 12
+							BEGIN
+								KEY "ven"
+								PROMPT 8 2 ""
+								PICTURE "########,@#"
+								MESSAGE ADD,1243
+								GROUP 11
+							END
+							NUMERO 1144 12
+							BEGIN
+								KEY "VALven"
+								PROMPT 9 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE ADD,1244
+								GROUP 11 FG_VALORI
+							END
+							NUMERO 1184 12
+							BEGIN
+								KEY "VALven"
+								PROMPT 9 2 ""
+								PICTURE "#######,@##"
+								MESSAGE _NUMEXPR,#1144/#1143
+								GROUP FG_VALMEDI
+							END
+							NUMERO 1145 12
+							BEGIN
+								KEY "rim"
+								PROMPT 10 2 ""
+								PICTURE "########,@#"
+								MESSAGE ADD,1245
+								GROUP 11
+							END
+							NUMERO 1146 12
+							BEGIN
+								KEY "VALrim"
+								PROMPT 11 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE ADD,1246
+								GROUP 11 FG_VALORI
+							END
+							NUMERO 1186 12
+							BEGIN
+								KEY "VALrim"
+								PROMPT 11 2 ""
+								PICTURE "#######,@##"
+								MESSAGE _NUMEXPR,#1146/#1145
+								GROUP FG_VALMEDI
+							END
+							NUMERO 1147 12
+							BEGIN
+								KEY "giac"
+								PROMPT 12 2 ""
+								PICTURE "########,@#"
+								MESSAGE ADD,1247
+								GROUP 11
+							END
+						END	// tot gart4
+					
+					END // GART3
+					SECTION TOT_GART3 1 2 2 GROUP
+						STRINGA 1277 
+						BEGIN
+							KEY "giac"
+							PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+						END
+						STRINGA 1250 34 2
+						BEGIN
+						  KEY "" 
+						  PROMPT 3 2 ""
+						END
+						STRINGA 1251 8 2
+						BEGIN
+						  KEY "" 
+						  PROMPT 2 2 " Totale"
+						END
+						STRINGA 1253 3
+						BEGIN
+							KEY "UM"
+							PROMPT 5 2 ""
+							MESSAGE COPY,1353
+						END
+						NUMERO 1241 12
+						BEGIN
+							KEY "ACQ"
+							PROMPT 6 2 ""
+							PICTURE "########,@#"
+							MESSAGE ADD,1341
+							GROUP 12
+						END
+						NUMERO 1242 12
+						BEGIN
+							KEY "VALACQ"
+							PROMPT 7 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE ADD,1342
+							GROUP 12 FG_VALORI
+						END
+						NUMERO 1282 12
+						BEGIN
+							KEY "VALACQ"
+							PROMPT 7 2 ""
+							PICTURE "#######,@##"
+							MESSAGE _NUMEXPR,#1242/#1241
+							GROUP FG_VALMEDI
+						END
+						NUMERO 1243 12
+						BEGIN
+							KEY "ven"
+							PROMPT 8 2 ""
+							PICTURE "########,@#"
+							MESSAGE ADD,1343
+							GROUP 12
+						END
+						NUMERO 1244 12
+						BEGIN
+							KEY "VALven"
+							PROMPT 9 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE ADD,1344
+							GROUP 12 FG_VALORI
+						END
+						NUMERO 1284 12
+						BEGIN
+							KEY "VALven"
+							PROMPT 9 2 ""
+							PICTURE "#######,@##"
+							MESSAGE _NUMEXPR,#1244/#1243
+							GROUP FG_VALMEDI
+						END
+						NUMERO 1245 12
+						BEGIN
+							KEY "rim"
+							PROMPT 10 2 ""
+							PICTURE "########,@#"
+							MESSAGE ADD,1345
+							GROUP 12
+						END
+						NUMERO 1246 12
+						BEGIN
+							KEY "VALrim"
+							PROMPT 11 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE ADD,1346
+							GROUP 12 FG_VALORI
+						END
+						NUMERO 1286 12
+						BEGIN
+							KEY "VALrim"
+							PROMPT 11 2 ""
+							PICTURE "#######,@##"
+							MESSAGE _NUMEXPR,#1246/#1245
+							GROUP FG_VALMEDI
+						END
+						NUMERO 1247 12
+						BEGIN
+							KEY "giac"
+							PROMPT 12 2 ""
+							PICTURE "########,@#"
+							MESSAGE ADD,1347
+							GROUP 12
+						END
+					END	// tot gart3
+					
+				END // GART2
+				SECTION TOT_GART2 1 2 2 GROUP
+					STRINGA 1377 
+					BEGIN
+						KEY "giac"
+						PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+					END
+					STRINGA 1350 34 2
+					BEGIN
+					  KEY "" 
+					  PROMPT 3 2 ""
+					END
+					STRINGA 1351 8 2
+					BEGIN
+					  KEY "" 
+					  PROMPT 2 2 " Totale"
+					END
+					STRINGA 1353 3
+					BEGIN
+						KEY "UM"
+						PROMPT 5 2 ""
+						MESSAGE COPY,1453
+					END
+					NUMERO 1341 12
+					BEGIN
+						KEY "ACQ"
+						PROMPT 6 2 ""
+						PICTURE "########,@#"
+						MESSAGE ADD,1441
+						GROUP 13
+					END
+					NUMERO 1342 12
+					BEGIN
+						KEY "VALACQ"
+						PROMPT 7 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE ADD,1442
+						GROUP 13 FG_VALORI
+					END
+					NUMERO 1382 12
+					BEGIN
+						KEY "VALACQ"
+						PROMPT 7 2 ""
+						PICTURE "#######,@##"
+						MESSAGE _NUMEXPR,#1342/#1341
+						GROUP FG_VALMEDI
+					END
+					NUMERO 1343 12
+					BEGIN
+						KEY "ven"
+						PROMPT 8 2 ""
+						PICTURE "########,@#"
+						MESSAGE ADD,1443
+						GROUP 13
+					END
+					NUMERO 1344 12
+					BEGIN
+						KEY "VALven"
+						PROMPT 9 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE ADD,1444
+						GROUP 13 FG_VALORI
+					END
+					NUMERO 1384 12
+					BEGIN
+						KEY "VALven"
+						PROMPT 9 2 ""
+						PICTURE "#######,@##"
+						MESSAGE _NUMEXPR,#1344/#1343
+						GROUP FG_VALMEDI
+					END
+					NUMERO 1345 12
+					BEGIN
+						KEY "rim"
+						PROMPT 10 2 ""
+						PICTURE "########,@#"
+						MESSAGE ADD,1445
+						GROUP 13
+					END
+					NUMERO 1346 12
+					BEGIN
+						KEY "VALrim"
+						PROMPT 11 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE ADD,1446
+						GROUP 13 FG_VALORI
+					END
+					NUMERO 1386 12
+					BEGIN
+						KEY "VALrim"
+						PROMPT 11 2 ""
+						PICTURE "#######,@##"
+						MESSAGE _NUMEXPR,#1346/#1345
+						GROUP FG_VALMEDI
+					END
+					NUMERO 1347 12
+					BEGIN
+						KEY "giac"
+						PROMPT 12 2 ""
+						PICTURE "########,@#"
+						MESSAGE ADD,1447
+						GROUP 13
+					END
+				END	// tot gart2
+					
+			END // GART1
+			SECTION TOT_GART1 1 2 2 GROUP
+				STRINGA 1477 
+				BEGIN
+					KEY "giac"
+					PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
+				END
+				STRINGA 1450 34 2
+				BEGIN
+				  KEY "" 
+				  PROMPT 3 2 ""
+				END
+				STRINGA 1451 8 2
+				BEGIN
+				  KEY "" 
+				  PROMPT 2 2 " Totale"
+				END
+				STRINGA 1453 3
+				BEGIN
+					KEY "UM"
+					PROMPT 5 2 ""
+					MESSAGE COPY,53
+				END
+				NUMERO 1441 12
+				BEGIN
+					KEY "ACQ"
+					PROMPT 6 2 ""
+					PICTURE "########,@#"
+					MESSAGE ADD,41
+					GROUP 14
+				END
+				NUMERO 1442 12
+				BEGIN
+					KEY "VALACQ"
+					PROMPT 7 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE ADD,42
+					GROUP 14 FG_VALORI
+				END
+				NUMERO 1482 12
+				BEGIN
+					KEY "VALACQ"
+					PROMPT 7 2 ""
+					PICTURE "#######,@##"
+					MESSAGE _NUMEXPR,#1442/#1441
+					GROUP FG_VALMEDI
+				END
+				NUMERO 1443 12
+				BEGIN
+					KEY "ven"
+					PROMPT 8 2 ""
+					PICTURE "########,@#"
+					MESSAGE ADD,43
+					GROUP 14
+				END
+				NUMERO 1444 12
+				BEGIN
+					KEY "VALven"
+					PROMPT 9 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE ADD,44
+					GROUP 14 FG_VALORI
+				END
+				NUMERO 1484 12
+				BEGIN
+					KEY "VALven"
+					PROMPT 9 2 ""
+					PICTURE "#######,@##"
+					MESSAGE _NUMEXPR,#1444/#1443
+					GROUP FG_VALMEDI
+				END
+				NUMERO 1445 12
+				BEGIN
+					KEY "rim"
+					PROMPT 10 2 ""
+					PICTURE "########,@#"
+					MESSAGE ADD,45
+					GROUP 14
+				END
+				NUMERO 1446 12
+				BEGIN
+					KEY "VALrim"
+					PROMPT 11 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE ADD,46
+					GROUP 14 FG_VALORI
+				END
+				NUMERO 1486 12
+				BEGIN
+					KEY "VALrim"
+					PROMPT 11 2 ""
+					PICTURE "#######,@##"
+					MESSAGE _NUMEXPR,#1446/#1445
+					GROUP FG_VALMEDI
+				END
+				NUMERO 1447 12
+				BEGIN
+					KEY "giac"
+					PROMPT 12 2 ""
+					PICTURE "########,@#"
+					MESSAGE ADD,47
+					GROUP 14
+				END
+			END	// tot gart1
+
+		END // GRUPPI DEPOSITO
+
+		SECTION TOT_DEPOSITO 1 1 1 GROUP
+			SECTION SEP_DEPOSITO 1 1 NORMAL GROUP
+				STRINGA 77 
+				BEGIN
+					KEY "giac"
+					PROMPT 52 1 "----------------------------------------------------------------------------------------------------"
+				END
+			END
+			STRINGA 51 12 
+			BEGIN
+				KEY "CODICE"
+			  PROMPT 2 1 " Totale dep."
+			END
+			STRINGA 50 30 
+			BEGIN
+				KEY "descr"
+				PROMPT 3 1 ""
+			END
+			STRINGA 53 3
+			BEGIN
+				KEY "UM"
+				PROMPT 5 1 ""
+				MESSAGE COPY,153
+			END
+			NUMERO 41 12
+			BEGIN
+				KEY "ACQ"
+				PROMPT 6 1 ""
+				PICTURE "########,@#"
+				MESSAGE ADD,141
+				GROUP 15
+			END
+			NUMERO 42 12
+			BEGIN
+				KEY "VALACQ"
+				PROMPT 7 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE ADD,142
+				GROUP 15 FG_VALORI
+			END
+			NUMERO 82 12
+			BEGIN
+				KEY "VALACQ"
+				PROMPT 7 1 ""
+				PICTURE "#######,@##"
+				MESSAGE _NUMEXPR,109->VALACQ/109->ACQ 
+				GROUP 15 26
+			END
+			NUMERO 43 12
+			BEGIN
+				KEY "VEN"
+				PROMPT 8 1 ""
+				PICTURE "########,@#"
+				MESSAGE ADD,143
+				GROUP 15
+			END
+			NUMERO 44 12
+			BEGIN
+				KEY "VALV"
+				PROMPT 9 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE ADD,144
+				GROUP 15 FG_VALORI
+			END
+			NUMERO 84 12
+			BEGIN
+				KEY "VALV"
+				PROMPT 9 1 ""
+				PICTURE "#######,@##"
+				MESSAGE _NUMEXPR,109->VALVEN/109->VEN 
+				GROUP 15 26
+			END
+			NUMERO 45 12
+			BEGIN
+				KEY "RIM"
+				PROMPT 10 1 ""
+				PICTURE "########,@#"
+				MESSAGE ADD,145
+				GROUP 15
+			END
+			NUMERO 46 12
+			BEGIN
+				KEY "VALrim"
+				PROMPT 11 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE ADD,146
+				GROUP 15 FG_VALORI
+			END
+			NUMERO 86 12
+			BEGIN
+				KEY "VALrim"
+				PROMPT 11 1 ""
+				PICTURE "#######,@##"
+				MESSAGE _NUMEXPR,109->VALRIM/109->RIM
+				GROUP 15 26
+			END
+			NUMERO 47 12
+			BEGIN
+				KEY "giac"
+				PROMPT 12 1 ""
+				PICTURE "#######@,@#"
+				MESSAGE ADD,147
+				GROUP 15
+			END
+		END // tot depositi
+	END // MAGAZZ
+	
+	SECTION TOT_MAGAZZINO 1 1 1 GROUP
+		SECTION SEP_MAGAZZINO 1 1 1 NORMAL GROUP
+			STRINGA 77 
+			BEGIN
+				KEY "giac"
+				PROMPT 52 1 "----------------------------------------------------------------------------------------------------"
+			END
+		END
+		STRINGA 150 30 2
+		BEGIN
+		  KEY "Magazzino" 
+		  PROMPT 3 1 ""
+		END
+		STRINGA 151 12 2
+		BEGIN
+		  KEY "Magazzino" 
+		  PROMPT 2 1 " Totale mag."
+		END
+		STRINGA 153 3
+		BEGIN
+			KEY "UM"
+			PROMPT 5 1 ""
+		END
+		NUMERO 141 12
+		BEGIN
+			KEY "ACQ"
+			PROMPT 6 1 ""
+			PICTURE "########,@#"
+			GROUP 1
+		END
+		NUMERO 142 12
+		BEGIN
+			KEY "VALACQ"
+			PROMPT 7 1 ""
+			PICTURE "###.###.##@"
+			GROUP 1 FG_VALORI
+		END
+		NUMERO 182 12
+		BEGIN
+			KEY "VALACQ"
+			PROMPT 7 1 ""
+			PICTURE "#######,@##"
+			MESSAGE _NUMEXPR,#142/#141
+			GROUP FG_VALMEDI
+		END
+		NUMERO 143 12
+		BEGIN
+			KEY "ven"
+			PROMPT 8 1 ""
+			PICTURE "########,@#"
+			GROUP 1
+		END
+		NUMERO 144 12
+		BEGIN
+			KEY "VALven"
+			PROMPT 9 1 ""
+			PICTURE "###.###.##@"
+			GROUP 1 FG_VALORI
+		END
+		NUMERO 184 12
+		BEGIN
+			KEY "VALven"
+			PROMPT 9 1 ""
+			PICTURE "#######,@##"
+			MESSAGE _NUMEXPR,#144/#143
+			GROUP FG_VALMEDI
+		END
+		NUMERO 145 12
+		BEGIN
+			KEY "rim"
+			PROMPT 10 1 ""
+			PICTURE "########,@#"
+			GROUP 1
+		END
+		NUMERO 146 12
+		BEGIN
+			KEY "VALrim"
+			PROMPT 11 1 ""
+			PICTURE "###.###.##@"
+			GROUP 1 FG_VALORI
+		END
+		NUMERO 186 12
+		BEGIN
+			KEY "VALrim"
+			PROMPT 11 1 ""
+			PICTURE "#######,@##"
+			MESSAGE _NUMEXPR,#146/#145
+			GROUP FG_VALMEDI
+		END
+		NUMERO 147 12
+		BEGIN
+			KEY "giac"
+			PROMPT 12 1 ""
+			PICTURE "########,@#"
+			GROUP 1
+		END
+	END	// tot magazz
+
+END // section body, loop anamag
+
+SECTION FOOTER ODD 2
+	STRINGA 100
+	BEGIN
+		KEY "NUMP"
+		PROMPT 50 1 "--------------"
+	END
+
+	NUMERO 101
+	BEGIN
+		KEY "NUMPAGE"
+		PROMPT 50 2 ""
+		MESSAGE _PAGENO
+		PICTURE "-###-"
+	END
+
+END // fine footer
+END// fine form
+
diff --git a/mg/mg4200.h b/mg/mg4200.h
new file mode 100755
index 000000000..5e760e649
--- /dev/null
+++ b/mg/mg4200.h
@@ -0,0 +1,51 @@
+#ifndef __MG4200_H
+#define __MG4200_H
+#include "anamag.h"
+#include "mag.h"
+#include "stomag.h"
+#include "umart.h"
+
+#define F_ORDINE 101
+#define F_ORDINEART 102
+#define F_ORDINEMAG 103
+#define F_ANNOES 104
+#define F_DAART 105
+#define F_AART 106
+#define F_DAMAG 107
+#define F_AMAG 108
+#define F_DACATMER 109
+#define F_ACATMER 110
+#define F_DADES 111
+#define F_ADES 112
+#define F_VALMEDI 113
+#define F_STAMPAGIAC 114
+#define F_RAGGCODICE 115
+#define F_FROMLIVELLOART 116
+#define F_TOLIVELLOART 117
+#define F_RAGGLIVGIAC 118
+#define F_TOTALIMAGAZZINI 119
+#define F_TOTALIDEPOSITI 120
+
+#define F_ENABLEMAGAZZINI 121
+#define F_DETTAGLIOMAG 122
+#define F_DETTAGLIODEP 123
+#define F_FROMLIVELLOGIAC 124
+#define F_TOLIVELLOGIAC 125
+#define F_REALE_GIAC 126
+#define F_PREZZIVALORI 127
+#define F_CODLISTINO 128
+#define F_CATVENLISTINO 129
+#define F_VAL1 141
+#define F_VAL2 152
+#define F_VAL3 153
+#define F_VAL4 154
+#define F_VAL5 155
+#define F_VAL6 156
+
+#define G_CATMER 1 
+#define G_CODART 2
+#define G_DESART 3
+#define G_PARAMVALORI 4
+#define G_LISTINO 5
+
+#endif //__MG4200_H
diff --git a/mg/mg4200.uml b/mg/mg4200.uml
new file mode 100755
index 000000000..8b84ef423
--- /dev/null
+++ b/mg/mg4200.uml
@@ -0,0 +1,357 @@
+#include "mg4200.h"
+PAGE "Stampa inventario" -1 -1 78 20
+
+
+LISTBOX F_ORDINE 10
+BEGIN
+  PROMPT 2 1 "Ordinamento   "
+	ITEM "A|articoli"
+	MESSAGE ENABLE,F_ORDINEART
+	MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_TOTALIDEPOSITI|"X",F_DETTAGLIOMAG|"X",F_DETTAGLIODEP|HIDE,F_DETTAGLIODEP|HIDE,F_DETTAGLIOMAG
+	ITEM "M|magazzini"
+	MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
+	MESSAGE SHOW,F_DETTAGLIOMAG|HIDE,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIODEP|HIDE,F_TOTALIDEPOSITI
+END
+
+
+LISTBOX F_ORDINEART 20
+BEGIN
+	FLAGS "G"
+  PROMPT 34 1 "sotto-ordinamento "
+	ITEM "C|codice"
+	MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@
+	ITEM "D|descrizione"
+	MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|SHOW,G_DESART@
+	ITEM "M|gruppo merc./codice"
+	MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@
+END
+
+NUMBER F_ANNOES 4
+BEGIN
+	FLAGS "A"
+  PROMPT 2 2 "Codice es.    "
+	USE ESC
+	INPUT CODTAB F_ANNOES
+	DISPLAY "Esercizio" CODTAB
+	DISPLAY "Dal@12" D0
+	DISPLAY "Al@12" D0
+	OUTPUT F_ANNOES CODTAB
+	ADD NONE
+END
+LIST F_REALE_GIAC 26
+BEGIN
+  PROMPT 34 2 "Inventario "
+	ITEM "G|di giacenza"
+	ITEM "R|reale (giac+ACL-INCL+PROD)"
+END
+
+STRING F_DAART 20
+BEGIN
+  PROMPT 2 4 "Dall'articolo "
+	FLAGS "U"
+	USE LF_ANAMAG 
+	INPUT CODART F_DAART
+	DISPLAY "Codice" CODART
+	DISPLAY "Descr@50" DESCR
+	OUTPUT F_DAART CODART
+	GROUP G_CODART
+END
+STRING F_AART 20
+BEGIN
+  PROMPT 42 4 " a "
+	FLAGS "U"
+	COPY USE F_DAART
+	INPUT CODART F_AART
+	COPY DISPLAY F_DAART
+	OUTPUT F_AART CODART
+	GROUP G_CODART
+END
+
+STRING F_DADES 50 20
+BEGIN
+  PROMPT 2 4 "Dall'articolo "
+	FLAGS "U"
+	USE LF_ANAMAG KEY 2
+	INPUT DESCR F_DADES
+	DISPLAY "Descr@50" DESCR
+	DISPLAY "Codice" CODART
+	OUTPUT F_DADES DESCR
+	GROUP G_DESART
+END
+STRING F_ADES 50 20
+BEGIN
+  PROMPT 42 4 " a "
+	FLAGS "U"
+	COPY USE F_DADES
+	INPUT DESCR F_ADES
+	COPY DISPLAY F_DADES
+	OUTPUT F_ADES DESCR
+	GROUP G_DESART
+END
+
+
+STRING F_DAMAG 3 
+BEGIN
+  PROMPT 2 5 "Dal magazzino "
+	FLAGS "U"
+	USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!="" 
+	INPUT CODTAB F_DAMAG
+	DISPLAY "Codice" CODTAB
+	DISPLAY "Descr@50" S0
+	OUTPUT F_DAMAG CODTAB
+END
+
+STRING F_AMAG 3
+BEGIN
+  PROMPT 42 5 " a "
+	FLAGS "U"
+	COPY USE F_DAMAG
+	INPUT CODTAB F_AMAG
+	COPY DISPLAY F_DAMAG
+	OUTPUT F_AMAG CODTAB
+END
+
+STRING F_DACATMER 3 
+BEGIN
+  PROMPT 2 6 "Dal gruppo   "
+	FLAGS "U"
+	USE GMC SELECT CODTAB[4,5]==""
+	INPUT CODTAB F_DACATMER
+	DISPLAY "Codice" CODTAB
+	DISPLAY "Descr@50" S0
+	OUTPUT F_DACATMER CODTAB[1,3]
+	GROUP G_CATMER
+END
+
+
+STRING F_ACATMER 3
+BEGIN
+  PROMPT 42 6 " a "
+	FLAGS "U"
+	COPY USE F_DACATMER
+	INPUT CODTAB F_ACATMER
+	COPY DISPLAY F_DACATMER
+	OUTPUT F_ACATMER CODTAB[1,3]
+	GROUP G_CATMER
+END
+
+BOOL F_DETTAGLIOMAG
+BEGIN
+  PROMPT 2 7 "Stampa i depositi"
+	MESSAGE TRUE ENABLE,F_DETTAGLIODEP
+	MESSAGE FALSE CLEAR,F_DETTAGLIODEP|K_SPACE,F_DETTAGLIODEP
+END
+
+BOOL F_DETTAGLIODEP
+BEGIN
+  PROMPT 42 7 "Stampa il dettaglio depositi"
+	MESSAGE TRUE ENABLE,F_RAGGCODICE|ENABLE,F_RAGGLIVGIAC
+	MESSAGE FALSE CLEAR,F_RAGGCODICE|K_SPACE,F_RAGGCODICE|CLEAR,F_RAGGLIVGIAC|K_SPACE,F_RAGGLIVGIAC
+END
+
+BOOLEAN F_RAGGCODICE
+BEGIN
+  PROMPT 2 8 "Raggruppo gli articoli"
+	MESSAGE FALSE CLEAR,F_FROMLIVELLOART|CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
+	MESSAGE TRUE ENABLE,F_FROMLIVELLOART|ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
+END
+
+NUMBER F_FROMLIVELLOART 1
+BEGIN
+	FLAGS "G"
+  PROMPT 42 8 "da "
+	USE FCA
+	INPUT CODTAB F_FROMLIVELLOART
+	DISPLAY "Num." CODTAB 
+	DISPLAY "Descr@50" S0
+	OUTPUT F_FROMLIVELLOART CODTAB 
+	NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)
+	CHECKTYPE NORMAL
+	WARNING "Livello iniziale non ammissibile"
+END
+
+NUMBER F_TOLIVELLOART 1
+BEGIN
+  PROMPT 52 8 "a "
+	USE FCA
+	INPUT CODTAB F_TOLIVELLOART
+	DISPLAY "Num." CODTAB 
+	DISPLAY "Descr@50" S0
+	OUTPUT F_TOLIVELLOART CODTAB 
+	CHECKTYPE NORMAL
+	NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
+	WARNING "Livello finale non ammissibile"
+END
+
+BOOL F_RAGGLIVGIAC
+BEGIN
+  PROMPT 2 9 "Raggruppo le giacenze"
+	MESSAGE FALSE CLEAR,F_FROMLIVELLOGIAC|CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
+	MESSAGE TRUE ENABLE,F_FROMLIVELLOGIAC|ENABLE,F_TOLIVELLOGIAC
+END
+
+NUMBER F_FROMLIVELLOGIAC 1
+BEGIN
+	FLAG "D"
+  PROMPT 42 9 "da "
+	USE FCG
+	INPUT CODTAB F_FROMLIVELLOGIAC
+	DISPLAY "Num." CODTAB 
+	DISPLAY "Descr@50" S0
+	OUTPUT F_FROMLIVELLOGIAC CODTAB 
+	CHECKTYPE NORMAL
+	NUM_EXPR ((#F_FROMLIVELLOGIAC*(#F_FROMLIVELLOART+#F_TOLIVELLOART))=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))
+
+	WARNING "Livello iniziale non ammissibile"
+END
+
+NUMBER F_TOLIVELLOGIAC 1
+BEGIN
+	FLAG "D"
+  PROMPT 52 9 "a "
+	USE FCG
+	INPUT CODTAB F_TOLIVELLOGIAC
+	DISPLAY "Num." CODTAB 
+	DISPLAY "Descr@50" S0
+	OUTPUT F_TOLIVELLOGIAC CODTAB 
+	NUM_EXPR ((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))&&((#F_TOLIVELLOGIAC*#F_TOLIVELLOART)=0)
+	WARNING "Livello finale non ammissibile"
+	CHECKTYPE NORMAL
+END
+
+
+BOOL F_TOTALIMAGAZZINI
+BEGIN
+  PROMPT 2 10 "Stampo i totali di magazzino"
+	MESSAGE TRUE ENABLE,F_TOTALIDEPOSITI
+	MESSAGE FALSE CLEAR,F_TOTALIDEPOSITI
+END
+
+BOOL F_TOTALIDEPOSITI
+BEGIN
+  PROMPT 42 10 "Stampo i totali di deposito"
+END
+
+LIST F_VAL1 20
+BEGIN
+  PROMPT 2 11 "Valorizzazione colonna 1 "
+	ITEM "1|Ultimo costo"
+	ITEM "2|Media ultimi costi"
+	ITEM "3|Prezzo di listino"
+	ITEM "4|Costo standard"
+	ITEM "5|Costo medio"
+	ITEM "6|FIFO annuale"
+	ITEM "7|LIFO annuale"
+	ITEM "8|FIFO"
+	ITEM "9|LIFO"
+END
+LIST F_VAL2 20
+BEGIN
+  PROMPT 2 12 "Valorizzazione colonna 2 "
+	ITEM "|"
+	ITEM "1|Ultimo costo"
+	ITEM "2|Media ultimi costi"
+	ITEM "3|Prezzo di listino"
+	ITEM "4|Costo standard"
+	ITEM "5|Costo medio"
+	ITEM "6|FIFO annuale"
+	ITEM "7|LIFO annuale"
+	ITEM "8|FIFO"
+	ITEM "9|LIFO"
+END
+LIST F_VAL3 20
+BEGIN
+  PROMPT 2 13 "Valorizzazione colonna 3 "
+	ITEM "|"
+	ITEM "1|Ultimo costo"
+	ITEM "2|Media ultimi costi"
+	ITEM "3|Prezzo di listino"
+	ITEM "4|Costo standard"
+	ITEM "5|Costo medio"
+	ITEM "6|FIFO annuale"
+	ITEM "7|LIFO annuale"
+	ITEM "8|FIFO"
+	ITEM "9|LIFO"
+END
+LIST F_VAL4 20
+BEGIN
+  PROMPT 2 14 "Valorizzazione colonna 4 "
+	ITEM "|"
+	ITEM "1|Ultimo costo"
+	ITEM "2|Media ultimi costi"
+	ITEM "3|Prezzo di listino"
+	ITEM "4|Costo standard"
+	ITEM "5|Costo medio"
+	ITEM "6|FIFO annuale"
+	ITEM "7|LIFO annuale"
+	ITEM "8|FIFO"
+	ITEM "9|LIFO"
+END
+LIST F_VAL5 20
+BEGIN
+  PROMPT 2 15 "Valorizzazione colonna 5 "
+	ITEM "|"
+	ITEM "1|Ultimo costo"
+	ITEM "2|Media ultimi costi"
+	ITEM "3|Prezzo di listino"
+	ITEM "4|Costo standard"
+	ITEM "5|Costo medio"
+	ITEM "6|FIFO annuale"
+	ITEM "7|LIFO annuale"
+	ITEM "8|FIFO"
+	ITEM "9|LIFO"
+END
+LIST F_VAL6 20
+BEGIN
+  PROMPT 2 16 "Valorizzazione colonna 6 "
+	ITEM "|"
+	ITEM "1|Ultimo costo"
+	ITEM "2|Media ultimi costi"
+	ITEM "3|Prezzo di listino"
+	ITEM "4|Costo standard"
+	ITEM "5|Costo medio"
+	ITEM "6|FIFO annuale"
+	ITEM "7|LIFO annuale"
+	ITEM "8|FIFO"
+	ITEM "9|LIFO"
+END
+STRING F_CATVENLISTINO 2
+BEGIN
+	FLAGS "U"
+	PROMPT 32 17 "Cat. ven. "
+  USE CVE
+  INPUT CODTAB F_CATVENLISTINO 
+  DISPLAY "Cat." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CATVENLISTINO CODTAB
+  CHECKTYPE NORMAL
+	GROUP G_LISTINO
+END
+
+STRING F_CODLISTINO 3
+BEGIN
+	FLAGS "U"
+  PROMPT 52 17 "Codice listino "
+	USE LF_CONDV 
+	INPUT TIPO "L"
+	INPUT COD F_CODLISTINO 
+	DISPLAY "Codice" COD
+	DISPLAY "Descrizione@30" DESCR
+	OUTPUT F_CODLISTINO  COD 
+	CHECKTYPE NORMAL
+	GROUP G_LISTINO
+END
+
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK
diff --git a/mg/mg4200a.frm b/mg/mg4200a.frm
new file mode 100755
index 000000000..9007800ad
--- /dev/null
+++ b/mg/mg4200a.frm
@@ -0,0 +1,2601 @@
+#include "mg4frm.h"
+USE LF_ANAMAG KEY 1 
+SORT LF_MAG BY ANNOES CODART LIVELLO CODMAG
+	JOIN TO LF_ANAMAG INTO ANNOES==1996 CODART==CODART
+JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3]
+JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG
+JOIN GMC TO LF_ANAMAG ALIAS 400 INTO CODTAB==GRMERC[1,3]
+JOIN GMC TO LF_ANAMAG ALIAS 401 INTO CODTAB==GRMERC
+JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
+END
+	
+DESCRIPTION
+BEGIN
+    47->* "Anagrafica articoli"
+    109->* "Archivio Giacenze"
+    MAG->* "Tabella magazzini"
+    49->* "Unità di misura articoli"
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    CARATTERE "X"
+    INIZIALE 5 2
+    FINALE 133
+END
+
+SECTION HEADER ODD 5
+
+STRINGA 1 40 1
+BEGIN
+ KEY "nome ditta"
+ PROMPT  1 1 "Ditta "
+ MESSAGE _DITTA, !RAGSOC
+END
+
+STRINGA 2 10
+BEGIN
+ KEY "Data"
+ PROMPT  120 1 "Data "
+ MESSAGE _TODAY
+END
+
+NUMERO 3 7
+BEGIN
+ KEY "Nr. pagina"
+ PROMPT  137 1 "Pagina "
+ MESSAGE _PAGENO
+END
+
+NUMERO 4 32
+BEGIN
+ KEY "Intestazione stampa"
+ PROMPT  45 2 "Stampa inventario"
+END
+
+STRINGA 5 146
+BEGIN
+  KEY "Separatore (iniziale)"
+  PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+END
+
+	LIST FF_ENABLECOLS 
+	BEGIN
+		FLAGS "H"
+		ITEM "|only one, "
+		ITEM "1|only one, "
+		MESSAGE DISABLE,FG_COL1@|DISABLE,FG_COL2@|DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "2|two"
+		MESSAGE DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "3|three"
+		MESSAGE DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "4|four"
+		MESSAGE DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "5|five"
+		MESSAGE DISABLE,FG_COL6@
+		ITEM "6|six"
+	END
+
+	STRINGA 6 20
+	BEGIN
+	  KEY "H1"
+		PROMPT 2 4 "Codice"
+	END
+	STRINGA 7 40
+	BEGIN
+	  KEY "H1"
+		PROMPT 24 4 "Descrizione"
+	END
+	STRINGA 7 40
+	BEGIN
+	  KEY "H1"
+		PROMPT 45 4 "UM"
+	END
+	STRINGA 8 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 55 4 "Giacenza"
+	END
+	STRINGA 8 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 71 4 "Valore"
+	END
+	STRINGA 9 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 84 4 "Val.unitario"
+	END
+	STRINGA 9 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 100 4 "Valore"
+		GROUP FG_COL2
+	END
+	STRINGA 10 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 113 4 "Val.unitario"
+		GROUP FG_COL2
+	END
+	STRINGA 10 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 129 4 "Valore"
+		GROUP FG_COL3
+	END
+	STRINGA 11 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 142 4 "Val.unitario"
+		GROUP FG_COL3
+	END
+	STRINGA 12 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 158 4 "Valore"
+		GROUP FG_COL4
+	END
+	STRINGA 13 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 171 4 "Val.unitario"
+		GROUP FG_COL4
+	END
+	STRINGA 14 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 187 4 "Valore"
+		GROUP FG_COL5
+	END
+	STRINGA 15 12
+	BEGIN
+		KEY "H1"
+		PROMPT 200 4 "Val.unitario"
+		GROUP FG_COL5
+	END
+	STRINGA 14 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 216 4 "Valore"
+		GROUP FG_COL6
+	END
+	STRINGA 15 12
+	BEGIN
+		KEY "H1"
+		PROMPT 229 4 "Val.unitario"
+		GROUP FG_COL6
+	END
+STRINGA 17 146
+BEGIN
+  KEY "Separatore (iniziale)"
+  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+END
+
+END
+
+SECTION BODY ODD 0 COLUMNWISE
+
+	LIST FF_ENABLECOLS 
+	BEGIN
+		FLAGS "H"
+		ITEM "|only one, "
+		ITEM "1|only one, "
+		MESSAGE DISABLE,FG_COL2@|DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "2|two"
+		MESSAGE DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "3|three"
+		MESSAGE DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "4|four"
+		MESSAGE DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "5|five"
+		MESSAGE DISABLE,FG_COL6@
+		ITEM "6|six"
+	END
+
+	NUMBER FF_FLAGTOTQTA 1
+	BEGIN
+		FLAGS "H"
+	END
+	
+	SECTION H_CATMER 1 1 2 GROUP 
+		STRINGA 11 12 2
+		BEGIN
+			KEY "CATMER"
+			PROMPT 2 1 ""
+			MESSAGE _USER,CODCATMER
+		END
+		STRINGA 12 30 2
+		BEGIN
+			KEY "CODICE CATMER"
+			PROMPT 3 1 ""
+			MESSAGE _USER,CATMER|COPY,1550
+		END
+	END
+
+	STRINGA 60 40 1
+	BEGIN
+		FLAGS "H"
+	  KEY "CATMER" 
+	  PROMPT 2 1 ""
+		MESSAGE RESET,15@
+	END
+
+	SECTION GRUPPI_CATMER 1 0 1 FILE LF_ANAMAG GROUP GRMERC
+
+		STRINGA 60 40 1
+		BEGIN
+			FLAGS "H"
+		  KEY "CATMER" 
+		  PROMPT 2 1 ""
+			MESSAGE RESET,14@
+		END
+		SECTION H_GCODART1 1 1 1 GROUP 
+			STRINGA 16 12 2 
+			BEGIN
+				KEY "CODICE GRUPPO"
+				PROMPT 2 1 ""
+				MESSAGE _USER,CODGRUPPOART,1
+			END
+			STRINGA 17 30 2 
+			BEGIN
+			 KEY "CODICE GRUPPO"
+			 PROMPT 3 1 ""
+			 MESSAGE _USER,GRUPPOART,1|COPY,1450
+			END
+		END
+
+		SECTION GRUPPI_CODART1 1 0 0 FILE LF_ANAMAG GROUP CODART
+			STRINGA 60 40 1
+			BEGIN
+				FLAGS "H"
+			  KEY "CATMER" 
+			  PROMPT 2 1 ""
+				MESSAGE RESET,13@
+			END
+			SECTION H_GCODART2 1 1 1 GROUP 
+				STRINGA 16 12 2 
+				BEGIN
+					KEY "CODICE GRUPPO"
+					PROMPT 2 1 ""
+					MESSAGE _USER,CODGRUPPOART,2
+				END
+				STRINGA 17 30 2 
+				BEGIN
+				 KEY "CODICE GRUPPO"
+				 PROMPT 3 1 ""
+				 MESSAGE _USER,GRUPPOART,2|COPY,1350
+				END
+			END
+
+			SECTION GRUPPI_CODART2 1 0 0 FILE LF_ANAMAG GROUP CODART
+				STRINGA 60 40 1
+				BEGIN
+					FLAGS "H"
+				  KEY "CATMER" 
+				  PROMPT 2 1 ""
+					MESSAGE RESET,12@
+				END
+				SECTION H_GCODART3 1 1 1 GROUP 
+					STRINGA 16 12 2 
+					BEGIN
+						KEY "CODICE GRUPPO"
+						PROMPT 2 1 ""
+						MESSAGE _USER,CODGRUPPOART,3
+					END
+					STRINGA 17 30 2 
+					BEGIN
+					 KEY "CODICE GRUPPO"
+					 PROMPT 3 1 ""
+					 MESSAGE _USER,GRUPPOART,3|COPY,1250
+					END
+				END
+
+				SECTION GRUPPI_CODART3 1 0 0 FILE LF_ANAMAG GROUP CODART
+					STRINGA 60 40 1
+					BEGIN
+						FLAGS "H"
+					  KEY "CATMER" 
+					  PROMPT 2 1 ""
+						MESSAGE RESET,11@
+					END					
+					SECTION H_GCODART4 1 1 1 GROUP 
+						STRINGA 16 12 2 
+						BEGIN
+							KEY "CODICE GRUPPO"
+							PROMPT 2 1 ""
+							MESSAGE _USER,CODGRUPPOART,4
+						END
+						STRINGA 17 30 2 
+						BEGIN
+						 KEY "CODICE GRUPPO"
+						 PROMPT 3 1 ""
+						 MESSAGE _USER,GRUPPOART,4|COPY,1150
+						END
+					END
+
+					SECTION GRUPPI_CODART4 1 0 0 FILE LF_ANAMAG GROUP CODART
+						STRINGA 60 40 1
+						BEGIN
+							FLAGS "H"
+						  KEY "CATMER" 
+						  PROMPT 2 1 ""
+							MESSAGE RESET,10@
+						END
+						SECTION H_GCODART5 1 1 1 GROUP 
+							STRINGA 16 12 2 
+							BEGIN
+								KEY "CODICE GRUPPO"
+								PROMPT 2 1 ""
+								MESSAGE _USER,CODGRUPPOART,5
+							END
+							STRINGA 17 30 2 
+							BEGIN
+							 KEY "CODICE GRUPPO"
+							 PROMPT 3 1 ""
+							 MESSAGE _USER,GRUPPOART,5|COPY,1050
+							END
+						END
+
+						SECTION GRUPPI_CODART5 1 0 0 FILE LF_ANAMAG GROUP CODART
+							STRINGA 60 40 1
+							BEGIN
+								FLAGS "H"
+							  KEY "CATMER" 
+							  PROMPT 2 1 ""
+								MESSAGE RESET,9@
+							END							
+							SECTION H_GCODART6 1 1 2 GROUP 
+								STRINGA 16 12 2 
+								BEGIN
+									KEY "CODICE GRUPPO"
+									PROMPT 2 1 ""
+									MESSAGE _USER,CODGRUPPOART,6
+								END
+								STRINGA 17 30 2 
+								BEGIN
+								 KEY "CODICE GRUPPO"
+								 PROMPT 3 1 ""
+								 MESSAGE _USER,GRUPPOART,6|COPY,950
+								END
+							END
+
+							SECTION GRUPPI_CODART6 1 0 0 FILE LF_ANAMAG GROUP CODART
+								STRINGA 60 40 1
+								BEGIN
+									FLAGS "H"
+								  KEY "CATMER" 
+								  PROMPT 2 1 ""
+									MESSAGE RESET,8@
+								END							
+								SECTION H_GCODART7 1 1 1 GROUP 
+									STRINGA 16 12 2 
+									BEGIN
+										KEY "CODICE GRUPPO"
+										PROMPT 2 1 ""
+										MESSAGE _USER,CODGRUPPOART,7
+									END
+									STRINGA 17 30 2 
+									BEGIN
+									 KEY "CODICE GRUPPO"
+									 PROMPT 3 1 ""
+									 MESSAGE _USER,GRUPPOART,7|COPY,850
+									END
+								END
+
+								SECTION GRUPPI_CODART7 1 0 0 FILE LF_ANAMAG GROUP CODART
+									STRINGA 60 40 1
+									BEGIN
+										FLAGS "H"
+									  KEY "CATMER" 
+									  PROMPT 2 1 ""
+										MESSAGE RESET,7@
+									END							
+
+									SECTION H_GCODART8 1 1 1 GROUP 
+										STRINGA 16 12 2 
+										BEGIN
+											KEY "CODICE GRUPPO"
+											PROMPT 2 1 ""
+											MESSAGE _USER,CODGRUPPOART,8
+										END
+										STRINGA 17 30 2 
+										BEGIN
+										 KEY "CODICE GRUPPO"
+										 PROMPT 3 1 ""
+										 MESSAGE _USER,GRUPPOART,8|COPY,750
+										END
+									END
+
+									SECTION GRUPPI_CODART8 1 0 0 FILE LF_ANAMAG GROUP CODART
+										STRINGA 60 40 1
+										BEGIN
+											FLAGS "H"
+										  KEY "CATMER" 
+										  PROMPT 2 1 ""
+											MESSAGE RESET,6@
+										END							
+										SECTION H_ARTICOLO 1 1 1 GROUP
+											STRINGA 2020 12 2
+											BEGIN
+												KEY "CODICE articolo"
+												PROMPT 2 1 ""
+												FIELD CODART
+											END
+											STRINGA 21 30 2
+											BEGIN
+												KEY "DESCR.articolo"
+												PROMPT 3 1 ""
+												FIELD LF_ANAMAG->DESCR
+												MESSAGE COPY,650
+											END
+										END										
+
+										SECTION FILE_GIACENZE 1 1 0 FILE LF_MAG 
+											STRINGA 60 40 1
+											BEGIN
+												FLAGS "H"
+											  KEY "HGIAC" 
+											  PROMPT 2 1 ""
+												MESSAGE RESET,5@
+											END							
+											SECTION H_GLIVGIAC1 1 1 1 GROUP
+												STRINGA 31 50 1
+												BEGIN
+												  KEY "Livello giac" 
+												  PROMPT 2 1 ""
+													MESSAGE _USER,GRUPPOGIAC,1|COPY,550
+												END
+											END										
+
+											SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO
+												STRINGA 60 40 1
+												BEGIN
+													FLAGS "H"
+												  KEY "CATMER" 
+												  PROMPT 2 1 ""
+													MESSAGE RESET,4@
+												END							
+												SECTION H_GLIVGIAC2 1 1 1 GROUP
+													STRINGA 31 50 1
+													BEGIN
+													  KEY "Livello giac" 
+													  PROMPT 2 1 ""
+														MESSAGE _USER,GRUPPOGIAC,2|COPY,450
+													END
+												END										
+
+												SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO
+													STRINGA 60 40 1
+													BEGIN
+														FLAGS "H"
+													  KEY "CATMER" 
+													  PROMPT 2 1 ""
+														MESSAGE RESET,3@
+													END							
+
+													SECTION H_GLIVGIAC3 1 1 1 GROUP
+														STRINGA 31 50 1
+														BEGIN
+														  KEY "Livello giac" 
+														  PROMPT 2 1 ""
+															MESSAGE _USER,GRUPPOGIAC,3|COPY,350
+														END
+													END										
+
+													SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO
+														STRINGA 60 40 1
+														BEGIN
+															FLAGS "H"
+														  KEY "CATMER" 
+														  PROMPT 2 1 ""
+															MESSAGE RESET,2@
+														END							
+
+														SECTION H_GLIVGIAC4 1 1 1 GROUP
+															STRINGA 31 50 1
+															BEGIN
+															  KEY "Livello giac" 
+															  PROMPT 2 1 ""
+																MESSAGE _USER,GRUPPOGIAC,4|COPY,250
+															END
+														END										
+
+														SECTION GRUPPI_LIVGIAC4 1 0 0 FILE LF_MAG GROUP LIVELLO
+															STRINGA 60 40 1
+															BEGIN
+																FLAGS "H"
+															  KEY "MAGAZZ" 
+															  PROMPT 2 1 ""
+																MESSAGE RESET,1@
+															END							
+															SECTION H_MAGAZZINO 1 1 1 GROUP
+																STRINGA 60 40 1
+																BEGIN
+																  KEY "codice magazzino" 
+																  PROMPT 2 1 "Magazzino "
+																  FIELD 500@->s0
+																	MESSAGE COPY,150
+																END
+															END 
+
+															SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3]
+																SECTION H_DEPOSITO 1 0 0 GROUP
+																END
+																SECTION TOT_DEPOSITO 1 1 1 GROUP
+																		STRINGA 51 12 
+																		BEGIN
+																			KEY "CODICE"
+																			PROMPT 2 1 "    Deposito"
+																		END
+																		STRINGA 52 30 
+																		BEGIN
+																			KEY "descr"
+																			PROMPT 3 1 ""
+																			FIELD 501@->s0
+																		END
+																		STRINGA 53 3
+																		BEGIN
+																			KEY "UM"
+																			PROMPT 5 1 ""
+																			FIELD LF_UMART->UM
+																			MESSAGE COPY,153
+																		END
+																		NUMERO 41 12
+																		BEGIN
+																			KEY "GIAC"
+																			PROMPT 6 1 ""
+																			PICTURE "########,@##"
+																			MESSAGE _USER,GIAC|ADD,141
+																		END
+																		NUMERO 42 15
+																		BEGIN
+																			KEY "VAL1"
+																			PROMPT 7 1 ""
+																			PICTURE "##.###.###.##@"
+																			MESSAGE _USER,VAL1|ADD,142
+																		END
+																		NUMERO 82 12
+																		BEGIN
+																			KEY "VAL1M"
+																			PROMPT 8 1 ""
+																			PICTURE "###.###.##@"
+																			MESSAGE _NUMEXPR,#42/#41
+																			GROUP FG_COL1
+																		END
+																		NUMERO 43 15
+																		BEGIN
+																			KEY "VAL2"
+																			PROMPT 9 1 ""
+																			PICTURE "##.###.###.##@"
+																			MESSAGE _USER,VAL2|ADD,143
+																			GROUP FG_COL2
+																		END
+																		NUMERO 83 12
+																		BEGIN
+																			KEY "VAL2M"
+																			PROMPT 10 1 ""
+																			PICTURE "###.###.##@"
+																			MESSAGE _NUMEXPR,#43/#41
+																			GROUP FG_COL2
+																		END
+																		NUMERO 44 15
+																		BEGIN
+																			KEY "VAL3"
+																			PROMPT 11 1 ""
+																			PICTURE "##.###.###.##@"
+																			MESSAGE _USER,VAL3|ADD,144
+																			GROUP FG_COL3
+																		END
+																		NUMERO 84 12
+																		BEGIN
+																			KEY "VAL3M"
+																			PROMPT 12 1 ""
+																			PICTURE "###.###.##@"
+																			MESSAGE _NUMEXPR,#44/#41
+																			GROUP FG_COL3
+																		END
+																		NUMERO 45 15
+																		BEGIN
+																			KEY "VAL4"
+																			PROMPT 13 1 ""
+																			PICTURE "##.###.###.##@"
+																			MESSAGE _USER,VAL4|ADD,145
+																			GROUP FG_COL4
+																		END
+																		NUMERO 85 12
+																		BEGIN
+																			KEY "VAL4M"
+																			PROMPT 14 1 ""
+																			PICTURE "###.###.##@"
+																			MESSAGE _NUMEXPR,#45/#41
+																			GROUP FG_COL4
+																		END
+																		NUMERO 46 15
+																		BEGIN
+																			KEY "VAL5"
+																			PROMPT 15 1 ""
+																			PICTURE "##.###.###.##@"
+																			MESSAGE _USER,VAL5|ADD,146
+																			GROUP FG_COL5
+																		END
+																		NUMERO 86 12
+																		BEGIN
+																			KEY "VAL5M"
+																			PROMPT 16 1 ""
+																			PICTURE "###.###.##@"
+																			MESSAGE _NUMEXPR,#46/#41
+																			GROUP FG_COL5
+																		END
+																		NUMERO 47 15
+																		BEGIN
+																			KEY "VAL6"
+																			PROMPT 17 1 ""
+																			PICTURE "##.###.###.##@"
+																			MESSAGE _USER,VAL6|ADD,147
+																			GROUP FG_COL6
+																		END
+																		NUMERO 87 12
+																		BEGIN
+																			KEY "VAL6M"
+																			PROMPT 18 1 ""
+																			PICTURE "###.###.##@"
+																			MESSAGE _NUMEXPR,#47/#41
+																			GROUP FG_COL6
+																		END
+																END // depositi dello stesso magazzino
+															END // MAGAZZ
+
+															SECTION TOT_MAGAZZINO 1 1 1 GROUP
+																STRINGA 150 30 2
+																BEGIN
+																  KEY "Magazzino" 
+																  PROMPT 3 1 ""
+																END
+																STRINGA 151 12 2
+																BEGIN
+																  KEY "Magazzino" 
+																  PROMPT 2 1 " Totale mag."
+																END
+																STRINGA 153 3
+																BEGIN
+																	KEY "UM"
+																	PROMPT 5 1 ""
+																	MESSAGE COPY,253
+																END
+																NUMERO 141 12
+																BEGIN
+																	KEY "GIAC"
+																	PROMPT 6 1 ""
+																	PICTURE "########,@##"
+																	MESSAGE ADD,241
+																	GROUP 1 
+																END
+																NUMERO 142 15
+																BEGIN
+																	KEY "VAL1"
+																	PROMPT 7 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE ADD,242
+																	GROUP 1
+																END
+																NUMERO 182 12
+																BEGIN
+																	KEY "VAL1"
+																	PROMPT 8 1 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#142/#141
+																	GROUP 1 FG_COL1
+																END
+																NUMERO 143 15
+																BEGIN
+																	KEY "VAL2"
+																	PROMPT 9 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE ADD,243
+																	GROUP 1 FG_COL2
+																END
+																NUMERO 183 12
+																BEGIN
+																	KEY "VAL1"
+																	PROMPT 10 1 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#143/#141
+																	GROUP 1 FG_COL2
+																END
+																NUMERO 144 15
+																BEGIN
+																	KEY "VAL3"
+																	PROMPT 11 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE ADD,244
+																	GROUP 1 FG_COL3
+																END
+																NUMERO 184 15
+																BEGIN
+																	KEY "VAL1"
+																	PROMPT 12 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _NUMEXPR,#144/#141
+																	GROUP 1 FG_COL3
+																END
+																NUMERO 145 12
+																BEGIN
+																	KEY "VAL4"
+																	PROMPT 13 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE ADD,245
+																	GROUP 1 FG_COL4
+																END
+																NUMERO 185 12
+																BEGIN
+																	KEY "VAL4"
+																	PROMPT 14 1 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#145/#141
+																	GROUP 1 FG_COL4
+																END
+																NUMERO 146 15
+																BEGIN
+																	KEY "VAL5"
+																	PROMPT 15 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE ADD,246 
+																	GROUP 1 FG_COL5
+																END
+																NUMERO 186 12
+																BEGIN
+																	KEY "VAL1"
+																	PROMPT 16 1 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#146/#141
+																	GROUP 1 FG_COL5
+																END
+																NUMERO 147 15
+																BEGIN
+																	KEY "VAL6"
+																	PROMPT 17 1 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE ADD,247
+																	GROUP 1 FG_COL6
+																END
+																NUMERO 187 12
+																BEGIN
+																	KEY "VAL6"
+																	PROMPT 18 1 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#147/#141
+																	GROUP 1 FG_COL6
+																END
+															END	// tot magazz
+	
+														END // GGIAC4
+														SECTION TOT_GLIVGIAC4 1 2 2 GROUP
+															STRINGA 1 255
+															BEGIN
+																KEY "sep"
+																PROMPT 6 1 ""
+																MESSAGE _USER,LINEATOTALI
+															END
+															STRINGA 250 35 2
+															BEGIN
+																PROMPT 3 2 ""
+															END
+															STRINGA 251 7 2
+															BEGIN
+															  KEY "Livello giac4" 
+															  PROMPT 2 2 " Totale"
+															END
+															STRINGA 253 3
+															BEGIN
+																KEY "UM"
+																PROMPT 5 2 ""
+																MESSAGE COPY,353
+															END
+															NUMERO 241 12
+															BEGIN
+																KEY "GIAC"
+																PROMPT 6 2 ""
+																PICTURE "########,@##"
+																MESSAGE ADD,341
+																GROUP 2
+															END
+															NUMERO 242 15
+															BEGIN
+																KEY "VAL1"
+																PROMPT 7 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,342
+																GROUP 2 
+															END
+															NUMERO 282 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 8 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#242/#241
+																GROUP 2 FG_COL1
+															END
+															NUMERO 243 15
+															BEGIN
+																KEY "VAL2"
+																PROMPT 9 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,343
+																GROUP 2 FG_COL2
+															END
+															NUMERO 283 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 10 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#243/#241
+																GROUP 2 FG_COL2
+															END
+															NUMERO 244 15
+															BEGIN
+																KEY "VAL3"
+																PROMPT 11 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,344
+																GROUP 2 FG_COL3
+															END
+															NUMERO 284 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 12 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#244/#241
+																GROUP 2 FG_COL3
+															END
+															NUMERO 245 15
+															BEGIN
+																KEY "COL4"
+																PROMPT 13 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,345
+																GROUP 2 FG_COL4
+															END
+															NUMERO 285 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 14 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#245/#241
+																GROUP 2 FG_COL4
+															END
+															NUMERO 246 15
+															BEGIN
+																KEY "COL5"
+																PROMPT 15 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,346
+																GROUP 2 FG_COL5
+															END
+															NUMERO 286 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 16 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#246/#241
+																GROUP 2 FG_COL5
+															END
+															NUMERO 247 15
+															BEGIN
+																KEY "giac"
+																PROMPT 17 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,347
+																GROUP 2 FG_COL6
+															END
+															NUMERO 287 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 18 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#246/#241
+																GROUP 2 FG_COL6
+															END
+														END	// tot ggiac4
+	
+													END // GGIAC3
+													SECTION TOT_GLIVGIAC3 1 2 2 GROUP
+														STRINGA 1 255
+														BEGIN
+															KEY "sep"
+															PROMPT 6 1 ""
+															MESSAGE _USER,LINEATOTALI
+														END
+														STRINGA 350 35 2
+														BEGIN
+														  KEY "" 
+														  PROMPT 3 2 ""
+														END
+														STRINGA 351 7 2
+														BEGIN
+														  KEY "" 
+														  PROMPT 2 2 " Totale"
+														END
+														STRINGA 353 3
+														BEGIN
+															KEY "UM"
+															PROMPT 5 2 ""
+															MESSAGE COPY,453
+														END
+														NUMERO 341 12
+														BEGIN
+															KEY "GIAC"
+															PROMPT 6 2 ""
+															PICTURE "########,@##"
+															MESSAGE ADD,441
+															GROUP 3
+														END
+														NUMERO 342 15
+														BEGIN
+															KEY "COL1"
+															PROMPT 7 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,442
+															GROUP 3
+														END
+														NUMERO 382 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 8 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#342/#341
+															GROUP 3 FG_COL1
+														END
+														NUMERO 343 15
+														BEGIN
+															KEY "COL2"
+															PROMPT 9 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,443
+															GROUP 3 FG_COL2
+														END
+														NUMERO 383 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 10 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#343/#341
+															GROUP 3 FG_COL2
+														END
+														NUMERO 344 15
+														BEGIN
+															KEY "COL3"
+															PROMPT 11 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,444
+															GROUP 3 FG_COL3
+														END
+														NUMERO 384 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 12 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#344/#341
+															GROUP 3 FG_COL3
+														END
+														NUMERO 345 15
+														BEGIN
+															KEY "COL4"
+															PROMPT 13 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,445
+															GROUP 3 FG_COL4
+														END
+														NUMERO 385 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 14 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#345/#341
+															GROUP 3 FG_COL4
+														END
+														NUMERO 346 15
+														BEGIN
+															KEY "COL5"
+															PROMPT 15 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,446
+															GROUP 3 FG_COL5
+														END
+														NUMERO 386 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 16 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#346/#341
+															GROUP 3 FG_COL5
+														END
+														NUMERO 347 15
+														BEGIN
+															KEY "COL6"
+															PROMPT 17 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,447
+															GROUP 3 FG_COL6
+														END
+														NUMERO 387 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 18 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#347/#341
+															GROUP 3 FG_COL6
+														END
+													END // tot ggiac3
+	
+												END // GGIAC2
+												SECTION TOT_GLIVGIAC2 1 2 2 GROUP
+													STRINGA 1 255
+													BEGIN
+														KEY "sep"
+														PROMPT 6 1 ""
+														MESSAGE _USER,LINEATOTALI
+													END
+													STRINGA 450 35 2
+													BEGIN
+													  KEY "" 
+													  PROMPT 3 2 ""
+													END
+													STRINGA 451 7 2
+													BEGIN
+													  KEY "" 
+													  PROMPT 2 2 " Totale"
+													END
+													STRINGA 453 3
+													BEGIN
+														KEY "UM"
+														PROMPT 5 2 ""
+														MESSAGE COPY,553
+													END
+													NUMERO 441 12
+													BEGIN
+														KEY "GIAC"
+														PROMPT 6 2 ""
+														PICTURE "########,@##"
+														MESSAGE ADD,541
+														GROUP 4
+													END
+													NUMERO 442 15
+													BEGIN
+														KEY "VAL1"
+														PROMPT 7 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,542
+														GROUP 4
+													END
+													NUMERO 482 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 8 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#442/#441
+														GROUP 4 FG_COL1
+													END
+													NUMERO 443 15
+													BEGIN
+														KEY "COL2"
+														PROMPT 9 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,543
+														GROUP 4 FG_COL2
+													END
+													NUMERO 483 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 10 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#443/#441
+														GROUP 4 FG_COL2
+													END
+													NUMERO 444 15
+													BEGIN
+														KEY "COL3"
+														PROMPT 11 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,544
+														GROUP 4 FG_COL3
+													END
+													NUMERO 484 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 12 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#444/#441
+														GROUP 4 FG_COL3
+													END
+													NUMERO 445 15
+													BEGIN
+														KEY "COL4"
+														PROMPT 13 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,545
+														GROUP 4 FG_COL4
+													END
+													NUMERO 485 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 14 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#445/#441
+														GROUP 4 FG_COL4
+													END
+													NUMERO 446 15
+													BEGIN
+														KEY "COL5"
+														PROMPT 15 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,546
+														GROUP 4 FG_COL5
+													END
+													NUMERO 486 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 16 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#446/#441
+														GROUP 4 FG_COL5
+													END
+													NUMERO 447 15
+													BEGIN
+														KEY "giac"
+														PROMPT 17 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,547
+														GROUP 4 FG_COL6
+													END
+													NUMERO 487 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#447/#441
+														GROUP 4 FG_COL6
+													END
+												END // tot ggiac2
+											END // GGIAC1
+											SECTION TOT_GLIVGIAC1 1 2 2 GROUP
+												STRINGA 1 255
+												BEGIN
+													KEY "sep"
+													PROMPT 6 1 ""
+													MESSAGE _USER,LINEATOTALI
+												END
+												STRINGA 550 35 2
+												BEGIN
+												  KEY "" 
+												  PROMPT 3 2 ""
+												END
+												STRINGA 551 7 2
+												BEGIN
+												  KEY "" 
+												  PROMPT 2 2 " Totale"
+												END
+												STRINGA 553 3
+												BEGIN
+													KEY "UM"
+													PROMPT 5 2 ""
+													MESSAGE COPY,653
+												END
+												NUMERO 541 12
+												BEGIN
+													KEY "GIAC"
+													PROMPT 6 2 ""
+													PICTURE "########,@##"
+													MESSAGE ADD,641
+													GROUP 5
+												END
+												NUMERO 542 15
+												BEGIN
+													KEY "VAL1"
+													PROMPT 7 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,642
+													GROUP 5
+												END
+												NUMERO 582 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 8 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#542/#541
+													GROUP 5 FG_COL1
+												END
+												NUMERO 543 15
+												BEGIN
+													KEY "COL2"
+													PROMPT 9 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,643
+													GROUP 5 FG_COL2
+												END
+												NUMERO 583 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 10 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#543/#541
+													GROUP 5 FG_COL2
+												END
+												NUMERO 544 15
+												BEGIN
+													KEY "COL3"
+													PROMPT 11 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,644
+													GROUP 5 FG_COL3
+												END
+												NUMERO 584 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 12 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#544/#541
+													GROUP 5 FG_COL3
+												END
+												NUMERO 545 15
+												BEGIN
+													KEY "COL4"
+													PROMPT 13 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,645
+													GROUP 5 FG_COL4
+												END
+												NUMERO 585 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 14 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#545/#541
+													GROUP 5 FG_COL4
+												END
+												NUMERO 546 15
+												BEGIN
+													KEY "COL5"
+													PROMPT 15 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,646
+													GROUP 5 FG_COL5
+												END
+												NUMERO 586 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 16 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#546/#541
+													GROUP 5 FG_COL5
+												END
+												NUMERO 547 15
+												BEGIN
+													KEY "giac"
+													PROMPT 17 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,647
+													GROUP 5 FG_COL6
+												END
+												NUMERO 587 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 18 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#547/#541
+													GROUP 5 FG_COL6
+												END
+											END	// tot ggiac1									
+
+										END // FILE GIACENZE
+										SECTION TOT_ARTICOLO 1 2 2 GROUP
+											STRINGA 1 255
+											BEGIN
+												KEY "sep"
+												PROMPT 6 1 ""
+												MESSAGE _USER,LINEATOTALI
+											END
+											STRINGA 650 30 2
+											BEGIN
+											  KEY "" 
+											  PROMPT 3 2 ""
+											END
+											STRINGA 651 12 2
+											BEGIN
+											  KEY "" 
+											  PROMPT 2 2 " Totale art."
+											END
+											STRINGA 653 3
+											BEGIN
+												KEY "UM"
+												PROMPT 5 2 ""
+												MESSAGE COPY,753
+											END
+											NUMERO 641 12
+											BEGIN
+												KEY "GIAC"
+												PROMPT 6 2 ""
+												PICTURE "########,@##"
+												MESSAGE ADD,741 
+												GROUP 6 
+											END
+											NUMERO 642 15
+											BEGIN
+												KEY "VAL1"
+												PROMPT 7 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,742
+												GROUP 6
+											END
+											NUMERO 682 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 8 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#642/#641
+												GROUP 6 FG_COL1
+											END
+											NUMERO 643 15
+											BEGIN
+												KEY "COL2"
+												PROMPT 9 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,743
+												GROUP 6  FG_COL2
+											END
+											NUMERO 683 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 10 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#643/#641
+												GROUP 6 FG_COL2
+											END
+											NUMERO 644 15
+											BEGIN
+												KEY "COL3"
+												PROMPT 11 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,744
+												GROUP 6 FG_COL3
+											END
+											NUMERO 684 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 12 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#644/#641
+												GROUP 6 FG_COL3
+											END
+											NUMERO 645 15
+											BEGIN
+												KEY "COL4"
+												PROMPT 13 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,745
+												GROUP 6  FG_COL4
+											END
+											NUMERO 685 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 14 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#645/#641
+												GROUP 6 FG_COL4
+											END
+											NUMERO 646 15
+											BEGIN
+												KEY "COL5"
+												PROMPT 15 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,746
+												GROUP 6 FG_COL5
+											END
+											NUMERO 686 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 16 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#646/#641
+												GROUP 6 FG_COL5
+											END
+											NUMERO 647 15
+											BEGIN
+												KEY "giac"
+												PROMPT 17 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,747
+												GROUP 6 FG_COL6
+											END
+											NUMERO 687 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 18 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#647/#641
+												GROUP 6 FG_COL6
+											END
+										END	// TOT ART
+
+									END // GART8
+									SECTION TOT_GART8 1 2 2 GROUP
+										STRINGA 1 255
+										BEGIN
+											KEY "sep"
+											PROMPT 6 1 ""
+											MESSAGE _USER,LINEATOTALI
+										END
+										STRINGA 750 34 2
+										BEGIN
+										  KEY "" 
+										  PROMPT 3 2 ""
+										END
+										STRINGA 751 8 2
+										BEGIN
+										  KEY "" 
+										  PROMPT 2 2 " Totale"
+										END
+										STRINGA 753 3
+										BEGIN
+											KEY "UM"
+											PROMPT 5 2 ""
+											MESSAGE COPY,853
+										END
+										NUMERO 741 12
+										BEGIN
+											KEY "GIAC"
+											PROMPT 6 2 ""
+											PICTURE "########,@##"
+											MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841
+											GROUP 7
+										END
+										NUMERO 742 15
+										BEGIN
+											KEY "VAL1"
+											PROMPT 7 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,842
+											GROUP 7
+										END
+										NUMERO 782 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 8 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#742/#741
+											GROUP 7 FG_COL1
+										END
+										NUMERO 743 15
+										BEGIN
+											KEY "COL2"
+											PROMPT 9 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,843
+											GROUP 7 FG_COL2
+										END
+										NUMERO 783 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 10 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#743/#741
+											GROUP 7 FG_COL2
+										END
+										NUMERO 744 15
+										BEGIN
+											KEY "COL3"
+											PROMPT 11 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,844
+											GROUP 7 FG_COL3
+										END
+										NUMERO 784 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 12 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#744/#741
+											GROUP 7 FG_COL3
+										END
+										NUMERO 745 15
+										BEGIN
+											KEY "COL4"
+											PROMPT 13 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,845
+											GROUP 7 FG_COL4
+										END
+										NUMERO 785 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 14 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#745/#741
+											GROUP 7 FG_COL4
+										END
+										NUMERO 746 15
+										BEGIN
+											KEY "COL5"
+											PROMPT 15 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,846
+											GROUP 7 FG_COL5
+										END
+										NUMERO 786 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 16 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#746/#741
+											GROUP 7 FG_COL5
+										END
+										NUMERO 747 15
+										BEGIN
+											KEY "COL6"
+											PROMPT 17 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,847
+											GROUP 7 FG_COL6
+										END
+										NUMERO 787 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 18 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#747/#741
+											GROUP 7 FG_COL6
+										END
+									END	// tot gart8
+
+								END // GART7
+								SECTION TOT_GART7 1 2 2 GROUP
+									STRINGA 1 255
+									BEGIN
+										KEY "sep"
+										PROMPT 6 1 ""
+										MESSAGE _USER,LINEATOTALI
+									END									
+									STRINGA 850 34 2
+									BEGIN
+									  KEY "" 
+									  PROMPT 3 2 ""
+									END
+									STRINGA 851 8 2
+									BEGIN
+									  KEY "" 
+									  PROMPT 2 2 " Totale"
+									END
+									STRINGA 853 3
+									BEGIN
+										KEY "UM"
+										PROMPT 5 2 ""
+										MESSAGE COPY,953
+									END
+									NUMERO 841 12
+									BEGIN
+										KEY "GIAC"
+										PROMPT 6 2 ""
+										PICTURE "########,@##"
+										MESSAGE ADD,941
+										GROUP 8
+									END
+									NUMERO 842 15
+									BEGIN
+										KEY "VAL1"
+										PROMPT 7 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,942
+										GROUP 8 
+									END
+									NUMERO 882 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 8 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#842/#841
+										GROUP 8 FG_COL1
+									END
+									NUMERO 843 15
+									BEGIN
+										KEY "COL2"
+										PROMPT 9 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,943
+										GROUP 8 FG_COL2
+									END
+									NUMERO 883 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 10 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#843/#841
+										GROUP 8 FG_COL2
+									END
+									NUMERO 844 15
+									BEGIN
+										KEY "COL3"
+										PROMPT 11 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,944
+										GROUP 8 FG_COL3
+									END
+									NUMERO 884 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 12 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#844/#841
+										GROUP 8 FG_COL3
+									END
+									NUMERO 845 15
+									BEGIN
+										KEY "COL4"
+										PROMPT 13 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,945
+										GROUP 8 FG_COL4
+									END
+									NUMERO 885 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 14 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#845/#841
+										GROUP 8 FG_COL4
+									END
+									NUMERO 846 15
+									BEGIN
+										KEY "COL5"
+										PROMPT 15 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,946
+										GROUP 8 FG_COL5
+									END
+									NUMERO 886 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 16 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#846/#841
+										GROUP 8 FG_COL5
+									END
+									NUMERO 847 15
+									BEGIN
+										KEY "giac"
+										PROMPT 17 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,947
+										GROUP 8 FG_COL6
+									END
+									NUMERO 887 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 18 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#847/#841
+										GROUP 8 FG_COL6
+									END
+								END	// tot gart7									
+
+							END // GART6
+							SECTION TOT_GART6 1 2 2 GROUP
+								STRINGA 1 255
+								BEGIN
+									KEY "sep"
+									PROMPT 6 1 ""
+									MESSAGE _USER,LINEATOTALI
+								END									
+								STRINGA 950 34 2
+								BEGIN
+								  KEY "" 
+								  PROMPT 3 2 ""
+								END
+								STRINGA 951 8 2
+								BEGIN
+								  KEY "" 
+								  PROMPT 2 2 " Totale"
+								END
+								STRINGA 953 3
+								BEGIN
+									KEY "UM"
+									PROMPT 5 2 ""
+									MESSAGE COPY,1053
+								END
+								NUMERO 941 12
+								BEGIN
+									KEY "GIAC"
+									PROMPT 6 2 ""
+									PICTURE "########,@##"
+									MESSAGE ADD,1041
+									GROUP 9
+								END
+								NUMERO 942 15
+								BEGIN
+									KEY "VAL1"
+									PROMPT 7 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1042
+									GROUP 9 
+								END
+								NUMERO 982 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 8 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#942/#941
+									GROUP 9 FG_COL1
+								END
+								NUMERO 943 15
+								BEGIN
+									KEY "COL2"
+									PROMPT 9 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1043
+									GROUP 9 FG_COL2
+								END
+								NUMERO 983 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 10 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#943/#941
+									GROUP 9 FG_COL2
+								END
+								NUMERO 944 15
+								BEGIN
+									KEY "COL3"
+									PROMPT 11 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1044
+									GROUP 9  FG_COL3
+								END
+								NUMERO 984 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 12 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#944/#941
+									GROUP 9 FG_COL3
+								END
+								NUMERO 945 15
+								BEGIN
+									KEY "COL4"
+									PROMPT 13 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1045
+									GROUP 9 FG_COL4
+								END
+								NUMERO 985 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 14 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#945/#941
+									GROUP 9 FG_COL4
+								END
+								NUMERO 946 15
+								BEGIN
+									KEY "COL5"
+									PROMPT 15 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1046
+									GROUP 9  FG_COL5
+								END
+								NUMERO 986 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 16 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#946/#941
+									GROUP 9 FG_COL5
+								END
+								NUMERO 947 15
+								BEGIN
+									KEY "giac"
+									PROMPT 17 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1047
+									GROUP 9 FG_COL6
+								END
+								NUMERO 987 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 18 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#947/#941
+									GROUP 9 FG_COL6
+								END
+							END	// tot gart6
+
+						END // GART5
+						SECTION TOT_GART5 1 2 2 GROUP
+							STRINGA 1 255
+							BEGIN
+								KEY "sep"
+								PROMPT 6 1 ""
+								MESSAGE _USER,LINEATOTALI
+							END									
+							STRINGA 1050 34 2
+							BEGIN
+							  KEY "" 
+							  PROMPT 3 2 ""
+							END
+							STRINGA 1051 8 2
+							BEGIN
+							  KEY "" 
+							  PROMPT 2 2 " Totale"
+							END
+							STRINGA 1053 3
+							BEGIN
+								KEY "UM"
+								PROMPT 5 2 ""
+								MESSAGE COPY,1153
+							END
+							NUMERO 1041 12
+							BEGIN
+								KEY "GIAC"
+								PROMPT 6 2 ""
+								PICTURE "########,@##"
+								MESSAGE ADD,1141
+								GROUP 10
+							END
+							NUMERO 1042 15
+							BEGIN
+								KEY "VAL1"
+								PROMPT 7 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1142
+								GROUP 10 
+							END
+							NUMERO 1082 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 8 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1042/#1041
+								GROUP FG_COL1
+							END
+							NUMERO 1043 15
+							BEGIN
+								KEY "COL2"
+								PROMPT 9 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1143
+								GROUP 10 FG_COL2
+							END
+							NUMERO 1083 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 10 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1043/#1041
+								GROUP FG_COL2
+							END
+							NUMERO 1044 15
+							BEGIN
+								KEY "COL3"
+								PROMPT 11 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1144
+								GROUP 10  FG_COL3
+							END
+							NUMERO 1084 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 12 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1044/#1041
+								GROUP FG_COL3
+							END
+							NUMERO 1045 15
+							BEGIN
+								KEY "COL4"
+								PROMPT 13 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1145
+								GROUP 10 FG_COL4
+							END
+							NUMERO 1085 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 14 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1045/#1041
+								GROUP FG_COL4
+							END
+							NUMERO 1046 15
+							BEGIN
+								KEY "COL5"
+								PROMPT 15 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1146
+								GROUP 10  FG_COL5
+							END
+							NUMERO 1086 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 16 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1046/#1041
+								GROUP FG_COL5
+							END
+							NUMERO 1047 15
+							BEGIN
+								KEY "giac"
+								PROMPT 17 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1147
+								GROUP 10 FG_COL6
+							END
+							NUMERO 1087 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 18 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1047/#1041
+								GROUP FG_COL6
+							END
+						END // tot gart5
+
+					END // GART4
+					SECTION TOT_GART4 1 2 2 GROUP
+						STRINGA 1 255
+						BEGIN
+							KEY "sep"
+							PROMPT 6 1 ""
+							MESSAGE _USER,LINEATOTALI
+						END									
+						STRINGA 1150 34 2
+						BEGIN
+						  KEY "" 
+						  PROMPT 3 2 ""
+						END
+						STRINGA 1151 8 2
+						BEGIN
+						  KEY "" 
+						  PROMPT 2 2 " Totale"
+						END
+						STRINGA 1153 3
+						BEGIN
+							KEY "UM"
+							PROMPT 5 2 ""
+							MESSAGE COPY,1253
+						END
+						NUMERO 1141 12
+						BEGIN
+							KEY "GIAC"
+							PROMPT 6 2 ""
+							PICTURE "########,@##"
+							MESSAGE ADD,1241
+							GROUP 11
+						END
+						NUMERO 1142 15
+						BEGIN
+							KEY "VAL1"
+							PROMPT 7 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1242
+							GROUP 11
+						END
+						NUMERO 1182 12
+						BEGIN
+							KEY "VAL_MEDIO"
+							PROMPT 8 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1142/#1141
+							GROUP FG_COL1
+						END
+						NUMERO 1143 15
+						BEGIN
+							KEY "COL2"
+							PROMPT 9 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1243
+							GROUP 11 FG_COL2
+						END
+						NUMERO 1183 12
+						BEGIN
+							KEY "VAL_MEDIO"
+							PROMPT 10 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1143/#1141
+							GROUP FG_COL2
+						END
+						NUMERO 1144 15
+						BEGIN
+							KEY "COL3"
+							PROMPT 11 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1244
+							GROUP 11 FG_COL3
+						END
+						NUMERO 1184 12
+						BEGIN
+							KEY "VAL_MEDIO"
+							PROMPT 12 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1144/#1141
+							GROUP FG_COL3
+						END
+						NUMERO 1145 15
+						BEGIN
+							KEY "COL4"
+							PROMPT 13 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1245
+							GROUP 11 FG_COL4
+						END
+						NUMERO 1185 12
+						BEGIN
+							KEY "VAL_MEDIO"
+							PROMPT 14 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1145/#1141
+							GROUP FG_COL4
+						END
+						NUMERO 1146 15
+						BEGIN
+							KEY "COL5"
+							PROMPT 15 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1246
+							GROUP 11 FG_COL5
+						END
+						NUMERO 1186 12
+						BEGIN
+							KEY "VAL_MEDIO"
+							PROMPT 16 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1146/#1141
+							GROUP FG_COL5
+						END
+						NUMERO 1147 15
+						BEGIN
+							KEY "giac"
+							PROMPT 17 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1247
+							GROUP 11 FG_COL6
+						END
+						NUMERO 1187 12
+						BEGIN
+							KEY "VAL_MEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1147/#1141
+							GROUP FG_COL6
+						END
+					END	// tot gart4
+
+				END // GART3
+				SECTION TOT_GART3 1 2 2 GROUP
+					STRINGA 1 255
+					BEGIN
+						KEY "sep"
+						PROMPT 6 1 ""
+						MESSAGE _USER,LINEATOTALI
+					END									
+					STRINGA 1250 34 2
+					BEGIN
+					  KEY "" 
+					  PROMPT 3 2 ""
+					END
+					STRINGA 1251 8 2
+					BEGIN
+					  KEY "" 
+					  PROMPT 2 2 " Totale"
+					END
+					STRINGA 1253 3
+					BEGIN
+						KEY "UM"
+						PROMPT 5 2 ""
+						MESSAGE COPY,1353
+					END
+					NUMERO 1241 12
+					BEGIN
+						KEY "GIAC"
+						PROMPT 6 2 ""
+						PICTURE "########,@##"
+						MESSAGE ADD,1341
+						GROUP 12
+					END
+					NUMERO 1242 15
+					BEGIN
+						KEY "VAL1"
+						PROMPT 7 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1342
+						GROUP 12 
+					END
+					NUMERO 1282 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1242/#1241
+						GROUP 12 FG_COL1
+					END
+					NUMERO 1243 15
+					BEGIN
+						KEY "COL2"
+						PROMPT 8 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1343
+						GROUP 12 FG_COL2
+					END
+					NUMERO 1283 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1243/#1241
+						GROUP 12 FG_COL2
+					END
+					NUMERO 1244 15
+					BEGIN
+						KEY "COL3"
+						PROMPT 9 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1344
+						GROUP 12 FG_COL3
+					END
+					NUMERO 1284 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1244/#1241
+						GROUP 12 FG_COL3
+					END
+					NUMERO 1245 15
+					BEGIN
+						KEY "COL4"
+						PROMPT 10 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1345
+						GROUP 12 FG_COL4
+					END
+					NUMERO 1285 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1245/#1241
+						GROUP 12 FG_COL4
+					END
+					NUMERO 1246 15
+					BEGIN
+						KEY "COL5"
+						PROMPT 11 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1346
+						GROUP 12 FG_COL5
+					END
+					NUMERO 1286 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1246/#1241
+						GROUP 12 FG_COL5
+					END
+					NUMERO 1247 15
+					BEGIN
+						KEY "giac"
+						PROMPT 12 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1347
+						GROUP 12 FG_COL6
+					END
+					NUMERO 1287 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1247/#1241
+						GROUP 12 FG_COL6
+					END
+				END	// tot gart3
+
+			END // GART2
+			SECTION TOT_GART2 1 2 2 GROUP
+				STRINGA 1 255
+				BEGIN
+					KEY "sep"
+					PROMPT 6 1 ""
+					MESSAGE _USER,LINEATOTALI
+				END									
+				STRINGA 1350 34 2
+				BEGIN
+				  KEY "" 
+				  PROMPT 3 2 ""
+				END
+				STRINGA 1351 8 2
+				BEGIN
+				  KEY "" 
+				  PROMPT 2 2 " Totale"
+				END
+				STRINGA 1353 3
+				BEGIN
+					KEY "UM"
+					PROMPT 5 2 ""
+					MESSAGE COPY,1453
+				END
+				NUMERO 1341 12
+				BEGIN
+					KEY "GIAC"
+					PROMPT 6 2 ""
+					PICTURE "########,@##"
+					MESSAGE ADD,1441
+					GROUP 13
+				END
+				NUMERO 1342 15
+				BEGIN
+					KEY "VAL1"
+					PROMPT 7 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,1442
+					GROUP 13 
+				END
+				NUMERO 1382 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 8 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1342/#1341
+					GROUP 13 FG_COL1
+				END
+				NUMERO 1343 15
+				BEGIN
+					KEY "COL2"
+					PROMPT 9 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,1443
+					GROUP 13 FG_COL2
+				END
+				NUMERO 1383 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 10 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1343/#1341
+					GROUP 13 FG_COL2
+				END
+				NUMERO 1344 15
+				BEGIN
+					KEY "COL3"
+					PROMPT 11 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,1444
+					GROUP 13 FG_COL3
+				END
+				NUMERO 1384 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 12 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1344/#1341
+					GROUP 13 FG_COL3
+				END
+				NUMERO 1345 15
+				BEGIN
+					KEY "COL4"
+					PROMPT 13 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE ADD,1445
+					GROUP 13 FG_COL4
+				END
+				NUMERO 1385 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 14 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1345/#1341
+					GROUP 13 FG_COL4
+				END
+				NUMERO 1346 15
+				BEGIN
+					KEY "COL5"
+					PROMPT 15 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE ADD,1446
+					GROUP 13 FG_COL5
+				END
+				NUMERO 1386 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 16 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1346/#1341
+					GROUP 13 FG_COL5
+				END
+				NUMERO 1347 15
+				BEGIN
+					KEY "giac"
+					PROMPT 17 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE ADD,1447
+					GROUP 13 FG_COL6
+				END
+				NUMERO 1387 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 18 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1347/#1341
+					GROUP 13 FG_COL6
+				END
+			END	// tot gart2
+
+		END // GART1
+		SECTION TOT_GART1 1 2 2 GROUP
+			STRINGA 1 255
+			BEGIN
+				KEY "sep"
+				PROMPT 6 1 ""
+				MESSAGE _USER,LINEATOTALI
+			END									
+			STRINGA 1450 34 2
+			BEGIN
+			  KEY "" 
+			  PROMPT 3 2 ""
+			END
+			STRINGA 1451 8 2
+			BEGIN
+			  KEY "" 
+			  PROMPT 2 2 " Totale"
+			END
+			STRINGA 1453 3
+			BEGIN
+				KEY "UM"
+				PROMPT 5 2 ""
+				MESSAGE COPY,1553
+			END
+			NUMERO 1441 12
+			BEGIN
+				KEY "GIAC"
+				PROMPT 6 2 ""
+				PICTURE "########,@##"
+				MESSAGE ADD,1541
+				GROUP 14 
+			END
+			NUMERO 1442 15
+			BEGIN
+				KEY "VAL1"
+				PROMPT 7 2 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,1542
+				GROUP 14 
+			END
+			NUMERO 1482 12
+			BEGIN
+				KEY "VALMEDIO"
+				PROMPT 8 2 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#1442/#1441
+				GROUP 14 FG_COL1
+			END
+			NUMERO 1443 15
+			BEGIN
+				KEY "COL2"
+				PROMPT 9 2 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,1543
+				GROUP 14 FG_COL2
+			END
+			NUMERO 1483 12
+			BEGIN
+				KEY "VALMEDIO"
+				PROMPT 10 2 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#1443/#1441
+				GROUP 14 FG_COL2
+			END
+			NUMERO 1444 15
+			BEGIN
+				KEY "COL3"
+				PROMPT 11 2 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,1544
+				GROUP 14  FG_COL3
+			END
+			NUMERO 1484 12
+			BEGIN
+				KEY "VALMEDIO"
+				PROMPT 12 2 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#1444/#1441
+				GROUP 14 FG_COL3
+			END
+			NUMERO 1445 15
+			BEGIN
+				KEY "COL4"
+				PROMPT 13 2 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,1545
+				GROUP 14 FG_COL4
+			END
+			NUMERO 1485 12
+			BEGIN
+				KEY "VALMEDIO"
+				PROMPT 14 2 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#1445/#1441
+				GROUP 14 FG_COL4
+			END
+			NUMERO 1446 15
+			BEGIN
+				KEY "COL5"
+				PROMPT 15 2 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,1546
+				GROUP 14  FG_COL5
+			END
+			NUMERO 1486 12
+			BEGIN
+				KEY "VALMEDIO"
+				PROMPT 16 2 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#1446/#1441
+				GROUP 14 FG_COL5
+			END
+			NUMERO 1447 15
+			BEGIN
+				KEY "giac"
+				PROMPT 17 2 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,1547
+				GROUP 14 FG_COL6
+			END
+			NUMERO 1487 12
+			BEGIN
+				KEY "VALMEDIO"
+				PROMPT 18 2 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#1447/#1441
+				GROUP 14 FG_COL6
+			END
+		END	// tot gart1
+
+	END // GRUPPI_CATMER 
+	SECTION TOT_CATMER 1 2 2 GROUP
+		STRINGA 1 255
+		BEGIN
+			KEY "sep"
+			PROMPT 6 1 ""
+			MESSAGE _USER,LINEATOTALI
+		END									
+		STRINGA 1550 34 2
+		BEGIN
+		  KEY "" 
+		  PROMPT 3 2 ""
+		END
+		STRINGA 1551 8 2
+		BEGIN
+		  KEY "" 
+		  PROMPT 2 2 " Totale"
+		END
+		STRINGA 1553 3
+		BEGIN
+			KEY "UM"
+			PROMPT 5 2 ""
+		END
+		NUMERO 1541 12
+		BEGIN
+			KEY "GIAC"
+			PROMPT 6 2 ""
+			PICTURE "########,@##"
+			GROUP 15
+		END
+		NUMERO 1542 15
+		BEGIN
+			KEY "VAL1"
+			PROMPT 7 2 ""
+			PICTURE "##.###.###.##@"
+			GROUP 15 
+		END
+		NUMERO 1582 12
+		BEGIN
+			KEY "VALMEDIO"
+			PROMPT 8 2 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#1542/#1541
+			GROUP 15 FG_COL1
+		END
+		NUMERO 1543 15
+		BEGIN
+			KEY "COL2"
+			PROMPT 9 2 ""
+			PICTURE "##.###.###.##@"
+			GROUP 15 FG_COL2
+		END
+		NUMERO 1583 12
+		BEGIN
+			KEY "VALMEDIO"
+			PROMPT 10 2 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#1543/#1541
+			GROUP 15 FG_COL2
+		END
+		NUMERO 1544 15
+		BEGIN
+			KEY "COL3"
+			PROMPT 11 2 ""
+			PICTURE "##.###.###.##@"
+			GROUP 15  FG_COL3
+		END
+		NUMERO 1584 12
+		BEGIN
+			KEY "VALMEDIO"
+			PROMPT 12 2 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#1544/#1541
+			GROUP 15 FG_COL3
+		END
+		NUMERO 1545 15
+		BEGIN
+			KEY "COL4"
+			PROMPT 13 2 ""
+			PICTURE "##.###.###.##@"
+			GROUP 15 FG_COL4
+		END
+		NUMERO 1585 12
+		BEGIN
+			KEY "VALMEDIO"
+			PROMPT 14 2 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#1545/#1541
+			GROUP 15 FG_COL4
+		END
+		NUMERO 1546 15
+		BEGIN
+			KEY "COL5"
+			PROMPT 15 2 ""
+			PICTURE "##.###.###.##@"
+			GROUP 15  FG_COL5
+		END
+		NUMERO 1586 12
+		BEGIN
+			KEY "VALMEDIO"
+			PROMPT 16 2 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#1546/#1541
+			GROUP 15 FG_COL5
+		END
+		NUMERO 1547 15
+		BEGIN
+			KEY "COL6"
+			PROMPT 17 2 ""
+			PICTURE "##.###.###.##@"
+			GROUP 15 FG_COL6
+		END
+		NUMERO 1587 12
+		BEGIN
+			KEY "VALMEDIO"
+			PROMPT 18 2 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#1547/#1541
+			GROUP 15 FG_COL6
+		END
+	END	// tot catmerc
+
+END // section body, loop anamag
+
+SECTION FOOTER ODD 2
+	STRINGA 100
+	BEGIN
+		KEY "NUMP"
+		PROMPT 50 1 "--------------"
+	END
+
+	NUMERO 101
+	BEGIN
+		KEY "NUMPAGE"
+		PROMPT 50 2 ""
+		MESSAGE _PAGENO
+		PICTURE "-###-"
+	END
+
+END // fine footer
+END // fine form
diff --git a/mg/mg4200b.frm b/mg/mg4200b.frm
new file mode 100755
index 000000000..40e5cb275
--- /dev/null
+++ b/mg/mg4200b.frm
@@ -0,0 +1,2457 @@
+#include "mg4frm.h"
+USE LF_MAG KEY 2
+JOIN LF_ANAMAG TO LF_MAG INTO CODART==CODART
+JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3]
+JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG
+JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
+END
+	
+DESCRIPTION
+BEGIN
+    47->* "Anagrafica articoli"
+    109->* "Archivio Giacenze"
+    MAG->* "Tabella magazzini"
+    49->* "Unità di misura articoli"
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    CARATTERE "X"
+    INIZIALE 5 2
+    FINALE 133
+END
+
+SECTION HEADER ODD 5
+
+STRINGA 1 40 1
+BEGIN
+ KEY "nome ditta"
+ PROMPT  1 1 "Ditta "
+ MESSAGE _DITTA, !RAGSOC
+END
+
+STRINGA 2 10
+BEGIN
+ KEY "Data"
+ PROMPT  120 1 "Data "
+ MESSAGE _TODAY
+END
+
+NUMERO 3 7
+BEGIN
+ KEY "Nr. pagina"
+ PROMPT  137 1 "Pagina "
+ MESSAGE _PAGENO
+END
+
+NUMERO 4 32
+BEGIN
+ KEY "Intestazione stampa"
+ PROMPT  45 2 "Stampa inventario"
+END
+
+STRINGA 5 146
+BEGIN
+  KEY "Separatore (iniziale)"
+  PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+END
+
+	LIST FF_ENABLECOLS 
+	BEGIN
+		FLAGS "H"
+		ITEM "|only one, "
+		ITEM "1|only one, "
+		MESSAGE DISABLE,FG_COL1@|DISABLE,FG_COL2@|DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "2|two"
+		MESSAGE DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "3|three"
+		MESSAGE DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "4|four"
+		MESSAGE DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "5|five"
+		MESSAGE DISABLE,FG_COL6@
+		ITEM "6|six"
+	END
+
+	STRINGA 6 20
+	BEGIN
+	  KEY "H1"
+		PROMPT 2 4 "Codice"
+	END
+	STRINGA 7 40
+	BEGIN
+	  KEY "H1"
+		PROMPT 24 4 "Descrizione"
+	END
+	STRINGA 7 40
+	BEGIN
+	  KEY "H1"
+		PROMPT 45 4 "UM"
+	END
+	STRINGA 8 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 55 4 "Giacenza"
+	END
+	STRINGA 8 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 71 4 "Valore"
+	END
+	STRINGA 9 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 84 4 "Val.unitario"
+	END
+	STRINGA 9 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 100 4 "Valore"
+		GROUP FG_COL2
+	END
+	STRINGA 10 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 113 4 "Val.unitario"
+		GROUP FG_COL2
+	END
+	STRINGA 10 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 129 4 "Valore"
+		GROUP FG_COL3
+	END
+	STRINGA 11 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 142 4 "Val.unitario"
+		GROUP FG_COL3
+	END
+	STRINGA 12 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 158 4 "Valore"
+		GROUP FG_COL4
+	END
+	STRINGA 13 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 171 4 "Val.unitario"
+		GROUP FG_COL4
+	END
+	STRINGA 14 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 187 4 "Valore"
+		GROUP FG_COL5
+	END
+	STRINGA 15 12
+	BEGIN
+		KEY "H1"
+		PROMPT 200 4 "Val.unitario"
+		GROUP FG_COL5
+	END
+	STRINGA 14 12
+	BEGIN
+	  KEY "H1"
+		PROMPT 216 4 "Valore"
+		GROUP FG_COL6
+	END
+	STRINGA 15 12
+	BEGIN
+		KEY "H1"
+		PROMPT 229 4 "Val.unitario"
+		GROUP FG_COL6
+	END
+STRINGA 17 146
+BEGIN
+  KEY "Separatore (iniziale)"
+  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+END
+
+END
+
+SECTION BODY ODD 0 COLUMNWISE
+
+	LIST FF_ENABLECOLS 
+	BEGIN
+		FLAGS "H"
+		ITEM "|only one, "
+		ITEM "1|only one, "
+		MESSAGE DISABLE,FG_COL2@|DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "2|two"
+		MESSAGE DISABLE,FG_COL3@|DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "3|three"
+		MESSAGE DISABLE,FG_COL4@|DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "4|four"
+		MESSAGE DISABLE,FG_COL5@|DISABLE,FG_COL6@
+		ITEM "5|five"
+		MESSAGE DISABLE,FG_COL6@
+		ITEM "6|six"
+	END
+
+	NUMBER FF_FLAGTOTQTA 1
+	BEGIN
+		FLAGS "H"
+	END
+	
+	STRINGA 60 40 1
+	BEGIN
+		FLAGS "H"
+	  KEY "MAGAZZ" 
+	  PROMPT 2 1 ""
+		MESSAGE RESET,1@
+	END							
+	SECTION H_MAGAZZINO 1 1 1 GROUP
+		STRINGA 60 40 1
+		BEGIN
+		  KEY "codice magazzino" 
+		  PROMPT 2 1 "Magazzino "
+		  FIELD 500@->s0
+			MESSAGE COPY,150
+		END
+	END 
+	SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3]
+		SECTION H_DEPOSITO 1 1 1 GROUP
+			STRINGA 60 40 1
+			BEGIN
+			  KEY "codice magazzino" 
+			  PROMPT 2 1 "Deposito "
+			  FIELD 501@->s0
+				MESSAGE COPY,50
+			END
+		END
+		SECTION GRUPPI_DEPOSITO 1 0 0 FILE LF_MAG GROUP CODMAG[1,5]
+			STRINGA 60 40 1
+			BEGIN
+				FLAGS "H"
+			  KEY "" 
+			  PROMPT 2 1 ""
+				MESSAGE RESET,14@
+			END
+			SECTION H_GCODART1 1 1 1 GROUP 
+				STRINGA 16 12 2 
+				BEGIN
+					KEY "CODICE GRUPPO"
+					PROMPT 2 1 ""
+					MESSAGE _USER,CODGRUPPOART,1
+				END
+				STRINGA 17 30 2 
+				BEGIN
+				 KEY "CODICE GRUPPO"
+				 PROMPT 3 1 ""
+				 MESSAGE _USER,GRUPPOART,1|COPY,1450
+				END
+			END
+
+			SECTION GRUPPI_CODART1 1 0 0 FILE LF_MAG GROUP CODART
+				STRINGA 60 40 1
+				BEGIN
+					FLAGS "H"
+				  KEY "CATMER" 
+				  PROMPT 2 1 ""
+					MESSAGE RESET,13@
+				END
+				SECTION H_GCODART2 1 1 1 GROUP 
+					STRINGA 16 12 2 
+					BEGIN
+						KEY "CODICE GRUPPO"
+						PROMPT 2 1 ""
+						MESSAGE _USER,CODGRUPPOART,2
+					END
+					STRINGA 17 30 2 
+					BEGIN
+					 KEY "CODICE GRUPPO"
+					 PROMPT 3 1 ""
+					 MESSAGE _USER,GRUPPOART,2|COPY,1350
+					END
+				END
+	
+				SECTION GRUPPI_CODART2 1 0 0 FILE LF_MAG GROUP CODART
+					STRINGA 60 40 1
+					BEGIN
+						FLAGS "H"
+					  KEY "CATMER" 
+					  PROMPT 2 1 ""
+						MESSAGE RESET,12@
+					END
+					SECTION H_GCODART3 1 1 1 GROUP 
+						STRINGA 16 12 2 
+						BEGIN
+							KEY "CODICE GRUPPO"
+							PROMPT 2 1 ""
+							MESSAGE _USER,CODGRUPPOART,3
+						END
+						STRINGA 17 30 2 
+						BEGIN
+						 KEY "CODICE GRUPPO"
+						 PROMPT 3 1 ""
+						 MESSAGE _USER,GRUPPOART,3|COPY,1250
+						END
+					END
+	
+					SECTION GRUPPI_CODART3 1 0 0 FILE LF_MAG GROUP CODART
+						STRINGA 60 40 1
+						BEGIN
+							FLAGS "H"
+						  KEY "CATMER" 
+						  PROMPT 2 1 ""
+							MESSAGE RESET,11@
+						END					
+						SECTION H_GCODART4 1 1 1 GROUP 
+							STRINGA 16 12 2 
+							BEGIN
+								KEY "CODICE GRUPPO"
+								PROMPT 2 1 ""
+								MESSAGE _USER,CODGRUPPOART,4
+							END
+							STRINGA 17 30 2 
+							BEGIN
+							 KEY "CODICE GRUPPO"
+							 PROMPT 3 1 ""
+							 MESSAGE _USER,GRUPPOART,4|COPY,1150
+							END
+						END
+	
+						SECTION GRUPPI_CODART4 1 0 0 FILE LF_MAG GROUP CODART
+							STRINGA 60 40 1
+							BEGIN
+								FLAGS "H"
+							  KEY "CATMER" 
+							  PROMPT 2 1 ""
+								MESSAGE RESET,10@
+							END
+							SECTION H_GCODART5 1 1 1 GROUP 
+								STRINGA 16 12 2 
+								BEGIN
+									KEY "CODICE GRUPPO"
+									PROMPT 2 1 ""
+									MESSAGE _USER,CODGRUPPOART,5
+								END
+								STRINGA 17 30 2 
+								BEGIN
+								 KEY "CODICE GRUPPO"
+								 PROMPT 3 1 ""
+								 MESSAGE _USER,GRUPPOART,5|COPY,1050
+								END
+							END
+	
+							SECTION GRUPPI_CODART5 1 0 0 FILE LF_MAG GROUP CODART
+								STRINGA 60 40 1
+								BEGIN
+									FLAGS "H"
+								  KEY "CATMER" 
+								  PROMPT 2 1 ""
+									MESSAGE RESET,9@
+								END							
+								SECTION H_GCODART6 1 1 2 GROUP 
+									STRINGA 16 12 2 
+									BEGIN
+										KEY "CODICE GRUPPO"
+										PROMPT 2 1 ""
+										MESSAGE _USER,CODGRUPPOART,6
+									END
+									STRINGA 17 30 2 
+									BEGIN
+									 KEY "CODICE GRUPPO"
+									 PROMPT 3 1 ""
+									 MESSAGE _USER,GRUPPOART,6|COPY,950
+									END
+								END
+	
+								SECTION GRUPPI_CODART6 1 0 0 FILE LF_MAG GROUP CODART
+									STRINGA 60 40 1
+									BEGIN
+										FLAGS "H"
+									  KEY "CATMER" 
+									  PROMPT 2 1 ""
+										MESSAGE RESET,8@
+									END							
+									SECTION H_GCODART7 1 1 1 GROUP 
+										STRINGA 16 12 2 
+										BEGIN
+											KEY "CODICE GRUPPO"
+											PROMPT 2 1 ""
+											MESSAGE _USER,CODGRUPPOART,7
+										END
+										STRINGA 17 30 2 
+										BEGIN
+										 KEY "CODICE GRUPPO"
+										 PROMPT 3 1 ""
+										 MESSAGE _USER,GRUPPOART,7|COPY,850
+										END
+									END
+	
+									SECTION GRUPPI_CODART7 1 0 0 FILE LF_MAG GROUP CODART
+										STRINGA 60 40 1
+										BEGIN
+											FLAGS "H"
+										  KEY "CATMER" 
+										  PROMPT 2 1 ""
+											MESSAGE RESET,7@
+										END							
+	
+										SECTION H_GCODART8 1 1 1 GROUP 
+											STRINGA 16 12 2 
+											BEGIN
+												KEY "CODICE GRUPPO"
+												PROMPT 2 1 ""
+												MESSAGE _USER,CODGRUPPOART,8
+											END
+											STRINGA 17 30 2 
+											BEGIN
+											 KEY "CODICE GRUPPO"
+											 PROMPT 3 1 ""
+											 MESSAGE _USER,GRUPPOART,8|COPY,750
+											END
+										END
+	
+										SECTION GRUPPI_CODART8 1 0 0 FILE LF_MAG GROUP CODART
+											STRINGA 60 40 1
+											BEGIN
+												FLAGS "H"
+											  KEY "CATMER" 
+											  PROMPT 2 1 ""
+												MESSAGE RESET,6@
+											END							
+											SECTION H_ARTICOLO 1 1 1 GROUP
+												STRINGA 2020 12 2
+												BEGIN
+													KEY "CODICE articolo"
+													PROMPT 2 1 ""
+													FIELD CODART
+												END
+												STRINGA 21 30 2
+												BEGIN
+													KEY "DESCR.articolo"
+													PROMPT 3 1 ""
+													FIELD LF_ANAMAG->DESCR
+													MESSAGE COPY,650
+												END
+											END										
+
+											SECTION ARTICOLO 1 0 0 FILE LF_MAG GROUP CODART
+												STRINGA 60 40 1
+												BEGIN
+													FLAGS "H"
+												  KEY "" 
+												  PROMPT 2 1 ""
+													MESSAGE RESET,5@
+												END							
+												SECTION H_GLIVGIAC1 1 1 1 GROUP
+													STRINGA 31 50 1
+													BEGIN
+													  KEY "Livello giac" 
+													  PROMPT 2 1 ""
+														MESSAGE _USER,GRUPPOGIAC,1|COPY,550
+													END
+												END										
+												SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO
+													STRINGA 60 40 1
+													BEGIN
+														FLAGS "H"
+													  KEY "CATMER" 
+													  PROMPT 2 1 ""
+														MESSAGE RESET,4@
+													END							
+													SECTION H_GLIVGIAC2 1 1 1 GROUP
+														STRINGA 31 50 1
+														BEGIN
+														  KEY "Livello giac" 
+														  PROMPT 2 1 ""
+															MESSAGE _USER,GRUPPOGIAC,2|COPY,450
+														END
+													END										
+		
+													SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO
+														STRINGA 60 40 1
+														BEGIN
+															FLAGS "H"
+														  KEY "CATMER" 
+														  PROMPT 2 1 ""
+															MESSAGE RESET,3@
+														END							
+		
+														SECTION H_GLIVGIAC3 1 1 1 GROUP
+															STRINGA 31 50 1
+															BEGIN
+															  KEY "Livello giac" 
+															  PROMPT 2 1 ""
+																MESSAGE _USER,GRUPPOGIAC,3|COPY,350
+															END
+														END										
+
+														SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO
+															STRINGA 60 40 1
+															BEGIN
+																FLAGS "H"
+															  KEY "AAA" 
+															  PROMPT 2 1 ""
+																MESSAGE RESET,2@
+															END							
+					
+															SECTION H_GLIVGIAC4 1 1 1 GROUP
+															END // GGIAC4
+
+															SECTION TOT_GLIVGIAC4 1 2 2 GROUP
+																STRINGA 1 255
+																BEGIN
+																	KEY "sep"
+																	PROMPT 6 1 ""
+																	MESSAGE _USER,LINEATOTALI
+																END
+																STRINGA 250 35 2
+																BEGIN
+																	PROMPT 3 2 ""
+																END
+																STRINGA 251 7 2
+																BEGIN
+																  KEY "Livello giac4" 
+																  PROMPT 2 2 " Totale"
+																END
+																STRINGA 253 3
+																BEGIN
+																	KEY "UM"
+																	PROMPT 5 2 ""
+																	FIELD LF_UMART->UM
+																	MESSAGE COPY,353
+																END
+																NUMERO 241 12
+																BEGIN
+																	KEY "GIAC"
+																	PROMPT 6 2 ""
+																	PICTURE "########,@##"
+																	FIELD LF_MAG->GIAC
+																	MESSAGE ADD,341
+																	GROUP 2
+																END
+																NUMERO 242 15
+																BEGIN
+																	KEY "VAL1"
+																	PROMPT 7 2 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _USER,VAL1|ADD,342
+																	GROUP 2 
+																END
+																NUMERO 282 12
+																BEGIN
+																	KEY "VAL_MEDIO"
+																	PROMPT 8 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#242/#241
+																	GROUP 2 FG_COL1
+																END
+																NUMERO 243 15
+																BEGIN
+																	KEY "VAL2"
+																	PROMPT 9 2 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _USER,VAL2|ADD,343
+																	GROUP 2 FG_COL2
+																END
+																NUMERO 283 12
+																BEGIN
+																	KEY "VAL_MEDIO"
+																	PROMPT 10 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#243/#241
+																	GROUP 2 FG_COL2
+																END
+																NUMERO 244 15
+																BEGIN
+																	KEY "VAL3"
+																	PROMPT 11 2 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _USER,VAL3|ADD,344
+																	GROUP 2 FG_COL3
+																END
+																NUMERO 284 12
+																BEGIN
+																	KEY "VAL_MEDIO"
+																	PROMPT 12 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#244/#241
+																	GROUP 2 FG_COL3
+																END
+																NUMERO 245 15
+																BEGIN
+																	KEY "COL4"
+																	PROMPT 13 2 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _USER,VAL4|ADD,345
+																	GROUP 2 FG_COL4
+																END
+																NUMERO 285 12
+																BEGIN
+																	KEY "VAL_MEDIO"
+																	PROMPT 14 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#245/#241
+																	GROUP 2 FG_COL4
+																END
+																NUMERO 246 15
+																BEGIN
+																	KEY "COL5"
+																	PROMPT 15 2 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _USER,VAL5|ADD,346
+																	GROUP 2 FG_COL5
+																END
+																NUMERO 286 12
+																BEGIN
+																	KEY "VAL_MEDIO"
+																	PROMPT 16 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#246/#241
+																	GROUP 2 FG_COL5
+																END
+																NUMERO 247 15
+																BEGIN
+																	KEY "COL6"
+																	PROMPT 17 2 ""
+																	PICTURE "##.###.###.##@"
+																	MESSAGE _USER,VAL6|ADD,347
+																	GROUP 2 FG_COL6
+																END
+																NUMERO 287 12
+																BEGIN
+																	KEY "VAL_MEDIO"
+																	PROMPT 18 2 ""
+																	PICTURE "###.###.##@"
+																	MESSAGE _NUMEXPR,#246/#241
+																	GROUP 2 FG_COL6
+																END
+															END	// tot ggiac4
+		
+														END // GGIAC3
+														SECTION TOT_GLIVGIAC3 1 2 2 GROUP
+															STRINGA 1 255
+															BEGIN
+																KEY "sep"
+																PROMPT 6 1 ""
+																MESSAGE _USER,LINEATOTALI
+															END
+															STRINGA 350 35 2
+															BEGIN
+															  KEY "" 
+															  PROMPT 3 2 ""
+															END
+															STRINGA 351 7 2
+															BEGIN
+															  KEY "" 
+															  PROMPT 2 2 " Totale"
+															END
+															STRINGA 353 3
+															BEGIN
+																KEY "UM"
+																PROMPT 5 2 ""
+																MESSAGE COPY,453
+															END
+															NUMERO 341 12
+															BEGIN
+																KEY "GIAC"
+																PROMPT 6 2 ""
+																PICTURE "########,@##"
+																MESSAGE ADD,441
+																GROUP 3
+															END
+															NUMERO 342 15
+															BEGIN
+																KEY "COL1"
+																PROMPT 7 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,442
+																GROUP 3
+															END
+															NUMERO 382 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 8 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#342/#341
+																GROUP 3 FG_COL1
+															END
+															NUMERO 343 15
+															BEGIN
+																KEY "COL2"
+																PROMPT 9 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,443
+																GROUP 3 FG_COL2
+															END
+															NUMERO 383 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 10 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#343/#341
+																GROUP 3 FG_COL2
+															END
+															NUMERO 344 15
+															BEGIN
+																KEY "COL3"
+																PROMPT 11 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,444
+																GROUP 3 FG_COL3
+															END
+															NUMERO 384 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 12 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#344/#341
+																GROUP 3 FG_COL3
+															END
+															NUMERO 345 15
+															BEGIN
+																KEY "COL4"
+																PROMPT 13 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,445
+																GROUP 3 FG_COL4
+															END
+															NUMERO 385 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 14 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#345/#341
+																GROUP 3 FG_COL4
+															END
+															NUMERO 346 15
+															BEGIN
+																KEY "COL5"
+																PROMPT 15 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,446
+																GROUP 3 FG_COL5
+															END
+															NUMERO 386 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 16 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#346/#341
+																GROUP 3 FG_COL5
+															END
+															NUMERO 347 15
+															BEGIN
+																KEY "COL6"
+																PROMPT 17 2 ""
+																PICTURE "##.###.###.##@"
+																MESSAGE ADD,447
+																GROUP 3 FG_COL6
+															END
+															NUMERO 387 12
+															BEGIN
+																KEY "VAL_MEDIO"
+																PROMPT 18 2 ""
+																PICTURE "###.###.##@"
+																MESSAGE _NUMEXPR,#347/#341
+																GROUP 3 FG_COL6
+															END
+														END // tot ggiac3
+		
+													END // GGIAC2
+													SECTION TOT_GLIVGIAC2 1 2 2 GROUP
+														STRINGA 1 255
+														BEGIN
+															KEY "sep"
+															PROMPT 6 1 ""
+															MESSAGE _USER,LINEATOTALI
+														END
+														STRINGA 450 35 2
+														BEGIN
+														  KEY "" 
+														  PROMPT 3 2 ""
+														END
+														STRINGA 451 7 2
+														BEGIN
+														  KEY "" 
+														  PROMPT 2 2 " Totale"
+														END
+														STRINGA 453 3
+														BEGIN
+															KEY "UM"
+															PROMPT 5 2 ""
+															MESSAGE COPY,553
+														END
+														NUMERO 441 12
+														BEGIN
+															KEY "GIAC"
+															PROMPT 6 2 ""
+															PICTURE "########,@##"
+															MESSAGE ADD,541
+															GROUP 4
+														END
+														NUMERO 442 15
+														BEGIN
+															KEY "VAL1"
+															PROMPT 7 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,542
+															GROUP 4
+														END
+														NUMERO 482 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 8 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#442/#441
+															GROUP 4 FG_COL1
+														END
+														NUMERO 443 15
+														BEGIN
+															KEY "COL2"
+															PROMPT 9 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,543
+															GROUP 4 FG_COL2
+														END
+														NUMERO 483 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 10 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#443/#441
+															GROUP 4 FG_COL2
+														END
+														NUMERO 444 15
+														BEGIN
+															KEY "COL3"
+															PROMPT 11 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,544
+															GROUP 4 FG_COL3
+														END
+														NUMERO 484 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 12 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#444/#441
+															GROUP 4 FG_COL3
+														END
+														NUMERO 445 15
+														BEGIN
+															KEY "COL4"
+															PROMPT 13 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,545
+															GROUP 4 FG_COL4
+														END
+														NUMERO 485 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 14 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#445/#441
+															GROUP 4 FG_COL4
+														END
+														NUMERO 446 15
+														BEGIN
+															KEY "COL5"
+															PROMPT 15 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,546
+															GROUP 4 FG_COL5
+														END
+														NUMERO 486 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 16 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#446/#441
+															GROUP 4 FG_COL5
+														END
+														NUMERO 447 15
+														BEGIN
+															KEY "giac"
+															PROMPT 17 2 ""
+															PICTURE "##.###.###.##@"
+															MESSAGE ADD,547
+															GROUP 4 FG_COL6
+														END
+														NUMERO 487 12
+														BEGIN
+															KEY "VAL_MEDIO"
+															PROMPT 18 2 ""
+															PICTURE "###.###.##@"
+															MESSAGE _NUMEXPR,#447/#441
+															GROUP 4 FG_COL6
+														END
+													END // tot ggiac2
+												END // GGIAC1
+												SECTION TOT_GLIVGIAC1 1 2 2 GROUP
+													STRINGA 1 255
+													BEGIN
+														KEY "sep"
+														PROMPT 6 1 ""
+														MESSAGE _USER,LINEATOTALI
+													END
+													STRINGA 550 35 2
+													BEGIN
+													  KEY "" 
+													  PROMPT 3 2 ""
+													END
+													STRINGA 551 7 2
+													BEGIN
+													  KEY "" 
+													  PROMPT 2 2 " Totale"
+													END
+													STRINGA 553 3
+													BEGIN
+														KEY "UM"
+														PROMPT 5 2 ""
+														MESSAGE COPY,653
+													END
+													NUMERO 541 12
+													BEGIN
+														KEY "GIAC"
+														PROMPT 6 2 ""
+														PICTURE "########,@##"
+														MESSAGE ADD,641
+														GROUP 5
+													END
+													NUMERO 542 15
+													BEGIN
+														KEY "VAL1"
+														PROMPT 7 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,642
+														GROUP 5
+													END
+													NUMERO 582 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#542/#541
+														GROUP 5 FG_COL1
+													END
+													NUMERO 543 15
+													BEGIN
+														KEY "COL2"
+														PROMPT 8 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,643
+														GROUP 5 FG_COL2
+													END
+													NUMERO 583 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#543/#541
+														GROUP 5 FG_COL2
+													END
+													NUMERO 544 15
+													BEGIN
+														KEY "COL3"
+														PROMPT 9 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,644
+														GROUP 5 FG_COL3
+													END
+													NUMERO 584 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#544/#541
+														GROUP 5 FG_COL3
+													END
+													NUMERO 545 15
+													BEGIN
+														KEY "COL4"
+														PROMPT 10 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,645
+														GROUP 5 FG_COL4
+													END
+													NUMERO 585 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#545/#541
+														GROUP 5 FG_COL4
+													END
+													NUMERO 546 15
+													BEGIN
+														KEY "COL5"
+														PROMPT 11 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,646
+														GROUP 5 FG_COL5
+													END
+													NUMERO 586 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#546/#541
+														GROUP 5 FG_COL5
+													END
+													NUMERO 547 15
+													BEGIN
+														KEY "giac"
+														PROMPT 12 2 ""
+														PICTURE "##.###.###.##@"
+														MESSAGE ADD,647
+														GROUP 5 FG_COL6
+													END
+													NUMERO 587 12
+													BEGIN
+														KEY "VAL_MEDIO"
+														PROMPT 18 2 ""
+														PICTURE "###.###.##@"
+														MESSAGE _NUMEXPR,#547/#541
+														GROUP 5 FG_COL6
+													END
+												END	// tot ggiac1									
+	
+											END // FILE GIACENZE
+											SECTION TOT_ARTICOLO 1 2 2 GROUP
+												STRINGA 1 255
+												BEGIN
+													KEY "sep"
+													PROMPT 6 1 ""
+													MESSAGE _USER,LINEATOTALI
+												END
+												STRINGA 650 30 2
+												BEGIN
+												  KEY "" 
+												  PROMPT 3 2 ""
+												END
+												STRINGA 651 12 2
+												BEGIN
+												  KEY "" 
+												  PROMPT 2 2 " Totale art."
+												END
+												STRINGA 653 3
+												BEGIN
+													KEY "UM"
+													PROMPT 5 2 ""
+													MESSAGE COPY,753
+												END
+												NUMERO 641 12
+												BEGIN
+													KEY "GIAC"
+													PROMPT 6 2 ""
+													PICTURE "########,@##"
+													MESSAGE ADD,741 
+													GROUP 6 
+												END
+												NUMERO 642 15
+												BEGIN
+													KEY "VAL1"
+													PROMPT 7 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,742
+													GROUP 6
+												END
+												NUMERO 682 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 8 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#642/#641
+													GROUP 6 FG_COL1
+												END
+												NUMERO 643 15
+												BEGIN
+													KEY "COL2"
+													PROMPT 9 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,743
+													GROUP 6  FG_COL2
+												END
+												NUMERO 683 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 10 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#643/#641
+													GROUP 6 FG_COL2
+												END
+												NUMERO 644 15
+												BEGIN
+													KEY "COL3"
+													PROMPT 11 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,744
+													GROUP 6 FG_COL3
+												END
+												NUMERO 684 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 12 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#644/#641
+													GROUP 6 FG_COL3
+												END
+												NUMERO 645 15
+												BEGIN
+													KEY "COL4"
+													PROMPT 13 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,745
+													GROUP 6  FG_COL4
+												END
+												NUMERO 685 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 14 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#645/#641
+													GROUP 6 FG_COL4
+												END
+												NUMERO 646 15
+												BEGIN
+													KEY "COL5"
+													PROMPT 15 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,746
+													GROUP 6 FG_COL5
+												END
+												NUMERO 686 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 16 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#646/#641
+													GROUP 6 FG_COL5
+												END
+												NUMERO 647 15
+												BEGIN
+													KEY "giac"
+													PROMPT 17 2 ""
+													PICTURE "##.###.###.##@"
+													MESSAGE ADD,747
+													GROUP 6 FG_COL6
+												END
+												NUMERO 687 12
+												BEGIN
+													KEY "VAL_MEDIO"
+													PROMPT 18 2 ""
+													PICTURE "###.###.##@"
+													MESSAGE _NUMEXPR,#647/#641
+													GROUP 6 FG_COL6
+												END
+											END	// TOT ART
+	
+										END // GART8
+										SECTION TOT_GART8 1 2 2 GROUP
+											STRINGA 1 255
+											BEGIN
+												KEY "sep"
+												PROMPT 6 1 ""
+												MESSAGE _USER,LINEATOTALI
+											END
+											STRINGA 750 34 2
+											BEGIN
+											  KEY "" 
+											  PROMPT 3 2 ""
+											END
+											STRINGA 751 8 2
+											BEGIN
+											  KEY "" 
+											  PROMPT 2 2 " Totale"
+											END
+											STRINGA 753 3
+											BEGIN
+												KEY "UM"
+												PROMPT 5 2 ""
+												MESSAGE COPY,853
+											END
+											NUMERO 741 12
+											BEGIN
+												KEY "GIAC"
+												PROMPT 6 2 ""
+												PICTURE "########,@##"
+												MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841
+												GROUP 7
+											END
+											NUMERO 742 15
+											BEGIN
+												KEY "VAL1"
+												PROMPT 7 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,842
+												GROUP 7
+											END
+											NUMERO 782 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 8 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#742/#741
+												GROUP 7 FG_COL1
+											END
+											NUMERO 743 15
+											BEGIN
+												KEY "COL2"
+												PROMPT 9 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,843
+												GROUP 7 FG_COL2
+											END
+											NUMERO 783 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 10 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#743/#741
+												GROUP 7 FG_COL2
+											END
+											NUMERO 744 15
+											BEGIN
+												KEY "COL3"
+												PROMPT 11 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,844
+												GROUP 7 FG_COL3
+											END
+											NUMERO 784 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 12 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#744/#741
+												GROUP 7 FG_COL3
+											END
+											NUMERO 745 15
+											BEGIN
+												KEY "COL4"
+												PROMPT 13 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,845
+												GROUP 7 FG_COL4
+											END
+											NUMERO 785 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 14 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#745/#741
+												GROUP 7 FG_COL4
+											END
+											NUMERO 746 15
+											BEGIN
+												KEY "COL5"
+												PROMPT 15 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,846
+												GROUP 7 FG_COL5
+											END
+											NUMERO 786 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 16 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#746/#741
+												GROUP 7 FG_COL5
+											END
+											NUMERO 747 15
+											BEGIN
+												KEY "COL6"
+												PROMPT 17 2 ""
+												PICTURE "##.###.###.##@"
+												MESSAGE ADD,847
+												GROUP 7 FG_COL6
+											END
+											NUMERO 787 12
+											BEGIN
+												KEY "VAL_MEDIO"
+												PROMPT 18 2 ""
+												PICTURE "###.###.##@"
+												MESSAGE _NUMEXPR,#747/#741
+												GROUP 7 FG_COL6
+											END
+										END	// tot gart8
+	
+									END // GART7
+									SECTION TOT_GART7 1 2 2 GROUP
+										STRINGA 1 255
+										BEGIN
+											KEY "sep"
+											PROMPT 6 1 ""
+											MESSAGE _USER,LINEATOTALI
+										END									
+										STRINGA 850 34 2
+										BEGIN
+										  KEY "" 
+										  PROMPT 3 2 ""
+										END
+										STRINGA 851 8 2
+										BEGIN
+										  KEY "" 
+										  PROMPT 2 2 " Totale"
+										END
+										STRINGA 853 3
+										BEGIN
+											KEY "UM"
+											PROMPT 5 2 ""
+											MESSAGE COPY,953
+										END
+										NUMERO 841 12
+										BEGIN
+											KEY "GIAC"
+											PROMPT 6 2 ""
+											PICTURE "########,@##"
+											MESSAGE ADD,941
+											GROUP 8
+										END
+										NUMERO 842 15
+										BEGIN
+											KEY "VAL1"
+											PROMPT 7 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,942
+											GROUP 8 
+										END
+										NUMERO 882 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 8 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#842/#841
+											GROUP 8 FG_COL1
+										END
+										NUMERO 843 15
+										BEGIN
+											KEY "COL2"
+											PROMPT 9 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,943
+											GROUP 8 FG_COL2
+										END
+										NUMERO 883 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 10 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#843/#841
+											GROUP 8 FG_COL2
+										END
+										NUMERO 844 15
+										BEGIN
+											KEY "COL3"
+											PROMPT 11 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,944
+											GROUP 8 FG_COL3
+										END
+										NUMERO 884 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 12 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#844/#841
+											GROUP 8 FG_COL3
+										END
+										NUMERO 845 15
+										BEGIN
+											KEY "COL4"
+											PROMPT 13 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,945
+											GROUP 8 FG_COL4
+										END
+										NUMERO 885 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 14 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#845/#841
+											GROUP 8 FG_COL4
+										END
+										NUMERO 846 15
+										BEGIN
+											KEY "COL5"
+											PROMPT 15 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,946
+											GROUP 8 FG_COL5
+										END
+										NUMERO 886 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 16 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#846/#841
+											GROUP 8 FG_COL5
+										END
+										NUMERO 847 15
+										BEGIN
+											KEY "giac"
+											PROMPT 17 2 ""
+											PICTURE "##.###.###.##@"
+											MESSAGE ADD,947
+											GROUP 8 FG_COL6
+										END
+										NUMERO 887 12
+										BEGIN
+											KEY "VAL_MEDIO"
+											PROMPT 18 2 ""
+											PICTURE "###.###.##@"
+											MESSAGE _NUMEXPR,#847/#841
+											GROUP 8 FG_COL6
+										END
+									END	// tot gart7									
+	
+								END // GART6
+								SECTION TOT_GART6 1 2 2 GROUP
+									STRINGA 1 255
+									BEGIN
+										KEY "sep"
+										PROMPT 6 1 ""
+										MESSAGE _USER,LINEATOTALI
+									END									
+									STRINGA 950 34 2
+									BEGIN
+									  KEY "" 
+									  PROMPT 3 2 ""
+									END
+									STRINGA 951 8 2
+									BEGIN
+									  KEY "" 
+									  PROMPT 2 2 " Totale"
+									END
+									STRINGA 953 3
+									BEGIN
+										KEY "UM"
+										PROMPT 5 2 ""
+										MESSAGE COPY,1053
+									END
+									NUMERO 941 12
+									BEGIN
+										KEY "GIAC"
+										PROMPT 6 2 ""
+										PICTURE "########,@##"
+										MESSAGE ADD,1041
+										GROUP 9
+									END
+									NUMERO 942 15
+									BEGIN
+										KEY "VAL1"
+										PROMPT 7 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,1042
+										GROUP 9 
+									END
+									NUMERO 982 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 8 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#942/#941
+										GROUP 9 FG_COL1
+									END
+									NUMERO 943 15
+									BEGIN
+										KEY "COL2"
+										PROMPT 9 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,1043
+										GROUP 9 FG_COL2
+									END
+									NUMERO 983 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 10 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#943/#941
+										GROUP 9 FG_COL2
+									END
+									NUMERO 944 15
+									BEGIN
+										KEY "COL3"
+										PROMPT 11 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,1044
+										GROUP 9  FG_COL3
+									END
+									NUMERO 984 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 12 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#944/#941
+										GROUP 9 FG_COL3
+									END
+									NUMERO 945 15
+									BEGIN
+										KEY "COL4"
+										PROMPT 13 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,1045
+										GROUP 9 FG_COL4
+									END
+									NUMERO 985 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 14 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#945/#941
+										GROUP 9 FG_COL4
+									END
+									NUMERO 946 15
+									BEGIN
+										KEY "COL5"
+										PROMPT 15 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,1046
+										GROUP 9  FG_COL5
+									END
+									NUMERO 986 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 16 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#946/#941
+										GROUP 9 FG_COL5
+									END
+									NUMERO 947 15
+									BEGIN
+										KEY "giac"
+										PROMPT 17 2 ""
+										PICTURE "##.###.###.##@"
+										MESSAGE ADD,1047
+										GROUP 9 FG_COL6
+									END
+									NUMERO 987 12
+									BEGIN
+										KEY "VAL_MEDIO"
+										PROMPT 18 2 ""
+										PICTURE "###.###.##@"
+										MESSAGE _NUMEXPR,#947/#941
+										GROUP 9 FG_COL6
+									END
+								END	// tot gart6
+	
+							END // GART5
+							SECTION TOT_GART5 1 2 2 GROUP
+								STRINGA 1 255
+								BEGIN
+									KEY "sep"
+									PROMPT 6 1 ""
+									MESSAGE _USER,LINEATOTALI
+								END									
+								STRINGA 1050 34 2
+								BEGIN
+								  KEY "" 
+								  PROMPT 3 2 ""
+								END
+								STRINGA 1051 8 2
+								BEGIN
+								  KEY "" 
+								  PROMPT 2 2 " Totale"
+								END
+								STRINGA 1053 3
+								BEGIN
+									KEY "UM"
+									PROMPT 5 2 ""
+									MESSAGE COPY,1153
+								END
+								NUMERO 1041 12
+								BEGIN
+									KEY "GIAC"
+									PROMPT 6 2 ""
+									PICTURE "########,@##"
+									MESSAGE ADD,1141
+									GROUP 10
+								END
+								NUMERO 1042 15
+								BEGIN
+									KEY "VAL1"
+									PROMPT 7 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1142
+									GROUP 10 
+								END
+								NUMERO 1082 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 8 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#1042/#1041
+									GROUP FG_COL1
+								END
+								NUMERO 1043 15
+								BEGIN
+									KEY "COL2"
+									PROMPT 9 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1143
+									GROUP 10 FG_COL2
+								END
+								NUMERO 1083 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 10 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#1043/#1041
+									GROUP FG_COL2
+								END
+								NUMERO 1044 15
+								BEGIN
+									KEY "COL3"
+									PROMPT 11 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1144
+									GROUP 10  FG_COL3
+								END
+								NUMERO 1084 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 12 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#1044/#1041
+									GROUP FG_COL3
+								END
+								NUMERO 1045 15
+								BEGIN
+									KEY "COL4"
+									PROMPT 13 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1145
+									GROUP 10 FG_COL4
+								END
+								NUMERO 1085 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 14 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#1045/#1041
+									GROUP FG_COL4
+								END
+								NUMERO 1046 15
+								BEGIN
+									KEY "COL5"
+									PROMPT 15 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1146
+									GROUP 10  FG_COL5
+								END
+								NUMERO 1086 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 16 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#1046/#1041
+									GROUP FG_COL5
+								END
+								NUMERO 1047 15
+								BEGIN
+									KEY "giac"
+									PROMPT 17 2 ""
+									PICTURE "##.###.###.##@"
+									MESSAGE ADD,1147
+									GROUP 10 FG_COL6
+								END
+								NUMERO 1087 12
+								BEGIN
+									KEY "VAL_MEDIO"
+									PROMPT 18 2 ""
+									PICTURE "###.###.##@"
+									MESSAGE _NUMEXPR,#1047/#1041
+									GROUP FG_COL6
+								END
+							END // tot gart5
+	
+						END // GART4
+						SECTION TOT_GART4 1 2 2 GROUP
+							STRINGA 1 255
+							BEGIN
+								KEY "sep"
+								PROMPT 6 1 ""
+								MESSAGE _USER,LINEATOTALI
+							END									
+							STRINGA 1150 34 2
+							BEGIN
+							  KEY "" 
+							  PROMPT 3 2 ""
+							END
+							STRINGA 1151 8 2
+							BEGIN
+							  KEY "" 
+							  PROMPT 2 2 " Totale"
+							END
+							STRINGA 1153 3
+							BEGIN
+								KEY "UM"
+								PROMPT 5 2 ""
+								MESSAGE COPY,1253
+							END
+							NUMERO 1141 12
+							BEGIN
+								KEY "GIAC"
+								PROMPT 6 2 ""
+								PICTURE "########,@##"
+								MESSAGE ADD,1241
+								GROUP 11
+							END
+							NUMERO 1142 15
+							BEGIN
+								KEY "VAL1"
+								PROMPT 7 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1242
+								GROUP 11
+							END
+							NUMERO 1182 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 8 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1142/#1141
+								GROUP FG_COL1
+							END
+							NUMERO 1143 15
+							BEGIN
+								KEY "COL2"
+								PROMPT 9 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1243
+								GROUP 11 FG_COL2
+							END
+							NUMERO 1183 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 10 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1143/#1141
+								GROUP FG_COL2
+							END
+							NUMERO 1144 15
+							BEGIN
+								KEY "COL3"
+								PROMPT 11 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1244
+								GROUP 11 FG_COL3
+							END
+							NUMERO 1184 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 12 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1144/#1141
+								GROUP FG_COL3
+							END
+							NUMERO 1145 15
+							BEGIN
+								KEY "COL4"
+								PROMPT 13 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1245
+								GROUP 11 FG_COL4
+							END
+							NUMERO 1185 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 14 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1145/#1141
+								GROUP FG_COL4
+							END
+							NUMERO 1146 15
+							BEGIN
+								KEY "COL5"
+								PROMPT 15 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1246
+								GROUP 11 FG_COL5
+							END
+							NUMERO 1186 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 16 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1146/#1141
+								GROUP FG_COL5
+							END
+							NUMERO 1147 15
+							BEGIN
+								KEY "giac"
+								PROMPT 17 2 ""
+								PICTURE "##.###.###.##@"
+								MESSAGE ADD,1247
+								GROUP 11 FG_COL6
+							END
+							NUMERO 1187 12
+							BEGIN
+								KEY "VAL_MEDIO"
+								PROMPT 18 2 ""
+								PICTURE "###.###.##@"
+								MESSAGE _NUMEXPR,#1147/#1141
+								GROUP FG_COL6
+							END
+						END	// tot gart4
+	
+					END // GART3
+					SECTION TOT_GART3 1 2 2 GROUP
+						STRINGA 1 255
+						BEGIN
+							KEY "sep"
+							PROMPT 6 1 ""
+							MESSAGE _USER,LINEATOTALI
+						END									
+						STRINGA 1250 34 2
+						BEGIN
+						  KEY "" 
+						  PROMPT 3 2 ""
+						END
+						STRINGA 1251 8 2
+						BEGIN
+						  KEY "" 
+						  PROMPT 2 2 " Totale"
+						END
+						STRINGA 1253 3
+						BEGIN
+							KEY "UM"
+							PROMPT 5 2 ""
+							MESSAGE COPY,1353
+						END
+						NUMERO 1241 12
+						BEGIN
+							KEY "GIAC"
+							PROMPT 6 2 ""
+							PICTURE "########,@##"
+							MESSAGE ADD,1341
+							GROUP 12
+						END
+						NUMERO 1242 15
+						BEGIN
+							KEY "VAL1"
+							PROMPT 7 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1342
+							GROUP 12 
+						END
+						NUMERO 1282 12
+						BEGIN
+							KEY "VALMEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1242/#1241
+							GROUP 12 FG_COL1
+						END
+						NUMERO 1243 15
+						BEGIN
+							KEY "COL2"
+							PROMPT 8 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1343
+							GROUP 12 FG_COL2
+						END
+						NUMERO 1283 12
+						BEGIN
+							KEY "VALMEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1243/#1241
+							GROUP 12 FG_COL2
+						END
+						NUMERO 1244 15
+						BEGIN
+							KEY "COL3"
+							PROMPT 9 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1344
+							GROUP 12 FG_COL3
+						END
+						NUMERO 1284 12
+						BEGIN
+							KEY "VALMEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1244/#1241
+							GROUP 12 FG_COL3
+						END
+						NUMERO 1245 15
+						BEGIN
+							KEY "COL4"
+							PROMPT 10 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1345
+							GROUP 12 FG_COL4
+						END
+						NUMERO 1285 12
+						BEGIN
+							KEY "VALMEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1245/#1241
+							GROUP 12 FG_COL4
+						END
+						NUMERO 1246 15
+						BEGIN
+							KEY "COL5"
+							PROMPT 11 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1346
+							GROUP 12 FG_COL5
+						END
+						NUMERO 1286 12
+						BEGIN
+							KEY "VALMEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1246/#1241
+							GROUP 12 FG_COL5
+						END
+						NUMERO 1247 15
+						BEGIN
+							KEY "giac"
+							PROMPT 12 2 ""
+							PICTURE "##.###.###.##@"
+							MESSAGE ADD,1347
+							GROUP 12 FG_COL6
+						END
+						NUMERO 1287 12
+						BEGIN
+							KEY "VALMEDIO"
+							PROMPT 18 2 ""
+							PICTURE "###.###.##@"
+							MESSAGE _NUMEXPR,#1247/#1241
+							GROUP 12 FG_COL6
+						END
+					END	// tot gart3
+	
+				END // GART2
+				SECTION TOT_GART2 1 2 2 GROUP
+					STRINGA 1 255
+					BEGIN
+						KEY "sep"
+						PROMPT 6 1 ""
+						MESSAGE _USER,LINEATOTALI
+					END									
+					STRINGA 1350 34 2
+					BEGIN
+					  KEY "" 
+					  PROMPT 3 2 ""
+					END
+					STRINGA 1351 8 2
+					BEGIN
+					  KEY "" 
+					  PROMPT 2 2 " Totale"
+					END
+					STRINGA 1353 3
+					BEGIN
+						KEY "UM"
+						PROMPT 5 2 ""
+						MESSAGE COPY,1453
+					END
+					NUMERO 1341 12
+					BEGIN
+						KEY "GIAC"
+						PROMPT 6 2 ""
+						PICTURE "########,@##"
+						MESSAGE ADD,1441
+						GROUP 13
+					END
+					NUMERO 1342 15
+					BEGIN
+						KEY "VAL1"
+						PROMPT 7 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1442
+						GROUP 13 
+					END
+					NUMERO 1382 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 8 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1342/#1341
+						GROUP 13 FG_COL1
+					END
+					NUMERO 1343 15
+					BEGIN
+						KEY "COL2"
+						PROMPT 9 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1443
+						GROUP 13 FG_COL2
+					END
+					NUMERO 1383 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 10 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1343/#1341
+						GROUP 13 FG_COL2
+					END
+					NUMERO 1344 15
+					BEGIN
+						KEY "COL3"
+						PROMPT 11 2 ""
+						PICTURE "##.###.###.##@"
+						MESSAGE ADD,1444
+						GROUP 13 FG_COL3
+					END
+					NUMERO 1384 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 12 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1344/#1341
+						GROUP 13 FG_COL3
+					END
+					NUMERO 1345 15
+					BEGIN
+						KEY "COL4"
+						PROMPT 13 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE ADD,1445
+						GROUP 13 FG_COL4
+					END
+					NUMERO 1385 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 14 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1345/#1341
+						GROUP 13 FG_COL4
+					END
+					NUMERO 1346 15
+					BEGIN
+						KEY "COL5"
+						PROMPT 15 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE ADD,1446
+						GROUP 13 FG_COL5
+					END
+					NUMERO 1386 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 16 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1346/#1341
+						GROUP 13 FG_COL5
+					END
+					NUMERO 1347 15
+					BEGIN
+						KEY "giac"
+						PROMPT 17 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE ADD,1447
+						GROUP 13 FG_COL6
+					END
+					NUMERO 1387 12
+					BEGIN
+						KEY "VALMEDIO"
+						PROMPT 18 2 ""
+						PICTURE "###.###.##@"
+						MESSAGE _NUMEXPR,#1347/#1341
+						GROUP 13 FG_COL6
+					END
+				END	// tot gart2
+	
+			END // GART1
+			SECTION TOT_GART1 1 2 2 GROUP
+				STRINGA 1 255
+				BEGIN
+					KEY "sep"
+					PROMPT 6 1 ""
+					MESSAGE _USER,LINEATOTALI
+				END									
+				STRINGA 1450 34 2
+				BEGIN
+				  KEY "" 
+				  PROMPT 3 2 ""
+				END
+				STRINGA 1451 8 2
+				BEGIN
+				  KEY "" 
+				  PROMPT 2 2 " Totale"
+				END
+				STRINGA 1453 3
+				BEGIN
+					KEY "UM"
+					PROMPT 5 2 ""
+					MESSAGE COPY,53
+				END
+				NUMERO 1441 12
+				BEGIN
+					KEY "GIAC"
+					PROMPT 6 2 "-"
+					PICTURE "########,@##"
+					MESSAGE ADD,41
+					GROUP 14 
+				END
+				NUMERO 1442 15
+				BEGIN
+					KEY "VAL1"
+					PROMPT 7 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,42
+					GROUP 14 
+				END
+				NUMERO 1482 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 8 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1442/#1441
+					GROUP 14 FG_COL1
+				END
+				NUMERO 1443 15
+				BEGIN
+					KEY "COL2"
+					PROMPT 9 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,43
+					GROUP 14 FG_COL2
+				END
+				NUMERO 1483 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 10 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1443/#1441
+					GROUP 14 FG_COL2
+				END
+				NUMERO 1444 15
+				BEGIN
+					KEY "COL3"
+					PROMPT 11 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,44
+					GROUP 14  FG_COL3
+				END
+				NUMERO 1484 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 12 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1444/#1441
+					GROUP 14 FG_COL3
+				END
+				NUMERO 1445 15
+				BEGIN
+					KEY "COL4"
+					PROMPT 13 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,45
+					GROUP 14 FG_COL4
+				END
+				NUMERO 1485 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 14 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1445/#1441
+					GROUP 14 FG_COL4
+				END
+				NUMERO 1446 15
+				BEGIN
+					KEY "COL5"
+					PROMPT 15 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,46
+					GROUP 14  FG_COL5
+				END
+				NUMERO 1486 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 16 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1446/#1441
+					GROUP 14 FG_COL5
+				END
+				NUMERO 1447 15
+				BEGIN
+					KEY "giac"
+					PROMPT 17 2 ""
+					PICTURE "##.###.###.##@"
+					MESSAGE ADD,47
+					GROUP 14 FG_COL6
+				END
+				NUMERO 1487 12
+				BEGIN
+					KEY "VALMEDIO"
+					PROMPT 18 2 ""
+					PICTURE "###.###.##@"
+					MESSAGE _NUMEXPR,#1447/#1441
+					GROUP 14 FG_COL6
+				END
+			END	// tot gart1
+		END // GRUPPI DEPOSITO
+
+		SECTION TOT_DEPOSITO 1 1 1 GROUP
+			SECTION SEP_DEPOSITO 1 1 NORMAL GROUP
+				STRINGA 77 
+				BEGIN
+					KEY "giac"
+					PROMPT 52 1 "----------------------------------------------------------------------------------------------------"
+				END
+			END
+			STRINGA 51 12 
+			BEGIN
+				KEY "CODICE"
+				PROMPT 2 1 "    Deposito"
+			END
+			STRINGA 50 30 
+			BEGIN
+				KEY "descr"
+				PROMPT 3 1 ""
+			END
+			STRINGA 53 3
+			BEGIN
+				KEY "UM"
+				PROMPT 5 1 ""
+				MESSAGE COPY,153
+			END
+			NUMERO 41 12
+			BEGIN
+				KEY "GIAC"
+				PROMPT 6 1 ""
+				PICTURE "########,@##"
+				MESSAGE _USER,GIAC|ADD,141
+			END
+			NUMERO 42 15
+			BEGIN
+				KEY "VAL1"
+				PROMPT 7 1 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,142
+				GROUP 15 
+			END
+			NUMERO 82 12
+			BEGIN
+				KEY "VAL1M"
+				PROMPT 8 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#42/#41
+				GROUP FG_COL1
+			END
+			NUMERO 43 15
+			BEGIN
+				KEY "VAL2"
+				PROMPT 9 1 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,143
+				GROUP 15  FG_COL2
+			END
+			NUMERO 83 12
+			BEGIN
+				KEY "VAL2M"
+				PROMPT 10 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#43/#41
+				GROUP FG_COL2
+			END
+			NUMERO 44 15
+			BEGIN
+				KEY "VAL3"
+				PROMPT 11 1 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,144
+				GROUP 15 FG_COL3
+			END
+			NUMERO 84 12
+			BEGIN
+				KEY "VAL3M"
+				PROMPT 12 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#44/#41
+				GROUP FG_COL3
+			END
+			NUMERO 45 15
+			BEGIN
+				KEY "VAL4"
+				PROMPT 13 1 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,145
+				GROUP 15 FG_COL4
+			END
+			NUMERO 85 12
+			BEGIN
+				KEY "VAL3M"
+				PROMPT 14 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#45/#41
+				GROUP FG_COL4
+			END
+			NUMERO 46 15
+			BEGIN
+				KEY "VAL5"
+				PROMPT 15 1 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,146
+				GROUP 15 FG_COL5
+			END
+			NUMERO 86 12
+			BEGIN
+				KEY "VAL5M"
+				PROMPT 16 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#46/#41
+				GROUP FG_COL5
+			END
+			NUMERO 47 15
+			BEGIN
+				KEY "VAL6"
+				PROMPT 17 1 ""
+				PICTURE "##.###.###.##@"
+				MESSAGE ADD,147
+				GROUP 15 FG_COL6
+			END
+			NUMERO 87 12
+			BEGIN
+				KEY "VAL6M"
+				PROMPT 18 1 ""
+				PICTURE "###.###.##@"
+				MESSAGE _NUMEXPR,#47/#41
+				GROUP FG_COL6
+			END
+		END // tot depositi
+	END // MAGAZZ
+	SECTION TOT_MAGAZZINO 1 1 1 GROUP
+		STRINGA 150 30 2
+		BEGIN
+		  KEY "Magazzino" 
+		  PROMPT 3 1 ""
+		END
+		STRINGA 151 12 2
+		BEGIN
+		  KEY "Magazzino" 
+		  PROMPT 2 1 " Totale mag."
+		END
+		STRINGA 153 3
+		BEGIN
+			KEY "UM"
+			PROMPT 5 1 ""
+			MESSAGE COPY,253
+		END
+		NUMERO 141 12
+		BEGIN
+			KEY "GIAC"
+			PROMPT 6 1 ""
+			PICTURE "########,@##"
+			MESSAGE ADD,241
+			GROUP 1 
+		END
+		NUMERO 142 15
+		BEGIN
+			KEY "VAL1"
+			PROMPT 7 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE ADD,242
+			GROUP 1
+		END
+		NUMERO 182 12
+		BEGIN
+			KEY "VAL1"
+			PROMPT 8 1 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#142/#141
+			GROUP 1
+		END
+		NUMERO 143 15
+		BEGIN
+			KEY "VAL2"
+			PROMPT 9 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE ADD,243
+			GROUP 1 FG_COL2
+		END
+		NUMERO 183 12
+		BEGIN
+			KEY "VAL1"
+			PROMPT 10 1 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#143/#141
+			GROUP 1 FG_COL2
+		END
+		NUMERO 144 15
+		BEGIN
+			KEY "VAL3"
+			PROMPT 11 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE ADD,244
+			GROUP 1 FG_COL3
+		END
+		NUMERO 184 15
+		BEGIN
+			KEY "VAL1"
+			PROMPT 12 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE _NUMEXPR,#144/#141
+			GROUP 1 FG_COL3
+		END
+		NUMERO 145 12
+		BEGIN
+			KEY "VAL4"
+			PROMPT 13 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE ADD,245
+			GROUP 1 FG_COL4
+		END
+		NUMERO 185 12
+		BEGIN
+			KEY "VAL4"
+			PROMPT 14 1 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#145/#141
+			GROUP 1 FG_COL4
+		END
+		NUMERO 146 15
+		BEGIN
+			KEY "VAL5"
+			PROMPT 15 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE ADD,246 
+			GROUP 1 FG_COL5
+		END
+		NUMERO 186 12
+		BEGIN
+			KEY "VAL1"
+			PROMPT 16 1 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#146/#141
+			GROUP 1 FG_COL5
+		END
+		NUMERO 147 15
+		BEGIN
+			KEY "VAL6"
+			PROMPT 17 1 ""
+			PICTURE "##.###.###.##@"
+			MESSAGE ADD,247
+			GROUP 1 FG_COL6
+		END
+		NUMERO 187 12
+		BEGIN
+			KEY "VAL6"
+			PROMPT 18 1 ""
+			PICTURE "###.###.##@"
+			MESSAGE _NUMEXPR,#147/#141
+			GROUP 1 FG_COL6
+		END
+	END	// tot magazz
+
+END // section body, loop anamag
+
+SECTION FOOTER ODD 2
+	STRINGA 100
+	BEGIN
+		KEY "NUMP"
+		PROMPT 50 1 "--------------"
+	END
+
+	NUMERO 101
+	BEGIN
+		KEY "NUMPAGE"
+		PROMPT 50 2 ""
+		MESSAGE _PAGENO
+		PICTURE "-###-"
+	END
+
+END // fine footer
+END // fine form
diff --git a/mg/mg4300.cpp b/mg/mg4300.cpp
new file mode 100755
index 000000000..c768b29e4
--- /dev/null
+++ b/mg/mg4300.cpp
@@ -0,0 +1,237 @@
+#include <applicat.h>
+#include <config.h>
+#include <mask.h>   
+#include <printer.h>
+#include <relation.h>
+#include <tabutil.h>
+#include <urldefid.h>
+#include <utility.h>
+#include <form.h>
+#include <printapp.h>
+
+#include "anamag.h"
+#include "mag.h"
+#include "stomag.h"
+#include "umart.h"
+
+#include "..\ve\velib03.h"
+#include "..\ve\veconf.h"
+#include "mglib02.h"
+#include "mglib03.h"
+#include "mg4300.h"
+#include "mg4frm.h"
+
+class TForm_giornalemag : public TForm_stampemg
+{
+	
+	TConfig *conf_ditta;
+	TArticolo_giacenza * _curr_art;
+	TString16 _codlist,_catven;
+	TArticolo_giacenza &curr_art();
+public:
+	bool validate(TForm_item &cf, TToken_string &s);
+
+	TForm_giornalemag(const char *name,const char *code) ;
+	~TForm_giornalemag();
+};
+
+bool TForm_giornalemag::validate(TForm_item &cf, TToken_string &s)
+{ 
+  const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
+  TString subcode;
+
+  if (code=="_USER") {
+  }
+  return TForm_stampemg::validate(cf, s);
+}
+
+TArticolo_giacenza &TForm_giornalemag::curr_art()
+{
+	TRectype & magrec=relation()->lfile(LF_MAG).curr();
+	if (_curr_art==NULL || _curr_art->codice()!=magrec.get(MAG_CODART) ) {
+		if (_curr_art) delete _curr_art;
+		_curr_art=new TArticolo_giacenza(magrec.get(MAG_CODART));
+	}
+	return *_curr_art;
+}
+
+
+
+TForm_giornalemag::TForm_giornalemag(const char *name,const char *code) :
+	TForm_stampemg(name,code),_curr_art(NULL)
+{
+}
+
+
+TForm_giornalemag::~TForm_giornalemag()
+{
+	if (_curr_art) delete _curr_art;
+}
+
+
+
+// STAMPA giornale
+class TStampa_giornalemag : public TPrint_application
+{
+	static int freq_stampa;
+	static bool ragg_articoli;
+	static bool ragg_classi;
+	static bool ragg_raggart;
+	static bool ragg_caus;
+
+	static TCursor * _cur;
+
+	TArray * _files;
+	TMask * _mask;
+	TForm_giornalemag * _form; // to be moved into TPrint_application
+
+protected:
+  virtual bool print_one(int file) 
+  {return TRUE;}
+  virtual bool user_create();
+  virtual bool user_destroy();
+  virtual bool set_print(int i=1);
+  virtual void set_page(int file,int count)
+	{	}
+
+public:
+static const char * mov_getfunct(TVariable_rectype & r);
+static const char * rmov_getfunct(TVariable_rectype & r);
+
+	void set_parametri();
+  TStampa_giornalemag();
+};
+
+
+int 	TStampa_giornalemag::freq_stampa;
+bool TStampa_giornalemag::ragg_articoli;
+bool TStampa_giornalemag::ragg_classi;
+bool TStampa_giornalemag::ragg_raggart;
+bool TStampa_giornalemag::ragg_caus;
+TCursor * TStampa_giornalemag::_cur;
+
+
+TStampa_giornalemag::TStampa_giornalemag()
+{
+}
+
+
+
+bool TStampa_giornalemag::user_create()
+{
+  _mask = new TMask("mg4300");
+  _files = new TArray();
+  _files->add(new TLocalisamfile(LF_RMOVMAG));
+  _files->add(new TLocalisamfile(LF_MOVMAG));
+  return TRUE;
+}
+bool TStampa_giornalemag::user_destroy()
+{
+	delete _mask;
+	delete _files;
+  return TRUE;
+}
+
+const char * 
+TStampa_giornalemag::mov_getfunct(TVariable_rectype & r)
+{
+	TString80 valore;
+	TDate datamov(_cur->relation()->lfile(LF_MOVMAG).get_date("DATACOMP"));
+	TDate datayear(datamov);
+	datayear.set_month(1);
+	datayear.set_day(1);
+	
+	// gestione frequenza
+	switch (freq_stampa ) {
+		case 0:
+			valore << datamov.year() << datamov.month() << ' ' << datamov.day() << ' ';
+			valore << _cur->relation()->lfile(LF_MOVMAG).get("NUMREG");
+		break;
+		case 1:
+			valore << datamov.year() << datamov.month() << ' ' << datamov.day() << ' ';
+		break;
+		case 7:
+			valore << datamov.year()<< ((datamov.date2julian()-datayear.date2julian())/7) << ' ';
+		break;
+		case 31:
+			valore << datamov.year() << datamov.month() << ' ';
+		break;
+	}
+	return valore;
+}
+
+const char * 
+TStampa_giornalemag::rmov_getfunct(TVariable_rectype & r)
+{
+	TString80 valore;
+	
+	// gestione ragruppamenti
+	if (ragg_articoli)
+	{
+		valore << _cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART);
+	} else {
+		if (ragg_classi)
+		{
+			valore << _cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS);
+			if (ragg_raggart)
+			{
+				valore << _cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS);
+			}
+		}
+	}
+	if (ragg_caus)
+	{
+		valore << _cur->relation()->lfile(-ALIAS_CAUSALI).get("S8");
+	}
+	return valore;
+}
+
+
+void TStampa_giornalemag::set_parametri()
+{
+	freq_stampa=_mask->get_int(F_FREQ);
+	ragg_articoli=_mask->get_bool(F_RAGGARTICOLI );
+	ragg_classi=_mask->get_bool(F_CLASSEFISART );
+	ragg_raggart=_mask->get_bool(F_RAGGFISART );
+	ragg_caus=_mask->get_bool(F_RAGGCAUS );
+}
+
+bool TStampa_giornalemag::set_print(int i)
+{
+	while (TRUE) {
+  	if (_mask->run() != K_ENTER) 
+	    return FALSE;
+
+	 	_form = new TForm_giornalemag("mg4300", "");
+	 	_cur = _form->cursor();
+
+		TVariable_rectype *vrec_rmov= new TVariable_rectype(LF_RMOVMAG);
+		vrec_rmov->add_field(new TVariable_field ("RSORT_FIELD", rmov_getfunct));
+		TSortedfile *rmovmag= new TSortedfile(LF_RMOVMAG,NULL,"RSORT_FIELD","",2);
+		rmovmag->set_curr(vrec_rmov);
+		//_cur->relation()->replace(rmovmag,1,"CODART==CODART");
+
+		TVariable_rectype *vrec_mov= new TVariable_rectype(LF_MOVMAG);
+		vrec_mov->add_field(new TVariable_field ("SORT_FIELD", mov_getfunct));
+		
+		_cur->relation()->lfile().set_curr(vrec_mov);
+
+		TString cfilter("ANNOES==");
+		cfilter << '"'<< _mask->get(F_ANNOES) << '"';
+		//_cur->setfilter(cfilter);
+		
+		set_parametri();
+		_form->print();
+
+		delete _form;
+	} // while true  
+  return TRUE;
+}
+
+
+int mg4300(int argc, char* argv[])
+{
+	TStampa_giornalemag a;
+	a.run(argc,argv,"Stampa giornale di magazzino");
+	return 0;
+}
diff --git a/mg/mg4300.frm b/mg/mg4300.frm
new file mode 100755
index 000000000..1234b81d9
--- /dev/null
+++ b/mg/mg4300.frm
@@ -0,0 +1,167 @@
+#include "mg4300.h"
+USE LF_MOVMAG KEY 4 BY SORT_FIELD
+JOIN LF_RMOVMAG TO LF_MOVMAG KEY 2 INTO NUMREG==NUMREG
+JOIN CAU TO LF_MOVMAG ALIAS ALIAS_CAUSALI INTO CODTAB==CODCAUS
+JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
+END
+	
+DESCRIPTION
+BEGIN
+    47->* "Anagrafica articoli"
+    109->* "Archivio Giacenze"
+    MAG->* "Tabella magazzini"
+    110->* "Movimenti di magazzino"
+    111->* "Righe Movimenti di magazzino"
+    49->* "Unità di misura articoli"
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    CARATTERE "X"
+    INIZIALE 5 2
+    FINALE 133
+END
+
+SECTION HEADER ODD 5
+	STRINGA 1 40 1
+	BEGIN
+	 KEY "nome ditta"
+	 PROMPT  1 1 "Ditta "
+	 MESSAGE _DITTA, !RAGSOC
+	END
+	
+	STRINGA 2 10
+	BEGIN
+	 KEY "Data"
+	 PROMPT  120 1 "Data "
+	 MESSAGE _TODAY
+	END
+	
+	NUMERO 3 7
+	BEGIN
+	 KEY "Nr. pagina"
+	 PROMPT  137 1 "Pagina "
+	 MESSAGE _PAGENO
+	END
+	
+	STRINGA 4 45
+	BEGIN
+	 KEY "Intestazione stampa"
+	 PROMPT  45 2 "Stampa schede di magazzino :"
+	 MESSAGE _USER,TIPOSCHEDA
+	END
+	
+	STRINGA 5 146
+	BEGIN
+	  KEY "Separatore (iniziale)"
+	  PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+	END
+	STRINGA 6 12
+	BEGIN
+		PROMPT 27 4 "UM"
+	END
+	NUMBER 7 12
+	BEGIN
+		PROMPT 31 4 "Quantità"
+	END
+	NUMBER 8 12
+	BEGIN
+		PROMPT 42 4 "Prezzo"
+	END
+	NUMBER 9 12
+	BEGIN
+		PROMPT 54 4 "Valore"
+	END
+	STRINGA 5 146
+	BEGIN
+	  KEY "Separatore (iniziale)"
+	  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+	END
+END
+
+SECTION BODY ODD 0
+	SECTION HEADER_RAGG_CRONO 1 2 2 GROUP
+		STRINGA 101 30
+		BEGIN
+			PROMPT 1 1 ">>> NUM:"
+			MESSAGE _STREXPR,LF_MOVMAG->NUMREG
+		END
+		STRINGA 102 30
+		BEGIN
+			PROMPT 1 2 ">>>DATA:"
+			MESSAGE _STREXPR,LF_MOVMAG->DATACOMP
+		END
+	END
+
+	SECTION RAGG_CRONOLOGICO 1 0 0 FILE LF_MOVMAG GROUP DATACOMP
+	
+		SECTION RIGHE_MOV 1 0 0 FILE LF_RMOVMAG
+
+			SECTION HEADER_RAGG_FISC 1 2 2 GROUP
+				STRINGA 100 30
+				BEGIN
+					PROMPT 1 1 ">>> NUM:"
+					MESSAGE _STREXPR,LF_MOVMAG->NUMREG
+				END
+				STRINGA 100 30
+				BEGIN
+					PROMPT 1 2 ">>>DATA:"
+					MESSAGE _STREXPR,LF_MOVMAG->DATACOMP
+				END
+			END
+			
+			SECTION RAGG_FISCALE 1 0 1 FILE LF_RMOVMAG GROUP CODART
+
+				STRINGA 100 30
+				BEGIN
+					PROMPT 1 1 ">>>"
+					MESSAGE _STREXPR,LF_RMOVMAG->NUMREG+LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
+				END
+		
+				STRINGA 101 12
+					BEGIN
+					PROMPT 27 1 ""
+					FIELD LF_RMOVMAG->UM
+				END
+
+				NUMBER 104 12
+				BEGIN
+					PROMPT 42 1 ""
+					PICTURE "###.###.###"
+					FIELD LF_RMOVMAG->PREZZO
+				END
+				NUMBER 103 12
+					BEGIN
+					PROMPT 31 1 ""
+					PICTURE "###.###,@##"
+					MESSAGE _NUMEXPR,#FF_QUANTRIGA
+				END
+				NUMBER 105 12
+				BEGIN
+					PROMPT 54 1 ""
+					PICTURE "###.###.###"
+					MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS
+				END
+			END // RAGG FISCALE
+		END // CICLO RMOV
+	END // RAGG CRONOLOGICO			
+END // BODY: CICLO MOV
+
+SECTION FOOTER ODD 2
+	STRINGA 100
+	BEGIN
+		KEY "NUMP"
+		PROMPT 50 1 "-----"
+	END
+
+	NUMERO 101
+	BEGIN
+		KEY "NUMPAGE"
+		PROMPT 50 2 ""
+		MESSAGE _PAGENO
+		PICTURE "-###-"
+	END
+
+END
+
diff --git a/mg/mg4300.h b/mg/mg4300.h
new file mode 100755
index 000000000..794974ff2
--- /dev/null
+++ b/mg/mg4300.h
@@ -0,0 +1,22 @@
+#ifndef __MG4300_H
+#define __MG4300_H
+
+#define F_DEFINITIVA 101
+#define F_CLASSEFISART 102
+#define F_RAGGFISART 103
+#define F_RAGGCAUS 104
+#define F_RAGGARTICOLI 105
+#define F_FREQ 106
+
+#define F_ANNOES 110
+#define F_ANNO 111
+
+#define G_OPZ 1 
+#define G_CODART 2
+#define G_DESART 3
+#define G_PARAMVALORI 4
+
+#define ALIAS_CAUSALI 500
+
+
+#endif //__MG4300_H
diff --git a/mg/mg4300.uml b/mg/mg4300.uml
new file mode 100755
index 000000000..3531df4e0
--- /dev/null
+++ b/mg/mg4300.uml
@@ -0,0 +1,79 @@
+#include "mg4300.h"
+PAGE "Stampa giornale" -1 -1 78 20
+
+
+NUMBER F_ANNO 4
+BEGIN
+	FLAGS "AH"
+END
+
+NUMBER F_ANNOES 4
+BEGIN
+	FLAGS "A"
+  PROMPT 2 1 "Codice es.    "
+	USE ESC
+	INPUT CODTAB F_ANNOES
+	DISPLAY "Esercizio" CODTAB
+	DISPLAY "Dal@12" D0
+	DISPLAY "Al@12" D0
+	OUTPUT F_ANNOES CODTAB
+	ADD NONE
+END
+
+LISTBOX F_DEFINITIVA 10
+BEGIN
+  PROMPT 2 3 "Si desidera la stampa "
+	ITEM "P|di prova"
+	ITEM "D|definitiva"
+END
+
+NUMBER F_FREQ 2
+BEGIN
+	FLAGS "U"
+  PROMPT 2 5 "Frequenza di stampa   "
+	NUM_EXPR #F_FREQ<=31
+	WARNING "La frequenza deve essere compresa tra 0 e 31"
+END
+
+BOOLEAN F_RAGGARTICOLI
+BEGIN
+  PROMPT 2 7 "Raggruppo gli articoli"
+	MESSAGE FALSE CLEAR,F_CLASSEFISART|K_SPACE,F_CLASSEFISART
+	MESSAGE TRUE ENABLE,F_CLASSEFISART
+	GROUP G_OPZ
+END
+
+BOOLEAN F_CLASSEFISART
+BEGIN
+  PROMPT 2 9 "Raggruppo le classi fiscali articoli"
+	MESSAGE FALSE CLEAR,F_RAGGFISART|K_SPACE,F_RAGGFISART
+	MESSAGE TRUE ENABLE,F_RAGGFISART
+	GROUP G_OPZ
+END
+
+BOOLEAN F_RAGGFISART
+BEGIN
+  PROMPT 2 11 "Raggruppo i raggruppamenti fiscali articoli"
+	MESSAGE FALSE CLEAR,F_RAGGCAUS
+	MESSAGE TRUE ENABLE,F_RAGGCAUS
+	GROUP G_OPZ
+END
+
+BOOLEAN F_RAGGCAUS
+BEGIN
+  PROMPT 2 13 "Raggruppo le causali"
+	GROUP G_OPZ
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK
diff --git a/mg/mg4frm.h b/mg/mg4frm.h
new file mode 100755
index 000000000..f34bbb616
--- /dev/null
+++ b/mg/mg4frm.h
@@ -0,0 +1,18 @@
+#define FF_FLAGTOTQTA 666
+#define FF_FLAGGIAC  667
+#define FF_FLAGSOTTOS 668
+#define FF_FLAGVALMEDI 669
+#define FF_PREZZIVALORI 670
+#define FF_ENABLECOLS 671
+
+#define FG_COL1 	10
+#define FG_COL2 	11
+#define FG_COL3 	12
+#define FG_COL4 	13
+#define FG_COL5 	14
+#define FG_COL6 	15
+#define FG_VALORI			25
+#define FG_VALMEDI		26
+#define FG_RIGAVALORI 27
+#define FG_RIGAPREZZI 28
+