#include <applicat.h>
#include <automask.h>
#include <progind.h>
#include <relation.h>
#include <reprint.h>
#include <textset.h>


#include "ci1300a.h"


///////////////////////////////////////////////////////////
// Maschera
///////////////////////////////////////////////////////////

class TRil_ore_mask : public TAutomask
{
protected:
  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); 
	
public:
  void elabora() const;
  void elabora_risorsa(const TString& curr_risorsa) const;

  TRil_ore_mask();
  virtual ~TRil_ore_mask() {}
};

TRil_ore_mask::TRil_ore_mask() : TAutomask("ci1300a")
{
}

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

void TRil_ore_mask::elabora_risorsa(const TString& curr_risorsa) const
{
  const char tiporisorsa = get(F_RISOATT)[0];
  const int anno = get_int(F_ANNO);
  const int mese = get_int(F_MESE);

  //query sul file delle ore in chiave 3: TIPO+TIPORA+CODICE+ANNO+MESE+...
  TString query;
  query << "USE RILORE KEY 3";
  query << "\nFROM TIPO=#TIPO TIPORA=#TIPORA CODICE=#CODICE ANNO=#ANNO MESE=#MESE";
  query << "\nTO TIPO=#TIPO TIPORA=#TIPORA CODICE=#CODICE ANNO=#ANNO MESE=#MESE";

  TISAM_recordset rilore_recset(query);
  rilore_recset.set_var("#TIPORA", (TVariant&)tiporisorsa);
  rilore_recset.set_var("#CODICE", (TVariant&)curr_risorsa);
  rilore_recset.set_var("#ANNO", (TVariant&)anno);
  rilore_recset.set_var("#MESE", (TVariant&)mese);

  for (int i = 0; i < 2; i++)
  {
    char tipo = 'C';
    if (i == 0)
      tipo = 'P';
    rilore_recset.set_var("#TIPO", (TVariant&)tipo);

    const long rilore_recset_items = rilore_recset.items();

    TString msg;
    msg << "Scansione " << curr_risorsa << "..";
    TProgind pi(rilore_recset_items, msg, true, true);

    for (bool ok = rilore_recset.move_first(); ok; ok = rilore_recset.move_next())
    {
      if (!pi.addstatus(1))
        break;

    }

  }
}

void TRil_ore_mask::elabora() const
{
  //query sulla tabella interessata (risorse o attrezzature)
  TString16 da_ris_att, a_ris_att;
  TString query_ris_att;
  const char tiporisorsa = get(F_RISOATT)[0];

  if (tiporisorsa == 'R')
  {
    da_ris_att = get(F_DA_CODRIS);
    a_ris_att = get(F_A_CODRIS);
    query_ris_att << "USE RSS";
  }
  else
  {
    da_ris_att = get(F_DA_CODATT);
    a_ris_att = get(F_A_CODATT);
    query_ris_att << "USE ATR";
  }

  query_ris_att << "\nFROM CODTAB=#DACODICE";
  query_ris_att << "\nTO CODTAB=#ACODICE";
  
  TISAM_recordset recset_ris_att(query_ris_att);
  recset_ris_att.set_var("#DACODICE", da_ris_att);
  recset_ris_att.set_var("#ACODICE", a_ris_att);
  const long recset_ris_att_items = recset_ris_att.items();

  TProgind pi(recset_ris_att_items, TR("Scansione risorse/attrezzature.."), true, true);

  for (bool ok = recset_ris_att.move_first(); ok; ok = recset_ris_att.move_next())
  {
    if (!pi.addstatus(1))
      break;

    const TString& curr_risorsa = recset_ris_att.cursor()->curr().get("CODTAB");
    elabora_risorsa(curr_risorsa);


  }
}

///////////////////////////////////////////////////////////
// Recordset
///////////////////////////////////////////////////////////

class TRil_ore_recordset : public TCSV_recordset
{
protected:

public:
  TRil_ore_recordset(const TMask& mask);
	
	//virtual const TVariant& get(const char* column_name) const;
	//virtual const TVariant& get(unsigned int column) const { return TCSV_recordset::get(column); }
};

TRil_ore_recordset::TRil_ore_recordset(const TMask& mask) 
: TCSV_recordset("CSV(\"\t\")")   //tab separated
{
  FOR_EACH_MASK_FIELD(mask, i, field)
	{
		const TFieldref* f = field->field();
		if (f != NULL)
		{
			const TString& name = f->name();
			set_var(name, field->get(), true);
		}
	}
}

///////////////////////////////////////////////////////////
// Report
///////////////////////////////////////////////////////////

class TRil_ore_report : public TReport
{
protected:
virtual bool use_mask() { return false; }
public:
  TRil_ore_report() {}
};

///////////////////////////////////////////////////////////
// Applicazione
///////////////////////////////////////////////////////////

class TRil_ore : public TSkeleton_application
{
protected:

public:
  virtual bool create();
  virtual void main_loop();
};


void TRil_ore::main_loop()
{
  TRil_ore_mask mask;
  
  while (mask.run() == K_ENTER)
  {
    mask.elabora();
  }
}

bool TRil_ore::create()
{
	return TSkeleton_application::create();
}

int ci1300(int argc, char* argv[])
{
  TRil_ore sd;
  sd.run(argc, argv, "Rilevazione ore");
  return 0;
}