campo-sirio/cg/cg5500.cpp

#include <browfile.h>
#include <execp.h>
#include <msksheet.h>
#include <mailbox.h>
#include <progind.h>
#include <relation.h>
#include <recarray.h>
#include <sheet.h>
#include <viswin.h> 

#include "cglib03.h"
#include "cg5500.h"
#include "cg5500a.h"

static void round_imposta(real& d)
{
  TIva_round ir;
  ir.round(d);
}

const char* Visliq_app::itoname(int m)
{                    
  const char* mn;     
  if (m == 13) 
    return TR("Annuale");
  
  if (_freqviva == "M")
    return itom(m);

  switch(m)
  {
  case 3:
    mn = TR("1 Trimestre");
    break;
  case 6:
    mn = TR("2 Trimestre");
    break;
  case 9:
    mn = TR("3 Trimestre");
    break;
  case 12:
    mn = TR("4 Trimestre");
    break;
  }
  
  return mn;
}                             

void Visliq_app::set_freqviva()
{
  if (look_lia())
    _freqviva = _lia->get("S7");
  else
  {
    const TRectype& ditta = cache().get(LF_NDITTE, get_firm());
    _freqviva = ditta.get("FREQVIVA");
  }
}

bool Visliq_app::create()
{ 
	open_files(LF_TABCOM, LF_TAB, LF_NDITTE, 0);

  const TDate oggi(TODAY);                    
  _year = oggi.year();
  _firm = get_firm();

  _nditte = new TRelation(LF_NDITTE);
  _ditte  = new TArray_sheet(-1, -1, 76, 20, TR("Selezione Ditte"),
                             HR("Codice|Ragione Sociale@50|Vers."));  
  _from_one = false;
  _del        = new TTable("%DEL");
  _lia        = new TTable("%LIA");
  _lim        = new TTable("LIM");
  _lam        = new TTable("LAM");
  _del_r      = &(_del->curr());
  _lim_r      = &(_lim->curr());
  _lam_r      = &(_lam->curr());
  _del_ditta  = new TRecfield(*_del_r,"CODTAB",0,4);
  _del_anno   = new TRecfield(*_del_r,"CODTAB",5,8);
  _del_mese   = new TRecfield(*_del_r,"CODTAB",9,10);
  _del_tipo   = new TRecfield(*_del_r,"CODTAB",11,11);
  _lim_anno   = new TRecfield(*_lim_r,"CODTAB",0,3);
  _lim_mese   = new TRecfield(*_lim_r,"CODTAB",4,6);
  _lam_anno   = new TRecfield(*_lam_r,"CODTAB",0,3);
  _lam_mese   = new TRecfield(*_lam_r,"CODTAB",4,6);

  begin_wait();
  build_nomiditte();
  build_ditte_sheet();
  end_wait();
  
  return TSkeleton_application::create();  
}

bool Visliq_app::destroy()
{                                  
  delete _lim_mese;
  delete _lim_anno;
  delete _lam_mese;
  delete _lam_anno;
  delete _del_tipo;
  delete _del_mese;
  delete _del_ditta;
  delete _lim;
  delete _lam;
  delete _del;
  delete _ditte;
  delete _nditte;
  
  return TApplication::destroy();
}

bool Visliq_app::ch_year_handler(TMask_field& f, KEY key)
{                                                    
  if (key == K_TAB && f.focusdirty())
  {                         
    TWait_cursor hourglass;
    app().set_year(f.get());
    app().build_nomiditte();
    app().build_ditte_sheet();  
    app().reset_fields();  
  }
  return true;
} 


void Visliq_app::build_ditte_sheet()
{
  // build sheet
  _ditte->destroy();
  long prima = -1;
  
  for (int i = 0; i < _nomiditte.items(); i++)
  {
    TToken_string* d = new TToken_string(_nomiditte.row(i));
    const long pos = _ditte->add(d);     
    const char vers = d->get_char(2);
    const bool selectable = vers != '?';
    _ditte->enable_row(pos, selectable);
    if (selectable && prima < 0)
      _ditte->select(prima = pos);
  }     
}

void Visliq_app::reset_fields()
{
  _mask->field(F_CODDITTA).set("");
  _mask->field(F_RAGSOC).set("");
}

bool Visliq_app::select_butt(TMask& m)
{     
  if (_ditte->run() == K_ENTER)
  {
    TToken_string& row = _ditte->row(_ditte->selected()); 
    m.field(F_CODDITTA).set(row.get(0));
    m.field(F_RAGSOC).set(row.get(1));
    set_freqviva(row.get(2)); 
    set_mask_freq(m);
    return true;        
  }
  return false;
}

void Visliq_app::build_nomiditte()
{                 
  _nomiditte.destroy();
  // ricostruire _nomiditte e rifare build_ditte_sheet
	TRectype & ditta = _nditte->lfile().curr();
	TCursor cur(_nditte);
	const TRecnotype items = cur.items();

	cur.freeze();
  for (cur = 0L; cur.pos() < items; ++cur)
  {     
    // check no archivi
    bool good = prefix().exist(ditta.get_long("CODDITTA"));                        
    
    if (good) 
    {   
      // check no parametri liquidazione
      TString16 cod; 
      
			cod.format("%05ld%d", ditta.get_long("CODDITTA"), _year);
      
			const TRectype & lia = cache().get("%LIA", cod);
			TToken_string* d = new TToken_string(64);
    
			// add record 
	    d->add(ditta.get("CODDITTA"));
		  d->add(ditta.get("RAGSOC"));

			const TString & fr = lia.get("S7");

			d->add(fr.empty() ? "??" : fr);
	    _nomiditte.add(d);  
    }

  }
}

void Visliq_app::set_mask_freq(TMask& m)
{
  if (_freqviva == "M")
  {
    m.show(F_MONTHS);
    m.hide(F_TRIMS);
  }
  else
  {
    m.hide(F_MONTHS);
    m.show(F_TRIMS);
  }
}      


bool Visliq_app::sheet_action(TSheet_field& s, int r, KEY k)
{                    
  if (k == K_ENTER)
    app()._sh_dirty = true;
  // non si possono cancellare o aggiungere righe
  return (k != K_DEL && k != K_INS);
}

bool Visliq_app::vers_action(TSheet_field& s, int r, KEY k)
{                    
  if (k == K_ENTER)
    app()._sv_dirty = true;
  // non si possono cancellare o aggiungere righe 
  return (k != K_DEL && k != K_INS);
}

const char* Visliq_app::link_handler(TMask& m, 
                                     int n, const char* txt, bool doubleclick)
{
  // con click visualizza, con double click modifica
  TString st(txt);                                   
  bool iscred = false;
  static int group; 
  int firstfoc = 0;

  if (group != 0) m.hide(group);    
  
  if (st.find(TR("Iva chiesta a rimborso")) >= 0 || st.find(TR("Rimborsi")) >= 0) 
  { group = -1;  firstfoc = F_RIMBORSO;  }
  else if (st.find(TR("debito")) >= 0 || st.find(TR("credito")) >= 0)
  { group = -2;  firstfoc = F_RETTIFICA; }
  else if (st.find(TR("acconto")) >= 0)
  { group = -3;  firstfoc = F_ACCONTO;   } 
  else if (st.find(TR("Versamenti")) >= 0)                 
  { group = -4;  firstfoc = F_DELDATE;   } 
  else if (st.find(TR("Descrizione")) >= 0)                 
  { group = -5;  firstfoc = F_DESCR3;   } 
  else if (st.find(TR("Variazioni d'imposta")) >= 0)                 
  { group = -6; firstfoc = F_VARIMP; } 
  else if (st.find(TR("Imposta non versata")) >= 0)                 
  { group = -7; firstfoc = F_IMPNONVER; } 
  if (st.find(TR("Crediti")) >= 0) 
  { group = -8;  firstfoc = F_CREDSPEC;  }
  
  m.show(group);
  if (app()._is_annual && (group != -3 || app()._freqviva == "M"))
    m.disable(group);
  else
  {
    m.enable(group);  
    if (doubleclick && firstfoc > 0) 
      m.field(firstfoc).set_focus();
  }

  return NULL;
}                                               


void Visliq_app::main_loop()
{
  vis_liq();       
}                

// handlers
bool Visliq_app::set_ditta(TMask_field& f, KEY k)
{                               
  bool found = true;

  if (k == K_F9)
    return app().select_butt(f.mask());

  if (k == K_TAB && f.focusdirty())
  {
    found = false;
    TString ditta = f.get();
    TArray_sheet* sh = app().get_ditte_sheet();
    for (int i = 0; i < sh->items(); i++)
    { 
      TToken_string& row = sh->row(i);
      if (ditta == row.get(0))
      { 
        if (sh->row_enabled(i))
        {
          f.mask().field(F_CODDITTA).set(row.get(0));
          f.mask().field(F_RAGSOC).set(row.get(1));
          app().set_freqviva(row.get(2));
          app().set_mask_freq(f.mask()); 
          found = true;
        }
        else 
        { 
          f.warning_box(FR("Non sono definiti i parametri liquidazione per la ditta %ld"),
                      atol(ditta));
          f.reset(); 
        }
        break;
      }
    }
  }
  if (!found) f.reset(); 
  return found;
}

bool Visliq_app::set_ragsoc(TMask_field& f, KEY k)
{   
  bool found = true;

  if (k == K_F9)
    return app().select_butt(f.mask());

  if (k == K_TAB && f.focusdirty())
  {
    found = false;
    TString ditta = f.get();
    TArray_sheet* sh = app().get_ditte_sheet();
    for (int i = 0; i < sh->items(); i++)
    { 
      TToken_string& row = sh->row(i);
      TString ts(row.get(1));
      if (ts.find(ditta) != -1)
      { 
        if (sh->row_enabled(i))
        {
          f.mask().field(F_CODDITTA).set(row.get(0));
          f.mask().field(F_RAGSOC).set(row.get(1));
          app().set_freqviva(row.get(2)); 
          app().set_mask_freq(f.mask()); 
          found = true;
          break;
        }
      }
    }
  } 
  if (!found) f.reset(); 
  return found;  
}


bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
{                                                  
  if (k != K_SPACE) return true;
  
  TMask& m = *(app().get_main_mask());
  TSheet_field& sh = m.sfield(F_VISLIQ1);
  TSheet_field& sv = m.sfield(F_VISLIQ2);  
  int sel   = sh.selected();
  int month = sh.selected()+1;
  TToken_string& tt = sh.row(sh.selected());
  if (sh.items() == 4) 
    month *= 3;  
  
  bool ok = false;
  
  //if (m.dirty() || sh.sheet_mask().dirty())
  if (m.field(F_CREDPREC).dirty() || app()._sh_dirty || app()._sv_dirty)
  {             
    KEY k = yesnocancel_box(TR("Registrare le modifiche effettuate?"));
    if (k ==  K_YES)
      app().write_general(m); 
    else if (k == K_NO)
      app().read_general(m);  
    ok = (k == K_YES || k == K_NO);  
  } 
  else 
    ok = true;   

  TMask& sm = sh.sheet_mask();
  if (ok) 
  {
    if (sm.is_running()) sm.stop_run(K_ENTER);
    app().vis_one(month); 
    const bool non_vis_ma_comp = app()._lia->get("S9") == "NV";
    if (non_vis_ma_comp)
      app().read_general(m);  
  }
  
  app().set_liq_rows(sh);
  
  if (sm.is_running())
  {
    // TBC controllare se sono i dati giusti in tt
    sm.field(102).set(tt.get(1));
    sm.field(103).set(tt.get(2));
    sm.field(104).set(tt.get(3));
    sm.field(105).set(tt.get(4));
    sm.field(106).set(tt.get(5));  
  }
  
  sh.row(sel) = tt;
  
  sh.force_update(sel);

  if (app().look_del(month,1))
  {                                         
    TToken_string& tv = sv.row(sel == (sh.items() - 1) ? sel -1 : sel);
    tv.add(app().del()->get("D0"),1);
    tv.add(app().del()->get("S7"),2);
    tv.add(app().del()->get("S8"),3);
    tv.add(app().del()->get("S9"),4);
    tv.add(app().del()->get("R0"),5);
    sv.force_update(sel == (sh.items() - 1) ? sel -1 : sel);
  }
  
  return true;
}


bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
{               
  if (k != K_SPACE) return true;

  TMask& m = *(app().get_main_mask());
  TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ2);
  int sel   = sh.selected();
  int month = sh.selected()+1;
  if (sh.items() < 12) 
    month *= 3;      
  
  // click su acconto
  if (month  > 12) return true;

  bool ok = false;  
  //if (m.dirty())         
  if (m.field(F_CREDPREC).dirty() || app()._sh_dirty || app()._sv_dirty)
  {             
    KEY k = yesnocancel_box(TR("Registrazione modifiche effettuate?"));
    if (k ==  K_YES)
      app().write_general(m); 
    else if (k == K_NO)
      app().read_general(m);  
    ok = k == K_YES || k == K_NO;  
  } 
  else ok = true;   
  
  TMask& sv = sh.sheet_mask();
  if (ok)
  {
    if (sv.is_running()) sv.stop_run(K_ENTER);
    app().vis_one(month);
    const bool new_age_2000 = (app()._year >= 2000) && (app()._lia->get("S9") == "NV");
    if (new_age_2000)
      app().read_general(m);  
  }
  
  app().set_vers_rows(sh);
  
  if (app().look_del(month, /* sel == (sh.items() - 1) ? 7 : */ 1))
  {  
    TToken_string& tv = sh.row(sel);
    tv.add(app().del()->get("D0"),1);
    tv.add(app().del()->get("S7"),2);
    tv.add(app().del()->get("S8"),3);
    tv.add(app().del()->get("S9"),4);
    tv.add(app().del()->get("R0"),5);
    sh.force_update(sel);
  }
  
  return true;
}


void Visliq_app::vis_liq()
{               
  const long ditta = get_firm();  // Memorizza ditta corrente da ripristinare alla fine
  set_freqviva();
  
  TMask m("cg5500a");
  _mask = &m;
  
  m.set_handler(F_CODDITTA, set_ditta);   
  m.set_handler(F_RAGSOC,   set_ragsoc);   
  m.set_handler(F_YEAR,     ch_year_handler);   

  set_mask_freq(m);
  _year = m.get_int(F_YEAR);
  
  KEY k;
  while ((k = m.run()) == K_ENTER)
  { 
    if (m.get(F_CODDITTA).empty() || m.get(F_RAGSOC).empty())  
    { 
      beep();
      continue;
    }

    const long dtt = m.get_long(F_CODDITTA); 
    set_firm(dtt); 
    
    TIva_round ir; 
    ir.set_default_iva_mode(_year, false);

    const int month = m.get_int(_freqviva == "M" ? F_MONTHS : F_TRIMS);
    _is_annual = (month == 13);
    if (month == 0)
      vis_all();
    else
      vis_one(month);
    _mask = &m;   
  } 

  set_firm(ditta);
}    


bool Visliq_app::vis_all()
{                                               
  if (!look_lia())
    return false;    
  
  // mask diverse per trimestrale e annuale
  _mask = new TMask(_freqviva == "M" ? "cg5500b" : "cg5500c"); 
  
  TSheet_field& sh = _mask->sfield(F_VISLIQ1); 
  TSheet_field& sv = _mask->sfield(F_VISLIQ2); 
  _liq_sheet  = &sh;
  _vers_sheet = &sv;
  
  // disabilita aggiunta/eliminazione righe
  sh.set_notify(sheet_action);
  // qui occorre modificare le deleghe
  sv.set_notify(vers_action);

  sh.sheet_mask().set_handler(100,sel_mese_sh1);
  sv.sheet_mask().set_handler(100,sel_mese_sh2);
  
  const bool new_print_2000 = true; // _year >= 2000;
  const bool new_age_2000 = _lia->get("S9") == "NV";
  TMask& shm = sh.sheet_mask();
  
  for (int id = 103; shm.id2pos(id) > 0; id++)
  {                
    TMask_field& f = shm.field(id);
    if ((f.in_group(11) && new_print_2000) || (f.in_group(12) && !new_print_2000))
    {
      f.hide();
      sh.delete_column(id);
    }        
    if (id == 108 || id == 110)
      sh.enable_column(id, new_age_2000);
  }

  // fill the mask in
  read_general(*_mask);

  for (bool stop = false; !stop;)
  {
    KEY k = _mask->run();         
    switch(k)
    {
    case K_ESC: 
    case K_QUIT: 
      if (_mask->dirty())
      {
        KEY k = yesnocancel_box(TR("Registrare le modifiche effettuate?"));
        if (k ==  K_YES)
          write_general(*_mask); 
        else
          read_general(*_mask);
        
        if (k == K_YES || k == K_NO) 
          stop = true;
        break;  
      } 
      else 
        stop = true;
      break;      
    case K_SAVE:     
      // write values 
      if (_mask->dirty()) 
        write_general(*_mask);
      break;
    }
  }

  delete _mask;
  _mask = NULL; 
  
  _vers_sheet = NULL;
  _liq_sheet  = NULL;   
  
  return true;
}    


bool Visliq_app::vis_one(int m)
{       
  begin_wait();
  TMask msk("cg5500d");
  
  bool recorded = true;
  TString nomem(TR("Liquidazione IVA "));

  nomem << itoname(m);
  nomem << " " << _year;
  
  msk.show(F_PERIODOM, _freqviva == "M");
  msk.show(F_PERIODOT, _freqviva != "M");
  msk.set(_freqviva == "M" ? F_PERIODOM : F_PERIODOT, m);
  
  // ricalcolo liquidazione
  TFilename f;
  f.temp("prliq");
  
  TToken_string body(36);
  body.add(_year);
  body.add(m);
  body.add(get_firm());
  body.add("V");        // visualizzazione: no ff alla fine, zeri stampati
  body.add(""); 
  body.add(f);     
  body.add('X');
  
  TMessage msg("cg4 -2 -S", "RCL", body);
  msg.send();

  TBrowsefile_field& brw = (TBrowsefile_field&)msk.field(F_VISFLQ); 
  brw.set_link_handler(link_handler);
  brw.enable_link(TR("Modifica: "), 'r');            

  TExternal_app liq("cg4 -2");

  end_wait();
  TProgind* pp = new TProgind(10,TR("Estrazione liquidazione: prego attendere"),false,false);
  liq.run();  
  if (liq.exitcode())
  {
    beep();
    return false;
  }    

  look_lim(m);
  look_lia();

  real rimborso  = _lim->get_real("R1");
  real rettifica = _lim->get_real("R5");
  
  if (_lim->get_bool("B2"))
    nomem << TR(" (diritto al rimborso infraannuale)");
  
  real acconto(0.0);       
  
  if (m == 12 && look_del(12,7))
    acconto = _del->get_real("R0"); else
  if (m == 13)
    acconto = _lim->get_real("R11");

  
  msk.field(F_YEAR).set(nomem);
  msk.set(F_RIMBORSO, rimborso);
  
  // Ottima procedura di 16 righe, di cui 14 inutili!
  if (rettifica.sign() < 0)
  {              
    real rabs = abs(rettifica);
    msk.field(F_RETTIFICA).set(rabs.string());             
    msk.field(F_DEBCRE).set("C");
  }
  else if (rettifica.sign() > 0)
  {
    msk.field(F_RETTIFICA).set(rettifica.string()); 
    msk.field(F_DEBCRE).set("D");
  } 
  else                                              
  {
    msk.field(F_RETTIFICA).set(""); 
    msk.field(F_DEBCRE).set("");
  } 
  
  TString desc1 = _lim->get("S0"), desc2 = _lim->get("S1"), desc3 = _lim->get("S2");
  msk.field(F_DESCR1).set(desc1);             
  msk.field(F_DESCR2).set(desc2);             
  msk.field(F_DESCR3).set(desc3);
  msk.set(F_ACCONTO, acconto);
  
  real varimp = _lim->get("R17");
  real impnonver= _lim->get("R18");
  real credspec = _lim->get("R19");
  
  msk.set(F_VARIMP, varimp >= ZERO ? varimp : -varimp);
  msk.set(F_VARIMP_DC, varimp >= ZERO ? "D" : "C");

  msk.set(F_IMPNONVER, impnonver);
  msk.set(F_CREDSPEC, credspec);
  
  begin_wait();
  brw.set_text(f, TR("CALCOLO LIQUIDAZIONE D'IMPOSTA")); 
  brw.goto_pos(brw.lines()-16l, 9);
  delete pp;            

  TViswin & vsw = brw.vis_win();
  bool is_delega = false;

  real vers; TDate date; TString abi(5), cab(5), con(3);
  
  if (is_delega = look_del(m,1))
  {
    vers = _del->get_real("R0"); 
    date = _del->get_date("D0");
    abi  = _del->get("S7");
    cab  = _del->get("S8");
    con  = _del->get("S9");
  }

  msk.field(F_DELDATE).set(date.string());
  msk.field(F_DELIMP).set(vers.string());
  msk.field(F_DELABI).set(abi);
  msk.field(F_DELCAB).set(cab);
  msk.field(F_DELCON).set(con);

  end_wait();

  bool    l_mod = false;
  bool    d_mod = false;

  _from_one = true;
  
  for(;;)
  {
    KEY k = msk.run();  
    
    if (k == K_ESC) break;
    
    real    n_acconto  (msk.get(F_ACCONTO));
    real    n_rimborso (msk.get(F_RIMBORSO));
    real    n_rettifica(msk.get(F_RETTIFICA));
    real    n_delimp(msk.get(F_DELIMP));
    TString n_desc1 (msk.get(F_DESCR1));
    TString n_desc2 (msk.get(F_DESCR2));
    TString n_desc3 (msk.get(F_DESCR3));
    real    n_vers  (msk.get(F_DELIMP));
    TDate   n_date  (msk.get(F_DELDATE));
    TString n_abi   (msk.get(F_DELABI));
    TString n_cab   (msk.get(F_DELCAB));
    TString n_con   (msk.get(F_DELCON));
    real    n_varimp(msk.get(F_VARIMP));
    real    n_impnonver(msk.get(F_IMPNONVER));
    real    n_credspec(msk.get(F_CREDSPEC));
    
    if (msk.field(F_DEBCRE).get()[0] == 'C')
      n_rettifica = -n_rettifica;
      
    if (msk.get(F_VARIMP_DC)[0] == 'C')
      n_varimp = -n_varimp;

    if (msk.field(F_RETTIFICA).dirty() || msk.field(F_DEBCRE).dirty())
    { 
      rettifica = n_rettifica;
      l_mod = true;  
    }
    if (msk.field(F_ACCONTO).dirty())
    {  
      acconto = n_acconto;
      l_mod = true;  
    } 
    if (msk.field(F_RIMBORSO).dirty())
    {               
      bool ok = true;
      if (!n_rimborso.is_zero())
      {
         const bool old_rim = !rimborso.is_zero();
        // check diritto (se non ce n'era gi<67> uno prima)
        if (!_lim->get_bool("B2") && !old_rim)
          ok = yesno_box(FR("Non risulta diritto al rimborso per il mese %d. Si desidera "
                         "confermare ugualmente?"), m);
      }                    
      if (ok)
      {
        rimborso = n_rimborso;
        l_mod = true;  
      }
      else
      { 
        msk.field(F_RIMBORSO).set(rimborso.string());
        msk.field(F_RIMBORSO).set_dirty(false);
      }
    }
    if (msk.field(F_DESCR1).dirty())
    {                        
      desc1 = n_desc1;
      l_mod = true;  
    }
    if (msk.field(F_DESCR2).dirty())
    {                 
      desc2 = n_desc2;
      l_mod = true;  
    }                     
    if (msk.field(F_DESCR3).dirty())
    {                 
      desc3 = n_desc3;
      l_mod = true;  
    }                     
    if (msk.field(F_DELDATE).dirty())
    { 
      date  = n_date;
      d_mod = true;
    }        
    if (msk.field(F_DELIMP).dirty())
    {     
      real itt = _lim->get_real("R10"); 
      vers = n_vers;
      d_mod = true;
    }
    if (msk.field(F_DELABI).dirty())
    {               
      abi = n_abi;
      d_mod = true;
    }
    if (msk.field(F_DELCAB).dirty())
    {             
      cab = n_cab;
      d_mod = true;
    }
    if (msk.field(F_DELCON).dirty())
    {             
      con = n_con;
      d_mod = true;
    }
    if (msk.field(F_VARIMP).dirty() || msk.field(F_VARIMP_DC).dirty())
    {
      varimp = n_varimp;
      l_mod = true;
    }
    if (msk.field(F_IMPNONVER).dirty())
    {
      impnonver = n_impnonver;
      l_mod = true;
    }
    
    if (msk.field(F_CREDSPEC).dirty())
    {
      credspec = n_credspec;
      l_mod = true;
    }
    
    if (recorded) recorded = !(d_mod || l_mod); 
    
    if (k == K_INS || k == K_SAVE)
    {
      recalc_liq_data(&vsw, rimborso, rettifica, vers, acconto, varimp, impnonver, credspec,
                      desc1, desc2, desc3, date, abi, cab, con);
    }  
    if (k == K_SAVE) 
    {
      { write_liq(); recalc_next_liq(m, _liq_sheet, _vers_sheet); }
      if (d_mod) { write_del(); }
      l_mod = d_mod = false;   
      recorded = true;   
    }
    if (k == K_QUIT)
    {
      if (!recorded)
      {
        KEY kk = yesnocancel_box(TR("Modifiche non registrate: salvare?"));
        if (kk == K_YES)
        {    
          if (l_mod) { write_liq(); recalc_next_liq(m, _liq_sheet, _vers_sheet); }
          if (d_mod) { write_del(); }  
          l_mod = d_mod = false;   
          recorded = true;
        } 
        if (kk == K_YES || kk == K_NO) 
          break;
      }
      else break;
    }
  }  

  remove(f);

  return recorded;
}    


real Visliq_app::credito_utilizzato(int year, int month) const
{
  real credito;

  TTable lim("LIM");
  TString16 cod;
  for (int m = 1; m <= month; m++)
  {       
    cod.format("%04d%02d", year, m);
    lim.put("CODTAB", cod);
    if (lim.read() == NOERR)
    {
      if (m < month)
        credito += lim.get_real("R15"); // Credito utilizzato IVA
      if (m < 13)
        credito += lim.get_real("R16"); // Credito utilizzato F24
    }
  }
  
  return credito;
}

HIDDEN void replace_number(TViswin* vsw, long rig, real num, int tab)
{
  TString16 str;
  if (num.is_zero())
    str.spaces(15);
  else
  {
    const TCurrency c(num);
    str = c.string(true);
    str.right_just(15);
  }
  vsw->replace(rig, str,  tab);
}

real Visliq_app::min_vers(int anno, int month)
{
  TInteressi_IVA_table ver;  
  real min;
  if (month > 12)
  { 
    if (ver.read(_year, 12) == NOERR)
      min = ver.get(I_ANNUALE);
  }
  else
  {
    if (ver.read(_year, month) == NOERR)
      min = ver.get(I_PERIODICO);
  }
  return min;
}

void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& vers, 
                                 real& acc, real& varimp, real& impnonver, real & credspec,
                                 TString& d1, TString& d2, TString& d3, TDate& date, 
                                 TString& abi, TString& cab, TString& con)
{                                   
  // ricalcola tutto, scrive nei lim, NON salva e riaggiusta
  // la paginata della liquidazione            
  //                                         Descrizione               Da ricalcolare  
  // -------------------------------------------------------------------------------
  real iva_ven  = _lam->get_real("R0");   // IVA acquisti              no
  real iva_acq  = _lam->get_real("R1");   // IVA vendite               no
  real cre_pre  = _lam->get_real("R2");   // credito precedente        no (solo dopo)
  real deb_pre  = _lam->get_real("R3");   // debito precedente         no (solo dopo)
  real ris      = _lim->get_real("R0");   // risultato                 si
  real rmb      = _lim->get_real("R1");   // rimborso                  si
  real rtt      = _lim->get_real("R5");   // rettifica                 si
  real udt      = _lim->get_real("R6");   // ult. detrazioni           no
  real cgp      = _lim->get_real("R7");   // conguaglio prorata        no
  real vrs      = _lim->get_real("R8");   // versamenti                no
  real vri      = _lim->get_real("R9");   // versamenti integrativi    no
  real itt      = _lim->get_real("R10");  // tasso interesse           no
  real act      = _lim->get_real("R11");  // acconto                   si
  real crd      = _lim->get_real("R12");  // totale a credito          si
  real dbt      = _lim->get_real("R13");  // totale a debito           si
  real itr      = _lim->get_real("R14");  // interesse totale          si
  real cui      = _lim->get_real("R15");  // Credito utilizzato iva    si
  real var      = _lim->get_real("R17");  // Variazioni d'imposta      no
  real inv      = _lim->get_real("R18");  // Imposta non versata       no
  real crs      = _lim->get_real("R19");  // Crediti speciali          no
  // -------------------------------------------------------------------------------
  const int year = atoi(_lim->get("CODTAB").mid(0, 4));
  const int month = atoi(_lim->get("CODTAB").mid(4, 2));
  const bool after2000 = _year >= 2000;  // CM000222

  if (month == 13 || after2000)   
  {
    // molto codice duplicato, ma ne val la pena (vedi sopra)
    round_imposta(vrs);
    round_imposta(vers);
    round_imposta(rmb);
    round_imposta(rimb);
    round_imposta(rtt);
    round_imposta(rett);
    round_imposta(act);
    round_imposta(acc);
    round_imposta(var);
    round_imposta(varimp);
    round_imposta(inv);                          
    round_imposta(impnonver);
    round_imposta(crs);                          
    round_imposta(credspec);
  }
 
  // calcola vecchio risultato: se e' diverso da R0 ci sono cazzi strani
  // e invalidiamo B0 cosi' impara                                      
  real risul = iva_ven - iva_acq - udt + rmb + cgp - vri + rtt - act - cre_pre + deb_pre +
               var + inv - cui - crs;

  if (risul != ris) 
  { 
#ifdef DBG
    yesnofatal_box("Porca vacca: Risultato non coincidente!");
#endif
    _lim->put("B0", "X");
  }
  

  // calcola nuovi dati
  real riscr   = iva_acq + udt  + acc + cre_pre + credspec;
  real risdb   = iva_ven + rimb + deb_pre + impnonver;

  if (rett.sign() < 0) riscr -= rett;
  else                 risdb += rett;
  if (cgp.sign() < 0)  riscr -= cgp;
  else                 riscr += cgp;                     
  if (varimp.sign() < 0) riscr -= varimp;
  else                   risdb += varimp;

  real credito_utilizzato_iva = ZERO;
  const bool new_age_2000 = (_year >= 2000) && look_lia() && (_lia->get("S9") == "NV");
  if (new_age_2000)
  {
    real credito_utilizzabile_inizio_anno = _lia->get_real("R0") - _lia->get_real("R15");
    if (credito_utilizzabile_inizio_anno < ZERO)
      credito_utilizzabile_inizio_anno = ZERO;
   
    risul = risdb - riscr;
    if (risul > ZERO && credito_utilizzabile_inizio_anno > ZERO)
    {                      
      real credito_utilizzabile = credito_utilizzabile_inizio_anno;
     
      credito_utilizzabile -= credito_utilizzato(year, month); 
      if (credito_utilizzabile < ZERO) credito_utilizzabile = ZERO;
      if (month < 13)
        credito_utilizzato_iva = min(risul, credito_utilizzabile);
      else
        credito_utilizzato_iva = credito_utilizzabile;             
      round_imposta(credito_utilizzato_iva);
      riscr += credito_utilizzato_iva;
    }
  }

  risul = risdb - riscr;
  
  real intr(0.0);

  if (!itt.is_zero() && risul.sign() > 0)
  {
    // calcola interesse
    intr = risul * itt / real(100.0);
    intr.ceil();
    if (after2000)
      round_imposta(intr); 
  }

  // riaggiusta LIM
  _lim->put("R0",  risul);
  _lim->put("R1",  rimb);
  _lim->put("R5",  rett);
  _lim->put("R8",  vers);
  _lim->put("R11", acc);
  _lim->put("R12", riscr);
  _lim->put("R13", risdb);
  _lim->put("R14", intr);
  _lim->put("R15", credito_utilizzato_iva);
  _lim->put("R17", varimp);
  _lim->put("R18", impnonver);
  _lim->put("R19", credspec);

  _lim->put("S0", d1);
  _lim->put("S1", d2);
  _lim->put("S2", d3);

  // i dati dei versamenti si schiaffano in LIM: 
  // D0 la data, S4/5/6 le tre cazzate ABI CAB CON 
  _lim->put("D0",  date);
  _lim->put("S4",  abi);
  _lim->put("S5",  cab);
  _lim->put("S6",  con);

  // determina righe da cambiare  
  // una sburlata di search ......
  int  x       = 0;  
  long lvers   = -1l;
  long line    = vsw->search(TR("CALCOLO LIQUIDAZIONE D'IMPOSTA"), x);
  int  wasdebt = ris.sign();
  long lrisd   = vsw->search(TR("RISULTATO"), x, line, true);     // RISULTATO a debito
  long lrisc   = vsw->search(TR("RISULTATO"), x, lrisd+1, true);  //            credito
  long lrettc  = vsw->search(TR("Rettifiche IVA a credito"),x,line,true);
  long lrettd  = vsw->search(TR("Rettifiche IVA a debito"), x,line,true);
  long lacct   = vsw->search(TR("Versamento acconto dicembre"),x,line,true);
  long lintr   = vsw->search(TR("Interesse"),x,line,true);
  long livdv   = vsw->search(TR("IVA DOVUTA"),x,line,true);
  long lrivr   = vsw->search(TR("Versamenti effettuati"),x,line,true);
  long lvari   = vsw->search(TR("Variazioni d'imposta"),x,line,true);
  long limnv   = vsw->search(TR("Imposta non versata"),x,line,true);
  long lcicd   = vsw->search(TR("Credito IVA compensabile detratto"),x,line,true);
  long iadoc   = vsw->search(TR("IVA a debito o a credito per il periodo"),x,line,true);
  long lrimb   = vsw->search(iadoc > 0 ? TR("Rimborsi") : TR("Iva chiesta a rimborso"),x,line,true);

  if (wasdebt != 0)
    lvers = vsw->search(wasdebt < 0 ? TR("CREDITO ATTUALE") : TR("IVA DA VERSARE"),
                        x, line, true);
  if (lvers == -1l)                      
    lvers = vsw->search(TR("IVA A DEBITO DA NON VERSARE"), x, line, true);
  if (lvers == -1l) 
    lvers = lrisc+1l;
  
  // ... seguita da una sburlata di replace                  
  replace_number(vsw, lrimb, rimb, 75);
  
  replace_number(vsw, lrisd, risdb, 75);
  replace_number(vsw, lrisc, riscr, 58);
  replace_number(vsw, lacct, acc,   58);                    
  
  if (rett.sign() > 0)
  {
    replace_number(vsw, lrettd, rett, 75);
    vsw->replace(lrettc, "               ", 58);
  }                  
  else if (rett.sign() < 0)
  {                                     
    real rabs = abs(rett);
    replace_number(vsw, lrettd, rabs, 58);
    vsw->replace(lrettd, "               ", 75);
  } 
  else
  {
    vsw->replace(lrettc, "               ", 58);
    vsw->replace(lrettd, "               ", 75);
  }
    
  if (iadoc > 0)  // New Age 2000
  {
    int tab1 = 75, tab2 = 58;
    real v = iva_ven + rett - iva_acq;
    if (v < ZERO)
    {
      v = -v; tab1 = 58; tab2 = 75;
    }
    if (v.is_zero())
      vsw->replace(iadoc, "               ", tab1);
    else
      replace_number(vsw, iadoc, v, tab1);
      
    vsw->replace(iadoc, "               ", tab2);

    iadoc   = vsw->search(TR("IVA dovuta o a credito per il periodo"),x,line,true);
    v = risul + credspec;
    if (v < ZERO)
    {
      v = -v; tab1 = 58; tab2 = 75;
    }
    if (v.is_zero())
      vsw->replace(iadoc, "               ", tab1);
    else
      replace_number(vsw, iadoc, v, tab1);

    vsw->replace(iadoc, "               ", tab2);

    TString256 ln;
    long lcrs    = vsw->search(TR("Crediti speciali"),x,line,true);
     
    if (credspec.is_zero())
      vsw->replace(lcrs, "               ", 58);
    else
      replace_number(vsw, lcrs, credspec, 58);

    const bool print_intr = _freqviva == "T" && intr != 0.0;
    const char* desc_inter = TR("Interessi dovuti per liquidazioni trimestrali");
    lintr = vsw->search(desc_inter, x, line, true);    
    
    if (print_intr)
    { 
      if (lintr == -1)
      {
        lintr = iadoc + 2;        
        TString desc;
        desc.format("%s %s%%", desc_inter, itt.stringa(6,2));
        vsw->replace(lintr, desc, 11);
      }
      replace_number(vsw, lintr, intr,  75);
      risul += intr;
    } 
    else
      if (lintr > 0)
      {
        ln.spaces(90);
        vsw->replace(lintr, ln, 11);
      }
    
    long idv = vsw->search(TR("IMPORTO DA"), x, iadoc, true);    
    if (idv < 0)  
      idv = iadoc+6;
                     
    if (risul > ZERO)
    {  
      ln = TR("IMPORTO DA ");
      if (risul < min_vers(_year, month) && month < 13)
        ln << TR("NON ");
      ln << TR("VERSARE    ");
      replace_number(vsw, idv, risul,  75);
    }
    else              
      ln.spaces(90);
    vsw->replace(idv, ln, 23);
  }
  else
  {
    // non scrive e si sciroppa la viswin
    TString256 ln;
    ln.spaces(); ln.cut(136);       
    if (risul.sign() < 0) // Significa che in questo momento il risultato e' a credito
    {                          
      TCurrency rabs(-risul);
      TString16 str = rabs.string(true); str.right_just(15);
      
      ln.overwrite(TR("CREDITO ATTUALE"), 23);
      ln.overwrite(str, 58);
      if (lintr > 0) // Quindi niente riga "Interessi " ...
      {
        vsw->replace(lintr,"         ",23);
        vsw->replace(lintr,"      ",33);
        vsw->replace(lintr," ",41);
        vsw->replace(lintr,"               ",75);
      }
      if (livdv > 0) // ...ed "IVA DOVUTA"
      {
        vsw->replace(livdv,"               ",23);
        vsw->replace(livdv,"               ",75);
      }
    }
    else if (risul.sign() >= 0) // ... altrimenti siamo a debito, in tal caso si hanno gli interessi (solo trimestrali of course)
    {                                     
      const bool print_intr = _freqviva == "T" && intr != 0.0;
      if (print_intr)
      {
        if (lintr == -1)
        {
          lintr = lrisc + 2;
          vsw->replace(lintr, TR("Interesse"), 23);
          vsw->replace(lintr, itt.stringa(6,2), 33);
          vsw->replace(lintr, "%", 43);
        }
        if (livdv == -1)
        {
          livdv = lrisc + 1;
          vsw->replace(livdv, TR("IVA DOVUTA"), 23);  
        }
        if (lintr > 0)
          replace_number(vsw, lintr, intr, 75);
        if (livdv > 0)
        {
          replace_number(vsw, livdv, risul, 75);
          risul += intr;
        }
      }
      ln.overwrite(TR("IVA DA VERSARE"), 23);

      TCurrency rabs(risul);
      TString16 str = rabs.string(true); str.right_just(15);
      ln.overwrite(str, 75);
    }                                    
    vsw->replace(lvers, ln, 0);   
  }  

  if (lrivr >= 0)
  { 
    if (vers.is_zero())
      vsw->replace(lrivr, "               ", 58);                    
    else  
      replace_number(vsw, lrivr, vers, 58);
  }
  
  if (lvari >= 0)
  {
    int tab1 = 75, tab2 = 58;
    real v = varimp;
    if (v < 0)
    {
      v = -v;
      tab1 = 58; 
      tab2 = 75;
    }     
    if (!v.is_zero())
      replace_number(vsw, lvari, v, tab1);
    else
      vsw->replace(lvari, "               ", tab1);
    vsw->replace(lvari, "               ", tab2);
  }
  if (limnv >= 0)
  {   
    if (!impnonver.is_zero())
      replace_number(vsw, limnv, impnonver, 75);
    else
      vsw->replace(limnv, "               ", 75);
  }
  if (lcicd >= 0)
  { 
    if (credito_utilizzato_iva.is_zero())
      vsw->replace(lcicd, "               ", 58);
    else
      replace_number(vsw, lcicd, credito_utilizzato_iva, 58);
  }

  vsw->refresh();
}   

void Visliq_app::recalc_next_liq(int start_month, TSheet_field* sl, TSheet_field* sv)
{
  // riaggiusta le liquidazioni successive da li' in poi finche' ce n'e'
  // rimette a posto i valori nelle tokenstrunz dello sheet  
  // soltanto nello start_month i valori di LIM sono stati cambiati
  
  int step  = _freqviva == "M" ? 1 : 3;
  real rstart = _lim->get("R0");
  
  for (int i = start_month; i < 13; i += step) 
  {
    int row = (i/step) - 1;

    if (i > start_month)
    {
      if (!look_lim(i))
        break;
      
      // ricalcola LIM e LAM
      real cred = _lam->get_real("R2");
      real debt = _lam->get_real("R3");
      real risl = _lim->get_real("R0");
      real vers = _lim->get_real("R8");
      real risc = _lim->get_real("R12");
      real risd = _lim->get_real("R13"); 
      real intt = _lim->get_real("R10");
      real crf24 = _lim->get_real("R16");

      // toglie vecchio credito e debito
      risl += cred;
      risl -= debt;
      risc -= cred;  
      risd -= debt;
      
      // aggiunge nuovo credito o debito         
      real min = min_vers(_year, i);
      if (rstart.sign() < 0 || (rstart.sign() > 0 && rstart < min))
        risl += rstart;
      
      real newcred(0.0);
      real newdebt(0.0);
      if (rstart.sign() < 0) 
      {
        newcred = -rstart;  
        risc   -= rstart;
      }
      if (rstart.sign() > 0 &&  rstart < min)
      {
        newdebt = rstart;
        risd += rstart;
      }
      
      _lam->put("R2",  newcred);  
      _lam->put("R3",  newdebt);
      _lim->put("R0",  risl);
      _lim->put("R12", risc);
      _lim->put("R13", risd);
      if (intt.sign() > 0) // interessi
      {
        real intr = risl * intt / real(100.0);
        if (_year >= 2000)
          round_imposta(intr);
        _lim->put("R14",intr);
      }  
      _lim->put("R16", crf24);

      _lim->rewrite();
      _lam->rewrite();
      
      rstart = risl;
    }
    
    if (sl != NULL)
    {                  
      TToken_string& t =  sl->row(row);
      t.add(itoname(i),0);

      int sr0 = (_lim->get_real("R0")).sign();
      int sr5 = (_lim->get_real("R5")).sign();
                     
      real r0abs = abs(_lim->get_real("R0"));               
      real r5abs = abs(_lim->get_real("R5"));               
      t.add(r0abs.string(),1);  
      t.add(sr0 == 0 ? "" : (sr0 > 0 ? "D" : "C"), 2);
      t.add((_lim->get_real("R1")).string(),3);
      t.add(r5abs.string(),4);

      t.add(sr5 == 0 ? "" : (sr5 > 0 ? "D" : "C"),5);
      
      for (int kk = 3; kk < 6 ; kk++) 
        sl->enable_cell(row, kk);
      sl->enable_cell(row, 7);
      sl->enable_cell(row, 9);
      
      sl->force_update(row);
    }                             
  }                     

  // se non si fa questa non scrive una delega,
  // bensi' una bovazza (escremento bovino)
  look_lim(start_month);
}

void Visliq_app::write_liq()
{ 
  // piccola, ma simpatica
  // naturalmente era much bigger
  _lim->rewrite();
}

void Visliq_app::write_del()
{ 
  bool wasdel = false;
  
  int month = atoi(*_lim_mese);
  TString8 abi(_lim->get("S4"));
  TString8 cab(_lim->get("S5"));
  TString4 con(_lim->get("S6"));  
  TDate  date(_lim->get("D0"));
  real   vers(_lim->get_real("R8"));   
  real   intr(_lim->get_real("R10"));

  if (vers.is_zero() && (wasdel = look_del(month,1)))
  {
    _del->remove();    
    //_del->rewrite(); // ???
    return;
  }           
  
  if (!wasdel) 
    look_del(month,1,true);  // Crea delega

  real inter;
  
  if (!intr.is_zero())
  {
    // riapplica il tasso di interesse  
    // se trimestrale e' stato scorporato rispetto all'eventuale input utente
    inter = vers*CENTO/(CENTO+intr);    
    inter = vers - inter;
    inter.ceil(); 
  }
  
  _del->put("R0",vers);
  _del->put("R1",inter);
  _del->put("D0",date);
  _del->put("S7",abi);
  _del->put("S8",cab);
  _del->put("S9",con);
  _del->put("B0", true);  // Preimposta flag di stampato, altrimenti viene ignorato dalla liquidazione 04-12-2014

  const int ctri = _freqviva == "M" ? 6000 + month : 6030 + (month/3);
  _del->put("S6", ctri);
  
  _del->rewrite();                    
}                 


void Visliq_app::read_general(TMask& m)
{
  TString8 abi;
  TString8 cab;
  TString4 cnc;
  const int step = _freqviva == "M" ? 1 : 3;
  const bool new_age_2000 = _lia->get("S9") == "NV";
  
  TSheet_field& sh = m.sfield(F_VISLIQ1); 
  TSheet_field& sv = m.sfield(F_VISLIQ2); 
  TMask_field& crprec = m.field(F_CREDPREC);
                                                     
  if (new_age_2000)
    crprec.set_prompt(TR("Credito compensabile inizio anno "));
  else
    crprec.set_prompt(TR("Credito inizio anno "));
  real cr_res  = _lia->get_real("R0");
  crprec.set(cr_res.string());
  if (new_age_2000)
    cr_res -= _lia->get_real("R15");

  // set sheet
  for (int i = step; i < 13; i+=step)
  {                      
    if (!is_month_ok(i)) 
      continue;     
    
    const int row = (i/step) - 1;    
    if (!look_lim(i))
    {
      if (sh.items() < row)
        sh.row(row) = *(new TToken_string("||||||")); 
      else 
        sh.row(row) = "||||||";
      
      sh.disable_cell(row, -1);
      continue;
    }                                   
    
    TToken_string* tt = NULL;
    if (sh.items() < row) 
      tt = new TToken_string(80); 
    else                
      tt = &(sh.row(row));
    
    real r0abs = abs(_lim->get_real("R0"));
    real r5abs = abs(_lim->get_real("R5"));
    tt->add(itoname(i),0);
    tt->add(r0abs.string(),1);
    
    int sr0 = (_lim->get_real("R0")).sign();
    int sr5 = (_lim->get_real("R5")).sign();

    tt->add(sr0 == 0 ? "" : (sr0 > 0 ? "D" : "C"),2);
    tt->add(_lim->get_real("R1").string(),3);
    tt->add(r5abs.string(),4);
    tt->add(sr5 == 0 ? "" : (sr5 > 0 ? "D" : "C"),5);
            
    const real criva = _lim->get_real("R15");
    tt->add(criva.string(), 6);
    const real crf24 = _lim->get_real("R16");
    tt->add(crf24.string(),7);
    if (new_age_2000)
    {
      if (cr_res > ZERO)
      {
        cr_res -= crf24;
        cr_res -= criva;
      }
      if (cr_res < ZERO)
        cr_res = ZERO;
      tt->add(cr_res.string(), 8);
    }
    else
      tt->add("", 8);
    tt->add(_lim->get("S3"), 9);
    
    sh.row(row) = (*tt);
  }  
  
  // calcola versamenti
  real  versamenti[13];   
  TDate date[13];   
  TToken_string banche[13]; 
  
  for (_del->first(); !_del->eof(); _del->next())
  {                    
    if (atol(*_del_ditta) != get_firm()  ||
        atoi(*_del_anno)  != _year)
      continue;
    
    // uso solo deleghe normali (tipo == 1) e acconti (tipo == 7)                              
    int tipod = atoi(*_del_tipo);
    if (tipod != 1 && tipod != 7) 
      continue;
    
    // somma versamenti nel mese adeguato  
    int m = atoi(*_del_mese);

    if (m >= 12)
      m = tipod == 7 ? 12 : 13; 
    // supercauto
    if (m <= 0) continue;
    
    versamenti[m-1] += _del->get_real("R0");
    date[m-1] = _del->get_date("D0");
    TToken_string& b = banche[m-1];
    b.add(_del->get("S7"),0);
    b.add(_del->get("S8"),1);
    b.add(_del->get("S9"),2);
  }

  // Sheet versamenti
  TString nomemese;          
  sv.destroy();
  for (int i = 1; i <= 13; i++)
  {  
    if (!is_month_ok(i) && i != 13) 
      continue;

    nomemese = itoname(i == 13 ? 12 : i);              
    if (nomemese == "4 Trimestre") 
      nomemese = TR("4 Tr.");  
    if (i == 12) nomemese << TR(" acconto");
    if (i == 13) nomemese << TR(" saldo");
    
    TToken_string tt; 
    tt.add(nomemese,0);                // mese
    tt.add(date[i-1].string(),1);      // data vers.
    tt.add(banche[i-1].get(0),2);      // azienda
    tt.add(banche[i-1].get(1),3);      // dipendenza
    tt.add(banche[i-1].get(2),4);      // concessionaria
    tt.add(versamenti[i-1].string(),5);// versamenti 
    
    sv.row(-1) = tt;    
    if (i == 12) 
      sv.enable_cell(sv.items() - 1, -1, false);
  }  
  
  // sh.enable_column(0, false);
  // sv.enable_column(0, false);

  sh.force_update();
  sv.force_update();
  
  // save initial rows
  _vers_rows = sv.rows_array();
  _liq_rows  = sh.rows_array();

  m.field(F_CREDPREC).set_dirty(false);
  m.field(F_VISLIQ1).set_dirty(_sh_dirty=false);
  m.field(F_VISLIQ2).set_dirty(_sv_dirty=false);
}

void Visliq_app::write_general(TMask& m)
{ 
  TSheet_field& sh = m.sfield(F_VISLIQ1); 
  TSheet_field& sv = m.sfield(F_VISLIQ2); 
  const bool new_age_2000 = _lia->get("S9") == "NV";

  if (m.field(F_CREDPREC).dirty())
  {                
    const real r = m.get(F_CREDPREC);
    _lia->put("R0",r);
    _lia->rewrite();        
  }                             
  
  // credito iniziale
  real rstart = _lia->get_real("R0");  
  real cr_res;
  if (!new_age_2000)
  {
    if (!rstart.is_zero())
      rstart = -rstart;
  } 
  else 
    cr_res = rstart - _lia->get_real("R15");
  
  // indicatore ricalcolo crediti e debiti OK
  int step    = _freqviva == "M" ? 1 : 3;
  bool carry  = true;
  bool was_lim;
  TMask& shm = sh.sheet_mask();
  TMask& svm = sv.sheet_mask();
  
  for (int i = step; i < 13; i += step)
  {
    // this is a true bordel                            
    const int row = (i/step) - 1;    
    
    bool lfrommask = sh.selected() == row && (shm.is_running() || _from_one);
    bool vfrommask = sv.selected() == (i == 12 ? row + 1 : row) && svm.is_running();
    
    TToken_string& tt_lo = (TToken_string&)_liq_rows[row]; 
    TToken_string& tt_ln = sh.row(row);  
    
    // risolve menata del dettaglio si'/no  
    if (lfrommask)
    {    
      for (int i = 1; i <= 9; i++)
        tt_ln.add(shm.get(101+i),i);
    }

    // saltare una riga se dicembre (riga 11 == acconto)  
    TToken_string& tt_vo = (TToken_string&)_vers_rows[i == 12 ? row + 1 : row]; 
    TToken_string& tt_vn = sv.row(i == 12 ? row + 1 : row); 

    if (vfrommask)
    { 
      for (int i = 1; i <= 5; i++)
        tt_vn.add(svm.get(101+i),i);
    }
    
    // traduci contenuto righe in real pila
    real    orett(tt_lo.get(4));
    real    nrett(tt_ln.get(4));
    real    orimb(tt_lo.get(3));
    real    nrimb(tt_ln.get(3));
    real    overs(tt_vo.get(5));
    real    nvers(tt_vn.get(5));
    real    crf24(tt_ln.get(7));
    TDate   odate(tt_vo.get(1));
    TDate   ndate(tt_vn.get(1));
    TString odbcr(tt_lo.get(5));
    TString ndbcr(tt_ln.get(5));
    TString8 oabi (tt_vo.get(2));
    TString8 nabi (tt_vn.get(2));
    TString8 ocab (tt_vo.get(3));
    TString8 ncab (tt_vn.get(3));
    TString ocon (tt_vo.get(4));
    TString ncon (tt_vn.get(4));
    TString descr(tt_ln.get(9));

    if (odbcr == "C") orett = -orett;
    if (ndbcr == "C") nrett = -nrett;
    
    // acconto (si considerer<65> solo a dicembre)
    TToken_string& vo = (TToken_string&)_vers_rows[_freqviva == "M" ? 11 : 3]; 
    TToken_string& vn = sv.row(_freqviva == "M" ? 11 : 3);     
    real    oacct (vo.get(5));
    real    nacct (vn.get(5));
    TDate   aodate(vo.get(1));
    TDate   andate(vn.get(1));
    TString8 aoabi (vo.get(2));
    TString8 anabi (vn.get(2));
    TString8 aocab (vo.get(3));
    TString8 ancab (vn.get(3));
    TString aocon (vo.get(4));
    TString ancon (vn.get(4));
          
    was_lim = look_lim(i);      
    if (!was_lim)
      carry = false; // blocca riporto crediti e debiti
    
    // ricalcola crediti e debiti se non ci sono 
    // liquidazioni non calcolate in mezzo
    if (carry)
    {
      bool rt_mod = false, rm_mod = false, vr_mod = false;

      real risl = _lim->get_real("R0");
      real vers = _lim->get_real("R8");
      real risc = _lim->get_real("R12");
      real risd = _lim->get_real("R13"); 

      // ricalcola acconto se occorre
      // e crea/aggiorna la delega
      if (i == 12)
      { 
        bool ac_mod = false;
        if (oacct != nacct)
        {
          risc -= oacct;
          risc += nacct;
          risl += oacct;  
          risl -= nacct;
          _lim->put("R11", nacct);
          ac_mod = true;
        }           
        if (ndate != odate || anabi != aoabi || ancab != aocab || ancon != aocon)
          ac_mod = true;                                                   
        // write delega acconto
        if (ac_mod)
        {
          look_del(12,7,true);
          _del->put("R0",nacct);
          _del->put("R1","");
          _del->put("S7",anabi);
          _del->put("S8",ancab);
          _del->put("S9",ancon);   
          _del->put("S6","6013");
          _del->rewrite();
        }
      }
      
      // ricalcola versamenti se occorre 
      // e crea/aggiorna le deleghe
      if (nvers != overs)
        vr_mod = true;

      if (vr_mod || ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon)
      {              
        _lim->put("R8", nvers);
        _lim->put("D0", ndate);
        _lim->put("S4", nabi);
        _lim->put("S5", ncab);
        _lim->put("S6", ncon); 
        write_del();
        vr_mod = true;
      }

      // se modificate rettifiche 
      // sistemare
      if (nrett != orett && !_from_one)
      { 
        // toglie vecchie
        risl -= orett; 
        if (orett.sign() < 0)
          risc += orett;
        else
          risd -= orett;
        // aggiunge nuove
        risl += nrett; 
        if (orett.sign() < 0)
          risc -= nrett;
        else
          risd += nrett; 
        
        // scrivi
        _lim->put("R5",nrett); 
        tt_lo.add(nrett.string(), 4);
        tt_lo.add(nrett.sign() > 0 ? "D" : (nrett.is_zero() ? "" : "C"), 5);
        
        // elimina descrixioni se nuove rett. sono 0
        if (nrett.is_zero())
        {
          _lim->put("S0","");
          _lim->put("S1","");  
        }
      }
      
      // controlla se qualcosa e' modificato e scrivi 
      // il valore; check compatibilit<69> versamenti e rimborsi

      // rileggi dati
      real cred = _lam->get_real("R2");
      real debt = _lam->get_real("R3");
      real intt = _lim->get_real("R10");

      // toglie vecchio credito e debito
      risl += cred;
      risl -= debt;
      risc -= cred;  
      risd -= debt;
      
      // aggiunge nuovo credito o debito  
      real min = min_vers(_year, i);
      if (rstart.sign() < 0 || (rstart.sign() > 0 && rstart < min))
        risl += rstart;
      
      real newcred(0.0);
      real newdebt(0.0);
      if (rstart.sign() < 0) 
      {
        newcred = -rstart;  
        risc   -= rstart;
      }
      if (rstart.sign() > 0 &&  rstart < min)
      {
        newdebt = rstart;
        risd += rstart;
      }

      // se modificato rimborso sistemare     
      if (nrimb != orimb && !_from_one)
      {
        // check compatibilit<69>
        bool ok = true; 
               
        if (!nrimb.is_zero()) 
        {              
          if (risc <= risd)  
            ok = yesno_box(FR("Il risultato IVA non evidenzia crediti nel mese %d. Si conferma il rimborso?"), i); 
          if (!_lim->get_bool("B2") && ok)
            ok = yesno_box(FR("Non risulta diritto al rimborso per il mese %d. Si conferma il rimborso?"), i); 
        }

        if (ok)
        {
          // togli vecchio
          risd -= orimb;
          risl -= orimb;  
          // aggiungi nuovo   
          risd += nrimb;
          risl += nrimb;   
          // scrivi
          _lim->put("R1", nrimb); 
          tt_lo.add(nrimb.string(), 3);
        }
      }         
      _lam->put("R2",  newcred);  
      _lam->put("R3",  newdebt);
      _lim->put("R0",  risl);
      _lim->put("R12", risc);
      _lim->put("R13", risd);

      if (intt.sign() > 0) // interessi
      {
        real intr = risl * intt / real(100.0);
        if (_year >= 2000)
          round_imposta(intr);
        _lim->put("R14",intr);
      }  

      _lim->put("R16", crf24);
      if (new_age_2000)
      {
        const real criva(tt_ln.get(6));
        if (cr_res > ZERO)
        {
          cr_res -= crf24;
          cr_res -= criva;
        }
        if (cr_res < ZERO)
          cr_res = ZERO;
      }         
      _lim->put("S3", descr);

      _lim->rewrite();
      _lam->rewrite();
      
      rstart = risl;
    }
    else 
    {
      // salva i valori modificati senza fare controlli
      // e rimetti a lui i suoi debiti mettendo B0 a false   
      if (was_lim)
      {
        if (orett != nrett)
          _lim->put("R5", nrett);
        if (orimb != nrimb)
          _lim->put("R1", nrimb);
        _lim->put("R16", crf24);
        _lim->put("S3", descr);
        _lim->put("B0", ""); 
        _lim->rewrite(); 
      }
    }  

    // Rimetti a posto righe sheet se serve
    if (was_lim)
    {
      int sr0 = (_lim->get_real("R0")).sign();
      int sr5 = (_lim->get_real("R5")).sign();
    
      real r0abs = abs(_lim->get_real("R0"));
      real r5abs = abs(_lim->get_real("R5"));
    
      tt_ln.add(r0abs.string(),1);  
      tt_ln.add(sr0 == 0 ? "" : (sr0 > 0 ? "D" : "C"), 2);
      tt_ln.add((_lim->get_real("R1")).string(),3);
      tt_ln.add(r5abs.string(),4);
      tt_ln.add(sr5 == 0 ? "" : (sr5 > 0 ? "D" : "C"),5);
      tt_ln.add(cr_res.string(),8);
    
      // sh.force_update(row);
    }
    _from_one = false;      
  } // for mese liq. (riga sheet)

  sh.force_update(); 
  if (shm.is_running())
    sh.force_update(sh.selected()); 
  // Rileggi array righe vecchie
  set_vers_rows(sv);  
  set_liq_rows(sh); 

  // m.dirty() deve ritornare false  
  m.field(F_CREDPREC).set_dirty(false);
  m.field(F_VISLIQ1).set_dirty(_sh_dirty=false);
  m.field(F_VISLIQ2).set_dirty(_sv_dirty=false);
}



int cg5500(int argc, char* argv[])
{
  Visliq_app app;
  app.run(argc, argv, TR("Visualizzazione Liquidazione"));
  return 0;
}