Patch level : 12.0 nopatch

Files correlati     :
Commento        :

Implementazione invio regolarizzazioni al 07/11/2021

src/f1/f1lib.cpp

@@ -363,7 +363,7 @@ const char* get_ini_codcaus()
 	return ini_get_string(FILE_CONFIG, FILE_SECTION, F1_CAUS);
 }
 
-const char* get_codcaus(const char * tipodoc, const char* codcf)
+const char* get_codcaus(const char * tipodoc, const long codcf)
 {
 	TLocalisamfile cfven(LF_CFVEN);
 	cfven.put(CFV_TIPOCF, "F");

src/f1/f1lib.h

@@ -137,7 +137,7 @@ public:
 TFppro&      fppro_db();
 
 const char* get_ini_codcaus();
-const char* get_codcaus(const char * tipodoc, const char* codcf);
+const char* get_codcaus(const char * tipodoc, const long codcf);
 bool        get_endatareg();
 TString     get_datainireg();
 TString     get_dataendreg();

src/f9/f9lib01.cpp

@@ -114,7 +114,7 @@ bool TEstrazione::check_documento_vendita(const TLocalisamfile& mov, _Out_ bool&
     const TDocumento doc(mov.get(MOV_DPROVV)[0], mov.get_int(MOV_DANNO), mov.get(MOV_DCODNUM), mov.get_int(MOV_DNDOC));
     
     exist_doc = true;
-    if (chiave_paf(doc, hfatt, bfatt))
+    if (chiave_paf_doc(doc, hfatt, bfatt))
     {
       query << "SELECT * FROM PAF0100F WHERE P1_KEYHEADERFATT = '" << hfatt << "' AND P1_KEYBODYFATT = '" << bfatt << "';";
       fp_db().sq_set_exec(query);

src/fp/fp0700.cpp

@@ -109,9 +109,9 @@ bool caus_filter(const TRelation* r)
 
 void TPAR_mask::fill()
 {
-	const TDate dal             = get(F_DATAINI);
+	const TDate dal = get(F_DATAINI);
-	const TDate al							= get(F_DATAEND);
+	const TDate al = get(F_DATAEND);
-	TString filter_selected		  = get(F_REGSEL);
+	TString filter_selected = get(F_REGSEL);
 	// Record di controllo per eventuali elaborazioni precedenti
 	TString     hfatt, bfatt;
 	TPaf_record paf0100f("PAF0100F");
@@ -124,7 +124,7 @@ void TPAR_mask::fill()
 	enable(DLG_PRINT, _enable_chiave_fixer && filter_selected.empty());
 
 	query << "USE " << LF_MOV << " KEY 3 SELECT (BETWEEN(" << MOV_DATAREG << ","
-		    << dal.date2ansi() << ',' << al.date2ansi() << "))&&(REG!=\"\")"
+		<< dal.date2ansi() << ',' << al.date2ansi() << "))&&(REG!=\"\")"
 		<< "\nFROM " << MOV_TIPO << "=C\nTO " << MOV_TIPO "=C";
 
 	TISAM_recordset rec(query);
@@ -152,14 +152,14 @@ void TPAR_mask::fill()
 
 		if (chiave_paf_mov(mov, tipodocsdi, hfatt, bfatt))
 		{
-				if (paf0100f.search(nullptr, hfatt, bfatt) && paf0100f.sq_get("P1_GESTIONE") != " " && paf0100f.sq_get("P1_ERRINT") != "*")
+			if (paf0100f.search(nullptr, hfatt, bfatt) && paf0100f.sq_get("P1_GESTIONE") != " " && paf0100f.sq_get("P1_ERRINT") != "*")
-				{
+			{
-						if (paf0100f.sq_get("P1_GESTIONE") != filter_selected)
+				if (paf0100f.sq_get("P1_GESTIONE") != filter_selected)
-								continue;
+					continue;
-						sent = true;
+				sent = true;
-				}
+			}
-				else if (filter_selected.not_empty())
+			else if (filter_selected.not_empty())
-						continue;
+				continue;
 		}
 
 		int r = regs.set_row_cell(S_SELECTED, sent);
@@ -170,11 +170,11 @@ void TPAR_mask::fill()
 		regs.set_row_cell(S_CLIENTE, rec.get_long(MOV_CODCF), r);
 		regs.set_row_cell(S_RAGSOC, cli.get(CLI_RAGSOC), r);
 
- // non c'è ?   TString cod_ind_sped = rec.get(DOC_CODINDSP).as_string();
+		// non c'è ?   TString cod_ind_sped = rec.get(DOC_CODINDSP).as_string();
 		TString rif = get_dest_sdi(rec.get_string(CFV_TIPOCF)[0], rec.get_long(CFV_CODCF), EMPTY_STRING);
 
 		// Se è ancora vuoto potrebbe essere estero
-		if(rif.empty())
+		if (rif.empty())
 		{
 			// Segno la riga errata
 			if (first)
@@ -198,7 +198,7 @@ void TPAR_mask::fill()
 			if (numreg > 0)
 			{
 				const TRectype& mov = cache().get(LF_MOV, numreg);
-				split               = is_split_payment(mov);
+				split = is_split_payment(mov);
 			}
 		}
 		regs.set_row_cell(S_SPLITPAY, split, r);
@@ -275,7 +275,7 @@ void TPAR_mask::connect_keys()
 		{
 			// Come prima cosa controllo che effettivamente la chiave di questo doc sia in giro per il mondo
 			query.cut(0) << "SELECT * FROM PAF0100F WHERE P1_KEYHEADERFATT = '" << campo_hfatt << "' AND P1_KEYBODYFATT = '" << campo_bfatt << "'";
-			if(fp_db().sq_set_exec(query))
+			if (fp_db().sq_set_exec(query))
 			{
 				msg_log.cut(0) << "Il documento " << campo_bfatt << " è già presente nel DB, verrà saltato";
 				legno.log(9000, msg_log);
@@ -284,7 +284,7 @@ void TPAR_mask::connect_keys()
 
 			// Provo a cercare il documento nel paf07 come un vero uomo
 			query.cut(0) << "SELECT P7_KEYPRGINVIO, P7_KEYHEADERFATT, P7_KEYBODYFATT FROM PAF0700F WHERE P7_KEYHEADERFATT = '" << campo_hfatt
-			<< "' AND P7_TIPODOC = '" << tipo_doc_sdi(doc) << "' AND P7_DATA = '" << doc.data().date2ansi() << "' AND P7_NUMERO LIKE '%" << doc.numero() << "%'";
+				<< "' AND P7_TIPODOC = '" << tipo_doc_sdi(doc) << "' AND P7_DATA = '" << doc.data().date2ansi() << "' AND P7_NUMERO LIKE '%" << doc.numero() << "%'";
 
 			if (fp_db().sq_set_exec(query, false))
 			{
@@ -315,7 +315,7 @@ void TPAR_mask::connect_keys()
 					}
 				}
 
-				if(!found)
+				if (!found)
 				{
 					msg_log.cut(0) << "Il documento " << campo_bfatt << " non è presente nel DB PAF, verrà saltato";
 					legno.log(9000, msg_log);
@@ -347,7 +347,7 @@ void TPAR_mask::connect_keys()
 						"UPDATE PAF3200F SET PU_KEYHEADERFATT = '" << campo_hfatt << "', PU_KEYBODYFATT = '" << campo_bfatt << "' WHERE PU_KEYPRGINVIO = '" << db_prginv << "' AND PU_KEYHEADERFATT = '" << db_hfatt << "' AND PU_KEYBODYFATT = '" << db_bfatt << "'\n" <<
 						"UPDATE PAFW300F SET PW_KEYHEADERFATT = '" << campo_hfatt << "', PW_KEYBODYFATT = '" << campo_bfatt << "' WHERE PW_KEYPRGINVIO = '" << db_prginv << "' AND PW_KEYHEADERFATT = '" << db_hfatt << "' AND PW_KEYBODYFATT = '" << db_bfatt << "'\n";
 
-					if(fp_db().sq_set_exec(query))
+					if (fp_db().sq_set_exec(query))
 					{
 						msg_log.cut(0) << "Il documento " << campo_bfatt << " e' stato aggiornato correttamente\nChiave precedente: " << db_bfatt << " chiave nuova: " << campo_bfatt;
 						legno.log(0, msg_log);
@@ -445,42 +445,42 @@ bool TPAR_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 		if (e == fe_button && jolly > 0)
 		{
 			TSheet_field&  regs = sfield(F_REGS);
-			TToken_string& row  = regs.row(regs.selected());
+			TToken_string& row = regs.row(regs.selected());
 			// Salvo subito su file le impostazioni di esportazione, in fplib accedo ai file
 			save_all_fields();
 			fill();
 		}
 		break;
 	case DLG_ALL:
+	{
+		if (e == fe_button)
 		{
-			if (e == fe_button)
+			TSheet_field&  regs = sfield(F_REGS);
-			{
+			TString_array& sht = regs.rows_array();
-				TSheet_field&  regs  = sfield(F_REGS);
+			const int      items = sht.items();
-				TString_array& sht   = regs.rows_array();
-				const int      items = sht.items();
 
-				if (items > 0)
+			if (items > 0)
-				{
+			{
-					const TString4 select = *(sht.row(0).get(0)) == 'X' ? "" : "X";
+				const TString4 select = *(sht.row(0).get(0)) == 'X' ? "" : "X";
-					for (int       i      = 0; i < items; i++)
+				for (int i = 0; i < items; i++)
-						sht.row(i).add(select, 0);
+					sht.row(i).add(select, 0);
-					regs.force_update();
+				regs.force_update();
-				}
 			}
 		}
-		break;
+	}
+	break;
 	case DLG_SAVEREC:
-		{
+	{
 		if (e == fe_button)
-				set_err_paf();
+			set_err_paf();
-		}
+	}
-		break;
+	break;
 	case DLG_FINDREC:
-		{
+	{
 		if (e == fe_button)
 			set_pronto();
-		}
+	}
-		break;
+	break;
 	case DLG_PRINT:
 	{
 		if (e == fe_button)
@@ -489,7 +489,7 @@ bool TPAR_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 	break;
 	default: break;
 	}
-	if((e == fe_modify || e >= se_enter) && jolly == 0)
+	if ((e == fe_modify || e >= se_enter) && jolly == 0)
 	{
 		if (o.dlg() >= START_MASK && o.dlg() <= END_MASK)
 		{
@@ -511,7 +511,7 @@ void TPAR_mask::next_page(int p)
 			_filter_changed = false;
 		}
 	}
-	if(ok)
+	if (ok)
 		TAutomask::next_page(p);
 }
 
@@ -625,16 +625,16 @@ void TPAR_mask::set_err_paf()
 					"UPDATE PAF3200F SET PU_GESTIONE = 'E', PU_KEYPRGINVIO = 'DELETED' WHERE PU_KEYHEADERFATT = '" << hfatt << "' AND PU_KEYBODYFATT = '" << bfatt << "';\n" <<
 					// PAFW3 non ha il flag di gestione
 					"UPDATE PAFW300F SET PW_KEYPRGINVIO = 'DELETED' WHERE PW_KEYHEADERFATT = '" << hfatt << "' AND PW_KEYBODYFATT = '" << bfatt << "';\n";
-				if(!fp_db().sq_set_exec(query))
+				if (!fp_db().sq_set_exec(query))
 				{
-					TString err = "Impossibile salvare la regolarizzazione "; err  << nreg << "\nVerrà saltata.";
+					TString err = "Impossibile salvare la regolarizzazione "; err << nreg << "\nVerrà saltata.";
 					error_box(err);
 				}
 
 			}
 			else
 			{
-				TString err = "Impossibile trovare la fattura "; err  <<  nreg << "\nVerrà saltata.";
+				TString err = "Impossibile trovare la fattura "; err << nreg << "\nVerrà saltata.";
 				error_box(err);
 			}
 		}
@@ -677,8 +677,8 @@ void Treg2Paf::main_loop()
 bool Treg2Paf::create()
 {
 	open_files(LF_TAB, LF_TABCOM, LF_TABMOD, LF_ANAG,
-	           LF_CLIFO, LF_CFVEN, LF_CFBAN, LF_NDITTE,
+		LF_CLIFO, LF_CFVEN, LF_CFBAN, LF_NDITTE,
-	           LF_DOC, LF_RIGHEDOC, LF_CODCORR, LF_ANAMAG, 0);
+		LF_DOC, LF_RIGHEDOC, LF_CODCORR, LF_ANAMAG, 0);
 
 	const TRectype cfven(LF_CFVEN);
 	if (cfven.length(CFV_PADESTIN) != 7) // Nuova lunghezza per privati

src/fp/fp0700a.uml

@@ -58,7 +58,7 @@ DATE F_DATAEND
 BEGIN
   PROMPT 50 1 "Data finale "
   VALIDATE DATE_CMP_FUNC >= F_DATAINI
-  WARNING "La data finale non può essere minore della data iniziale"
+  WARNING "La data finale non pu essere minore della data iniziale"
   CHECKTYPE REQUIRED
 END
 

src/fp/fplib.h

@@ -14,14 +14,14 @@
 #include <map>
 
 #define SQL_FLD				"sql/"
-#define	MANCATA_SEND	"S"			// Se la mail di mancata consegna è già stata inviata P1_ERRINT è segnato con "S"
+#define	MANCATA_SEND	"S"			// Se la mail di mancata consegna  gi stata inviata P1_ERRINT  segnato con "S"
 
 // Typedef per aiutare a capire cosa sono le chiavi
 typedef TString MCodice_riga;
 typedef TString MTipo_documento;
 class TDoc_fp;
 
-enum { no_pdf = -1, pdf_ok = 0, no_alleg = -2};
+enum { no_pdf = -1, pdf_ok = 0, no_alleg = -2 };
 
 bool set_connection(SSimple_query& s);
 // Ritorna la connessione al DB paf secondo i parametri impostati nel programma di configurazione
@@ -59,9 +59,9 @@ class TPaf_record : public TObject
 protected:
 	void copy(const TPaf_record& rec)
 	{
-			_table = rec._table;
+		_table = rec._table;
-			_key = rec._key;
+		_key = rec._key;
-			_fields = rec._fields;
+		_fields = rec._fields;
 	}
 
 	const TString& var2str(const TString& fld, const TVariant& var) const;
@@ -93,8 +93,8 @@ public:
 
 	TPaf_record& operator=(const TPaf_record& rec)
 	{
-			copy(rec);
+		copy(rec);
-			return *this;
+		return *this;
 	}
 	TPaf_record() { };
 	TPaf_record(const TPaf_record& rec) { copy(rec); }
@@ -283,7 +283,9 @@ public:
 
 	TFp_mail_sender() { _error = -1; }
 	TFp_mail_sender(const int anno, const long ndoc, const TFixed_string& codnum, const TFixed_string& tipodoc, const long codcf, TString mail, bool accord, TString ragsoc, bool sent)
-	{ set_doc(anno, ndoc, codnum, tipodoc, codcf, mail, accord, ragsoc, sent); }
+	{
+		set_doc(anno, ndoc, codnum, tipodoc, codcf, mail, accord, ragsoc, sent);
+	}
 };
 
 class TFPRiga_documento : public TRiga_documento
@@ -304,22 +306,22 @@ public:
 class TFPBuono_di_consegna
 {
 public:
-  TString20 _numdoc;
+	TString20 _numdoc;
-  TDate     _datadoc;
+	TDate     _datadoc;
 
-  bool      already_exist(map<TString20, TDate>& ancestors_s) const;
+	bool      already_exist(map<TString20, TDate>& ancestors_s) const;
 
 
-  TFPBuono_di_consegna() {  }
+	TFPBuono_di_consegna() {  }
-  TFPBuono_di_consegna(const TString20& numdoc, const TDate& datadoc) : _numdoc(numdoc), _datadoc(datadoc) {  }
+	TFPBuono_di_consegna(const TString20& numdoc, const TDate& datadoc) : _numdoc(numdoc), _datadoc(datadoc) {  }
 };
 
 inline bool operator==(const TFPBuono_di_consegna& l, const TFPBuono_di_consegna& r)
 {
-  TToken_string appo(l._numdoc, '/');
+	TToken_string appo(l._numdoc, '/');
-  if(appo.items() == 3)
+	if (appo.items() == 3)
-    return TString(appo.get(2)) == r._numdoc && l._datadoc == r._datadoc;
+		return TString(appo.get(2)) == r._numdoc && l._datadoc == r._datadoc;
-  return l._numdoc == r._numdoc && l._datadoc == r._datadoc;
+	return l._numdoc == r._numdoc && l._datadoc == r._datadoc;
 }
 
 #define FOR_EACH_BUONI(__buoni, __n, __buono) TFPBuono_di_consegna* (buono) = NULL; \
@@ -351,9 +353,9 @@ struct TFP_adg
 	TFP_adg(const TString& tipo_dato, const TString& riferimento_testo, const int riferimento_numero,
 		const TDate& riferimento_data)
 		: _tipo_dato(tipo_dato),
-		  _riferimento_testo(riferimento_testo),
+		_riferimento_testo(riferimento_testo),
-		  _riferimento_numero(riferimento_numero),
+		_riferimento_numero(riferimento_numero),
-		  _riferimento_data(riferimento_data){}
+		_riferimento_data(riferimento_data) {}
 };
 
 /**<
@@ -415,14 +417,14 @@ public:
 inline TFP_custom_cache& cached_custom_fp()
 {
 	static std::shared_ptr<TFP_custom_cache> carmelo;
-	if(carmelo == nullptr)
+	if (carmelo == nullptr)
 	{
 		carmelo.reset(new TFP_custom_cache);
 	}
 	return *carmelo;
 }
 
-class TFP_expression : public TObject // ma perchè non derivano da expre documento cazzone ? se sono più espressioni prima si separa la token string
+class TFP_expression : public TObject // ma perch non derivano da expre documento cazzone ? se sono pi espressioni prima si separa la token string
 {
 	enum TFP_operator { error, eq, neq, gt, ls, gteq, lseq, and, or };
 
@@ -445,8 +447,8 @@ public:
 	static bool check_condition(const TString& cond, TRiga_documento& rdoc);
 	static bool check_condition(const TString& cond, TDocumento& doc) { return check_condition(cond, doc[1]); }
 
-  TFP_expression() {};
+	TFP_expression() {};
-  virtual ~TFP_expression() {};
+	virtual ~TFP_expression() {};
 };
 
 // Gestione PAF
@@ -504,7 +506,7 @@ private:
 
 	struct
 	{
-		bool							_is_valuta_estera{ false }; // Se il documento è in valuta estera
+		bool							_is_valuta_estera{ false }; // Se il documento  in valuta estera
 		TString4					_cod_val;
 		real							_cambio;
 	} _doc_cambio;
@@ -523,7 +525,7 @@ private:
 protected:
 
 	/**< Funzioni di controllo */
-	/**< Controlli di testata, non è const per il calcolo della codizione di pagamento */
+	/**< Controlli di testata, non  const per il calcolo della codizione di pagamento */
 	bool check_initial(TDocumentoEsteso& doc);
 	/**< Controllo di riga */
 	bool check_row(const TRiga_documento& rdoc);
@@ -562,7 +564,7 @@ protected:
 	//void			set_rec_clifo(char tipocf, long codcf);
 
 public:
-  static void fill_buoni(map<TString20, TFPBuono_di_consegna>& buoni, const TString& memo, bool last = false);
+	static void fill_buoni(map<TString20, TFPBuono_di_consegna>& buoni, const TString& memo, bool last = false);
 	bool doc_to_paf(TDocumentoEsteso& doc);
 	bool doc_to_paf(const TRectype&   rec);
 	bool doc_to_paf(const TDoc_key&   key);

src/include/isam.h

@@ -1,4 +1,4 @@
-#ifndef __ISAM_H
++#ifndef __ISAM_H
 #define __ISAM_H
 
 #ifndef __CURRENCY_H

src/include/recset.h

@@ -165,6 +165,7 @@ protected:
 public:
 	bool valid_cursor() const { return _cursor != NULL; }
   virtual TCursor* cursor() const;
+	void set_filterfunction(FILTERFUNCTION ff, bool update = false) { cursor()->set_filterfunction(ff, update); }
 	virtual void freeze(bool on = true)  { return cursor()->freeze(on); }
 	virtual void unfreeze() { return cursor()->freeze(false); }
 	virtual bool frozen() const { return cursor()->frozen(); }

src/include/report.cpp

@@ -2920,6 +2920,55 @@ void TReport::mask2report(const TMask & m)
   }
 }
 
+void TReport::reset_export_sections()
+{
+	FOR_EACH_ASSOC_OBJECT(_sections, os, sec_key, sec_item)
+	{
+		TReport_section * sect = (TReport_section *)sec_item;
+		const bool section_shown = _default_shown_sections.is_key(sec_key);
+
+		sect->show(section_shown);
+	}
+}
+
+void TReport::set_export_sections(export_type type)
+{
+	switch (type)
+	{
+		case _export_printer :
+			break;
+		case _export_visualize :
+		break;
+		case _export_excel :
+			{
+				FOR_EACH_ASSOC_OBJECT(_sections, os, sec_key, sec_item)
+				{
+					const TString4 sec_id(sec_key);
+					TReport_section * sect = (TReport_section *)sec_item;
+
+					sect->show(sect->shown() && (sec_id == "H0" || sec_id.starts_with("B")));
+				}
+			}
+		break;
+		case _export_dbase:
+			{
+				FOR_EACH_ASSOC_OBJECT(_sections, os, sec_key, sec_item)
+				{
+					const TString4 sec_id(sec_key);
+					TReport_section * sect = (TReport_section *)sec_item;
+
+					sect->show(sect->shown() && sec_id.starts_with("B"));
+				}
+			}
+		break;
+		case _export_pdf :
+		break;
+		case _export_text :
+		default:
+		break;
+	}
+}
+
 KEY TReport::run_form(TMask& m)
 {
   report2mask(m);

src/include/report.h

@@ -370,7 +370,6 @@ protected:
   virtual int compare(const TSortable& s) const;
   void copy(const TReport_field& rf);
   TFieldtypes var_type() const;
-  const TString& formatted_text() const;
   void get_currency(TCurrency& cur) const;
   TReport_array_item* get_array_item() const;
 
@@ -381,6 +380,9 @@ public:
   TReport_section& section() const { return *_section; } 
   void set_section(TReport_section* sec) { _section = sec; } 
 
+	const TString& formatted_text() const;
+
+
   bool has_font() const { return _font != NULL; }
   const TReport_font& font() const;
   const TReport_font& print_font() const;
@@ -535,6 +537,7 @@ public:
 
 // Internal usage only
 typedef void (*FLDMSG_FUNC)(TReport_field& rf, void* jolly);
+typedef enum { _export_printer, _export_visualize, _export_excel, _export_pdf, _export_text, _export_dbase } export_type;
 
 class TReport : public TAlex_virtual_machine
 {
@@ -556,6 +559,7 @@ class TReport : public TAlex_virtual_machine
   TString_array _allegati;
   TReport_field* _curr_field;
   bool _page_split, _page_merge;
+	TAssoc_array _default_shown_sections;
 
 protected:
   virtual const char* class_name() const { return "Report"; }
@@ -590,6 +594,9 @@ public:
   bool kill_section(char type, int level);
   int find_max_level(char type) const;
 
+	virtual void reset_export_sections();
+	virtual void set_export_sections(export_type type);
+
   virtual bool on_link(const TReport_link& link);
   virtual bool use_mask() { return true;}
 

src/include/reprint.cpp

@@ -1647,6 +1647,9 @@ HIDDEN bool ask_export_filename(TFilename& fname)
 bool TBook::export_text(TFilename& fname, bool signature, int size, bool goto_url, bool ask_filename)
 {
   TString ext = fname.ext(); ext.lower();
+
+	if (ext.blank())
+		fname.ext("txt");
   if (ext == "pdf")
     return export_pdf(fname, signature, goto_url, ask_filename);
   if (ext.starts_with("xls") || ext.starts_with("htm"))
@@ -1843,10 +1846,101 @@ static void reformat_excel(TString& str)
   }
 }
 
+bool TBook::export_dbase(TFilename& fname, bool signature, TTrec * desc, bool goto_url, bool ask_filename)
+{
+	TFilename temp;
+	TToken_string line(8192, '\t');
+	TString ext = fname.ext(); ext.lower();
+
+	if (ext.blank())
+		fname.ext("dbf");
+	if (desc == nullptr)
+	{
+		ifstream ifstream(temp);
+		int nfields = 0;
+
+		while (!ifstream.eof())
+		{
+			ifstream.getline(line.get_buffer(), line.size());
+			if (nfields < line.items())
+				nfields = line.items();
+		}
+		desc = new TTrec;
+		for (int i = 0; i < nfields; i++)
+			desc->update_fielddef(i, TToken_string(format("FLD%03d|1|80|0", i)));
+		desc->update_keydef(0, TToken_string("FLD001|"));
+	}
+
+	if (fname.exist())
+	{
+		TFilename f(fname);
+
+		f.ext("*");
+		remove_files(f, false);
+	}
+	TExternisamfile dbf(fname, *desc);
+
+	temp.temp("exp", "xls");
+	export_excel(temp, signature);
+
+	ifstream ifstream(temp);
+
+	while (!ifstream.eof())
+	{
+		int i = 0;
+
+		ifstream.getline(line.get_buffer(), line.size());
+		if (line.full())
+		{
+			dbf.zero();
+			FOR_EACH_STR_TOKEN(line, val)
+				if (*desc->rec().Fd[i].Name != '\0')
+					switch (desc->rec().Fd[i].TypeF)
+					{
+						case _alfafld:
+						case _charfld:
+						case _boolfld:
+						case _memofld:
+							dbf.put(desc->rec().Fd[i++].Name, val);
+							break;
+						case _intfld :
+						case _longfld :
+						case _realfld :
+						case _wordfld :
+						case 	_intzerofld :
+						case 	_longzerofld :
+							dbf.put(desc->rec().Fd[i++].Name, real::ita2eng(val));
+							break;
+						case _datefld :
+							dbf.put(desc->rec().Fd[i++].Name, TDate(atoi(val.left(2)), atoi(val.mid(3,2)), 2000 + atoi(val.right(2))));
+							break;
+						default :
+							break;
+					}
+			dbf.write();
+		}
+	}
+	remove(temp);
+	safe_delete(desc);
+	if (signature && main_app().has_module(FDAUT))
+	{
+		char outfile[_MAX_PATH] = "";
+		if (xvt_sign_file(fname, outfile))
+			fname = outfile;
+	}
+
+	if (goto_url)
+		xvt_sys_goto_url(fname, "open");
+	return true;
+}
+
 bool TBook::export_excel(TFilename& fname, bool signature, bool goto_url, bool ask_filename)
 {
   TTabulator tab;
+	TString ext = fname.ext(); ext.lower();
 
+	if (ext.blank())
+		fname.ext("xls");
   if (ask_filename && !ask_export_filename(fname))
       return false;
 
@@ -2286,6 +2380,10 @@ bool TBook::print(size_t pagefrom, size_t pageto, word copies)
 
 bool TBook::export_pdf(TFilename& filename, bool signature, bool goto_url, bool ask_filename)
 {
+	TString ext = filename.ext(); ext.lower();
+
+	if (ext.blank())
+		filename.ext("pdf");
   bool ok = (pages() > 0) && main_app().has_module(RSAUT); // Controllo paranoico dei permessi
   if (ok)
   {
@@ -2359,7 +2457,12 @@ bool TBook::esporta()
     if (ok)
       xvt_sys_goto_url(fname, "open");
     break;
-  default:
+	case K_DBF:
+		ok = export_dbase(fname, signature);
+		if (ok)
+			xvt_sys_goto_url(fname, "open");
+		break;
+	default:
     break;
   }
   return ok;
@@ -2891,7 +2994,7 @@ void TReport_book::add_doc(const TString& name)
 
       TReport* rep = _report; // Salvo variabile globale
 
-      add(*eminem, true);
+      add(*eminem, _export_printer, true);
       _report = rep;          // Ripristino variabile globale
     }
     delete eminem;
@@ -2900,11 +3003,12 @@ void TReport_book::add_doc(const TString& name)
     TBook::add_doc(name);
 }
 
-bool TReport_book::add(TReport& rep, bool progind)
+bool TReport_book::add(TReport& rep, export_type type, bool progind)
 {
   if (!init(rep))
     return false;
 
+	_report->set_export_sections(type);
   if (!_report->execute_prescript())
     return false;
 

src/include/reprint.h

@@ -97,6 +97,8 @@ public:
   virtual bool archive(const char* repname, bool signature);
   virtual bool preview();
   
+	// esporta il book in un file dbf il tracciato record passato viene disallocato
+	virtual bool export_dbase(TFilename& fname, bool signature, TTrec * desc = nullptr, bool goto_url = false, bool ask_filename = false);
   virtual bool export_excel(TFilename& fname, bool signature, bool goto_url = false, bool ask_filename = false);
   virtual bool export_pdf(TFilename& fname, bool signature, bool goto_url = false, bool ask_filename =  false);
   virtual bool export_text(TFilename& fname, bool signature, int size, bool goto_url = false, bool ask_filename = false);
@@ -134,7 +136,7 @@ protected:
   void print_subsections(int father);
 
 public:
-  bool add(TReport& report, bool progind = true);
+  bool add(TReport& report, export_type type = _export_printer, bool progind = true);
   
   virtual int lpi() const;
   virtual int cpi() const;

src/tf/tfutility.cpp

@@ -134,7 +134,7 @@ bool check_record(TISAM_recordset* rec, const bool mod_esterometro,
 					rdoc.put(DOC_NDOC, rec->get("23.DNDOC").as_string());
 
 					// Se riesco a generare la chiave, trovo il record e non ha il flag di gestione in errore o un errore esterno, so che è stato inviato
-					const bool is_sent = rdoc.read(doc) == NOERR && chiave_paf(rdoc, hfatt, bfatt) && paf0100f.search(nullptr, hfatt, bfatt) && paf0100f.sq_get("P1_GESTIONE") != "E" && paf0100f.sq_get("P1_ERREST") != "*";
+					const bool is_sent = rdoc.read(doc) == NOERR && chiave_paf_doc(rdoc, hfatt, bfatt) && paf0100f.search(nullptr, hfatt, bfatt) && paf0100f.sq_get("P1_GESTIONE") != "E" && paf0100f.sq_get("P1_ERREST") != "*";
 
 					// Se voglio solo quelli inviati e non è stato inviato o
 					// voglio solo quelli non inviati ed è stato inviato, RUSPA!