#include "fplib.h"

#define FILE_CONFIG					CONFIG_DITTA
#define FILE_SECTION				"fp"
#define FP_TAB_MOD					"FP"



#define FP_IP										"ip"
#define FP_DB										"db"
#define FP_USR									"usr"
#define FP_PSW									"psw"
#define FP_FLD_DEST							"flddest"
#define FP_FLD_USR_DEST					"fldusrdest"
#define FP_COFI_TRAS						"cofitras"
#define FP_GEST_ALLEG						"gestioneallegati"
#define FP_ALLEG_FAT						"allegafatt"
#define FP_ESP_PRI							"esppri"
#define FP_ESP_EST							"espest"
#define FP_ESP_EST_COD					"espestcod"
#define FP_F8										"f8"
#define FP_CHECK_NOT_BLOCK			"checknotblock"
#define FP_MAIL									"mail"
#define FP_NOTA_PIEDE_F					"npf" // Nota piede fattura
#define FP_CHECK_NO_SCONTI_FATT "noscontifatt"

// Sheet fp0300
#define FP_SLD_COD					"SLD"

#define FP_SLD_CODTAB				"CODTAB"
#define FP_SLD_CODNUM				"S0"
#define FP_SLD_TIPODOC			"S1"
#define FP_SLD_DASTATO			"I0"
#define FP_SLD_ASTATO				"I1"

// Sheet fp0100
#define FP_SHT_CUST						"SCUSTRIG"
#define FP_SHT_CODTAB					FP_SLD_CODTAB
#define FP_SHT_TIPODOC				"S0"
#define FP_SHT_TIPORIGA				"S1"
#define FP_SHT_COL_QTA				"S2"
#define FP_SHT_COL_PREZZO			"S3"
#define FP_SHT_COL_IMPONIBILE "S4"

#define FP_SHT_DEF_QTA					RDOC_QTA
#define FP_SHT_DEF_PREZZO				"PREZZONN"
#define FP_SHT_DEF_IMPONIBILE		"IMPNS"

const TString& TFP_settings::get_db_indirizzo() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_IP);
}

const TString& TFP_settings::get_db_database() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_DB);
}

const TString& TFP_settings::get_db_str_con() const
{
	return get_tmp_string().cut(0) << get_db_indirizzo() << "@" << get_db_database();
}

const TString& TFP_settings::get_db_user() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_USR);
}

const TString& TFP_settings::get_db_password() const
{
	return get_tmp_string().cut(0) << decode(ini_get_string(FILE_CONFIG, FILE_SECTION, FP_PSW));
}

const TString& TFP_settings::get_fld_dest() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_FLD_DEST);
}

const TString& TFP_settings::get_fld_dest_usr() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_FLD_USR_DEST, "");
}

const TString& TFP_settings::get_cofi_tras() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_COFI_TRAS);
}

const bool TFP_settings::get_gest_alleg() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_GEST_ALLEG);
}

const bool TFP_settings::get_allega_fat() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_ALLEG_FAT);
}

const bool TFP_settings::get_esp_pri_empty() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_ESP_PRI);
}

const bool TFP_settings::get_esp_est() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_ESP_EST);
}

const TString& TFP_settings::get_esp_est_cod() const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_ESP_EST_COD, "XXXXXXX");
}

const bool TFP_settings::is_f8() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_F8);
}

const bool TFP_settings::get_check_not_block() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_CHECK_NOT_BLOCK);
}

const TString& TFP_settings::get_body_mail(int idx) const
{
	return ini_get_string(FILE_CONFIG, FILE_SECTION, FP_MAIL, "STOpsTOP", idx);
}

const TString& TFP_settings::get_npf(const char * codnum, const char * tipodoc, int idx) const
{
	TString name; name << FP_NOTA_PIEDE_F << "_" << codnum << "-" << tipodoc;
	return ini_get_string(FILE_CONFIG, FILE_SECTION, name, "FERMATIostrega", idx);
}

const bool TFP_settings::get_no_sconti_fatt() const
{
	return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_CHECK_NO_SCONTI_FATT, false);
}

void TFP_settings::set_db_indirizzo(const TString& ind) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_IP, ind);
}

void TFP_settings::set_db_database(const TString& db) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_DB, db);
}

void TFP_settings::set_db_user(const TString& usr) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_USR, usr);
}

void TFP_settings::set_db_password(const TString& psw) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_PSW, encode(psw));
}

void TFP_settings::set_fld_dest(const TString& fld_dest) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_FLD_DEST, fld_dest);
}

void TFP_settings::set_fld_dest_usr(const TString& fld_dest_usr) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_FLD_USR_DEST, fld_dest_usr);
}

void TFP_settings::set_cofi_tras(const TString& cofi) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_COFI_TRAS, cofi);
}

void TFP_settings::set_gest_alleg(const bool gest_alleg) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_GEST_ALLEG, gest_alleg);
}

void TFP_settings::set_allega_fat(const bool allega_fatt) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_ALLEG_FAT, allega_fatt);
}

void TFP_settings::set_esp_pri_empty(const bool esp_pri) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_ESP_PRI, esp_pri);
}

void TFP_settings::set_esp_est(const bool esp_est) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_ESP_EST, esp_est);
}

void TFP_settings::set_esp_est_cod(const TString& esp_est_cod) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_ESP_EST_COD, esp_est_cod);
}

void TFP_settings::set_f8(const bool f8) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_F8, f8);
}

void TFP_settings::set_check_not_block(const bool not_block) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_CHECK_NOT_BLOCK, not_block);
}

void TFP_settings::set_body_mail(const char* msg, int idx) const
{
	ini_set_string(FILE_CONFIG, FILE_SECTION, FP_MAIL, msg, idx);
}

// Set nota piede fattura
void TFP_settings::set_npf(const char * codnum, const char * tipodoc, const char* msg, int idx) const
{
	TString name; name << FP_NOTA_PIEDE_F << "_" << codnum << "-" << tipodoc;
	ini_set_string(FILE_CONFIG, FILE_SECTION, name, msg, idx);
}

void TFP_settings::set_no_sconti_fatt(const bool no_sconti_fatt) const
{
	ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_CHECK_NO_SCONTI_FATT, no_sconti_fatt);
}

void TFP_settings::remove_para_ini(int idx)
{
	ini_remove(FILE_CONFIG, FILE_SECTION, FP_MAIL, idx);
}

void TFP_settings::remove_npf_ini(const char * codnum, const char * tipodoc, int idx)
{
	TString name; name << FP_NOTA_PIEDE_F << "_" << codnum << "-" << tipodoc;
	ini_remove(FILE_CONFIG, FILE_SECTION, name, idx);
}

// Rimuove linea ini in eccesso per nota piede fattura
void TFP_settings::remove_line_npf(const char * codnum, const char * tipodoc, int idx) const
{
	TString name; name << FP_NOTA_PIEDE_F << "_" << codnum << "-" << tipodoc;
	ini_remove(FILE_CONFIG, FILE_SECTION, name, idx);
}

TRectype TFP_selected_docs::fill_rectype() const
{
	TRectype r(LF_TABMOD);
	r.put("MOD", FP_TAB_MOD);
	r.put("COD", FP_SLD_COD);
	return r;
}

void TFP_selected_docs::fill_sheet(TSheet_field& sheet) const
{
	for(*_cur = 0; _cur->pos() < _cur->items(); ++*_cur)
	{
		TRectype rec = _cur->curr();
		TToken_string& row = sheet.row(-1);
		row.add(rec.get(FP_SLD_CODNUM));
		row.add(rec.get(FP_SLD_TIPODOC));
		row.add(rec.get(FP_SLD_DASTATO));
		row.add(rec.get(FP_SLD_ASTATO));
		row.add(TTipo_documento(rec.get(FP_SLD_TIPODOC)).tipo_doc_sdi());
	}
}

void TFP_selected_docs::save_sheet(const TSheet_field& sheet) const
{
	// Svuoto il db
	TLocalisamfile tabmod(LF_TABMOD);
	TRectype rec(LF_TABMOD);

	for (*_cur = 0; _cur->pos() != _cur->items();)
	{
		rec = _cur->curr();
		int err = rec.remove(tabmod);
	}

	// Carico il db
	
	FOR_EACH_SHEET_ROW(sheet, n, r)
	{
		// Chissene anche se copio ogni volta
		rec = fill_rectype();
		static TString num;
		num.cut(0);
		num.format("%08d", n);
		rec.put(FP_SLD_CODTAB, num);

		// Prendo tutta la riga tranne il cod sdi
		rec.put(FP_SLD_CODNUM, r->get(_codnum));
		rec.put(FP_SLD_TIPODOC, r->get(_tipodoc));
		rec.put(FP_SLD_DASTATO, r->get(_dastato));
		rec.put(FP_SLD_ASTATO, r->get(_astato));
		rec.write(tabmod);
	}
}

TFP_selected_docs::TFP_selected_docs() : _r_tabmod(LF_TABMOD), _flt(fill_rectype())
{
	_cur.reset(new TCursor(&_r_tabmod, "", 1, &_flt, &_flt));
}


TFP_righe_custom::TCustCol& TFP_righe_custom::get_no_custom()
{
	static TCustCol* default_cust_col = nullptr;
	if(default_cust_col == nullptr)
	{
		default_cust_col = new TCustCol();
	}
	return *default_cust_col;
}

TFP_righe_custom::TCustCol& TFP_righe_custom::get(const TString& codriga, const TString& tipodoc)
{
	if(!_loaded)
	{
		load_map();
	}

	if(_custom_table.find(codriga) != _custom_table.end())
	{
		if (_custom_table[codriga].find(tipodoc) != _custom_table[codriga].end())
		{
			return _custom_table[codriga][tipodoc];
		}
		else if (_custom_table[codriga].find("") != _custom_table[codriga].end())
		{
			return _custom_table[codriga][""];
		}
	}

	return get_no_custom();
}

void TFP_righe_custom::write_ini_npf(TToken_string* r)
{
	// Prendo memo di ogni riga e la suddivido per gli a capo
	TToken_string msg(r->get(5), '\n');
	/* Vado a salvare in un config .ini tipo-riga/tipo-doc/messaggio su piu righe */
	int indx = 0;
	TString codnum, tipodoc; codnum << r->get(1); tipodoc << r->get(0);

	// Conto quanti ne avevo salvati prima nel file ini per poi controllare
	// che non sto salvando meno di quelli che ci sono già
	int previous_indx = 0;
	for (TString row = fp_settings().get_npf(codnum, tipodoc, previous_indx); row != "FERMATIostrega"; row = fp_settings().get_npf(codnum, tipodoc, previous_indx))
		previous_indx++;
	// Vado a salvare ogni riga nel file ini
	for (const char* row = msg.get(); row; row = msg.get())
		fp_settings().set_npf(codnum, tipodoc, row, indx++);

	if (indx < previous_indx)
	{
		for (int i = indx; i < previous_indx; i++)
			fp_settings().remove_npf_ini(codnum, tipodoc, indx);
	}
}

TString TFP_righe_custom::get_ini_npf(TString codnum, TString tipodoc)
{
	TString msg; msg.cut(0);

	int indx = 0;
	for (TString row = fp_settings().get_npf(codnum, tipodoc, indx); row != "FERMATIostrega"; row = fp_settings().get_npf(codnum, tipodoc, indx))
	{
		if(indx++ > 0)
			msg << '\n';
		msg << row;
	}
	return msg;
}

void TFP_righe_custom::load_map()
{
	TRelation rel(LF_TABMOD);
	TRectype rec(LF_TABMOD);
	rec.put("MOD", FP_TAB_MOD);
	rec.put("COD", FP_SHT_CUST);
	TCursor cur(&rel, "", 1, &rec, &rec);
	for (cur = 0; cur.pos() < cur.items(); ++cur)
	{
		rec = cur.curr();
		TCustCol& app = _custom_table[rec.get(FP_SHT_TIPORIGA)][rec.get(FP_SHT_TIPODOC)];
		app._col_qta = rec.get(FP_SHT_COL_QTA).full() ? rec.get(FP_SHT_COL_QTA) : FP_SHT_DEF_QTA;
		app._col_prezzo = rec.get(FP_SHT_COL_PREZZO).full() ? rec.get(FP_SHT_COL_PREZZO) : FP_SHT_DEF_PREZZO;
		app._col_imponibile = rec.get(FP_SHT_COL_IMPONIBILE).full() ? rec.get(FP_SHT_COL_IMPONIBILE) : FP_SHT_DEF_IMPONIBILE;
		app._col_nota_piede = rec.get(FP_NOTA_PIEDE_F);
	}

	_loaded = true;
}

void TFP_righe_custom::save_sheet(TSheet_field& sheet_field)
{
	// Svuoto il db
	TLocalisamfile tabmod(LF_TABMOD);
	TRelation rel(LF_TABMOD);
	TRectype rec(LF_TABMOD);
	rec.put("MOD", FP_TAB_MOD);
	rec.put("COD", FP_SHT_CUST);
	TCursor cur(&rel, "", 1, &rec, &rec);

	for (cur = 0; cur.pos() != cur.items();)
	{
		rec = cur.curr();
		int err = rec.remove(tabmod);
	}

	// Carico il db
	FOR_EACH_SHEET_ROW(sheet_field, n, r)
	{
		// Chissene anche se copio ogni volta
		rec.put("MOD", FP_TAB_MOD);
		rec.put("COD", FP_SHT_CUST);
		static TString num;
		num.cut(0);
		num.format("%08d", n);
		
		rec.put(FP_SHT_CODTAB, num);

		// Prendo tutta la riga tranne il cod sdi
		rec.put(FP_SHT_TIPODOC, r->get(0));
		rec.put(FP_SHT_TIPORIGA, r->get());
		rec.put(FP_SHT_COL_QTA, r->get());
		rec.put(FP_SHT_COL_PREZZO, r->get());
		rec.put(FP_SHT_COL_IMPONIBILE, r->get());

		rec.write(tabmod);

		write_ini_npf(r);
	}
}

void TFP_righe_custom::load_sheet(TSheet_field& sheet_field)
{
	TRelation rel(LF_TABMOD);
	TRectype rec(LF_TABMOD);
	rec.put("MOD", FP_TAB_MOD);
	rec.put("COD", FP_SHT_CUST);
	TCursor cur(&rel, "", 1, &rec, &rec);
	for (cur = 0; cur.pos() < cur.items(); ++cur)
	{
		TToken_string& row = sheet_field.row(-1);
		TRectype& cur_rec = cur.curr();
		row.add(cur_rec.get(FP_SHT_TIPODOC), 0);
		row.add(cur_rec.get(FP_SHT_TIPORIGA));
		row.add(cur_rec.get(FP_SHT_COL_QTA));
		row.add(cur_rec.get(FP_SHT_COL_PREZZO));
		row.add(cur_rec.get(FP_SHT_COL_IMPONIBILE));
		row.add(get_ini_npf(cur_rec.get(FP_SHT_TIPORIGA), cur_rec.get(FP_SHT_TIPODOC)));
	}
	sheet_field.force_update();
}

TFP_righe_custom::TFP_righe_custom() : _loaded(false)
{
	
}