Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Stampa ben. atrtibuite: possibilita' di scegliere un tipo di benerenza, possibilita' di fare elenco sintetico, completo, lettere, etichette


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

at/at1300.cpp

@@ -19,21 +19,44 @@
 #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, lettere=4 };
+
+// definizione form per etichette
+class TEti_bensez_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_bensez_form(): TForm() {};
+  TEti_bensez_form(const char* form, const char * code = "", int editlevel = 0, const char* desc = "")
+    						: TForm(form,code,editlevel,desc) {};
+  virtual ~TEti_bensez_form() {};
+};
+
 class TStampaBenemerenze : public TPrintapp
 {
 	TLocalisamfile*			_sezioni;
   TRelation*					_rel;
   TMask*      				_msk;
+  TEti_bensez_form*		_form_eti;
+  TEti_bensez_form*		_form_let;
   int									_counter;
   int 								_cur;
   char								_tiposta;
   TDate								_dataini, _datafin;
 	TString16						_codsez, _codsot, _sezini, _sotini, _sezfin, _sotfin;
-	bool								_stampa80;  
+	ts									_tipostampa;
   TParagraph_string 	_cognome_nome, _dencom;
-  TString16						_tipoold;
+  TString16						_tipoben, _tipoold;
   int 								_contatore;
-
+  int								  _etlarghezza, _etcolonne;
+  bool							  _stampa80, _etictot;
   
 protected:
   virtual bool user_create();
@@ -53,6 +76,10 @@ public:
 
 HIDDEN inline TStampaBenemerenze& app() { return (TStampaBenemerenze&) main_app(); }
 
+TCursor* TEti_bensez_form::cursor() const { return app().current_cursor(); }
+
+TRelation* TEti_bensez_form::relation() const { return cursor()->relation(); }
+
 print_action TStampaBenemerenze::postprocess_print(int file, int counter)
 { 
 	if (_contatore > 0)
@@ -74,6 +101,71 @@ void TStampaBenemerenze::footer_ben()
 
 void TStampaBenemerenze::set_page(int file, int cnt)
 {                                
+	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 lettere:
+		{
+			TPrint_section& corpo = _form_let->get_body();
+			corpo.update();
+  		for (word i = 0; i < corpo.height(); i++)
+  		{
+  			TPrintrow& riga = corpo.row(i);
+  			set_row(i+1,riga);
+			}  			
+			force_setpage(TRUE);	// serve perchè alla prossima etichetta rifaccia la setpage
+														// altrimenti stampa sempre la stessa etichetta
+		}
+		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);
@@ -86,10 +178,20 @@ void TStampaBenemerenze::set_page(int file, int cnt)
 			set_row(2,"@116g@S", FLD(LF_SOGGETTI,SOG_TELALT));
 			set_row(3,"@100g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
 			set_row(4,"");
+		}
+		break;			
+    case sintetico:
+    {
+			set_row(1,"@0g#a", &_cognome_nome);
+		}			
+		break;			
+	}		
 }
 
 bool TStampaBenemerenze::preprocess_page(int file, int counter)
 {
+	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);
@@ -104,7 +206,8 @@ bool TStampaBenemerenze::preprocess_page(int file, int counter)
 		}
 		else
 		{
-		localita = current_cursor()->curr(-ALIAS_COMDOM).get(COM_CAPCOM);
+			//localita = current_cursor()->curr(-ALIAS_COMDOM).get(COM_CAPCOM);
+			localita = current_cursor()->curr(LF_SOGGETTI).get(SOG_DOM_CAP);
 			localita << " ";
 		}			
 		localita << current_cursor()->curr(-ALIAS_COMDOM).get(COM_DENCOM);
@@ -137,6 +240,10 @@ bool TStampaBenemerenze::preprocess_page(int file, int counter)
 		else
 		if (printer().rows_left() < 4)
 			printer().formfeed();
+	}
+	if (_tipostampa==etichette)		
+		if (printer().rows_left() < _form_eti->get_body().height())
+			printer().formfeed();
 	_contatore++;			
   return TRUE;
 }
@@ -148,7 +255,10 @@ void TStampaBenemerenze::header_ben(const TString16 tipoben, const TString16 cod
 	intestazione << tipoben;
 	intestazione << " ";
 	intestazione << current_cursor()->curr(-ALIAS_BNZ).get("S0");
+	if (_tipostampa==completo)
 		intestazione.center_just(132);	
+	if (_tipostampa==sintetico)
+		intestazione.left_just(132);		
 	set_header(3,"@0g%s", (const char*) intestazione);
 	TLocalisamfile sezioni(LF_SEZIONI);
 	sezioni.zero();
@@ -173,21 +283,45 @@ void TStampaBenemerenze::header_ben(const TString16 tipoben, const TString16 cod
 		intestazione << "/";
 		intestazione << densot;
 	}	
+	if (_tipostampa==completo)	
 		intestazione.center_just();
+	if (_tipostampa==sintetico)	
+		intestazione.left_just();
 	set_header(1,"@0g%s", (const char*) intestazione);
 	return;
 }
 
 bool TStampaBenemerenze::set_print(int m)
 { 
+	_tipostampa = undefined;
   KEY tasto;
   tasto = _msk->run();
- 	if (tasto == K_ENTER)
+  switch (tasto)
   {
+	  case F_SINTETICO:
+	  	_tipostampa=sintetico;
+	 	break;
+	  case F_COMPLETO:
+	  	_tipostampa=completo;
+	 	break;
+	  case F_ETICHETTE:
+	  	_tipostampa=etichette;	
+	  break;
+  case F_LETTERE:
+  	_tipostampa = lettere;	
+  break;
+  }	
+	if (_tipostampa != undefined)
+  {                                        
+		if (_tipostampa == etichette)
+			_cognome_nome.set_width(200);  		
+		if (_tipostampa == sintetico)
+			_cognome_nome.set_width(51);  		
   	_codsez = "**";
   	_codsot = "**"; 	
 		_dataini = _msk->get_date(F_DATAINI);	
 		_datafin = _msk->get_date(F_DATAFIN);	
+		_tipoben = _msk->get(F_TIPOBEN);	
 		_tiposta = _msk->get(F_TIPOSTA)[0];
 	  TRectype da(LF_BENEM);
   	TRectype a (LF_BENEM);
@@ -247,7 +381,6 @@ bool TStampaBenemerenze::set_print(int m)
 	 	{
  			if (filtro.not_empty())
  				filtro << " && "; 
-	 	
 	 		if (_sotfin.not_empty())
 	 		{          
 				if (_tiposta == 'S')
@@ -281,6 +414,13 @@ bool TStampaBenemerenze::set_print(int m)
 		 			filtro << format("(94->CODSEZ <= \"%s\")",(const char*)_sezfin);
 			}	 			
 	 	}
+	 	if (_tipoben.not_empty())
+	 	{
+			if (filtro.not_empty())
+ 				filtro << " && "; 
+			filtro << format("(94->TIPOBEN==\"%s\")",(const char*)_tipoben);
+
+	 	}
 		current_cursor()->setfilter((const char*) filtro, TRUE);
 		_counter = 0;
  		_tipoold = "**";
@@ -298,23 +438,37 @@ bool TStampaBenemerenze::set_print(int m)
 void TStampaBenemerenze::crea_intestazione()
 {
   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(2,"@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('-');
 		set_header(4, (const char *) sep);
+		if (_tipostampa==completo)
+		{
 			set_header(5,"@0gCodice@9gC.@12gCognome e nome@38gNato il@49gIndirizzo@100gTelefono abit.@116gTelefono lavoro");
 			set_header(6,"@0gTessera@49gCAP/Località/Comune/Prov.@116gTelefono altro");
 			set_header(7,"@100gTot.don.");
 			set_header(8,"@0g--------@9g--@12g-------------------------@38g----------@49g--------------------------------------------------@100g---------------@116g---------------");
+		}		
+		else
+			set_header(5,"@0gCognome e nome");
 	 	printer().footerlen(3);
+	}	 	
 }
 
 bool TStampaBenemerenze::user_create()
@@ -331,12 +485,20 @@ bool TStampaBenemerenze::user_create()
   _sezioni = new TLocalisamfile(LF_SEZIONI);
   _msk = new TMask("at1300a");
   TConfig config(CONFIG_STUDIO);
+  TString16 etformato = config.get("EtFormato");
+  _etlarghezza = config.get_int("EtLarghezza");
+  _etcolonne = config.get_int("EtColonne");
+	_form_eti = new TEti_bensez_form(etformato);
+	_form_let = new TEti_bensez_form("ATLEBEBO");
   _stampa80 = config.get_bool("Stampa80");
+  _etictot = config.get_bool("EticTot");
   return TRUE;
 }
 
 bool TStampaBenemerenze::user_destroy()
 {
+	delete _form_let;
+	delete _form_eti;
   delete _msk;
   delete _sezioni;
   delete _rel;

at/at1300a.h

@@ -11,4 +11,11 @@
 #define F_D_SOTFIN      108
 #define F_DATAINI       109
 #define F_DATAFIN       110
-#define F_TIPOSTA       111
+#define F_TIPOBEN       111
+#define F_TIPOSTA       112
+#define F_D_TIPOBEN     113
+
+#define F_SINTETICO  501
+#define F_COMPLETO   502
+#define F_ETICHETTE  503
+#define F_LETTERE    504

at/at1300a.uml

@@ -1,16 +1,33 @@
 #include "at1300a.h"
 
 TOOLBAR "" 0 20 0 2
-
+BUTTON F_SINTETICO 9 2
-BUTTON DLG_PRINT 9 2
 BEGIN
-   PROMPT -12 -11 "~Stampa"
+   PROMPT -15 -11 "~Sintetico"
-   MESSAGE EXIT,K_ENTER
+   MESSAGE EXIT,F_SINTETICO
+END
+
+BUTTON F_COMPLETO 9 2
+BEGIN
+   PROMPT -25 -11 "~Completo"
+   MESSAGE EXIT,F_COMPLETO
+END
+
+BUTTON F_ETICHETTE 9 2
+BEGIN
+   PROMPT -35 -11 "~Etichette"
+   MESSAGE EXIT,F_ETICHETTE
+END
+
+BUTTON F_LETTERE 9 2
+BEGIN
+   PROMPT -45 -11 "~Lettere"
+   MESSAGE EXIT,F_LETTERE
 END
 
 BUTTON DLG_QUIT 9 2
 BEGIN
-   PROMPT -22 -11 ""
+   PROMPT -55 -11 ""
 END
 ENDPAGE
 
@@ -131,7 +148,7 @@ BEGIN
   HELP "Sottogruppo finale"
 END
 
-GROUPBOX DLG_NULL 77 3
+GROUPBOX DLG_NULL 77 4
 BEGIN
    PROMPT 1 5 "Selezioni dati per la stampa"
 END
@@ -143,15 +160,41 @@ END
 
 DATA F_DATAFIN
 BEGIN
-   PROMPT 30 6 "al "
+  PROMPT 31 6 "al "
+END
+
+STRING F_TIPOBEN 2
+BEGIN
+  PROMPT 2 7 "Tipo benemerenza "
+  FLAGS "U"
+  USE BNZ
+  INPUT CODTAB F_TIPOBEN
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@30" S0
+  OUTPUT F_TIPOBEN CODTAB
+  OUTPUT F_D_TIPOBEN S0
+  CHECKTYPE NORMAL
+  WARNING "Codice non presente"
+  HELP "Tipo benemerenza"
 END
 
 RADIOBUTTON F_TIPOSTA 40
 BEGIN
-   PROMPT 2 8 "Stampa per sezione "
+   PROMPT 2 9 "Stampa per sezione "
    ITEM "B|che ha attribuito la benemerenza"
    ITEM "S|di appartenenza attuale"
 END
 
+STRING F_D_TIPOBEN 30
+BEGIN
+  PROMPT 25 7 ""
+  FLAGS "D"
+END
+
+TEXT DLG_NULL
+BEGIN
+   PROMPT 57 7 "(vuota = tutte)"
+END
+
 ENDPAGE
 ENDMASK