#include <applicat.h>
#include <automask.h>
#include <execp.h>
#include <relation.h>
#include <reprint.h>

#include <doc.h>
 
#include "lv1100a.h"

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

TStampaBuoni_mask::TStampaBuoni_mask() : TAutomask("lv1100a") 
{
  const TApplication& app = main_app();
  TConfig configlv(CONFIG_DITTA, "lv");
  const TString& title = app.title();
  set_caption(title);
  const char tipobuoni = app.argc() > 2 ? toupper(app.argv(2)[0]) : 'C';
  switch (tipobuoni)
  {
  case 'C': 
  	set(F_CODNUM, configlv.get("NUM_GEN"));
		set(F_TIPODOC, configlv.get("TIPODOC_GEN"));
    break;
  case 'P': 
		set(F_CODNUM, configlv.get("NUM_PRE(0)"));
		set(F_TIPODOC, configlv.get("TIPODOC_PRE(0)"));
		break;
  case 'R': 
	default :
  	set(F_CODNUM, configlv.get("NUM_RIT(0)"));
		set(F_TIPODOC, configlv.get("TIPODOC_RIT(0)"));
    break;
	}
}

bool TStampaBuoni_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
  return true;
}

class TStampaBuoni_app: public TSkeleton_application
{
protected:
  virtual void main_loop();
  void elabora(const TMask& mask, const char action) const;
};

class TStampaBuoni_set : public TISAM_recordset
{
protected:
  virtual void set_custom_filter(TCursor& cursor) const;

public:
  TStampaBuoni_set(const TMask& mask);
};

void TStampaBuoni_set::set_custom_filter(TCursor& cursor) const
{
  if (cursor.items() > 0)
  {
    cursor = 0L;
    const TString4 tipodoc = cursor.curr().get(DOC_TIPODOC);
  }
}

TStampaBuoni_set::TStampaBuoni_set(const TMask& mask) : TISAM_recordset("USE DOC")
{
  const TDate data_from = mask.get_date(F_DATA_FROM);
	TString query = "USE DOC \n"
									"SELECT (BETWEEN(DATADOC,#DATA_FROM,#DATA_TO))"
									"&&(BETWEEN(CODCF,#CODCF_FROM,#CODCF_TO))"
									"&&(BETWEEN(G1:CODITI,#CODITI_FROM,#CODITI_TO))\n"
									"JOIN CLIFO INTO TIPOCF=='C' CODCF==CODCF\n"
                  "JOIN %STD INTO CODTAB==STATO\n"
									;
  query << "FROM PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << "\"\n"
				<< "TO PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << "\"\n";
  set(query);                     
  //inserire parametri filtri
  set_var("#DATA_FROM", data_from);
  set_var("#DATA_TO",	mask.get_date(F_DATA_TO)); 
  set_var("#CODCF_FROM", TVariant(mask.get(F_CODCF_FROM)));
  set_var("#CODCF_TO", TVariant(mask.get(F_CODCF_TO)));
  set_var("#CODITI_FROM", TVariant(mask.get(F_CODITI_FROM)));
  set_var("#CODITI_TO", TVariant(mask.get(F_CODITI_TO)));
}


void TStampaBuoni_app::elabora(const TMask& mask, const char action) const
{
  TStampaBuoni_set buoni(mask);

	TCursor* c = buoni.cursor();
  TCursor_sheet sht(c, " |NDOC|DATADOC|4->S0[1,25]|CODCF|20->RAGSOC", TR("Selezione Documenti"),
                   HR("@1|Numero\nDoc.@7|Data\nDoc.@10|Stato@25|Cliente|Ragione Sociale@50"));

  if (sht.run() && sht.one_checked())
  {
  	const TDate data_from = mask.get_date(F_DATA_FROM);
  	TString80 chiavedoc = "D|";
  	chiavedoc << data_from.year() << "|" <<	mask.get(F_CODNUM) << "|";

    TFilename tmp; tmp.temp("", "ini");
		ofstream outf(tmp);
		
		outf << "[Transaction]" << endl;
		outf << "Action=" << action << endl;
		outf << "Mode=D" << endl;
		outf << "[33]" << endl;

		long nx=0;

		const long items = sht.items();
	  for (long i = 0L; i<items; i++)
			if (sht.checked(i))
			{
				outf << "Doc(" << (nx++) << ")=";
			  outf << chiavedoc << sht.row(i).get_long(1) << endl;
			}
	  outf.close();

		TFilename appname = "ve1 -2 -i";
		appname << tmp;
		TExternal_app app(appname);
	  app.run();
		tmp.fremove();
	}
}

void TStampaBuoni_app::main_loop()
{
  TStampaBuoni_mask m;
	bool running = true;
  while (running)
	{
		const KEY k = m.run();
		switch (k)
		{
		case K_ENTER: elabora(m, 'P'); break;
		case 'A':			elabora(m, 'A'); break;
		default: running = false; break;
		}
	}
}

int lv1100(int argc, char* argv[])
{
  const char* title = NULL;
  const char tipo = argc > 2 ? toupper(*argv[2]) : 'C';
  switch (tipo)
  {
  case 'C': title = TR("Stampa buoni di consegna"); break;
  case 'P': title = TR("Stampa buoni di prelievo");	break;
  case 'R': 
	default : title = TR("Stampa buoni di ritiro");   break;
	}
  TStampaBuoni_app app;
  app.run(argc, argv, title);
  return 0;
}