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

#include <nditte.h>
#include <anagr.h>
#include <anafis.h>
#include <anagiu.h>
#include <comuni.h>

#include "cg7401.h"

#include "cg7400a.h"

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

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

void TQuadro_VIAB_recordset::load()
{
  const TRectype & ditta = cache().get(LF_NDITTE, app().get_firm());
  const TString4 tipoa(ditta.get(NDT_TIPOA));
  const long codanagr = ditta.get_long(NDT_CODANAGR);
  TToken_string key(tipoa); key.add(codanagr);
  const TRectype & anagr = cache().get(LF_ANAG, key);

  set_bool("VI1.1", mask().get(F_TIPODICH) == "I");
  set_bool("VI1.2", mask().get(F_TIPODICH) == "C");

  set("VI2", anagr.get(ANA_PAIV));
  set_bool("VI2.1", ditta.get_bool(NDT_ARTIG));
  // set_bool("VI2.2", ditta.get_bool(NDT_CONC)); aggiungere
  set("VI2.3", ditta.get(NDT_MAIL));
  set("VI2.4", ditta.get(NDT_PTEL));
  set("VI2.5", ditta.get(NDT_TEL));
  set("VI2.6", ditta.get(NDT_PFAX));
  set("VI2.7", ditta.get(NDT_FAX));

  if (tipoa == "F")
  {
    const TRectype & anafis = cache().get(LF_ANAGFIS, codanagr);
    const TString16 datanasc = anafis.get(ANF_DATANASC);
    const TRectype & comuni = cache().get(LF_COMUNI, anafis.get(ANF_COMNASC));
    
    set("VI3.1", anagr.get(ANA_RAGSOC).left(30));
    set("VI3.2", anagr.get(ANA_RAGSOC).mid(30));
    set_bool("VI3.3",anafis.get(ANF_SESSO) == "M");
    set_bool("VI3.4", anafis.get(ANF_SESSO) == "F");
    set("VI3.5", datanasc.left(2));
    set("VI3.6", datanasc.mid(3));
    set("VI3.7", datanasc.right(4));
    set("VI3.8", comuni.get(COM_DENCOM));
    set("VI3.9", comuni.get(COM_PROVCOM));
  }
  else
  {
    const TRectype & anagiu = cache().get(LF_ANAGGIU, codanagr);

    set("VI3.10", anagr.get(ANA_RAGSOC));
    set("VI3.11", anagiu.get(ANG_NATGIU));
  }

  if (ditta.get(NDT_DICHP).full())
  {
    const TRectype & anaint = cache().get(LF_ANAG, ditta.get(NDT_FIRMAT));
    const TRectype & anafis = cache().get(LF_ANAGFIS, ditta.get(NDT_FIRMAT));
    const TString16 datanasc = anafis.get(ANF_DATANASC);
    const TString16 dataint = ditta.get(NDT_DECCARINT);
    const TRectype & comuni = cache().get(LF_COMUNI, anafis.get(ANF_COMNASC));

    set("VI4.1", anaint.get(ANA_COFI));
  // set("VI4.2", ditta.get(NDT_CARINT)); aggiungere carica intermediario
    set("VI4.3", anagr.get(ANA_PAIV));
    set("VI4.4", anaint.get(ANA_RAGSOC).left(30));
    set("VI4.5", anaint.get(ANA_RAGSOC).mid(30));
    set_bool("VI4.6", anaint.get(ANF_SESSO) == "M");
    set_bool("VI4.7", anaint.get(ANF_SESSO) == "F");
    set("VI4.8", datanasc.left(2));
    set("VI4.9", datanasc.mid(3));
    set("VI4.10", datanasc.right(4));
    set("VI4.11", comuni.get(COM_DENCOM));
    set("VI4.12", comuni.get(COM_PROVCOM));
    set("VI8.1", anaint.get(ANA_COFI));
    set("VI8.1", anaint.get(ANA_COFI));
    set("VI8.5", dataint.left(2));
    set("VI8.6", dataint.mid(3));
    set("VI8.7", dataint.right(4));
  }

  set("VA2.1", ditta.get(NDT_CODATTPREV));
  set("VA10.1", anagr.get(ANA_EVECC));
 }

class TQuadro_VIAB_app : public TQuadro_IVA_app
{
  virtual char last_quadro_report() const { return 'c'; }

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

  TQuadro_VIAB_app() : TQuadro_IVA_app("Stampa Quadro VC", "cg7400a") {}
	virtual ~TQuadro_VIAB_app() {}
};

void TQuadro_VIAB_app::load_sheet(TSheet_field & sf)
{
}

int cg7400(int argc, char* argv[])
{
  TQuadro_VIAB_app a;
  a.run(argc, argv, TR("Quadro VC"));
  return 0;
}