#include <applicat.h>
#include <config.h>
#include <form.h>
#include <mask.h>
#include <relation.h>
#include <sheet.h>
#include <tabutil.h>
#include <utility.h>

#include <urldefid.h>

#include "cg1400.h"

class TStampa_deleghe_IVA : public TApplication
{
  TRelation *_nditte;
  TTable* _banche;

  TArray_sheet* _ditte;

  int _mese, _anno, _tipo;
  TString16 _azienda, _dipendenza;
  TFilename _profilo;
  bool _stampa_distinte, _aggiorna_codici, _stampa_prova;

protected:
  virtual bool create();
  virtual bool destroy();
  virtual bool menu(MENU_TAG);
  virtual void print();

  int select();
  bool print_deleghe();
  void print_distinta();

public:
  TStampa_deleghe_IVA() : _ditte(NULL) {}
};


bool TStampa_deleghe_IVA::create()
{
  TApplication::create();

  _nditte = new TRelation(LF_NDITTE);
  _nditte->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR");
  _nditte->add(LF_COMUNI, "STATO=STATORF|COM=COMRF", 1, LF_ANAG);
  
  _banche = new TTable("%BAN");

  _ditte  = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare",
                             "@1|Cod.@5|Ragione Sociale@50|Importo@15|Azienda|Dipendenza|Concessione");
  
  TConfig c(CONFIG_STUDIO, "cg");
  _azienda = c.get("CodABI");
  _dipendenza = c.get("CodCAB");
  
  dispatch_e_menu(BAR_ITEM(1));
  return TRUE;
}

bool TStampa_deleghe_IVA::destroy()
{
  delete _ditte;

  delete _nditte;
  delete _banche;

  return TApplication::destroy();
}


int TStampa_deleghe_IVA::select()
{
  TMask m("cg1400a");
  TConfig c(CONFIG_STUDIO, "cg");
  m.set(F_ABI, _azienda);
  m.set(F_CAB, _dipendenza);
  if (m.run() != K_ENTER) 
    return 0;

  _azienda    = m.get(F_ABI);
  _dipendenza = m.get(F_CAB);

  _mese = m.get_int(F_MESE);
  _anno = m.get_int(F_ANNO);
  _tipo = m.get_int(F_TIPO);

  _stampa_prova    = !m.get_bool(F_DEFINITIVA);
  _stampa_distinte = m.get_bool(F_DISTINTA);
  _aggiorna_codici = m.get_bool(F_AGGIORNA);
  
  if (m.get_bool(F_CONTOFIS))
    _profilo = m.get(F_PROFILO);
  else
  {
    _profilo = "del";
    _profilo << _azienda;
  }
  const TDate pd(m.get(F_DATA));
  printer().setdate(pd);
  
  const int concessione = m.get_int(F_CONCESSIONE);
  const long soloabi = m.get_long(F_SOLO_ABI);
  const long solocab = m.get_long(F_SOLO_CAB);

  TTable deleghe("%DEL");

  TString16 chiave;
  TToken_string d(80);

  _ditte->destroy();
  for (_nditte->first(); _nditte->good(); _nditte->next())
  {
    const int co = _nditte->lfile(LF_COMUNI).get_int("UFFCONC");
    if (concessione != 0 && concessione != co) continue;
    
    const long dit = _nditte->lfile().get_long("CODDITTA");
    chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
    deleghe.put("CODTAB", chiave);
    if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
    {
      const long az = deleghe.get_long("I0");
      const long di = deleghe.get_long("I1");
      if ((soloabi == 0 || soloabi == az) && (solocab == 0 || solocab == di))
      {  
        d = " ";                                   // Selezione
        d.add(dit);                                // Codice ditta
        d.add(_nditte->lfile().get("RAGSOC"));     // Ragione sociale
        d.add(deleghe.get_real("R0").string(".")); // Importo
        d.add(format("%05ld", az));                // Azienda
        d.add(format("%05ld", di));                // Dipendenza
        d.add(format("%03d", co));                 // Concessione
        _ditte->add(d);
      }  
    }
  }

  if (_ditte->items() > 0)
  {
    const bool ok = _ditte->run() == K_ENTER;
    enable_menu_item(M_FILE_PRINT, ok);
  }
  else
  {
    warning_box("Nessuna ditta ha deleghe da stampare");
    disable_menu_item(M_FILE_PRINT);
    return 2;
  }
  return 1;
}

bool TStampa_deleghe_IVA::menu(MENU_TAG mt)
{
  int s;
  while ((s = select()) != 0)
    if (s == 1) print();
  return FALSE;
}

void TStampa_deleghe_IVA::print()
{
  print_deleghe();
  if (_stampa_distinte)
  {
    const bool ok = yesno_box("Inserire il modulo continuo nella stampante "
                              "e confermare la stampa della distinta");
    if (ok) print_distinta();
  }
}


void TStampa_deleghe_IVA::print_distinta()
{
  enum Tabulatori { TAB_DITTA = 0, TAB_SEDE = 52, TAB_PROV = 78,
                    TAB_IMPORTO = 82, TAB_NOTE = 100 };

  printer().open();

  TString16 codban;
  if (_azienda.not_empty())
  {
    codban = _azienda; codban << _dipendenza;
    _banche->put("CODTAB", codban);
    _banche->read();
  }

  TPrintrow row;

  if (atol(_azienda))
    row.put(_banche->get("S0"), 0);
  row.put("DISTINTA DELEGHE DI VERSAMENTO", 60);
  row.put("Data @>", 110);
  row.put("Pag.@#", 124);
  printer().setheaderline(0, row);

  row.reset();
  if (atol(_dipendenza))
    row.put(_banche->get("S1"), 0);

  TString256 t("Dichiarazione ");
  switch (_tipo)
  {
  case 2: 
    t << "annuale : "; break;
  case 7: 
    t << "acconti IVA : "; break;
  default: 
    t << "periodica : " << _mese << '-';  break;
  }
  t << _anno;
  row.put(t, 60);
  printer().setheaderline(1, row);

  t.fill('-', 130);
  row.reset();
  row.put(t, 0);
  printer().setheaderline(2, row);
  printer().setheaderline(4, row);

  row.reset();
  row.put("Ditta", TAB_DITTA);
  row.put("Sede" , TAB_SEDE);
  row.put("Importo", TAB_IMPORTO+8);
  row.put("Note", TAB_NOTE);
  printer().setheaderline(3, row);

  real totale;

  for (int i = 0; i < _ditte->items(); i++)
    if (_ditte->checked(i))
    {
      const TString16 cod(_ditte->row(i).get(1));
      _nditte->lfile().put("CODDITTA", cod);
      _nditte->read();

      TParagraph_string dencom(_nditte->lfile(LF_COMUNI).get("DENCOM"), 18);

      row.reset();
      row.put(_nditte->lfile().get("RAGSOC"), TAB_DITTA);
      row.put(dencom.get(), TAB_SEDE);
      row.put(_nditte->lfile(LF_COMUNI).get("PROVCOM"), TAB_PROV);

      TString imp(_ditte->row(i).get(3));
      row.put(imp, TAB_IMPORTO);
      printer().print(row);

      imp.strip(".");
      real importo(imp);
      totale += importo;

      const char* r;
      while ((r = dencom.get()) != NULL)
      {
        row.reset();
        row.put(r, TAB_SEDE);
        printer().print(row);
      }
    }

  row.reset();
  printer().print(row);
  row.put("@BTotale versamenti :", TAB_SEDE);
  row.put(totale.string("###.###.###.###"), TAB_IMPORTO);
  printer().print(row);

  printer().close();
}

bool TStampa_deleghe_IVA::print_deleghe()
{
  bool ok = printer().open();
  if (!ok) return FALSE;

  TForm f(_profilo);

  for (int i = 0; ok && i < _ditte->items(); i++)
    if (_ditte->checked(i))
    {
      const TString16 d(_ditte->row(i).get(1));

      TRectype& delega = f.cursor()->curr();

      TString16 chiave;
      chiave = d; chiave << format("%04d%02d%d", _anno, _mese, _tipo);
      delega.put("CODTAB", chiave);

      f.cursor()->file().read();
      const bool cera = atoi(delega.get("S7")) != 0;
      if (!cera)
      {
        delega.put("S7", _azienda);
        delega.put("S8", _dipendenza);
        f.cursor()->file().rewrite();
      }
      f.cursor()->read();             // Posiziona il cursore

      ok = f.print(-1);               // Stampa solo il record corrente
      if (!ok) break;

      bool scrivi = _aggiorna_codici && !cera;

      if (!_stampa_prova)
      {
        delega.put("B0", "X");        // Stampato
        scrivi = TRUE;
      }
      if (!_aggiorna_codici && !cera) // Cancella codice se non richiesto
      {
        delega.put("S7", "");
        delega.put("S8", "");
        scrivi = TRUE;
      }
      if (scrivi)
        f.cursor()->file().rewrite();
    }
  printer().close();

  return ok;
}


int cg1400(int argc, char* argv[])
{
  TStampa_deleghe_IVA a;
  a.run(argc, argv, "Stampa Deleghe IVA");
  return 0;
}