diff --git a/at/at1400.cpp b/at/at1400.cpp
index 78c8a5d38..54025f7a4 100755
--- a/at/at1400.cpp
+++ b/at/at1400.cpp
@@ -21,18 +21,41 @@
 #define ALIAS_COMDOM 	501		// comune di domicilio
 #define ALIAS_COMNAS 	500		// comune di nascita
 
+#define ETI_COGNOME 3			// numero campo cognome e nome in etichetta (deve essere sempre cosi') per famiglie
+
+enum ts { undefined=0, sintetico=1, completo=2, etichette=3 };
+
+// definizione form per etichette
+class TEti_bengru_form : public TForm
+{
+public:
+	
+	virtual TCursor* cursor() const;
+	virtual TRelation* relation() const;
+	TPrint_section& get_body() { return section('B'); } ;
+	TPrint_section& get_head() { return section('H'); } ;
+	TPrint_section& get_foot() { return section('F'); } ;
+  TEti_bengru_form(): TForm() {};
+  TEti_bengru_form(const char* form, const char * code = "", int editlevel = 0, const char* desc = "")
+    						: TForm(form,code,editlevel,desc) {};
+  virtual ~TEti_bengru_form() {};
+};
+
 class TStampaBenxGAz : public TPrintapp
 {
   TRelation*					_rel;
   TMask*      				_msk;
+  TEti_bengru_form*		_form_eti;
   int 								_cur;
   char								_tiposta;
   TDate								_dataini, _datafin;
 	TString16						_codsez, _codsot;
-	bool								_stampa80;  
   TParagraph_string 	_cognome_nome, _dencom;
   TString16						_gruppoazie, _gruppoold, _tipoold;
   int 								_contatore;
+	ts									_tipostampa;
+  int								  _etlarghezza, _etcolonne;
+  bool							  _stampa80, _etictot;
   
 protected:
   virtual bool user_create();
@@ -52,6 +75,10 @@ public:
 
 HIDDEN inline TStampaBenxGAz& app() { return (TStampaBenxGAz&) main_app(); }
 
+TCursor* TEti_bengru_form::cursor() const { return app().current_cursor(); }
+
+TRelation* TEti_bengru_form::relation() const { return cursor()->relation(); }
+
 print_action TStampaBenxGAz::postprocess_print(int file, int counter)
 { 
 	if (_contatore > 0)
@@ -73,69 +100,137 @@ void TStampaBenxGAz::footer_gruppo()
 
 void TStampaBenxGAz::set_page(int file, int cnt)
 {
-	set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
-	set_row(1,"@9g@S", FLD(LF_SOGGETTI,SOG_CATDON));
-	set_row(1,"@12g#a", &_cognome_nome);
-	set_row(1,"@38g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
-	set_row(1,"@49g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
-	set_row(1,"@100g@S", FLD(LF_SOGGETTI,SOG_TELABI));
-	set_row(1,"@116g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
-	set_row(2,"@49g#a", &_dencom);
-	set_row(2,"@116g@S", FLD(LF_SOGGETTI,SOG_TELALT));
+	switch (_tipostampa)
+	{
+		case etichette:
+		{ 
+			TPrint_section& corpo = _form_eti->get_body();
+			for (int r=1;r<=_etcolonne;r++)
+			{                     
+				if (current_cursor()->pos()<current_cursor()->items())
+				{ 
+					bool avanza = TRUE;
+					while (avanza)
+					{
+						if (current_cursor()->pos()<current_cursor()->items())
+							avanza = !(preprocess_page(file, cnt));
+						else
+							avanza = FALSE;
+						if (avanza)             
+							++(*current_cursor());
+					}								
+					force_setpage(TRUE);
+				  TForm_item& cognome = corpo.find_field(ETI_COGNOME);
+				  cognome.set(_cognome_nome);					
+					corpo.update();                                                     
+  				for (word i = 0; i < corpo.height(); i++)
+  				{
+  					TPrintrow& riga = corpo.row(i);
+  					TString256 riga1 = riga.row();
+						riga1.cut(_etlarghezza);
+  					int colonna = ((r-1)*_etlarghezza);
+  					TString16 formato;
+  					formato << '@' << colonna << 'g';
+  					riga1.insert(formato,0);
+  					set_row(i+1,riga1);
+					}
+					if (r < _etcolonne)  			
+					{   
+						bool avanza = TRUE;
+						while (avanza)
+						{
+							++(*current_cursor());
+							if (current_cursor()->pos()<current_cursor()->items())
+								avanza = !(preprocess_page(file, cnt));
+							else
+								avanza = FALSE;								
+						}								
+					}						
+				}					
+			}				
+		}
+		break;
+    case completo:
+    {
+			set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
+			set_row(1,"@9g@S", FLD(LF_SOGGETTI,SOG_CATDON));
+			set_row(1,"@12g#a", &_cognome_nome);
+			set_row(1,"@38g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
+			set_row(1,"@49g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
+			set_row(1,"@100g@S", FLD(LF_SOGGETTI,SOG_TELABI));
+			set_row(1,"@116g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
+			set_row(2,"@49g#a", &_dencom);
+			set_row(2,"@116g@S", FLD(LF_SOGGETTI,SOG_TELALT));
+		}
+		break;
+    case sintetico:
+    {
+			set_row(1,"@0g#a", &_cognome_nome);
+		}			
+		break;			
+	}		
 }
 
 bool TStampaBenxGAz::preprocess_page(int file, int counter)
-{
-	TString80 nome = current_cursor()->curr(LF_SOGGETTI).get(SOG_COGNOME);
-	nome << " ";
-	nome << current_cursor()->curr(LF_SOGGETTI).get(SOG_NOME);
-	_cognome_nome = nome;
-	TString256 localita = "";
-	localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S6");
-	if (localita.not_empty() && localita.ok())
-	{
-		localita << " ";
-		localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0");
-		localita << " - ";		
-	}
-	else
-	{
-		localita = current_cursor()->curr(-ALIAS_COMDOM).get(COM_CAPCOM);
-		localita << " ";
-	}			
-	localita << current_cursor()->curr(-ALIAS_COMDOM).get(COM_DENCOM);
-	localita.trim();
-	_dencom = localita;
-	
-	// salto pagina se cambio punto di rottura
-	TString16 grupponew;
-	if (app()._tiposta == 'S')
-		grupponew = current_cursor()->curr(LF_SOGGETTI).get(SOG_GRUPPOAZIE);		
-	else
-		grupponew = current_cursor()->curr().get(BEN_GRUPPOAZIE);		
-	if (grupponew != _gruppoold )
-	{
-		if (_gruppoold != "**")
-			footer_gruppo();
-		_contatore = 0;				
-		_gruppoold = grupponew;
-		header_gruppo(grupponew);
-		_tipoold = "**";
-	}
-	TString16 tiponew = current_cursor()->curr().get(BEN_TIPOBEN);					
-	if (tiponew != _tipoold)
-	{
-		TPrintrow riga;
-		printer().print(riga);		
-		riga.reset();
-		riga.put(current_cursor()->curr(-ALIAS_BNZ).get("S0"));
-		_tipoold = tiponew;   
-		if (printer().rows_left() < 3)
+{      
+	if (_tipostampa==sintetico||_tipostampa==completo)
+  {
+		TString80 nome = current_cursor()->curr(LF_SOGGETTI).get(SOG_COGNOME);
+		nome << " ";
+		nome << current_cursor()->curr(LF_SOGGETTI).get(SOG_NOME);
+		_cognome_nome = nome;
+		TString256 localita = "";
+		localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S6");
+		if (localita.not_empty() && localita.ok())
+		{
+			localita << " ";
+			localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0");
+			localita << " - ";		
+		}
+		else
+		{
+			localita = current_cursor()->curr(-ALIAS_COMDOM).get(COM_CAPCOM);
+			localita << " ";
+		}			
+		localita << current_cursor()->curr(-ALIAS_COMDOM).get(COM_DENCOM);
+		localita.trim();
+		_dencom = localita;
+		
+		// salto pagina se cambio punto di rottura
+		TString16 grupponew;
+		if (app()._tiposta == 'S')
+			grupponew = current_cursor()->curr(LF_SOGGETTI).get(SOG_GRUPPOAZIE);		
+		else
+			grupponew = current_cursor()->curr().get(BEN_GRUPPOAZIE);		
+		if (grupponew != _gruppoold )
+		{
+			if (_gruppoold != "**")
+				footer_gruppo();
+			_contatore = 0;				
+			_gruppoold = grupponew;
+			header_gruppo(grupponew);
+			_tipoold = "**";
+		}
+		TString16 tiponew = current_cursor()->curr().get(BEN_TIPOBEN);					
+		if (tiponew != _tipoold)
+		{
+			TPrintrow riga;
+			printer().print(riga);		
+			riga.reset();
+			riga.put(current_cursor()->curr(-ALIAS_BNZ).get("S0"));
+			_tipoold = tiponew;   
+			if (printer().rows_left() < 3)
+				printer().formfeed();
+			printer().print(riga);
+			riga.reset();
+			printer().print(riga);
+		}	
+		if (printer().rows_left() < 4)
+			printer().formfeed();
+	}			     
+	if (_tipostampa==etichette)		
+		if (printer().rows_left() < _form_eti->get_body().height())
 			printer().formfeed();
-		printer().print(riga);
-	}	
-	if (printer().rows_left() < 4)
-		printer().formfeed();
 	_contatore++;			
   return TRUE;
 }
@@ -151,17 +246,37 @@ void TStampaBenxGAz::header_gruppo(const TString16 gruppo)
 	gaz.put("CODTAB",gruppo);
 	if (gaz.read() == NOERR)
 		intestazione << gaz.get("S0");
-	intestazione.center_just(132);	
+	if (_tipostampa==completo)
+		intestazione.center_just(132);	
+	if (_tipostampa==sintetico)
+		intestazione.left_just(132);		
 	set_header(2,"@0g%s", (const char*) intestazione);
 	return;
 }
 
 bool TStampaBenxGAz::set_print(int m)
 { 
+	_tipostampa = undefined;
   KEY tasto;
- 	tasto = _msk->run();
- 	if (tasto == K_ENTER)
- 	{ 
+  tasto = _msk->run();
+  switch (tasto)
+  {
+	  case F_SINTETICO:
+	  	_tipostampa=sintetico;
+	 	break;
+	  case F_COMPLETO:
+	  	_tipostampa=completo;
+	 	break;
+	  case F_ETICHETTE:
+	  	_tipostampa=etichette;	
+	  break;
+  }	
+	if (_tipostampa != undefined)
+  {                                        
+		if (_tipostampa == etichette)
+			_cognome_nome.set_width(200);  		
+		if (_tipostampa == sintetico)
+			_cognome_nome.set_width(51);  		
 		_dataini = 	_msk->get_date(F_DATAINI);	
 		_datafin = 	_msk->get_date(F_DATAFIN);	
 		_gruppoazie = _msk->get(F_GRUPPOAZIE);
@@ -208,23 +323,35 @@ bool TStampaBenxGAz::set_print(int m)
 
 void TStampaBenxGAz::crea_intestazione()
 {
-  reset_header();
-  TString sep(132);
-	sep = "STAMPA BENEMERENZE ATTRIBUITE dal ";
-	sep << _dataini;
-	sep << " al ";
-	sep << _datafin;
-	sep.center_just(132);			
-	set_header(1,"@0g%s", (const char*) sep);
- 	sep = "Pag. @#";
-	set_header(1, "@110g%s", (const char*) sep);  
-	sep = "";
-	sep.fill('-');
-	set_header(3, (const char *) sep);
-	set_header(4,"@0gCodice@9gC.@12gCognome e nome@38gNato il@49gIndirizzo@100gTelefono abit.@116gTelefono lavoro");
-	set_header(5,"@49gCAP/Località/Comune/Prov.@116gTelefono altro");
-	set_header(6,"@0g--------@9g--@12g-------------------------@38g----------@49g--------------------------------------------------@100g---------------@116g---------------");
- 	printer().footerlen(3);
+  reset_header(); 
+	if (_tipostampa==sintetico || _tipostampa==completo)	  	
+  {
+	  TString sep(132);
+		sep = "STAMPA BENEMERENZE ATTRIBUITE dal ";
+		sep << _dataini;
+		sep << " al ";
+		sep << _datafin;
+		if (_tipostampa==completo)
+			sep.center_just(132);			
+		if (_tipostampa==sintetico)
+			sep.left_just(132);			
+		set_header(1,"@0g%s", (const char*) sep);
+	 	sep = "Pag. @#";
+	 	if (_tipostampa==completo)
+			set_header(2, "@110g%s", (const char*) sep);  
+	 	if (_tipostampa==sintetico)
+			set_header(2, "@60g%s", (const char*) sep);  
+		sep = "";
+		sep.fill('-');
+		if (_tipostampa==completo)
+		{
+			set_header(3, (const char *) sep);
+			set_header(4,"@0gCodice@9gC.@12gCognome e nome@38gNato il@49gIndirizzo@100gTelefono abit.@116gTelefono lavoro");
+			set_header(5,"@49gCAP/Località/Comune/Prov.@116gTelefono altro");
+			set_header(6,"@0g--------@9g--@12g-------------------------@38g----------@49g--------------------------------------------------@100g---------------@116g---------------");
+		}			
+	 	printer().footerlen(3);
+	}	 	
 }
 
 bool TStampaBenxGAz::user_create()
@@ -240,12 +367,18 @@ bool TStampaBenxGAz::user_create()
   _rel->add(LF_COMUNI, "COM==COMNASC",1,LF_SOGGETTI,ALIAS_COMNAS);
   _msk = new TMask("at1400a");
   TConfig config(CONFIG_STUDIO);
+  TString16 etformato = config.get("EtFormato");
+  _etlarghezza = config.get_int("EtLarghezza");
+  _etcolonne = config.get_int("EtColonne");
+	_form_eti = new TEti_bengru_form(etformato);
   _stampa80 = config.get_bool("Stampa80");
+  _etictot = config.get_bool("EticTot");
   return TRUE;
 }
 
 bool TStampaBenxGAz::user_destroy()
-{
+{         
+	delete _form_eti;
   delete _msk;
   delete _rel;
   return TRUE;
diff --git a/at/at1400a.h b/at/at1400a.h
index d96532796..fc82290a1 100755
--- a/at/at1400a.h
+++ b/at/at1400a.h
@@ -14,3 +14,7 @@
 #define F_GRUPPOAZIE    111
 #define F_D_GRUPPOAZIE  112
 #define F_TIPOSTA       113
+
+#define F_SINTETICO  501
+#define F_COMPLETO   502
+#define F_ETICHETTE  503
diff --git a/at/at1400a.uml b/at/at1400a.uml
index 116b3f2dd..b916e703a 100755
--- a/at/at1400a.uml
+++ b/at/at1400a.uml
@@ -2,16 +2,29 @@
 
 TOOLBAR "" 0 20 0 2
 
-BUTTON DLG_PRINT 9 2
+BUTTON F_SINTETICO 9 2
 BEGIN
-   PROMPT -12 -11 "~Stampa"
-   MESSAGE EXIT,K_ENTER
+   PROMPT -14 -11 "~Sintetico"
+   MESSAGE EXIT,F_SINTETICO
+END
+
+BUTTON F_COMPLETO 9 2
+BEGIN
+   PROMPT -24 -11 "~Completo"
+   MESSAGE EXIT,F_COMPLETO
+END
+
+BUTTON F_ETICHETTE 9 2
+BEGIN
+   PROMPT -34 -11 "~Etichette"
+   MESSAGE EXIT,F_ETICHETTE
 END
 
 BUTTON DLG_QUIT 9 2
 BEGIN
-   PROMPT -22 -11 ""
+   PROMPT -44 -11 ""
 END
+
 ENDPAGE
 
 PAGE "Elenco benemerenze per gruppo aziendale" -1 -1 78 20