#include <config.h>
#include <defmask.h>
#include <execp.h>
#include <golem.h>
#include <msksheet.h>
#include <relapp.h>
#include <recarray.h>
#include <sheet.h>
#include <validate.h>
#include <utility.h>

#include <pconti.h>
#include <comuni.h>
#include <clifo.h>   
#include <anagr.h>  
#include <anafis.h> 
#include <cfven.h>
#include <mov.h>
#include <indsp.h>
#include <modaut.h>

#include "cg0.h"
#include "cg0200.h"
#include "cg0201.h"

class TClifo_application : public TRelation_application
{
  TMask* _msk;
  TClifoVI* _rel;
  TLocalisamfile* _mov;
  TLocalisamfile* _anag; 
  TLocalisamfile* _fis;
  TLocalisamfile* _comuni;
  TLocalisamfile* _pcon;
  
  bool _lbcn, _gesven, _gessal, _has_cg, _liscatven;
  bool _savenew;
  
  TToken_string _tmp;

protected:
  bool user_create();
  bool user_destroy();
  virtual TMask* get_mask(int mode) { return _msk; }
  virtual bool changing_mask(int mode) { return FALSE; }
  virtual bool save_and_new() const { return _savenew; }
  virtual bool protected_record(TRectype &rec);
  virtual bool get_next_key(TToken_string& key);
  void  init_pages(TMask& m);
  virtual void init_query_mode(TMask& m);
  virtual void init_query_insert_mode(TMask& m) {init_query_mode(m);}
  virtual void init_insert_mode(TMask& m) {init_query_mode(m);}
  virtual void on_config_change();
  
  ////////////
  static bool indsp_notify(TSheet_field& s, int r, KEY key); 
  static void indsp_sheet_rebuilder();
  static bool effetti_notify(TSheet_field& s, int r, KEY key); 
  
  void set_pnae(TMask& m, TToken_string& nonacc, TToken_string& nonscd);
  void get_pnae(const TMask& m, TToken_string& nonacceff, TToken_string& nonscadeff);
  
  virtual int write(const TMask& m);
  virtual int rewrite(const TMask& m);
  virtual int read(TMask& m);

  virtual void ini2mask(TConfig& ini, TMask&m, bool query);
  virtual void mask2ini(const TMask& m, TConfig& ini);

  TSheet_field& indsp_sheet() const;
  TString_array& field_sheet(short id) const;
  void reset_sheet();
  void indsp_pack();
  void common_f(const TMask& m);
  
  static bool tipo_handler(TMask_field& f, KEY key);
  static bool percip_handler(TMask_field& f, KEY key);
//  static bool fax_handler(TMask_field& f, KEY k);
  static bool email_handler(TMask_field& f, KEY k);
  static bool rsoc_handler(TMask_field& f, KEY k);

public:
  // @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
  virtual bool check_autorization() const 
  {return FALSE;}
  virtual TRelation* get_relation() const {return (TRelation*)_rel;}
};

inline TClifo_application& app() { return (TClifo_application&)main_app(); }

bool TClifo_application::protected_record(TRectype &rec)
{     
  if (!_has_cg)
    return FALSE;
  TMask* m = get_mask(MODE_MOD);
  const TString16 tipocf(m->get(F_TIPOCF));
  const long codice = atol(m->get(F_CODCF));

  _mov->curr().zero();
  _mov->curr().put(MOV_TIPO, tipocf);
  _mov->curr().put(MOV_CODCF, codice);
  _mov->read();
  return tipocf == _mov->get(MOV_TIPO) && codice == atol(_mov->get(MOV_CODCF));
}

bool TClifo_application::get_next_key(TToken_string& key)
{
  TLocalisamfile& clifo = _rel->lfile() ;
  long  codcf = 1L ;
  const TString tipo(_msk->get(F_TIPOCF)) ;
  
  if (!clifo.empty())
  {
    clifo.zero() ;
    clifo.setkey(1) ;
    if ( tipo == TCLI )
    {
      clifo.put(CLI_TIPOCF, (const char* ) TFOR);
      clifo.read(_isgteq ) ;
      if (clifo.good())
        clifo.prev() ;
      clifo.setstatus(NOERR);
    }
    else clifo.last( ) ;
    if ( clifo.good() )
    {
      const TFixed_string tipocf(clifo.get(CLI_TIPOCF)); 
      if ( tipocf == tipo )
        codcf += clifo.get_long(CLI_CODCF);
    }
  }                 
  key.format("%d|%s|%d|%ld", F_TIPOCF, (const char*) tipo, F_CODCF, codcf);
  return TRUE;
}

HIDDEN bool no_dup_fis(TMask_field& f, KEY key)
{
  bool ok = TRUE;

  TMask& msk = f.mask() ;                                   
  if (msk.query_mode() || !f.to_check(key)) 
     return ok;

  TLocalisamfile& clifo = app().get_relation()->lfile(LF_CLIFO);
  if (!f.empty() && !clifo.empty())
  {
    clifo.zero() ;
    const char t1 = msk.get(F_TIPOCF)[0] ;

    clifo.put(CLI_TIPOCF, t1);
    clifo.put(CLI_COFI, f.get());
    clifo.setkey(4) ;
    clifo.read() ;
    clifo.setkey(1) ;
    const char t = clifo.get_char(CLI_TIPOCF);
    const long s = clifo.get_long(CLI_CODCF);
    const long s1 = msk.get_long(F_CODCF);

    if (clifo.good() && (t1 != t || s1 != s))
    {
      f.message_box("Codice fiscale gia' utilizzato per il codice %c/%ld",
                    t, s);
    }
  }
  
  return ok ;
}

HIDDEN bool no_dup_iva(TMask_field& f, KEY key)
{
  bool ok = TRUE;

  TMask& msk = f.mask() ;
  if (msk.query_mode() || !f.to_check(key)) 
    return ok;
  
  TLocalisamfile& clifo = app().get_relation()->lfile(LF_CLIFO) ;
  if (f.get().not_empty() && !clifo.empty() )
  {
    clifo.zero() ;
    const char t1  = msk.get(F_TIPOCF)[0];
    
    clifo.put(CLI_TIPOCF, t1) ;
    clifo.put(CLI_STATOPAIV, msk.get(F_STATOPAIV)) ;
    clifo.put(CLI_PAIV, f.get()) ;
    clifo.setkey(5) ;
    clifo.read() ;
    clifo.setkey(1) ;
    const char t  = clifo.get_char(CLI_TIPOCF);
    const long s = clifo.get_long(CLI_CODCF);
    const long s1 = msk.get_long(F_CODCF);
    
    if (clifo.good() && (t1 != t || s1 != s))
    {
      ok = f.error_box("Partita iva gia' utilizzata per il codice %c/%ld"
                       "\nsenza avere indicato il valore 4 nell'inserimento in allegato", t, s);
    }
  }
  
  return ok;
}

HIDDEN bool cofi_handler(TMask_field& f, KEY key)
{ 
  bool ok = TRUE;

  TMask& m = f.mask();
  if (key == K_ENTER && !f.dirty() && !m.query_mode())
  {
    ok = ((TEdit_field&)f).validate(key);
    f.set_dirty();
  }  
          
  if (ok && f.to_check(key))
  {
    if (key == K_TAB)
    {
      const TString& s1 = f.get();
      if (s1.not_empty())
        m.set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F");
    }
    if (m.get(F_ALLEG) != "4")
      ok = no_dup_fis(f, key);
  }
  
  return ok;  
}

HIDDEN bool paiv_handler(TMask_field& f, KEY key)
{
  bool ok = TRUE;
  const TMask& m = f.mask();
  
  if (key == K_ENTER && !f.dirty() && !m.query_mode())
  {
    ok = ((TEdit_field&)f).validate(key);
    f.set_dirty();
  }
  
  if (ok && f.to_check(key) && m.get(F_ALLEG) != "4")
    ok = no_dup_iva(f, key);

  return ok;  
}

bool TClifo_application::tipo_handler(TMask_field& f, KEY key)
{
  TMask& m = f.mask();
  const bool fis = f.get() == "F";
  m.show(-5, app()._lbcn && fis);

  return TRUE;
}

bool TClifo_application::percip_handler(TMask_field& f, KEY key)
{
  TMask& m = f.mask();

  if (f.to_check(key) && m.get(F_CODANAGPER).not_empty())
  {     
    const TRectype& anag = m.efield(F_CODANAGPER).browse()->cursor()->file().curr();
    TString80 c(m.get(F_COFI)), p(m.get(F_PAIV));

    if ((c.not_empty() && c != anag.get(ANA_COFI)) || 
        (p.not_empty() && p != anag.get(ANA_PAIV))) 
      return error_box("Percipiente non corretto: codice fiscale o partita IVA diversa");
    
    const TString r(anag.get(ANA_RAGSOC));
    if (key == K_TAB && m.get(F_RAGSOC).empty() && 
        yesno_box("Ragione sociale mancante: assumo %s", (const char*)r))
    {
      m.set(F_RAGSOC, r.left(30), TRUE);
      m.set(F_RAGSOCA, r.mid(30), TRUE);
    }  
    
    if (m.get(F_INDCF).empty()) m.set(F_INDCF, anag.get(ANA_INDRES));
    if (m.get(F_CIVCF).empty()) m.set(F_CIVCF, anag.get(ANA_CIVRES));
    if (m.get(F_CAPCF).empty()) m.set(F_CAPCF, anag.get(ANA_CAPRES));
    if (m.get(F_COMCF).empty()) 
    {
      m.set(F_STATOCF, anag.get(ANA_STATORES), TRUE);
      m.set(F_COMCF, anag.get(ANA_COMRES), TRUE);
    }
    if (c.empty()) m.set(F_COFI, anag.get(ANA_COFI));
    if (p.empty()) m.set(F_PAIV, anag.get(ANA_PAIV));
    if (m.get(F_TIPOAPER) == "F")
    {
      m.show(-5, app()._lbcn);
      if (app()._lbcn)
      {
        TLocalisamfile fis(LF_ANAGFIS);
        
        fis.zero();
        fis.put(ANF_CODANAGR, anag.get(ANA_CODANAGR));
        if (fis.read() == NOERR)
        {
          if (m.get(F_DATANASC).empty()) m.set(F_DATANASC, fis.get(ANF_DATANASC));
          if (m.get(F_COMNASC).empty())
          {
            m.set(F_STATONASC, fis.get(ANF_STATONASC), TRUE);
            m.set(F_COMNASC, fis.get(ANF_COMNASC), TRUE);
          }     
        }
      } 
    }
  }
  return TRUE;                                  
}

/*bool TClifo_application::fax_handler(TMask_field& f, KEY k)
{           
  bool ok = TRUE;
  if (k == K_SPACE)
  { 
    TFilename msg; msg.temp(NULL, "txt");
    ofstream msgf(msg); msgf.close();
    goto_url(msg);
    
    if (ok)
    {
      const TMask& m = f.mask();
      const char* tipo = m.get(F_TIPOCF) == "C" ? "Clienti" : "Fornitori";
      const char* codice = m.get(F_CODCF);

      TDDE dde;
      TString cmd(80);
      cmd << "[SetRecipient(" << tipo << ',' << codice << ")]";
      ok = dde.execute("EASYFAX", "FAX", cmd, "bafax");
    }  
  }
  return ok;
} */

bool TClifo_application::email_handler(TMask_field& f, KEY k)
{           
  if (k == K_SPACE)
  {                                     
    TMail_message msg(f.mask().get(F_MAIL));
    msg.send();
  }
  return TRUE;
}


bool TClifo_application::rsoc_handler(TMask_field& f, KEY k)
{           
  if (k == K_TAB && f.focusdirty())
  {
    TMask & m = f.mask(); 
    
    if (m.query_mode() && m.key_valid(2) && app().find(2))
    {
      f.set_focusdirty(FALSE);
      m.stop_run(K_AUTO_ENTER);
    }
  }
  return TRUE;
}


HIDDEN bool alleg_handler(TMask_field& f, KEY key)
{ 
  if (f.to_check(key))
  {
    TMask& m = f.mask();
    const int tipoall = atoi(f.get());

    if (tipoall == 0 || tipoall == 1 || tipoall == 4) 
      m.enable(F_CODALLEG);
    else
    {
      m.disable(F_CODALLEG);
      m.reset(F_CODALLEG);
      m.reset(F_RAGSOCALLEG);
    }
    m.set(F_OCCASIONALE, (tipoall == 2) ? "X" : " ");
    m.field(F_COFI).set_dirty(TRUE);
    m.field(F_PAIV).set_dirty(TRUE);
  }
  return TRUE;
}

HIDDEN bool occas_handler(TMask_field& f, KEY key)
{ 
  if (f.to_check(key))
  {
    const bool occas = f.get().not_empty();
    TMask& m = f.mask();

    if (occas) 
      m.set(F_ALLEG, "2");
    else
      if (m.get_int(F_ALLEG) == 2)  
        m.reset(F_ALLEG);
  }
  return TRUE;
}

HIDDEN bool codalleg_handler(TMask_field& f, KEY key)
{ 
  if (f.to_check(key))
  {
    const TString16 cod(f.get());

    if (cod.not_empty())
    {
      TMask& m = f.mask();
      if (cod == m.get(F_CODCF))
        return error_box("Il codice per allegato coincide con il codice anagrafico");
      
      const char tipo = m.get(F_TIPOCF)[0];

      TLocalisamfile clifo(LF_CLIFO);
      clifo.zero() ;
      clifo.put(CLI_TIPOCF, tipo);
      clifo.put(CLI_CODCF, cod);
      clifo.read() ;
      if (clifo.bad()) return FALSE;
      
      if (clifo.get(CLI_CODALLEG).not_empty())
        return error_box("Codice non utilizzabile: contiene a sua volta un codice per allegato");
      
      if (clifo.get(CLI_PAIV).empty())
        return error_box("Codice non utilizzabile: privo di  partita IVA");
      
      const TString& tipoall = clifo.get(CLI_ALLEG);
      if (tipoall.not_empty() && tipoall != "1" && tipoall != "4")
        return error_box("Codice non utilizzabile: codice inserimento allegato non corretto");
    }
  }
  return TRUE;
}

void TClifo_application::on_config_change()
{
  TConfig cnf(CONFIG_DITTA);
  _gesven = cnf.get_bool("GesVen") || !_has_cg;
  _gessal = cnf.get_bool("GesSal") || !_has_cg;
  _lbcn = cnf.get_bool("GsLbCn");
  _liscatven = cnf.get_bool("GESLISCV", "ve");
  
  init_pages(*_msk);
  _msk->show(-9, _gessal);  // Mostra campi Estratti conto
}


void TClifo_application::init_pages(TMask& m)
{
  _rel->gestione_vendite(_gesven);

  m.show(-5, _lbcn);

  // Se non e' abilitata la gestione delle vendite disabilita le
  // maschere dalla 5 in poi
  m.enable_page(4, _gesven);
}

void TClifo_application::init_query_mode(TMask& m)
{
  if (_gesven)
    reset_sheet();

  if (argc() > 2 && *argv(2) == 'F') 
    m.set(F_TIPOCF, "F");               
  m.show(F_CODLIST, _liscatven);
  m.show(F_CODLIST1, !_liscatven);
}

void TClifo_application::set_pnae(TMask& m, TToken_string& nonacc, TToken_string& nonscd)
{
  TSheet_field& pnae = m.sfield(F_NONACCEFF);                     
  pnae.destroy();
  TToken_string periodo(12, ',');
  int per = 0;
  for (bool good = nonacc.get(per, periodo); good; good = nonacc.get(++per, periodo))
  {
    TToken_string& row = pnae.row(-1);
    row = periodo << '|' << nonscd.get(per);
    row.replace(';', '|');
    row.replace(',', '|');
    row.replace('-', '|');
  }    
  pnae.force_update();
}

int TClifo_application::read(TMask& m)
{
  TRelation_application::read(m);           
  
  const TRectype& cfven = get_relation()->curr(LF_CFVEN);
  TToken_string nonacc(cfven.get(CFV_NONACCEFF), ';');
  TToken_string nonscd(cfven.get(CFV_NONSCADEFF), ';');
  set_pnae(m, nonacc, nonscd);

  if (_gesven)
  {
    TToken_string riga(240);
    indsp_sheet().reset();
    for (int i=0; i< _rel->indirizzi_items();i++)
    {
      TRectype& rec=_rel->indirizzo(i);
      riga.cut(0);
      riga.add(rec.get(IND_RAGSOC));
      riga.add(rec.get(IND_INDIR));
      riga.add(rec.get(IND_CIV));
      riga.add(rec.get(IND_LOCALITA));
      riga.add(rec.get(IND_CAP));
      riga.add(rec.get(IND_STATO));
      riga.add(rec.get(IND_COM));
      riga.add(rec.get(IND_PTEL));
      riga.add(rec.get(IND_TEL));
      riga.add(rec.get(IND_PFAX));
      riga.add(rec.get(IND_FAX));
      riga.add(rec.get(IND_IVARID));
      TString16 key(rec.get(IND_STATO)); key << "|" << rec.get(IND_COM);
      const TRectype & com = cache().get(LF_COMUNI, key);
      riga.add(com.get(COM_DENCOM));
      riga.add(rec.get(IND_CODIND));

      indsp_sheet().row(i)=riga;
      
      // Load the sheets of CODINDDOC, CODINDSP, CODINDEFF.
      riga.cut(0);
      riga.add(rec.get(IND_CODIND));
      riga.add(rec.get(IND_RAGSOC));
      riga.add(rec.get(IND_INDIR));
      riga.add(rec.get(IND_CIV));
      riga.add(rec.get(IND_LOCALITA));
      field_sheet(F_CODINDDOC).add(riga);
      field_sheet(F_CODINDSP).add(riga);
      field_sheet(F_CODINDEFF).add(riga);
    }
  }   
  return _rel->status();
}

void TClifo_application::ini2mask(TConfig& ini, TMask& m, bool query)
{
  TRelation_application::ini2mask(ini, m, query);           
  
  if (!query)
  {
    ini.set_paragraph("17");
    TToken_string nonacc(ini.get(CFV_NONACCEFF), ';');
    TToken_string nonscd(ini.get(CFV_NONSCADEFF), ';');
    set_pnae(m, nonacc, nonscd);
    
    if (_gesven)
    {
      TToken_string riga(240);
      indsp_sheet().reset();
      TString16 para;
      for (int i=0; ;i++)
      {
        para.format("%d,%d", LF_INDSP, i+1);
        if (!ini.set_paragraph(para))
          break;
        
        riga.cut(0);
        riga.add(ini.get(IND_RAGSOC));
        riga.add(ini.get(IND_INDIR));
        riga.add(ini.get(IND_CIV));
        riga.add(ini.get(IND_LOCALITA));
        riga.add(ini.get(IND_CAP));
        riga.add(ini.get(IND_STATO));
        riga.add(ini.get(IND_COM));
        riga.add(ini.get(IND_PTEL));
        riga.add(ini.get(IND_TEL));
        riga.add(ini.get(IND_PFAX));
        riga.add(ini.get(IND_FAX));
        riga.add(ini.get(IND_IVARID));
        TString16 key(ini.get(IND_STATO)); key << '|' << ini.get(IND_COM);
        const TRectype & com = cache().get(LF_COMUNI, key);
        riga.add(com.get(COM_DENCOM));
  
        indsp_sheet().row(i)=riga;
        
        // Load the sheets of CODINDDOC, CODINDSP, CODINDEFF.
        riga.cut(0);
        riga.add(ini.get(IND_CODIND));
        riga.add(ini.get(IND_RAGSOC));
        riga.add(ini.get(IND_INDIR));
        riga.add(ini.get(IND_CIV));
        riga.add(ini.get(IND_LOCALITA));
        field_sheet(F_CODINDDOC).add(riga);
        field_sheet(F_CODINDSP).add(riga);
        field_sheet(F_CODINDEFF).add(riga);
      }
    }   
  }
}

int TClifo_application::rewrite(const TMask& m)
{
  common_f(m);
  return TRelation_application::rewrite(m);
}

int TClifo_application::write(const TMask& m)
{
  common_f(m);
  return TRelation_application::write(m);
}

void TClifo_application::mask2ini(const TMask& m, TConfig& ini)
{
  TRelation_application::mask2ini(m, ini);
  
  TToken_string nonacceff(30, ';'), nonscadeff(30, ';');
  get_pnae(m, nonacceff, nonscadeff);
  ini.set(CFV_NONACCEFF, nonacceff, "17");
  ini.set(CFV_NONSCADEFF, nonscadeff, "17");
  
  if (_gesven)
  {
    const TString& tipocf = m.get(F_TIPOCF);
    const long codcf = m.get_long(F_CODCF);
    
    TString_array& rows=indsp_sheet().rows_array();
    const int n_items = rows.items();
    
    TString16 para;
    for (int i = 0; i < n_items; i++)
    {                                            
      para.format("%d,%d", LF_INDSP, i+1);
      ini.set_paragraph(para);
    
      TToken_string& row=(TToken_string&)rows[i];
      ini.set(IND_TIPOCF,tipocf);
      ini.set(IND_CODCF,codcf);
      ini.set(IND_RAGSOC,row.get(0));
      ini.set(IND_INDIR,row.get());
      ini.set(IND_CIV,row.get());
      ini.set(IND_LOCALITA,row.get());
      ini.set(IND_CAP,row.get());
      ini.set(IND_STATO,row.get_int());
      ini.set(IND_COM,row.get());
      ini.set(IND_PTEL,row.get());
      ini.set(IND_TEL,row.get());
      ini.set(IND_PFAX,row.get());
      ini.set(IND_FAX,row.get());
      ini.set(IND_IVARID,row.get());
      ini.set(IND_CODIND,i+1);
    }  
    for ( ; ; i++)
    {
      para.format("%d,%d", LF_INDSP, i+1);
      if (ini.set_paragraph(para))
        ini.remove_all();
      else
        break;  
    }
  }
}

TString_array& TClifo_application::field_sheet(short id) const
{
  TEdit_field& f = _msk->efield(id);
  TString_array& ss = f.sheet()->rows_array();
  return ss;
}

TSheet_field& TClifo_application::indsp_sheet() const
{
  TSheet_field& o_sheet=_msk->sfield(F_SHEET_G_VEN);
  return o_sheet;
}

void TClifo_application::reset_sheet()
{
  const char* nulla = "|**Nessuno**";
  
  TClifo_application& a = app();
  a.field_sheet(F_CODINDDOC).destroy();
  a.field_sheet(F_CODINDDOC).add(nulla);
  a.field_sheet(F_CODINDSP).destroy();
  a.field_sheet(F_CODINDSP).add(nulla);
  a.field_sheet(F_CODINDEFF).destroy();
  a.field_sheet(F_CODINDEFF).add(nulla);
}

void TClifo_application::indsp_pack()
{
  TArray& rows = indsp_sheet().rows_array();
  int nr=rows.items();

  for (int i=0; i<nr; i++)
  {
    TToken_string& riga=(TToken_string&)rows[i];
    if (riga.empty_items())
      rows.destroy(i,FALSE);
  }
  rows.pack();
}

void TClifo_application::get_pnae(const TMask& m, TToken_string& nonacceff, TToken_string& nonscadeff)
{
  TSheet_field& pnae = m.sfield(F_NONACCEFF);
  FOR_EACH_SHEET_ROW(pnae, re, row) if (!row->empty_items())
  {          
    TString16 p;
    p << row->get(0) << '-'; p << row->get(1) << ',';
    p << row->get(2) << '-'; p << row->get(3);
    nonacceff.add(p);
    p = row->get(4); p << '-' << row->get(5);
    nonscadeff.add(p);
  }
    
  TRectype& cfven = get_relation()->curr(LF_CFVEN);
  int mass = cfven.length(CFV_NONACCEFF);
  if (nonacceff.len() > mass) 
    nonacceff.cut(mass);  
  mass = cfven.length(CFV_NONSCADEFF);
  if (nonscadeff.len() > mass) 
    nonscadeff.cut(mass);
}

void TClifo_application::common_f(const TMask& m)
{
  TToken_string nonacceff(30, ';'), nonscadeff(30, ';');
  get_pnae(m, nonacceff, nonscadeff);
  TRectype& cfven = get_relation()->curr(LF_CFVEN);
  cfven.put(CFV_NONACCEFF, nonacceff);
  cfven.put(CFV_NONSCADEFF, nonscadeff);

  if (_gesven)
  {
    const char tipocf = m.get(F_TIPOCF)[0];
    const long codcf = m.get_long(F_CODCF);
    
    _rel->destroy_rows();
    indsp_pack();
    TArray& rows=indsp_sheet().rows_array();
    int n_items = rows.items();
    
    for (int i = 0; i < n_items; i++)
    {
      TToken_string& row=(TToken_string&)rows[i];
      TRectype& rec=_rel->indirizzo(i);
      row.restart();
      rec.zero();
      rec.put(IND_TIPOCF,tipocf);
      rec.put(IND_CODCF,codcf);
      rec.put(IND_RAGSOC,row.get());
      rec.put(IND_INDIR,row.get());
      rec.put(IND_CIV,row.get());
      rec.put(IND_LOCALITA,row.get());
      rec.put(IND_CAP,row.get());
      rec.put(IND_STATO,row.get_int());
      rec.put(IND_COM,row.get());
      rec.put(IND_PTEL,row.get());
      rec.put(IND_TEL,row.get());
      rec.put(IND_PFAX,row.get());
      rec.put(IND_FAX,row.get());
      rec.put(IND_IVARID,row.get());
      rec.put(IND_CODIND,i+1);
    }  
  }
}

void TClifo_application::indsp_sheet_rebuilder()
{                
  TClifo_application& a = app();
  TString_array& righe = a.indsp_sheet().rows_array();
  const int n=righe.items();
  a.reset_sheet();
  // Rebuild Sheets
  TToken_string  rigav;
  for (int i=0; i<n; i++)
  {  
    TToken_string& riga= righe.row(i);
    rigav.format("%d", i+1);
    rigav.add(riga.get(0));
    rigav.add(riga.get());
    rigav.add(riga.get());
    rigav.add(riga.get());
    a.field_sheet(F_CODINDDOC).add(rigav);
    a.field_sheet(F_CODINDSP).add(rigav);
    a.field_sheet(F_CODINDEFF).add(rigav);
  }         
}

bool TClifo_application::indsp_notify(TSheet_field& indsp, int r, KEY key)
{
  switch (key)
  {
 case K_INS: 
  // request to add the row #r
  // To avoid rewriting of existing record.
  // To avoid inserts in the middle of the sheet
  if (r != -1 && indsp.items() > (r+1))
  {
    error_box("Si possono aggiungere indirizzi solo alla fine");
    return FALSE;  //Refuse permission
  }
  break;
  case K_ENTER:
  case K_DEL:
    indsp_sheet_rebuilder();
    break;
default:
  break;
}           
  return TRUE;
}

bool TClifo_application::effetti_notify(TSheet_field& pnae, int r, KEY key)
{             
  if (key == K_INS)
  {                             
    TClifo_application& a = app();
    TRectype& cfven = a.get_relation()->curr(LF_CFVEN);
    int mass_len = cfven.length(CFV_NONACCEFF); // Lunghezza campo
    int mass_rig = mass_len / 11;  // Numero di periodi ivi salvabili
    return pnae.items() < mass_rig; // Non accettare righe che non si possono salvare
  }
  return TRUE;
}

bool TClifo_application::user_create() // initvar e arrmask
{
  _has_cg = has_module(CGAUT, CHK_DONGLE);
  _rel = new TClifoVI;
  if (_has_cg)                        
  {
    _mov = new TLocalisamfile(LF_MOV);
    _mov->setkey(3);
  }
  else
    _mov = NULL;

  _anag = new TLocalisamfile(LF_ANAG);
  _fis = new TLocalisamfile(LF_ANAGFIS);
  _pcon = new TLocalisamfile(LF_PCON);
  _comuni = new TLocalisamfile(LF_COMUNI);

  _msk = new TMask("cg0200a") ;

  _msk->set_handler(F_OCCASIONALE, occas_handler);
  _msk->set_handler(F_COFI, cofi_handler);
  _msk->set_handler(F_PAIV, paiv_handler);
  _msk->set_handler(F_CODANAGPER, percip_handler);
  _msk->set_handler(F_TIPOPERS, tipo_handler);
  _msk->set_handler(F_ALLEG, alleg_handler);
  _msk->set_handler(F_CODALLEG, codalleg_handler);
//  _msk->set_handler(DLG_FAX, fax_handler);
  _msk->set_handler(DLG_EMAIL, email_handler);
  _msk->set_handler(F_RAGSOC, rsoc_handler);
  
  TSheet_field& ind = _msk->sfield(F_SHEET_G_VEN);
  ind.set_notify(indsp_notify);             
  
  TSheet_field& pnae = _msk->sfield(F_NONACCEFF);
  pnae.set_notify(effetti_notify);             

  TConfig config(CONFIG_STUDIO);
  _savenew = !config.get_bool("Cg02SN");
  
  return TRUE;
}

bool TClifo_application::user_destroy() // releasev e arrmask
{
  delete  _msk;
  delete  _rel;
  if (_mov) delete  _mov;
  delete  _anag;
  delete  _fis;
  delete  _pcon;
  delete  _comuni;
  return TRUE;
}

int cg0200(int argc, char* argv[])
{
  TClifo_application a;

  a.run(argc, argv, "Clienti/Fornitori");
  return 0;
}