Corretti bug su Sconti, Condizioni vendita e Anagr. magaz. Aggiunta stampa

sconti.


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

ve/ve2100.cpp

@@ -41,15 +41,18 @@ bool TTabelle_sconti::user_create() {
 		TMask choose("VE2100"); // istanzia la maschera di scelta del tipo di tabella
 		if (choose.run() == K_ENTER) _sconti= toupper((choose.get(F_TIPOSC))[0]); // prende il tipo di tabella dalla maschera
 	}
-	TConfig prassid(CONFIG_DITTA); // apre il file di configurazione di ditta
+	TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione di ditta
 	switch (_sconti) {
 		case 'D': // sconti documento
 			_msk= new TMask("VE2100D"); // apre la maschera relativa
+ 			set_search_field(F_D_CODCAT); // setta il campo di ricerca
  			gotcha= TRUE;
 			break;
 		case 'R': // sconti di riga
 			_msk= new TMask("VE2100R"); // apre la maschera relativa
 			set_search_field(F_R_RICERCA); // setta il campo di ricerca
+			_catven= prassid.get_bool("GESLISCV"); // legge il parametro di abilitazione delle categorie di vendita
+			if (!_catven) KILL(F_R_CODCAT); // se non è abilitato, viene disabilitato anche il campo
 			gotcha= TRUE;
 			break;
 		case 'I': // sconti incondizionati
@@ -62,12 +65,12 @@ bool TTabelle_sconti::user_create() {
 				sci_k_id[2]= F_I_ZONE;
 				sci_k_id[3]= F_I_CONDPAG;
 				for (i=0; i<4; i++) {
-	        if (prassid.get_bool("SCOKEY", NULL, i)) { // se nel file di config. il campo è abilitato...
+	        if (prassid.get_bool("SCOKEY", NULL, i+1)) { // se nel file di config. il campo è abilitato...
 	        	REVIVE(sci_k_id[i]); // ...il campo viene abilitato anche sulla maschera...
 	        	gotcha= TRUE; // ...e viene settato il flag di ok
 	        } else KILL(sci_k_id[i]); // se nel file di config. il campo non è abilitato viene disabilitato anche sulla maschera
 				}
-				_catven= prassid.get_bool("CODLISCV"); // legge il parametro di abilitazione delle categorie di vendita
+				_catven= prassid.get_bool("GESLISCV"); // legge il parametro di abilitazione delle categorie di vendita
 				if (!_catven) KILL(sci_k_id[1]); // se non è abilitato, viene disabilitato anche il campo
 				if (!gotcha) error_box("Non ci sono campi chiave abilitati nella configurazione della ditta");
 			} else error_box("Gli sconti incondizionati non sono abilitati nella configurazione");

ve/ve2100.uml

@@ -24,4 +24,3 @@ END
 ENDPAGE
 
 ENDMASK
-

ve/ve2100d.uml

@@ -54,4 +54,3 @@ END
 ENDPAGE
 
 ENDMASK
-

ve/ve2100i.uml

@@ -65,7 +65,7 @@ BEGIN
   FLAG "U"
   KEY 1
   USE LF_SCONTI
-  INPUT TIPO "D"
+  INPUT TIPO "D" SELECT
   INPUT CODCAT F_I_SCCLIENTI
   DISPLAY "Sc. Cliente" CODCAT
   DISPLAY "Descrizione@50" DESCR

ve/ve2100r.uml

@@ -108,4 +108,3 @@ END
 ENDPAGE
 
 ENDMASK
-

ve/ve2200.cpp

@@ -78,7 +78,7 @@ bool TCondizioni_vendita::user_create() {
 				DESTROY(F_C_OBBLIG);
 				DESTROY(F_C_DESCF);
 				set_search_field(F_L_COD); // impostazione del campo di ricerca
-				_msk->set_handler(F_LC_CODSUCC, handle_codsucc); // setta l'handler per il campo di codice successivo
+				_msk->set_handler(F_L_CODSUCC, handle_codsucc); // setta l'handler per il campo di codice successivo
 				_codlis_catven= prassid.get_bool("GESLISCV"); // setta il booleano di abilitazione delle categoria di vendita
 				if (!_codlis_catven) KILL(F_L_CATVEN); // disabilita condizionalmente le categorie di vendita
 				_gest_um= prassid.get_bool("GESUM", NULL, A_LISTINI); // setta il booleano di abilitazione delle unità di misura
@@ -96,13 +96,14 @@ bool TCondizioni_vendita::user_create() {
 				DESTROY(F_O_COD);
 				DESTROY(F_L_CATVEN);
 				DESTROY(F_L_DESVEN);
+				DESTROY(F_L_CODSUCC);
+				DESTROY(F_L_DESSUCC);
 		    _codcon_codcf= prassid.get_bool("GESCONCC"); // setta il booleano di abilitazione di TIPOCF e CODCF
 		    if (!_codcon_codcf) { // disabilita i campi di gestione clienti/fornitori in base al flag. di config.
 		    	KILL(F_R_C_TIPOCF);
 		    	KILL(F_R_C_CODCF);
 		    }
   	    set_search_field(F_C_COD); // impostazione del campo di ricerca
-				_msk->set_handler(F_LC_CODSUCC, handle_codsucc); // setta l'handler per il campo di codice successivo
 				_gest_um= prassid.get_bool("GESUM", NULL, A_CONTRATTI); // setta il booleano di abilitazione delle unità di misura
 				_gest_sca= prassid.get_bool("GESSCA", NULL, A_CONTRATTI); // setta il booleano di abilitazione degli scaglioni
 				_gest_so= prassid.get_bool("GESSO", NULL, A_CONTRATTI); // setta il booleano di abilitazione degli sconti/omaggi
@@ -121,8 +122,8 @@ bool TCondizioni_vendita::user_create() {
 				DESTROY(F_C_DESCF);
 				DESTROY(F_L_DESVEN);
 				DESTROY(F_C_OBBLIG);
-				DESTROY(F_LC_CODSUCC);
+				DESTROY(F_L_CODSUCC);
-				DESTROY(F_LC_DESSUCC);
+				DESTROY(F_L_DESSUCC);
 				set_search_field(F_O_COD); // impostazione del campo di ricerca
 				_gest_um= prassid.get_bool("GESUM", NULL, A_OFFERTE); // setta il booleano di abilitazione delle unità di misura
 				_gest_sca= prassid.get_bool("GESSCA", NULL, A_OFFERTE); // setta il booleano di abilitazione degli scaglioni

ve/ve2200x.h

@@ -21,9 +21,9 @@
 // campi riservati ai listini
 #define F_L_CATVEN     131
 #define F_L_COD        132
-#define F_LC_CODSUCC   133
+#define F_L_CODSUCC    133
 #define F_L_DESVEN     134
-#define F_LC_DESSUCC   135
+#define F_L_DESSUCC    135
 
 // campi riservati ai contratti
 #define F_C_TIPOCF     141
@@ -37,4 +37,3 @@
 
 // pulsante di lancio dell'edit delle righe
 #define BTN_RIGHE      161
-

ve/ve2300.cpp

@@ -73,7 +73,7 @@ bool TRighe_condizioni_vendita::user_create() {
     _msk->hide(F_R_O_DES);
     _msk->hide(F_R_C_RICERCA);
     _msk->hide(F_R_O_RICERCA);
-    //  _msk->hide(F_R_CO_CODLOTTO);
+    // _msk->hide(F_R_CO_CODLOTTO);
     _msk->hide(F_R_O_ARTES);
     _codlis_catven= prassid.get_bool("GESLISCV"); // setta il booleano di abilitazione di CATVEN
     if (!_codlis_catven) KILL(F_R_L_CATVEN); // disabilita condizionalmente le categorie di vendita
@@ -145,9 +145,14 @@ void TRighe_condizioni_vendita::hide_and_show_codriga() {
     bool &_gest_um= app()._gest_um; // prende il riferimento al booleano di abilitazione delle unità di misura
     TString &_rcondven= app()._rcondven; // prende il riferimento alla stringa di tipo di archivio
     char tag_campo= toupper(_msk->get(F_R_TIPORIGA)[0]); // prende il tag del campo da abilitare in TIPORIGA
-    for (int i=0; i<4; i++) { // ciclo sui tre campi CODRIGA
+    for (int i=0; i<4; i++) { // ciclo sui quattro campi CODRIGA
-      if (tag_campo == tag_campi[i]) { CREATE(id_campi_1[i]); _msk->show(id_campi_2[i]); } // il campo indicato con il tag viene reso visibile
+      if (tag_campo == tag_campi[i]) { // il campo indicato con il tag viene reso visibile
-      else { DESTROY(id_campi_1[i]); _msk->hide(id_campi_2[i]); } // i campi non corrispondenti al tag vengono resi invisibili
+        CREATE(id_campi_1[i]);
+        _msk->show(id_campi_2[i]);
+      } else { // i campi non corrispondenti al tag vengono resi invisibili
+        DESTROY(id_campi_1[i]);
+        _msk->hide(id_campi_2[i]);
+      }
     }
     if (_gest_um && (tag_campo=='A')) { REVIVE(F_R_UM); } // se la gest. delle u.m. è abilitata, il campo viene attivato se la riga è un articolo...
     else { KILL(F_R_UM); } // ...altrimenti viene disattivato
@@ -190,15 +195,15 @@ bool TRighe_condizioni_vendita::handle_cod(TMask_field &fld, KEY k) {
         REVIVE(F_R_NSCAGL); // abilita il campo "numero scaglione"
         _msk->enable(F_R_QLIM); // abilita il campo "quantità limite scaglione"
       }
+      if (condv.get_bool("SCONST") || condv.get_bool("GESTSCO")) _msk->enable(F_R_SCONTO); // abilita il campo "sconto"
+			else _msk->disable(F_R_SCONTO); // disabilita il campo "sconto"
       if (!condv.get_bool("GESTSCO")) {
-        _msk->disable(F_R_SCONTO); // disabilita il campo "sconto"
         _msk->disable(F_R_QOM); // disabilita il campo "quantità art. omaggio"
         _msk->disable(F_R_QBASE); // disabilita il campo "quantità base x sconto"
         _msk->disable(F_R_CODARTOM); // disabilita il campo "codice articolo omaggio"
         _msk->disable(F_R_PROMAGGIO); // disabilita il campo "prezzo omaggio"
         _msk->disable(F_R_UMOM); // disabilita il campo "unità di misura art. omaggio"
       } else {
-        _msk->enable(F_R_SCONTO); // abilita il campo "sconto"
         _msk->enable(F_R_QOM); // abilita il campo "quantità art. omaggio"
         _msk->enable(F_R_QBASE); // abilita il campo "quantità base x sconto"
         _msk->enable(F_R_CODARTOM); // abilita il campo "codice articolo omaggio"

ve/ve3.cpp

@@ -2,7 +2,7 @@
 #include <checks.h>
 #include <xvt.h>
 
-//extern int ve3100(int argc, char* argv[]); // stampa tabelle sconti (di riga/di documento/incondizionati)          
+extern int ve3100(int argc, char **argv); // stampa tabelle sconti (di riga/di documento/incondizionati)          
 extern int ve3200(int argc, char **argv); // stampa testate listini/contratti/offerte
 extern int ve3400(int argc, char **argv); // stampa anagrafica di magazzino
 
@@ -13,9 +13,18 @@ int main(int argc, char **argv) {
   const int r= (argc>1)?(atoi(&argv[1][1])):(-1);
 
   switch (r) {
-  case 1: rt = ve3200(argc, argv); break;
+	case 0:
-        case 3: rt = ve3400(argc, argv); break;
+		rt= ve3100(argc, argv);
-        default: error_box("Sintassi: %s -[0 [R|D|I] | 1 [L|C|O] | 3]", argv[0]); break;
+		break;
-        }
+  case 1:
+  	rt= ve3200(argc, argv);
+  	break;
+  case 3:
+  	rt= ve3400(argc, argv);
+  	break;
+  default:
+  	error_box("Sintassi: %s -[0 [R|D|I] | 1 [L|C|O] | 3]", argv[0]);
+  	break;
+  }
   return (rt);
 }

ve/ve3100.cpp

@@ -0,0 +1,320 @@
+
+#include <printapp.h>
+#include <mask.h>
+#include <config.h>
+#include <execp.h>
+#include <mailbox.h>
+
+#include "ve3100.h"
+
+#define KILL(x) { mask->field(x).reset_key(1); mask->disable(x); }
+#define REVIVE(x) { mask->field(x).set_key(1); mask->enable(x); }
+
+#define SCON1 135
+#define CVE1  201
+#define ZON1  202
+#define CPG1  203
+#define UMS1  204
+
+
+
+class TStampa_sconti: public TPrint_application {
+  TRelation *_rel; // relazione principale
+	TString16 _sconti; // tipo di archivio
+  TString16 _gessco; // configurazione della gestione sconti
+	bool _descriz; // abilitazione della stampa delle descrizioni
+	bool _compat; // abilita le descrizioni compatte (vengono ristampate solo al cambio dei valori)
+  bool _catven; // abilitazione della categoria di vendita (gesliscv)
+	bool _scokey_catven; // abilitazione della categoria di vendita
+	bool _scokey_scclienti; // abilitazione degli sconti clienti
+	bool _scokey_zone; // abilitazione delle zone
+	bool _scokey_condpag; // abilitazione delle condizioni di pagamento
+	TString _last_catven, _last_codart, _last_um, _last_sccliente, _last_zona, _last_condpag; // inseguitori dei campi da descrivere
+//int _rcondv_link_id; // id del link ipertestuale all'anagrafica di magazzino
+protected:
+  virtual bool user_create(void);
+  virtual bool user_destroy(void);
+  virtual bool set_print(int);
+  virtual void set_page(int, int);
+  virtual void preprocess_header(void);
+  virtual void preprocess_footer(void);
+//virtual void process_link(int, const char *);
+};
+
+
+
+bool TStampa_sconti::user_create() {
+	bool gotcha= FALSE; // booleano di avvenuta inizializzazione
+	_sconti= "*"; // inizializzazione dell'indicatore del tipo di tabella
+	if (argc()>2) _sconti= argv(2); // se c'è, prende il tipo di tabella dalla linea di comando
+	else {
+		TMask choose("VE3100"); // istanzia la maschera di scelta del tipo di tabella
+		if (choose.run() == K_ENTER) _sconti= choose.get(F_TIPOSC); // prende il tipo di tabella dalla maschera
+	}
+	TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione di ditta
+	switch (_sconti[0]) {
+		case 'D': // sconti documento
+			_rel= new TRelation(LF_SCONTI); // crea la relazione principale
+			gotcha= TRUE;
+			break;
+		case 'R': // sconti di riga
+			_rel= new TRelation(LF_SCONTI); // crea la relazione principale
+			_rel->add(LF_ANAGR, "CODART==CODART");
+			_rel->add("%UMS", "CODTAB==UM", 1, LF_SCONTI, UMS1);
+			_rel->add("%CVE", "CODTAB==CODCAT", 1, LF_SCONTI, CVE1);
+ 			gotcha= TRUE;
+			break;
+		case 'I': // sconti incondizionati
+			_gessco= prassid.get("GESSCO"); // legge lo stato del parametro di abilitazione degli sconti
+      if (_gessco=="A") {
+				_rel= new TRelation(LF_SCONTI); // crea la relazione principale
+				_rel->add("%CVE", "CODTAB==CODCAT", 1, LF_SCONTI, CVE1);
+				_rel->add(LF_SCONTI, "TIPO==\"D\"|CODCAT==CODART[1,2]", 1, LF_SCONTI, SCON1);
+      	_rel->add("%ZON", "CODTAB==CODART[3,4]", 1, LF_SCONTI, ZON1);
+      	_rel->add("%CPG", "CODTAB==CODART[5,8]", 1, LF_SCONTI, CPG1);
+      	gotcha= TRUE;
+      } else error_box("Gli sconti incondizionati non sono abilitati nella configurazione");
+			break;
+		default: // messaggio di errore se si indica una tabella non valida
+			error_box("Indicare la tabella sulla linea di comando (D, R o I) oppure selezionarla dalla maschera di partenza");
+			break;
+	}
+	if (gotcha) {
+		add_cursor(new TCursor(_rel)); // costruisce il cursore sulla relazione e lo passa alla stampa
+		add_file(LF_SCONTI); // notifica il file delle principale alla stampa
+		enable_print_menu(); // abilita il menù di stampa
+		enable_setprint_menu(); // abilita il menù di settaggio della stampa
+	}
+	return (gotcha);
+}
+
+bool TStampa_sconti::user_destroy() {
+  delete _rel;
+  return TRUE;
+}
+
+bool TStampa_sconti::set_print(int) {
+	bool gotcha= FALSE;
+	TConfig prassid(CONFIG_DITTA, "ve");
+	TMask *mask;
+	switch (_sconti[0]) {
+		case 'D': // sconti documento
+			mask= new TMask("ve3100d");
+			gotcha= TRUE;
+			break;
+		case 'R': // sconti di riga
+			mask= new TMask("ve3100r");
+			if (!_catven) {
+				KILL(F_R_CODCAT_DA);
+				KILL(F_R_CODCAT_A);
+			} else {
+				REVIVE(F_R_CODCAT_DA);
+				REVIVE(F_R_CODCAT_A);
+			}
+			gotcha= TRUE;
+			break;
+		case 'I': // sconti incondizionati
+			mask= new TMask("ve3100i");
+			short k_id[2][4]= { F_I_CATVEN_DA, F_I_CATVEN_A, F_I_SCCLIENTI_DA, F_I_SCCLIENTI_A, F_I_ZONE_DA, F_I_ZONE_A, F_I_CONDPAG_DA, F_I_CONDPAG_A }; // vettore dei campi da controllare
+			for (int i=0; i<4; i++) {
+				bool enab= prassid.get_bool("SCOKEY", NULL, i+1);
+				switch (i) {
+				case 0: _scokey_catven= enab; break;
+				case 1: _scokey_scclienti= enab; break;
+				case 2: _scokey_zone= enab; break;
+				case 3: _scokey_condpag= enab; break;
+				}
+        if (enab) { // se nel file di config. il campo è abilitato...
+        	REVIVE(k_id[0][i]); // ...i campi vengono abilitati anche sulla maschera
+        	REVIVE(k_id[1][i]);
+        	gotcha= TRUE;
+        } else {
+        	KILL(k_id[0][i]); // se nel file di config. i campi non sono abilitati vengono disabilitati anche sulla maschera
+        	KILL(k_id[1][i]);
+				}
+			}
+			if (!_catven) {
+       	KILL(k_id[0][1]); // se nel file di config. la categoria vendite è disabilitata viene ucciso il campo
+       	KILL(k_id[1][1]);
+			}				
+			if (!gotcha) error_box("Non ci sono campi chiave abilitati nella configurazione della ditta");
+			break;
+	}
+  if (gotcha && (mask->run()== K_ENTER)) { // lancia la maschera, se viene confermata vengono trovati gli estremi del cursore
+		if (_sconti=="R") {
+			_descriz= mask->get_bool(F_R_DESCRIZ);
+			_compat= mask->get_bool(F_R_COMPAT);
+		} else if (_sconti=="I") {
+			_descriz= mask->get_bool(F_I_DESCRIZ);
+			_compat= mask->get_bool(F_I_COMPAT);
+		}
+		TLocalisamfile &sconti= _rel->lfile();
+		TRectype da(sconti.curr()); // prepara il record di inizio regione
+		da.zero();
+		da.put("TIPO", _sconti);
+		TRectype a(da); // prepara il record di fine regione
+		TString codart; // stringa per la composizione del campo CODART negli sconti incondizionati
+    switch (_sconti[0]) { // impostazione della chiave della testata
+    	case 'D': // sconti documento
+    		da.put("CODCAT", mask->get(F_D_CODCAT_DA));
+    		a.put("CODCAT", mask->get(F_D_CODCAT_A));
+    		break;
+    	case 'R': // sconti di riga
+    		if (_catven) {
+	    		da.put("CODCAT", mask->get(F_R_CODCAT_DA));
+	    		a.put("CODCAT", mask->get(F_R_CODCAT_A));
+	    	} else {
+	    		da.blank("CODCAT"); // i campi non gestiti vengono riempiti di blank
+	    		a.blank("CODCAT");
+	    	}
+    		da.put("CODART", mask->get(F_R_CODART_DA));
+    		a.put("CODART", mask->get(F_R_CODART_A));
+    		break;
+    	case 'I': // sconti incondizionati
+				if (_catven && _scokey_catven) {
+					da.put("CODCAT", mask->get(F_I_CATVEN_DA));
+					a.put("CODCAT", mask->get(F_I_CATVEN_A));
+				} else {
+					da.blank("CODCAT"); // i campi non gestiti vengono riempiti di blank
+					a.blank("CODCAT");
+				}
+				if (_scokey_scclienti || _scokey_zone || _scokey_condpag) {
+					codart.format("%2s%2s%4s", (_scokey_scclienti)?(mask->get(F_I_SCCLIENTI_DA)):(""), (_scokey_zone)?(mask->get(F_I_ZONE_DA)):(""), (_scokey_condpag)?(mask->get(F_I_CONDPAG_DA)):(""));
+					da.put("CODART", codart);
+					codart.format("%2s%2s%4s", (_scokey_scclienti)?(mask->get(F_I_SCCLIENTI_A)):(""), (_scokey_zone)?(mask->get(F_I_ZONE_A)):(""), (_scokey_condpag)?(mask->get(F_I_CONDPAG_A)):(""));
+					a.put("CODART", codart);
+				}
+    		break;
+    }
+    current_cursor()->setregion(da, a); // setta la regione sul cursore
+		force_setpage(); // forza il lancio della set_page() ad ogni record del file da stampare
+		disable_links(); // disabilita tutti i link ipertestuali
+//  _rcondv_link_id= enable_link("Collegamento a archivio sconti", 'g'); // abilita il collegamento
+    return TRUE;
+  } else return FALSE;
+}
+
+/*                                                                                                 1         1         1         1
+         1         2         3         4         5         6         7         8         9         0         1         2         3
+123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012
+D:
+CC DESCR                                              SCONTO
+.. .................................................. .........................
+
+R:
+CC CODART               UM SCONTO
+.. .................... .. .........................
+Categoria vendite: ..................................................
+Articolo:          ..................................................
+Unità di misura:   ..................................................
+
+I:
+CC SC ZN CPG  SCONTO
+.. .. .. .... .........................
+Categoria vendite:       ..................................................
+Sconto cliente:          ..................................................
+Zona:                    ..................................................
+Condizione di pagamento: ..................................................
+
+*/
+
+void TStampa_sconti::preprocess_header() {
+	reset_header(); // l'header viene resettato
+  int  i= 1; // contatore delle linee
+  const long firm= get_firm(); // legge l'id della ditta corrente
+  TLocalisamfile ditte(LF_NDITTE); // apre il file ditte
+  ditte.zero(); // vuota il record
+  ditte.put("CODDITTA", firm); // riempie la chiave
+  if (ditte.read()== NOERR) { // se il record della ditta viene trovato viene settato l'header
+	  const TString &s= ditte.get("RAGSOC"); // legge la ragione sociale della ditta
+	  set_header(i, "@1gDitta %ld %s", firm, (const char *)s); // setta il nome e l'id della ditta della prima linea dell'header
+  }
+  set_header(++i,"@1gCC"); // codice di categoria
+  switch (_sconti[0]) {
+  case 'D': // sconti documento
+  	set_header(i, "@4gDescrizione @55gSconto"); // descrizione e sconto
+  	break;
+  case 'R': // sconti di riga
+  	set_header(i, "@4gCod. articolo @25gUM @28gSconto"); // codice articolo, unità di misura e sconto
+  	break;
+  case 'I': // sconti incondizionati
+  	set_header(i, "@4gSC @7gZn @10gCPg @15gSconto"); // sconto cliente, zona, condizione di pagamento e sconto
+  	break;
+  }
+  set_header(++i, ""); // aggiunge due linee vuote
+  set_header(++i, "");
+}
+
+void TStampa_sconti::preprocess_footer() {
+	reset_footer();
+	int i= 1; // indice di linea
+	set_footer(i, ""); // salta una linea
+  set_footer(++i, "@125gPag @#"); // l'unica linea del footer contiene il numero di pagina
+}
+
+void TStampa_sconti::set_page(int file, int) {
+	if (file== LF_SCONTI) { // se il file in stampa non è il file principale non c'è nulla da fare
+		TLocalisamfile &sconti= _rel->lfile();
+		int i= 0; // indice di riga
+		switch (_sconti[0]) {
+		case 'D': // sconti documento
+			set_row(++i, "@1g@2s @4g@50s @55g@25s", FLD(LF_SCONTI, "CODCAT"), FLD(LF_SCONTI, "DESCR"), FLD(LF_SCONTI, "SCONTO"));
+			break;
+		case 'R': // sconti di riga
+			if (_descriz) {
+				const TString &catven= sconti.get("CODCAT"); // categoria di vendita
+				if (_catven && ((!_compat) || (catven != _last_catven))) {
+					set_row(++i, "@1gCategoria vendite: @20g@50s", FLD(-CVE1, "S0"));
+					_last_catven= catven;
+				}
+				const TString &codart= sconti.get("CODART"); // codice articolo
+				if ((!_compat) || (codart != _last_codart)) {
+					set_row(++i, "@1gArticolo: @20g@50s", FLD(LF_ANAGR, "DESCR"));
+					_last_codart= codart;
+				}
+				const TString &um= sconti.get("UM"); // unità di misura
+				if ((!_compat) || (codart != _last_codart)) {
+					set_row(++i, "@1gUnità di misura: @20g@50s", FLD(-UMS1, "S0"));
+					_last_um= um;
+				}
+			}
+			set_row(++i, "@1g@2s @4g@20s @25g@2s @28g@25s", FLD(LF_SCONTI, "CODCAT"), FLD(LF_SCONTI, "CODART"), FLD(LF_SCONTI, "UM"), FLD(LF_SCONTI, "SCONTO"));
+			break;
+		case 'I': // sconti incondizionati
+			if (_descriz) {
+				const TString &catven= sconti.get("CODCAT"); // categoria di vendita
+				if (_catven && _scokey_catven && ((!_compat) || (catven != _last_catven))) {
+					set_row(++i, "@1gCategoria vendite: @26g@50s", FLD(-CVE1, "S0"));
+					_last_catven= catven;
+				}
+				const TString &sccliente= sconti.get("CODART").sub(0,1); // sconto cliente
+				if (_scokey_scclienti && ((!_compat) || (sccliente != _last_sccliente))) {
+					set_row(++i, "@1gSconto cliente: @26g@50s", FLD(-SCON1, "DESCR"));
+					_last_sccliente= sccliente;
+				}
+				const TString &zona= sconti.get("CODART").sub(2,3); // zona
+				if (_scokey_zone && ((!_compat) || (zona != _last_zona))) {
+					set_row(++i, "@1gZona: @26g@50s", FLD(-ZON1, "S0"));
+					_last_zona= zona;
+				}
+				const TString &condpag= sconti.get("CODART").sub(4,7); // condizione di pagamento
+				if (_scokey_condpag && ((!_compat) || (zona != _last_zona))) {
+					set_row(++i, "@1gCondizioni pagamento: @26g@50s", FLD(-CPG1, "S0"));
+					_last_condpag= condpag;
+				}
+			}
+			set_row(++i, "@1g@2s @4g@2s @7g@2s @10g@4s @15g@25s", FLD(LF_SCONTI, "CODCAT"), FLD(LF_SCONTI, "CODART", 1, 2), FLD(LF_SCONTI, "CODART", 3, 4), FLD(LF_SCONTI, "CODART", 5, 8), FLD(LF_SCONTI, "SCONTO"));
+      break;
+    }
+    set_row(++i, ""); // salta una linea
+  }
+}
+
+
+
+int ve3100(int argc, char **argv) {
+  TStampa_sconti a;
+  
+  a.run(argc, argv, "Stampa sconti");
+  return 0;
+}

ve/ve3100.h

@@ -1,9 +1,6 @@
-#define F_TIPO        101
+#include "ve3100d.h"
-#define F_CODCAT      102
+#include "ve3100r.h"
-#define F_CODART      103
+#include "ve3100i.h"
-#define F_UM          104
-#define F_SCONTO      105
 
-#define F_CODCAT1     106
+#define F_TIPOSC 101
-#define F_DESCR       107
 

ve/ve3100.uml

@@ -1,96 +1,26 @@
-#include "VE3100.H"
+#include "ve3100.h"
 
-// #define LF_SCONTI 
+PAGE "Stampa archivio sconti " -1 -1 40 10
-#define LF_ANAMAG 47
 
-TOOLBAR "" 0 20 60 2
+RADIOBUTTON F_TIPOSC 36
- #include <toolbar.h>
-ENDPAGE
-
-PAGE "Archivio sconti riga " 11 60 14
-
-LISTBOX F_TIPO 1
 BEGIN
-   PROMPT 0 0 ""
+  PROMPT 1 2 "Tipo di archivio "
-   ITEM "R|"
+  ITEM "R|Sconti di riga"
-   FLAG "H"
+  ITEM "D|Sconti documento"
-//   FIELD LF_SCONTI->TIPO    
+  ITEM "I|Sconti indondizionati"
 END
 
-STRING F_CODCAT 2
+BUTTON DLG_SELECT 9 2
 BEGIN
-  PROMPT 3 2  "Categoria vendita "
+  PROMPT -12 -1 "Selezione"
-//  FIELD LF_SCONTI->CODCAT
+  MESSAGE EXIT,K_ENTER
-  USE %CVE  // CATEGORIE VENDITA
-  FLAG "U"
-  INPUT CODTAB  F_CODCAT
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@40" S0
-      
-  OUTPUT F_CODCAT  CODTAB
-  OUTPUT F_CODCAT1 S0
 END
 
-STRING F_CODCAT1 40
+BUTTON DLG_QUIT 9 2
 BEGIN
-  PROMPT 28 2  ""
+  PROMPT -22 -1 ""
-  USE %CVE  KEY 2
-  FLAG "U"
-  INPUT S0  F_CODCAT1
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@40" S0
-      
-  OUTPUT F_CODCAT  CODTAB
-  OUTPUT F_CODCAT1 S0
-END
-
-STRING F_CODART 30
-BEGIN
-  PROMPT 3 4  "Codice articolo "
-//  FIELD LF_SCONTI->CODART
-  USE LF_ANAMAG
-  INPUT CODART F_CODART
-  DISPLAY "Codice@30" CODART
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_CODART CODART
-  OUTPUT F_DESCR DESCR
-END
-
-STRING F_DESCR 50
-BEGIN
-  PROMPT 3 5  "Descrizione "
-
-  USE LF_ANAMAG KEY 2
-  INPUT DESCR F_DESCR
-  DISPLAY "Codice@30" CODART
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_CODART CODART
-  OUTPUT F_DESCR DESCR
-END
-
-LISTBOX F_UM 10
-BEGIN
-   PROMPT 3 7 "U.M.  "
-   ITEM "    "
-// TROVARE DA ANAGRAFICA ARTICOLI 
-//   FIELD LF_SCONTI->UM    
-END
-
-STRING F_SCONTO 25
-BEGIN
-   PROMPT 3 8 "Sconto di riga "
-//   FIELD LF_SCONTI->SCONTO
-END
-
-
-GROUPBOX DLG_NULL 70 13
-
-BEGIN
-  PROMPT 0 0 ""
-  FLAG "R"
 END
 
 ENDPAGE
 
-
 ENDMASK

ve/ve3100d.h

@@ -0,0 +1,4 @@
+#define F_D_TIPO      111
+#define F_D_CODCAT_DA 112
+#define F_D_CODCAT_A  113
+

ve/ve3100d.uml

@@ -0,0 +1,63 @@
+#include <lffiles.h>
+#include "ve3100d.h"
+
+PAGE "Stampa sconti documenti " -1 -1 55 7
+
+LISTA F_D_TIPO 1
+BEGIN
+  PROMPT 100 100 ""
+  FIELD LF_SCONTI->TIPO
+  FLAG "H"
+  ITEM "D|Sconti documento"
+END
+
+STRING F_D_CODCAT_DA 2
+BEGIN
+  PROMPT 2 1 "Cod. sconto doc. "
+  FLAG "UR"
+  USE LF_SCONTI
+  INPUT TIPO F_D_TIPO SELECT
+  INPUT CODCAT F_D_CODCAT_DA
+  DISPLAY "Codice" CODCAT
+  DISPLAY "Descrizione" DESCR
+  DISPLAY "Sconto@25" SCONTO
+  OUTPUT F_D_CODCAT_DA CODCAT
+END
+
+GROUPBOX DLG_NULL 55 3
+BEGIN
+  PROMPT 0 0 "Da"
+END
+
+STRING F_D_CODCAT_A 2
+BEGIN
+  PROMPT 2 4  "Cod. sconto doc. "
+  FLAG "UR"
+  USE LF_SCONTI
+  INPUT TIPO F_D_TIPO SELECT
+  INPUT CODCAT F_D_CODCAT_A
+  DISPLAY "Codice" CODCAT
+  DISPLAY "Descrizione" DESCR
+  DISPLAY "Sconto@25" SCONTO
+  OUTPUT F_D_CODCAT_A CODCAT
+END
+
+GROUPBOX DLG_NULL 55 3
+BEGIN
+  PROMPT 0 3 "A"
+END
+
+BUTTON DLG_SELECT 9 2
+BEGIN
+  PROMPT -12 -1 "Selezione"
+  MESSAGE EXIT,K_ENTER
+END
+
+BUTTON DLG_QUIT 9 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK

ve/ve3100i.h

@@ -0,0 +1,12 @@
+#define F_I_TIPO         131
+#define F_I_CATVEN_DA    132
+#define F_I_SCCLIENTI_DA 133
+#define F_I_ZONE_DA      134
+#define F_I_CONDPAG_DA   135
+#define F_I_CATVEN_A     136
+#define F_I_SCCLIENTI_A  137
+#define F_I_ZONE_A       138
+#define F_I_CONDPAG_A    139
+#define F_I_DESCRIZ      140
+#define F_I_COMPAT       141
+

ve/ve3100i.uml

@@ -0,0 +1,138 @@
+#include <lffiles.h>
+#include "ve3100i.h"
+
+PAGE "Stampa sconti incondizionati " -1 -1 55 15
+
+LISTA F_I_TIPO 1
+BEGIN
+  PROMPT 100 100 ""
+  FLAG "H"
+  ITEM "I|Sconti incondizionati"
+END
+
+STRING F_I_CATVEN_DA 2
+BEGIN
+  PROMPT 2 1 "Cat. vendite   "
+  FLAG "U"
+  USE %CVE
+  INPUT CODTAB F_I_CATVEN_DA
+  DISPLAY "Cat. vend." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_I_CATVEN_DA CODTAB
+END
+
+STRING F_I_SCCLIENTI_DA 2
+BEGIN
+  PROMPT 2 2 "Sconto cliente "
+  FLAG "U"
+  USE LF_SCONTI
+  INPUT TIPO "D" SELECT
+  INPUT CODCAT F_I_SCCLIENTI_DA
+  DISPLAY "Sc. Cliente" CODCAT
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_I_SCCLIENTI_DA CODCAT
+END
+
+STRING F_I_ZONE_DA 2
+BEGIN
+  PROMPT 2 3 "Zona           "
+  FLAG "U"
+  USE %ZON
+  INPUT CODTAB F_I_ZONE_DA
+  DISPLAY "Zona" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_I_ZONE_DA CODTAB
+END
+
+STRING F_I_CONDPAG_DA 4
+BEGIN
+  PROMPT 2 4 "Cond. pagam.   "
+  FLAG "U"
+  USE %CPG
+  INPUT CODTAB F_I_CONDPAG_DA
+  DISPLAY "Cond. pag." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_I_CONDPAG_DA CODTAB
+END
+
+GROUPBOX DLG_NULL 55 6
+BEGIN
+  PROMPT 0 0 "Da"
+END
+
+STRING F_I_CATVEN_A 2
+BEGIN
+  PROMPT 2 7 "Cat. vendite   "
+  FLAG "U"
+  USE %CVE
+  INPUT CODTAB F_I_CATVEN_A
+  DISPLAY "Cat. vend." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_I_CATVEN_A CODTAB
+END
+
+STRING F_I_SCCLIENTI_A 2
+BEGIN
+  PROMPT 2 8 "Sconto cliente "
+  FLAG "U"
+  USE LF_SCONTI
+  INPUT TIPO "D" SELECT
+  INPUT CODCAT F_I_SCCLIENTI_A
+  DISPLAY "Sc. Cliente" CODCAT
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_I_SCCLIENTI_A CODCAT
+END
+
+STRING F_I_ZONE_A 2
+BEGIN
+  PROMPT 2 9 "Zona           "
+  FLAG "U"
+  USE %ZON
+  INPUT CODTAB F_I_ZONE_A
+  DISPLAY "Zona" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_I_ZONE_A CODTAB
+END
+
+STRING F_I_CONDPAG_A 4
+BEGIN
+  PROMPT 2 10 "Cond. pagam.   "
+  FLAG "U"
+  USE %CPG
+  INPUT CODTAB F_I_CONDPAG_A
+  DISPLAY "Cond. pag." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_I_CONDPAG_A CODTAB
+END
+
+GROUPBOX DLG_NULL 55 6
+BEGIN
+  PROMPT 0 6 "A"
+END
+
+BOOLEAN F_I_DESCRIZ
+BEGIN
+  PROMPT 2 12 "Descrizioni"
+  MESSAGE FALSE DISABLE,F_I_COMPAT
+  MESSAGE TRUE ENABLE,F_I_COMPAT
+END
+
+BOOLEAN F_I_COMPAT
+BEGIN
+  PROMPT 20 12 "Compatte"
+END
+
+BUTTON DLG_SELECT 9 2
+BEGIN
+  PROMPT -12 -1 "Selezione"
+  MESSAGE EXIT,K_ENTER
+END
+
+BUTTON DLG_QUIT 9 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK

ve/ve3100r.h

@@ -0,0 +1,8 @@
+#define F_R_TIPO      121
+#define F_R_CODCAT_DA 122
+#define F_R_CODART_DA 123
+#define F_R_CODCAT_A  124
+#define F_R_CODART_A  125
+#define F_R_DESCRIZ   126
+#define F_R_COMPAT    127
+

ve/ve3100r.uml

@@ -0,0 +1,93 @@
+#include <lffiles.h>
+#include "ve3100r.h"
+
+PAGE "Stampa sconti di riga " -1 -1 55 11
+
+LISTA F_R_TIPO 1
+BEGIN
+  PROMPT 100 100 ""
+  FLAG "H"
+  ITEM "R|Sconti di riga"
+END
+
+STRING F_R_CODCAT_DA 2
+BEGIN
+  PROMPT 2 1 "Cat. vendita  "
+  FLAG "U"
+  USE %CVE
+  INPUT CODTAB F_R_CODCAT_DA
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_R_CODCAT_DA CODTAB
+END
+
+STRING F_R_CODART_DA 20
+BEGIN
+  PROMPT 2 2 "Cod. articolo "
+  FLAG "U"
+  USE LF_ANAGR
+  INPUT CODART F_R_CODART_DA
+  DISPLAY "Codice@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_R_CODART_DA CODART
+END
+
+GROUPBOX DLG_NULL 55 4
+BEGIN
+  PROMPT 0 0 "Da"
+END
+
+STRING F_R_CODCAT_A 2
+BEGIN
+  PROMPT 2 5 "Cat. vendita  "
+  FLAG "U"
+  USE %CVE
+  INPUT CODTAB F_R_CODCAT_A
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_R_CODCAT_A CODTAB
+END
+
+STRING F_R_CODART_A 20
+BEGIN
+  PROMPT 2 6 "Cod. articolo "
+  FLAG "U"
+  USE LF_ANAGR
+  INPUT CODART F_R_CODART_A
+  DISPLAY "Codice@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_R_CODART_A CODART
+END
+
+GROUPBOX DLG_NULL 55 4
+BEGIN
+  PROMPT 0 4 "A"
+END
+
+BOOLEAN F_R_DESCRIZ
+BEGIN
+  PROMPT 2 8 "Descrizioni"
+  MESSAGE FALSE DISABLE,F_R_COMPAT
+  MESSAGE TRUE ENABLE,F_R_COMPAT
+END
+
+BOOLEAN F_R_COMPAT
+BEGIN
+  PROMPT 20 8 "Compatte"
+END
+
+BUTTON DLG_SELECT 9 2
+BEGIN
+  PROMPT -12 -1 "Selezione"
+  MESSAGE EXIT,K_ENTER
+END
+
+BUTTON DLG_QUIT 9 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK
+

ve/ve3200.cpp

@@ -19,6 +19,11 @@
 #define VAL  202
 #define UMS1 203
 #define UMS2 204
+#define GMC1 205
+#define GMC2 206
+#define RFA  207
+#define ART1 208
+#define ART2 209
 
 
 
@@ -26,16 +31,19 @@ class TStampa_condizioni_vendita: public TPrint_application {
   TRelation *_rel; // relazione principale
 	TString16 _condven; // stringa che indica il tipo di archivio
   bool _codlis_catven; // booleano di abilitazione della categoria di vendita nella chiave dei listini
+  bool _codcon_codcf; // booleano di abilitazione del codice cliente/fornitore nella chiave dei contratti
   bool _listval; // booleano di abilitazione della stampa dei listini in valuta
   bool _testacomp, _righecomp; // booleani di selezione della stampa completa per testata e righe;
+  bool _testastamp; // booleano di testata completa già stampata
   bool _gest_val, _gest_um, _gest_sca, _gest_so; // booleani per l'abilitazione di valute, unità di misura, scaglioni e sconti/omaggi
-  int _rcondv_link_id; // id del link ipertestuale all'anagrafica di magazzino
+//int _rcondv_link_id; // id del link ipertestuale all'anagrafica di magazzino
 protected:
   virtual bool user_create(void);
   virtual bool user_destroy(void);
   virtual bool set_print(int);
   virtual void set_page(int, int);
   virtual void preprocess_header(void);
+  virtual void preprocess_footer(void);
 //virtual void process_link(int, const char *);
 };
 
@@ -57,14 +65,17 @@ bool TStampa_condizioni_vendita::user_create() {
 			indice= A_LISTINI; // setta l'indice dell'archivio listini
 			if (!(prassid.get_bool("GES", NULL, indice))) error_box("L'archivio Listini non è abilititato"); // controlla che l'archivio listini sia abilitato
 			else {
-				_codlis_catven= prassid.get_bool("CODLISCV"); // setta il booleano di abilitazione delle categoria di vendita
+				_codlis_catven= prassid.get_bool("GESLISCV"); // setta il booleano di abilitazione delle categoria di vendita
  				gotcha= TRUE;
  			}
 			break;
 		case 'C': // contratti
 			indice= A_CONTRATTI; // setta l'indice dell'archivio contratti
 			if (!(prassid.get_bool("GES", NULL, indice))) error_box("L'archivio Contratti non è abilititato"); // controlla che l'archivio contratti sia abilitato
-			else gotcha= TRUE;
+			else {
+				_codcon_codcf= prassid.get_bool("GESCONCC"); // setta il booleano di abilitazione delle categoria di vendita
+			 	gotcha= TRUE;
+			}
 			break;
 		case 'O': // offerte
 			indice= A_OFFERTE; // setta l'indice dell'archivio offerte
@@ -81,6 +92,11 @@ bool TStampa_condizioni_vendita::user_create() {
 		_gest_so= prassid.get_bool("GESSO", NULL, indice); // setta il booleano di abilitazione degli sconti/omaggi
 		_gest_val= prassid.get_bool("GESVAL"); // legge il booleano di abilitazione della gestione delle valute
 		_rel= new TRelation(LF_RCONDV); // crea la relazione principale
+		_rel->add(LF_ANAGR, "CODART==CODRIGA", 1, LF_RCONDV, ART1);
+		_rel->add(LF_ANAGR, "CODART==CODARTOM", 1, LF_RCONDV, ART2);
+		_rel->add("%GMC", "CODTAB[1,3]==CODRIGA", 1, LF_RCONDV, GMC1);
+		_rel->add("%GMC", "CODTAB[4,5]==CODRIGA", 1, LF_RCONDV, GMC2);
+		_rel->add("%RFA", "CODTAB==CODRIGA", 1, LF_RCONDV, RFA);
 		_rel->add(LF_CONDV, "TIPO==TIPO|CATVEN==CATVEN|TIPOCF==TIPOCF|CODCF==CODCF|COD==COD");
 		_rel->add("%CVE", "CODTAB==CATVEN", 1, LF_CONDV, CVE);
 		_rel->add(LF_CLIFO, "TIPOCF==TIPOCF|CODCF==CODCF", 1, LF_CONDV);
@@ -117,6 +133,10 @@ bool TStampa_condizioni_vendita::set_print(int) {
 			DESTROY(F_L_CATVEN);
 			DESTROY(F_L_LISTVALUTA);
 			DESTROY(F_O_COD);
+			if (!_codcon_codcf) { // disabilita condizionalmente i clienti/fornitori
+				KILL(F_C_TIPOCF);
+				KILL(F_C_CODCF);
+			}
 			break;
 		case 'O': // offerte
 			DESTROY(F_L_COD); // settaggio dei campi da eliminare
@@ -128,32 +148,48 @@ bool TStampa_condizioni_vendita::set_print(int) {
 			break;
 	}
   if (mask.run()== K_ENTER) { // lancia la maschera, se viene confermata vengono trovati gli estremi del cursore
+  	_testastamp= FALSE; // azzera il flag di testa già stampata
   	_listval= mask.get_bool(F_L_LISTVALUTA); // legge lo stato del checkbox di abilitazione dei listini in valuta
 	  _testacomp= mask.get_bool(F_TESTACOMP); // legge l'abilitazione della stampa completa della testata
 	  _righecomp= mask.get_bool(F_RIGHECOMP); // legge l'abilitazione della stampa completa delle righe
 	  TLocalisamfile &rcondv= _rel->lfile(); // prende il file principale
-		TString filtro;
+		TRectype da(rcondv.curr()); // prepara il record di inizio regione
-		filtro << "(TIPO==\"" << _condven << "\")";
+		da.zero();
+		da.put("TIPO", _condven);
     switch (_condven[0]) { // impostazione della chiave della testata
     	case 'L': // listini
-				if (_codlis_catven) filtro << "&&(CATVEN==\"" << mask.get(F_L_CATVEN) << "\")";
+				if (_codlis_catven) da.put("CATVEN", mask.get(F_L_CATVEN));
-				filtro << "&&(COD==\"" << mask.get(F_L_COD) << "\")";
+				else da.blank("CATVEN"); // riempie il campo di blank se non è gestito
+				da.blank("TIPOCF"); // i campi non gestiti vengono riempiti di blank
+				da.blank("CODCF");
+				da.put("COD", mask.get(F_L_COD));
     		break;
     	case 'C': // contratti
-				filtro << "&&(TIPOCF==\"" << mask.get(F_C_TIPOCF) << "\")";
+    		da.blank("CATVEN"); // i campi non gestiti vengono riempiti di blank
-				filtro << "&&(CODCF==\"" << mask.get(F_C_CODCF) << "\")";
+    		if (_codcon_codcf) {
-				filtro << "&&(COD==\"" << mask.get(F_C_COD) << "\")";
+    			da.put("TIPOCF", mask.get(F_C_TIPOCF));
+    			da.put("CODCF", mask.get(F_C_CODCF));
+				} else {
+					da.blank("TIPOCF"); // riempie i campi di blank se non sono gestiti
+					da.blank("CODCF");
+				}
+				da.put("COD", mask.get(F_C_COD));
     		break;
     	case 'O': // offerte
-				filtro << "&&(COD==\"" << mask.get(F_O_COD) << "\")";
+    		da.blank("CATVEN"); // i campi non gestiti vengono riempiti di blank
+				da.blank("TIPOCF");
+				da.blank("CODCF");
+				da.put("COD", mask.get(F_O_COD));
     		break;
     }
-    if (!(mask.get_bool(F_TUTTERIGHE))) {
+    TRectype a(da); // prepara il record di fine regione
-			filtro << "&&(TIPORIGA==\"" << mask.get(F_TIPORIGHE) << "\")";
+    if (!(mask.get_bool(F_TUTTERIGHE))) { // setta il filtro sulle righe solo se non è stato selezionato il flag di "tutte le righe"
-			filtro << "&&(CODRIGA>=\"" << mask.get(F_DARIGA_A) << "\")";
+    	da.put("TIPORIGA", mask.get(F_TIPORIGHE));
-			filtro << "&&(CODORIGA<=\"" << mask.get(F_ARIGA_A) << "\")";
+    	da.put("CODRIGA", mask.get(F_DARIGA_A));
+    	a.put("TIPORIGA", mask.get(F_TIPORIGHE));
+    	a.put("CODRIGA", mask.get(F_ARIGA_A));
 		}
-		current_cursor()->setfilter(filtro);
+		current_cursor()->setregion(da, a); // setta la regione sul cursore
 		force_setpage(); // forza il lancio della set_page() ad ogni record del file da stampare
 		disable_links(); // disabilita tutti i link ipertestuali
 //  _rcondv_link_id= enable_link("Collegamento a righe condizioni di vendita", 'g'); // abilita il collegamento
@@ -182,57 +218,133 @@ UO QOM                   QBASE                 CODARTOM             PROMAGGIO
 void TStampa_condizioni_vendita::preprocess_header() {
 	reset_header(); // l'header viene resettato
   int  i= 1; // contatore delle linee
-  set_header(i, "@125gPag @#"); // la prima linea contiene, sicuramente, il numero di pagina
   const long firm= get_firm(); // legge l'id della ditta corrente
   TLocalisamfile ditte(LF_NDITTE); // apre il file ditte
   ditte.zero(); // vuota il record
   ditte.put("CODDITTA", firm); // riempie la chiave
   if (ditte.read()== NOERR) { // se il record della ditta viene trovato viene settato l'header
 	  const TString &s= ditte.get("RAGSOC"); // legge la ragione sociale della ditta
-	  set_header(i, "Ditta %ld %s", firm, (const char *)s); // setta il nome e l'id della ditta della prima linea dell'header
+	  set_header(i, "@1gDitta %ld %s", firm, (const char *)s); // setta il nome e l'id della ditta della prima linea dell'header
   }
-  if ((get_page_number()==1) && (!_testacomp)) { // se siamo sulla prima pagina si stampa la testata
+  TLocalisamfile &condv= current_cursor()->file(LF_CONDV);
-	  set_header(++i, "@14gCod @18gDescrizione @69gVal. dal @78gal @87gIL @90gUM @93gSC @96gSO @99gST @109gSeq"); // setta l'header del codice, della descrizione, della validità, dei booleani, ecc.
+  i+=2; // stampa breve della testata, occupa almeno due linee
-	  if ((_condven=="L") && _codlis_catven) set_header(i, "@11gCV"); // setta l'header della categoria di vendita
+  set_header(i-1, "@14gCod @18gDescrizione @69gVal. dal @78gal @87gIL @90gUM @93gSC @96gSO @99gST @109gSeq"); // setta l'header del codice, della descrizione, della validità, dei booleani, ecc.
-	  if (_condven=="C") set_header(i, "CF @4gCod.CF @102gOB"); // setta l'header di clienti/fornitori e di contratto obbligatorio
+	set_header(i, "@14g%3s @18g%s @69g%s @78g%s @87g%s @90g%s @93g%s @96g%s @99g%s @109g%s",
-	  if ((_condven=="L") || (_condven=="C")) set_header(i, "@105gSuc"); // setta l'header per il codice di listino successivo
+							(const char *)(condv.sget("COD")), (const char *)(condv.sget("DESCR")), (const char *)(condv.sget("VALIN")),
-	  if (_gest_val) set_header(++i, "Val @5gCambio @27gData cambio"); // setta l'header del codice e della descrizione
+							(const char *)(condv.sget("VALFIN")), (const char *)(condv.sget("IMPLORDI")), (const char *)(condv.sget("GESTUM")),
-		set_header(++i, ""); // salta una riga
+							(const char *)(condv.sget("GESTSCAGL")), (const char *)(condv.sget("GESTSCO")), (const char *)(condv.sget("SCONST")),
+							(const char *)(condv.sget("SEQRIC"))); // codice, descriz., validità e booleani
+  if ((_condven=="L") && _codlis_catven) { // siamo sui listini?
+  	set_header(i-1, "@11gCV"); // setta l'header della categoria di vendita
+  	set_header(i, "@11g%s", (const char *)(condv.sget("CATVEN"))); // categoria di vendita
   }
-  if (!_righecomp) {
+  if (_condven=="C") { // siamo sui contratti?
-  	set_header(++i, "T @2gCodice riga @27gS @29gQuantita' limite @51gPrezzo @73gSconto @99gA @101gIVA @106gProvvig."); // setta l'header della chiave, della quantità limite e del prezzo
+  	if (_codcon_codcf) { // è abilitato il codice cliente/fornitore?
+	  	set_header(i-1, "@1gCF @4gCod.CF"); // setta l'header di clienti/fornitori
+	  	set_header(i, "@1g%s @4g%6s", (const char *)(condv.sget("TIPOCF")), (const char *)(condv.sget("CODCF"))); // cliente/fornitore
+  	}
+  	set_header(i-1, "@102gOB"); // setta l'header di contratto obbligatorio
+  	set_header(i, "@102g%s", (const char *)(condv.sget("OBBLIG"))); // booleano
+  }
+  if (_condven=="L") { // siamo su listini?
+  	set_header(i-1, "@105gSuc"); // setta l'header per il codice di listino successivo
+  	set_header(i, "@105g%3s", (const char *)(condv.sget("CODLISSUCC"))); // codice successivo
+  }
+  if (_gest_val) { // c'è la gestione della valuta?
+	  i+=2; // occupa altre due linee
+  	set_header(i-1, "@1gVal @5gCambio @27gData cambio"); // setta l'header del codice e della descrizione
+  	set_header(i, "@1g%s @5g%21s @27g%s", (const char *)condv.sget("CODVAL"), (const char *)condv.sget("CAMBIO"), (const char *)condv.sget("DATACAM")); // cambio e valuta
+	}
+	set_header(++i, ""); // salta una riga
+  if (!_righecomp) { // impostazione dell'header delle righe se non c'è la stampa esaustiva
+  	set_header(++i, "@1gT @3gCodice riga @27gS @29gQuantita' limite @51gPrezzo @73gSconto @99gA @101gIVA @106gProvvig."); // setta l'header della chiave, della quantità limite e del prezzo
     if ((_condven=="L") || (_condven=="O")) set_header(i, "@24gUM"); // setta l'header dell'unità di misura
-		set_header(++i, "UMO @5gQuantita' omaggio @27gQuantita' base @49gCod. art. omagg. @70gPrezzo omaggio"); // setta l'header dello sconto/omaggio
+		set_header(++i, "@1gUMO @5gQuantita' omaggio @27gQuantita' base @49gCod. art. omagg. @70gPrezzo omaggio"); // setta l'header dello sconto/omaggio
-  	if ((_condven=="C") || (_condven=="O")) set_header(i, "@92gLotto"); // setta l'header del lotto
+	 	if ((_condven=="C") || (_condven=="O")) set_header(i, "@92gLotto"); // setta l'header del lotto
   	if (_condven=="O") set_header(i, "@99gEsaur."); // setta l'header dell'articolo in esaurimento
   }
   set_header(++i, ""); // aggiunge due linee vuote
   set_header(++i, "");
 }
 
+void TStampa_condizioni_vendita::preprocess_footer() {
+	reset_footer();
+	int i= 1; // indice di linea
+	set_footer(i, ""); // salta una linea
+  set_footer(++i, "@125gPag @#"); // l'unica linea del footer contiene il numero di pagina
+}
+
 void TStampa_condizioni_vendita::set_page(int file, int) {
 	if (file== LF_RCONDV) { // se il file in stampa non è il file principale non c'è nulla da fare
 		int i= 0; // indice di riga
-  	if (get_page_number()==1) { // se siamo sulla prima pagina deve essere stampata anche la testata
+		if ((printer().getcurrentpage()==1) && _testacomp && (!_testastamp)) { // stampa della testata in forma completa
-		  if (_testacomp) { // stampa della testata in forma completa
+			if ((_condven=="L") && _codlis_catven) set_row(++i, "Cat. di vendita: @2s @50s", FLD(LF_CONDV, "CATVEN"), FLD(-CVE, "S0"));
-				// ...
+			if ((_condven=="C") && _codcon_codcf) set_row(++i, "Cliente/fornitore: @1s @6s @50s", FLD(LF_CONDV, "TIPOCF"), FLD(LF_CONDV, "CODCF"), FLD(LF_CLIFO, "RAGSOC"));
-		  } else { // stampa della testata in forma abbreviata
+			set_row(++i, "Codice: @3s @50s", FLD(LF_CONDV, "COD"), FLD(LF_CONDV, "DESCR"));
-		    set_row(++i, "@14g@3s @18g@50s @69g@d @78g@d @87g@1s @90g@1s @93g@1s @96g@1s @99g@1s @109g@3s", FLD(LF_CONDV, "COD"), FLD(LF_CONDV, "DESCR"), FLD(LF_CONDV, "VALIN"), FLD(LF_CONDV, "VALFIN"), FLD(LF_CONDV, "IMPLORDI"), FLD(LF_CONDV, "GESTUM"),
+			if (_gest_val) {
-		    																																																FLD(LF_CONDV, "GESTSCAGL"), FLD(LF_CONDV, "GESTSCO"), FLD(LF_CONDV, "SCONST"), FLD(LF_CONDV, "SEQRIC")); // codice, descriz., validità e booleani
+				set_row(++i, "Valuta: @3s @50s", FLD(LF_CONDV, "CODVAL"), FLD(-VAL, "S0"));
-			  if ((_condven=="L") && _codlis_catven) set_row(i, "@11g@2s", FLD(LF_CONDV, "CATVEN")); // categoria di vendita
+				set_row(++i, "Cambio: @15.5n (@d)", FLD(LF_CONDV, "CAMBIO"), FLD(LF_CONDV, "DATACAM"));
-			  if (_condven=="C") set_row(i, "@1s @4g@6s @102g@1s", FLD(LF_CONDV, "TIPOCF"), FLD(LF_CONDV, "CODCF"), FLD(LF_CONDV, "OBBLIG")); // cliente/fornitore e booleano
+			}
-			  if ((_condven=="L") || (_condven=="C")) set_row(i, "@105g@3s", FLD(LF_CONDV, "CODLISSUCC")); // codice successivo
+			set_row(++i, "Validità: dal @d al @d", FLD(LF_CONDV, "VALIN"), FLD(LF_CONDV, "VALFIN"));
-			  if (_gest_val) set_row(++i, "@3s @5g@15.5n @27g@d", FLD(LF_CONDV, "CODVAL"), FLD(LF_CONDV, "CAMBIO"), FLD(LF_CONDV, "DATACAM")); // cambio e valuta
+      set_row(++i, "Importi lordi: @f", FLD(LF_CONDV, "IMPLORDI"));
-				set_row(++i, ""); // salta una riga
+      set_row(++i, "Gestione unità di misura: @f", FLD(LF_CONDV, "GESTUM"));
-		  }	
+      set_row(++i, "Gestione scaglioni: @f", FLD(LF_CONDV, "GESTSCAGL"));
-  	}
+      set_row(++i, "Gestione sconti: @f", FLD(LF_CONDV, "GESTSCO"));
+      set_row(++i, "Gestione sconti standard: @f", FLD(LF_CONDV, "SCONST"));
+      if (_condven=="C") set_row(++i, "Contratto obbligatorio: @f", FLD(LF_CONDV, "OBBLIG"));
+      if (_condven=="L") set_row(++i, "Codice listino successivo: @3s", FLD(LF_CONDV, "CODLISSUCC"));
+      set_row(++i, "Sequenza di ricerca: @4s", FLD(LF_CONDV, "SEQRIC"));
+      set_row(++i, "");
+      set_row(++i, "");
+      _testastamp= TRUE;
+		}
   	if (_righecomp) { // stampa della riga in forma completa
-  		// ...
+      TLocalisamfile &rcondv= current_cursor()->file();
+      TLocalisamfile &condv= current_cursor()->file(LF_CONDV);
+      TString tiporiga= rcondv.get("TIPORIGA");
+			switch (tiporiga[0]) {
+				case 'A':
+					set_row(++i, "Riga: @1s @20s", FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"));
+					set_row(++i, "Articolo: @50s", FLD(-ART1, "DESCR"));
+					break;
+				case 'G':
+					set_row(++i, "Riga: @1s @3s", FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"));
+					set_row(++i, "Gruppo merceologico: @50s", FLD(-GMC1, "S0"));
+					break;
+				case 'S':
+					set_row(++i, "Riga: @1s @2s", FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"));
+					set_row(++i, "Sottogruppo merceologico: @50s", FLD(-GMC2, "S0"));
+					break;
+				case 'R':
+					set_row(++i, "Riga: @1s @2s", FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"));
+					set_row(++i, "Raggruppamento fiscale: @50s", FLD(-RFA, "S0"));
+					break;
+			}
+			if (condv.get_bool("GESTUM")) set_row(++i, "Unità di misura: @2s @50s", FLD(LF_RCONDV, "UM"), FLD(-UMS1, "S0"));
+			if (condv.get_bool("GESTSCAGL")) {
+				set_row(++i, "Scaglione: @1s", FLD(LF_RCONDV, "NSCAGL"));
+				set_row(++i, "Quantità limite scaglione: @15.5n", FLD(LF_RCONDV, "QLIM"));
+			}
+			set_row(++i, "Prezzo: @18.2n", FLD(LF_RCONDV, "PREZZO"));
+			set_row(++i, "Sconto: @25s", FLD(LF_RCONDV, "SCONTO"));
+			set_row(++i, "Addebito IVA: @f", FLD(LF_RCONDV, "ADDIVA"));
+			set_row(++i, "Codice IVA: @4s", FLD(LF_RCONDV, "CODIVA"));
+			set_row(++i, "Percentuale di provvigione: @5.2n", FLD(LF_RCONDV, "PERCPROVV"));
+			if (condv.get_bool("GESTSCO")) {
+				set_row(++i, "Quantità merce omaggio: @15.5n", FLD(LF_RCONDV, "QOM"));
+				set_row(++i, "Quantità base: @15.5n", FLD(LF_RCONDV, "QBASE"));
+				set_row(++i, "Articolo omaggio: @20s @50s", FLD(LF_RCONDV, "CODARTOM"), FLD(-ART2, "DESCR"));
+				set_row(++i, "Prezzo omaggio: @18.2n", FLD(LF_RCONDV, "PROMAGGIO"));
+				if (condv.get_bool("GESTUM")) set_row(++i, "Unità di misura quantità omaggio: @2s @50s", FLD(LF_RCONDV, "UMOM"), FLD(-UMS2, "S0"));
+			}
+			// if ((_condven=="C") || (_condven=="O")) set_row(++i, "Codice lotto: @6s", FLD(LF_RCONDV, "CODLOTTO"));
+			if (_condven=="O") set_row(++i, "Articolo in esaurimento: @f", FLD(LF_RCONDV, "ARTES"));
+			set_row(++i, ""); // salta una riga
   	} else { // stampa della riga in forma abbreviata
-	  	set_row(++i, "@1s @2g@20s @27g@1s @29g@15.5n @51g@18.2n @73g25s @99g@1s @101g@4s @106g@5.2n", FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"), FLD(LF_RCONDV, "NSCAGL"), FLD(LF_RCONDV, "QLIM"), FLD(LF_RCONDV, "PREZZO"),
+	  	set_row(++i, "@1g@1s @3g@20s @27g@1s @29g@15.5n @51g@18.2n @73g@25s @99g@1s @101g@4s @106g@5.2n", FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"), FLD(LF_RCONDV, "NSCAGL"), FLD(LF_RCONDV, "QLIM"), FLD(LF_RCONDV, "PREZZO"),
 																																																		 FLD(LF_RCONDV, "SCONTO"), FLD(LF_RCONDV, "ADDIVA"), FLD(LF_RCONDV, "CODIVA"), FLD(LF_RCONDV, "PERCPROVV")); // codice, prezzo...
 	    if ((_condven=="L") || (_condven=="O")) set_row(i, "@24g@2s", FLD(LF_RCONDV, "UM")); // unità di misura
-			set_row(++i, "@2s @5g@15.5n @27g@15.5n @49g@20s @70g@18.2n", FLD(LF_RCONDV, "UMOM"), FLD(LF_RCONDV, "QOM"), FLD(LF_RCONDV, "QBASE"), FLD(LF_RCONDV, "CODARTOM"), FLD(LF_RCONDV, "PROMAGGIO")); // sconto/omaggio
+			set_row(++i, "@1g@2s @5g@15.5n @27g@15.5n @49g@20s @70g@18.2n", FLD(LF_RCONDV, "UMOM"), FLD(LF_RCONDV, "QOM"), FLD(LF_RCONDV, "QBASE"), FLD(LF_RCONDV, "CODARTOM"), FLD(LF_RCONDV, "PROMAGGIO")); // sconto/omaggio
 	  	if ((_condven=="C") || (_condven=="O")) set_row(i, "@92g@6s", FLD(LF_RCONDV, "CODLOTTO")); // lotto
 	  	if (_condven=="O") set_row(i, "@99g@1s", FLD(LF_RCONDV, "ARTES"));
 			set_row(++i, ""); // salta una riga