campo-sirio/src/cg/cg0800.cpp

#include <applicat.h>
#include <automask.h>
#include <reprint.h>
#include <variant.h>

#include "cglib.h"
#include "cg0800a.h"

///////////////////////////////////////////////////////////
// TRiepilogoIVA_mask
///////////////////////////////////////////////////////////

class TRiepilogoIVA_mask : public TAutomask
{
protected:
	virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);

public:
	TRiepilogoIVA_mask() : TAutomask("cg0800a") { }
};

bool TRiepilogoIVA_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
	TRiepilogoIVA_mask & m = (TRiepilogoIVA_mask &) o.mask();

	switch (o.dlg())
	{
	case F_DAMESE:
		if (e == fe_modify || e == fe_close)
		{
			if (atoi(o.get()) > m.get_int(F_AMESE))
				m.set(F_AMESE, o.get());
		}
		break;
	case F_AMESE:
		if (e == fe_modify || e == fe_close)
		{
			if (atoi(o.get()) < m.get_int(F_DAMESE))
				o.set(m.get(F_DAMESE));
		}
		break;
	default:
		break;
	}
	return true;
}

///////////////////////////////////////////////////////////
// TRiepilogoIVA_app
///////////////////////////////////////////////////////////

class TRiepilogoIVA_app : public TSkeleton_application
{
protected:
	void execute_print(TAutomask & m, TReport & rep, KEY k);
	virtual void main_loop();
};

void TRiepilogoIVA_app::execute_print(TAutomask & m, TReport & rep, KEY k)
{
	TReport_book b;
	export_type type = _export_printer;

	switch (k)
	{
	case K_ENTER:
	case K_PRINT:
		type = _export_printer;
		break;
	case K_EXCEL:
		type = _export_excel;
		break;
	case K_EXPORT:
		type = _export_generic;
		break;
	case K_PDF:
		type = _export_pdf;
		break;
	case K_TEXT:
		type = _export_text;
		break;
		break;
	case K_VISUALIZE:
		type = _export_visualize;
		break;
	default:
		type = _export_user;
		break;
	}

	TFilename name = m.get(DLG_OUTPUTD);
	TString fname = m.get(DLG_OUTPUTF);

	if (name.blank())
		name.tempdir();
	if (!dexist(name))
		if (!make_dir(name))
		{
			error_box(FR("Non posso creare %s uso il direttorio temporaneo"), (const char *)name);
			name.cut(0);
			name.tempdir();
		}
	if (fname.blank())
	{
		TString t(20);

		fname = "cg0800";
		_strtime_s(t.get_buffer(), t.size());
		t.strip(":");
		fname << '_' << today.date2ansi() << '_' << t;
	}
	name.add(fname);
	rep.set_export_sections(type);
	b.add(rep, type);

	switch (type)
	{
	case _export_printer:
		b.print_or_preview();
		break;
	case _export_generic:
		b.esporta();
		break;
	case  _export_excel:
		b.export_excel(name, false, true, false, '\t');
		break;
	case _export_pdf:
		b.export_pdf(name, false, true);
		break;
	case _export_text:
		b.export_text(name, 0, false, true);
		break;
	case _export_visualize:
		b.preview();
		break;
	default:
		break;
	}
}

void TRiepilogoIVA_app::main_loop()
{
	TRiepilogoIVA_mask m;
	KEY k;

	while ((k = m.run()) != K_QUIT)
	{
		TRiepilogoIVA_report rep;
		TFilename repname = m.get(DLG_REPORT);
		TRiepilogoIVA_recordset * recset = new TRiepilogoIVA_recordset;

		if (repname.blank())
			repname = "cg0800a";

		rep.load(repname);
		if (recset != nullptr)
		{
			int anno = m.get_int(F_ANNO);
			int damese = m.get_int(F_DAMESE);
			int amese = m.get_int(F_AMESE);

			recset->freeze();
			recset->set_anno(anno);

			if (damese == 13)
			{
				damese = 1;
				amese = 12;
				recset->set_annual(true);
			}
			recset->set_da_mese(damese);
			recset->set_a_mese(amese);
		 	
			const TDate da(1, damese, anno);
			TDate a(1, amese, anno);

			if (m.get_long(F_DAMESE) == 13)
				a.addyear();
			a.set_end_month();
			recset->set_from(da);
			recset->set_to(a);
			rep.set_recordset(recset);
			execute_print(m, rep, k);
		}
	}
}

int cg0800(int argc, char* argv[])
{     
  TRiepilogoIVA_app app;
  app.run(argc, argv, TR("Stampa progressivi IVA avanzata"));
  return 0;
}