// Programma per la stampa del quadro VE
#include <recarray.h>
#include <tabutil.h>
#include <utility.h>

#include "cglib.h"
#include "cg7401.h"
#include "cgpim.h"
#include "cg7400a.h"

#include "ivadiff.h"

#define	REP_EXPORT			1
#define	REP_INTRA  			2
#define	REP_SANMARINO		3
#define	REP_OPASSIMIL		4
#define	REP_DICHINT			5
#define	REP_ALTREOP			6
#define	REP_ART10				7
#define	REP_ART7				8
#define	REP_REVCHARGE		9
#define	REP_TERREM			10
#define	REP_PAART17			11

enum tipo_sospensione { nessuna, sospenzione_normale, vol_affari, liquidazione };

class TQuadro_VE_recordset : public TQuadro_IVA_recordset
{
protected:
	virtual void load();

public:
	TQuadro_VE_recordset(TQuadro_IVA_mask * mask, const char* use, const int year) : TQuadro_IVA_recordset(mask, use, year) { load(); }
	virtual ~TQuadro_VE_recordset() {}
};

void TQuadro_VE_recordset::load()
{
	clear();

	TAssoc_array imponibile_agricolo;
	TAssoc_array imposta_agricola;
	TAssoc_array imponibile;
	TAssoc_array imposta;

	imponibile_agricolo.add("2.00", TString8("VE01.1"));
	imposta_agricola.add("2.00", TString8("VE01.2"));
	imponibile_agricolo.add("4,00", TString8("VE02.2"));
	imposta_agricola.add("4,00", TString8("VE02.2"));
	imponibile_agricolo.add("7.30", TString8("V03.1"));
	imposta_agricola.add("7.30", TString8("VE03.2"));
	imponibile_agricolo.add("7.50", TString8("VE04.1"));
	imposta_agricola.add("7.50", TString8("VE04.2"));
	imponibile_agricolo.add("7.65", TString8("VE05.1"));
	imposta_agricola.add("7.65", TString8("VE05.2"));
	imponibile_agricolo.add("7.95", TString8("VE06.1"));
	imposta_agricola.add("7.65", TString8("VE06.2"));
	imponibile_agricolo.add("8.30", TString8("VE07.1"));
	imposta_agricola.add("8.30", TString8("VE07.2"));
	imponibile_agricolo.add("8,50", TString8("VE08.1"));
	imposta_agricola.add("8,50", TString8("VE08.2"));
	imponibile_agricolo.add("8.80", TString8("VE09.1"));
	imposta_agricola.add("8.80", TString8("VE09.2"));
	imponibile_agricolo.add("10.00", TString8("VE10.1"));
	imposta_agricola.add("10.00", TString8("VE10.2"));
	imponibile_agricolo.add("12.30", TString8("VE11.1"));
	imposta_agricola.add("12.30", TString8("VE11.2"));

	imponibile.add("4.00", TString8("VE20.1"));
	imposta.add("4.00", TString8("VE20.2"));
	imponibile.add("5.00", TString8("VE21.1"));
	imposta.add("5.00", TString8("VE21.2"));
	imponibile.add("10.00",TString8("VE22.1"));
	imposta.add("10.00",TString8("VE22.2"));
	
	// le imposte che non esisto pił le mette nella pił vicina

	imponibile.add("20.00", TString8("VE23.1"));
	imposta.add("20.00", TString8("VE23.2"));
	imponibile.add("21.00", TString8("VE23.1"));
	imposta.add("21.00", TString8("VE23.2"));


	imponibile.add("22.00", TString8("VE23.1"));
	imposta.add("22.00", TString8("VE23.2"));
	
	TString256 query("USE PIM\nFROM CODTAB=");

	query << year() << "\nTO CODTAB=" << year();

	TISAM_recordset pim(query);
	bool good = false;

	for (pim.move_first(); !pim.eof(); pim.move_next())
	{
		const TString80 codtab = pim.get("CODTAB").as_string();

		const TString8 codreg(format("%d%-3s",year(), (const char*)codtab.mid(10,3)));
		const TRectype & reg = cache().get("REG", codreg);
		const tiporec tipo = (tiporec) reg.get_int("I9");
		const bool vendite = reg.get_int("I0") == 1;
		const int month = atoi(codtab.mid(13,2));

		if (vendite && tipo != liquidazione && month == 13)
		{
			const TRectype & pimr = pim.cursor()->curr();
			TString8 codiva(codtab.mid(16,4)); codiva.trim();
			const TRectype & ivar = cache().get("%IVA", codiva);
			const TString8 aliquota = ivar.get("R0");
			const TString4 tipo_aliquota = ivar.get("S1");
			const TString4 tipo_iva11_ven = ivar.get("S2");
			const int int_tipo_iva11_ven = atoi(tipo_iva11_ven);
			const bool non_imponibile = (tipo_aliquota == "NI");
			const bool esente = (tipo_aliquota == "ES");
			const bool reverse = int_tipo_iva11_ven >= 31 && int_tipo_iva11_ven <= 38;
			const bool terremotati = int_tipo_iva11_ven == 25;

			tiporec tipo;
			real imp;
			real iva;
			int last_tiporec= -1;

			if (classify_pim(pimr, imp, iva, tipo, true, last_tiporec, true))
			{
				good = true;
				switch (tipo)
				{
					case acq_norm:   // acquisti normali
						break;
					case vend_norm:   // vendite normali
					case corr_norm:
						if (aliquota.full())
						{
							const bool agricolo = ivar.get_int("I4") != 0;

							if (agricolo)
							{
								const TString * field = (TString *) imponibile_agricolo.objptr(aliquota);

								if (field != NULL) add_value(*field, imp);
								field = (TString *) imposta_agricola.objptr(aliquota);
								if (field != NULL) add_value(*field, iva);
							}
							else
							{
								const TString * field = (TString *) imponibile.objptr(aliquota);

								if (field != NULL) add_value(*field, imp);
								field = (TString *) imposta.objptr(aliquota);
								if (field != NULL) add_value(*field, iva);
							}
						}
						break;
					case acq_simp:
						break;
					case vend_simp:  // acq. e vend. sosp. imposta
						break;
					case bolle_doganali:  // bolle doganali (acquisti)
						break;
          case acq_beni_riv :  // acq. beni per rivendita
						break;
          case base_ventilazione:    // base calcolo per ventil.
						break;
					case corr_simp:  // corrispettivi n. e s. imp.
						break;
          case acq_beni_ammort:  // acq. beni ammortizz. detr.
						break;
          case acq_beni_ammort_nd:	 // beni ammort. non detraibili
						break;
          case acq_beni_leasing:  // beni strum. acq in leasing
						break;
					case acq_amm_ultdetr:  // beni amm. ult. detr 6%
						break;
          case acq_ind_op_es:  // acq. indetr. su op.es.
						break;
          case acq_ind_pass_int:  // passaggi interni
						if (vendite)
							add_value("VE40.1", iva);
						break;
          case acq_ind_art_19:  // indetr. art. 19
						break;
          case cess_amm:  // cessioni amministrative
						add_value("VE40.1", iva);
						break;
          case vend_rimborso:  // vendite valide per rimborso
						break;
          case acq_rimborso:  // acq. validi per rimborso                 
						break;
          case acq_bd_ind_art_19:  // acq. con tipo documento BD e tipo detr 9
						break;
					default:
						break;

        };
			}
			else
			{
				imp = pimr.get_real("R0");
				iva = pimr.get_real("R1");
			}
			if (non_imponibile)
			{
				if (int_tipo_iva11_ven == 21)
					add_value("VE31.1", imp);
				else
					if (int_tipo_iva11_ven == 22)
						add_value("VE32.1", imp);
			}
			if (esente)
			{
				if ((tipo_iva11_ven == "B1") ||
						(tipo_iva11_ven == "B2") ||
						(tipo_iva11_ven == "B3") ||
						(tipo_iva11_ven == "B4") ||
						(tipo_iva11_ven == "B5"))
					add_value("VE33.1", imp);
				else
					if ((tipo_iva11_ven == "B6"))
						add_value("VE34.1", imp);
			}

			if (reverse)
			{
				const int tipo_reverse = int_tipo_iva11_ven;
						
				switch (tipo_reverse)
				{
					case 31 : add_value("VE35.2", imp); break;
					case 32 : add_value("VE35.3", imp); break;
					case 33 : add_value("VE35.4", imp); break;
					case 34 : add_value("VE35.5", imp); break;
					case 35 : add_value("VE35.6", imp); break;
					case 36 : add_value("VE35.7", imp); break;
					case 37 : add_value("VE35.8", imp); break;
					case 38 : add_value("VE35.9", imp); break;
					default : break;
				}
			}
			if (terremotati)
				add_value("VE36.1", imp);
		}
	}

	query = "USE LIM\n FROM CODTAB==";

	query << year() << "13\nTO CODTAB==" << year() << "13";

	TISAM_recordset lim(query);
	good |= lim.items() > 0;

	for (lim.move_first(); !lim.eof(); lim.move_next())
	{
		const real var_cred = lim.get("R17").as_real();

		if (var_cred > ZERO)
			add_value("VF25.2", var_cred);
	}

	real val = evaluate_recordset_imponibile(REP_EXPORT, year());
	
	add_value("VE30.2", val);
	val = evaluate_recordset_imponibile(REP_INTRA, year());
	add_value("VE30.3", val);
	val = evaluate_recordset_imponibile(REP_SANMARINO, year());
	add_value("VE30.4", val);
	val = evaluate_recordset_imponibile(REP_OPASSIMIL, year());
	add_value("VE30.5", val);
	val = evaluate_recordset_imponibile(REP_PAART17, year()); // liquidazione
	add_value("VE38.1", val);

	TToken_string key;  key.format("%05ld%04d", prefix().get_codditta(), year());
	const TRectype& lia = cache().get("%LIA", key); 
	TDate data_end_cassa = lia.get_date("D1");
	bool end_cassa = lia.get_bool("B5") && data_end_cassa.ok() && (data_end_cassa.month() < 12 && data_end_cassa.day() < 31);

	if (!end_cassa)
	{
		key.format("%05ld%04d", prefix().get_codditta(), year() + 1);
		const TRectype& lia1 = cache().get("%LIA", key);

		end_cassa = !lia1.get_bool("B5");
	}

	query.zap();
	const TDate da_datareg(1, 1, year());
	const TDate a_datareg(31, 12,year());

	//	query << "USE IVADIFF KEY 2 SELECT BETWEEN(DATAREG,#DAL,#AL)";
	query << "USE IVADIFF KEY 4";
	if (!end_cassa)
		query << "\nFROM DATAREG=" << da_datareg;
	query << "\nTO DATAREG=" << a_datareg;


	TISAM_recordset id(query);
	TString8 tipo_aliquota, codiva;
	TImporto imp371, imp372;

	for (bool ok = id.move_first(); ok; ok = id.move_next())
  {
    const long numreg = id.get(RMI_NUMREG).as_int();
		const int tipoiva = id.get(ID_TIPOIVA).as_int();
    const int tipodiff = id.get(ID_TIPODIFF).as_int();
		const TRectype & mov = cache().get(LF_MOV, numreg);
    const char sezione = id.get(ID_SEZIONE).as_string()[0];
    const int tipomov = id.get(ID_TIPOMOV).as_int();
		const TImporto imp(sezione, id.get(RMI_IMPONIBILE).as_real());
		const int annoliq = id.get(ID_ANNOLIQ).as_int();
		const TDate datapag = id.get(ID_DATAREGP).as_date();

		key.cut(0);
		key.add(numreg);
		key.add(id.get(ID_NUMRIG).as_string());
		codiva = cache().get(LF_RMOVIVA, key, RMI_CODIVA);
		key = codiva;
		tipo_aliquota = cache().get("%IVA", key, "S1");

		if (tipo_aliquota.blank() && datapag <= a_datareg && tipoiva == 1)  // Vendite
    {
			imp371 += imp;
			if (tipodiff == 2)
				imp372 += imp;
    }
	}
	imp371.normalize('D');
	add_value("VE37.1", imp371.valore()); // VE37.1 2 iva sospensione da incassare
	imp372.normalize('D');
	add_value("VE37.2", imp372.valore()); // VE37.2 iva per cassa da incassare

	query.zap();

	query << "USE IVADIFF KEY 3";
	query << "\nFROM DATAREGP=" << da_datareg;
	query << "\nTO DATAREGP=" << a_datareg;

	TISAM_recordset idp(query);
	TImporto imp391;

	for (bool ok = idp.move_first(); ok; ok = idp.move_next())
	{
		const long numreg = idp.get(RMI_NUMREG).as_int();
		const int tipoiva = idp.get(ID_TIPOIVA).as_int();
		const TRectype & mov = cache().get(LF_MOV, numreg);
		const char sezione = idp.get(ID_SEZIONE).as_string()[0];
		const int tipomov = idp.get(ID_TIPOMOV).as_int();
		const TImporto imp(sezione, idp.get(RMI_IMPONIBILE).as_real());
		const int annoliq = idp.get(ID_DATAREG).as_date().year();
		const int annopag = idp.get(ID_DATAREGP).as_date().year();

		key.cut(0);
		key.add(numreg);
		key.add(idp.get(ID_NUMRIG).as_string());
		codiva = cache().get(LF_RMOVIVA, key, RMI_CODIVA);
		key = codiva;
		tipo_aliquota = cache().get("%IVA", key, "S1");

		if (tipo_aliquota.blank() && tipoiva == 1)  // Vendite
		{
			if (annoliq < year() && tipomov == 3)
					imp391 += imp;
		}
	}

	imp391.normalize('A');
	add_value("VE39.1", imp391.valore()); // VE39.1 iva differita incassi di anni precedenti
} 


class TQuadro_VE_app : public TQuadro_IVA_app
{

public:
	virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year) { return new TQuadro_VE_recordset(mask(), use, year); }
	virtual void load_sheet(TSheet_field & sf);

	TQuadro_VE_app() : TQuadro_IVA_app("Stampa Quadro VE", "cg7600a") {}
	virtual ~TQuadro_VE_app() {}

};

void TQuadro_VE_app::load_sheet(TSheet_field & sf)
{
	TToken_string & row1 = sf.row(sf.items()); row1.add("|1|Stampa esportazioni|cg7600b");
	TToken_string & row2 = sf.row(sf.items()); row2.add("|2|Stampa cessioni intracomunitarie|cg7600c");
	TToken_string & row3 = sf.row(sf.items()); row3.add("|3|Stampa cessioni verso San Marino|cg7600d");
	TToken_string & row4 = sf.row(sf.items()); row4.add("|4|Stampa operazioni assimilate|cg7600e");
	TToken_string & row5 = sf.row(sf.items()); row5.add("|5|Stampa operazioni non imp. in seguito a dich. d'intenti|cg7600f");
	TToken_string & row6 = sf.row(sf.items()); row6.add("|6|Stampa altre operazioni non imponibili|cg7600g");
	TToken_string & row7 = sf.row(sf.items()); row7.add("|7|Stampa esenti art. 10|cg7600h");
	TToken_string & row8 = sf.row(sf.items()); row8.add("|8|Stampa operazioni non sogg. ai sensi art.7 da uno a septies|cg7600i");
	TToken_string & row9 = sf.row(sf.items()); row9.add("|9|Stampa operazioni reverse charge|cg7600l");
	TToken_string & row10 = sf.row(sf.items()); row10.add("|10|Stampa operazioni terremotati|cg7600m");
	TToken_string & row11 = sf.row(sf.items()); row11.add("|11|Stampa operazioni effettuate con PA ai sensi art.17|cg7600n");
}

int cg7600(int argc, char* argv[])
{
  TQuadro_VE_app a;
  a.run(argc, argv, TR("Quadro VE"));
  return 0;
}