campo-sirio/sc/sc0101.cpp

#include <execp.h>
#include <mailbox.h>
#include <real.h>

#include "../cg/conto.h"
#include "../cg/pagament.h"
#include "../cg/saldacon.h"
#include "../cg/cg21sld.h"

#include "sc0100.h"
#include "sc0100a.h"

#define __EXTRA__
#include "../cg/cg2105.cpp"

///////////////////////////////////////////////////////////
// Maschera gestione rate
///////////////////////////////////////////////////////////

class TFattura_mask : public TMask
{
  TRiga_partite& _fattura;
  TPagamento* _pag;
  TString_array _pag_rows;
  
protected:        
  static bool clifo_handler(TMask_field& f, KEY key);
  static bool datadoc_handler(TMask_field& f, KEY key);
  static bool nrate_handler(TMask_field& f, KEY key);
  static bool recalc_handler(TMask_field& f, KEY key);
  static bool codcab_handler(TMask_field& f, KEY key);
  static bool pag_notify(TSheet_field& ps, int r, KEY k);
  static bool pag_handler(TMask_field& f, KEY key);
  static bool reset_handler(TMask_field& f, KEY key);
  static bool tipopag_handler(TMask_field& f, KEY key);

  TPagamento& pagamento() const { return *_pag; }
  TPagamento& set_pagamento(const char* cod, const char* dat);

  TSheet_field& pag_sheet() const { return (TSheet_field&)field(FS_RATESHEET); }
  void pag2sheet();
  
  bool read_scadenze();
  
public:
  void set_totale_pagamento(bool update);
  void set_scadenze();
  void write_scadenze() const;
  real totale_rate(bool val) const;

  TFattura_mask(TRiga_partite& fattura);
  virtual ~TFattura_mask();
};

TFattura_mask::TFattura_mask(TRiga_partite& fattura) 
             : TMask("sc0100c"), _fattura(fattura), _pag(NULL)
{             
  set_mode(_fattura.rate() > 0 ? MODE_MOD : MODE_INS);
  enable(DLG_DELREC, edit_mode());

  set_handler(E_TOTALE, TSaldaconto_app::totale_handler);
  set_handler(E_IMPOSTE, TSaldaconto_app::imposte_handler);
  
  if (app().gestione_valuta())
  {
    set_handler(E_TOTDOCVAL,  TSaldaconto_app::totval_handler);
    set_handler(E_VALUTA,     TSaldaconto_app::valuta_handler);
    set_handler(E_DATACAMBIO, TSaldaconto_app::datacambio_handler);
    set_handler(E_CAMBIO,     TSaldaconto_app::cambio_handler);
  }
  else
    hide(-3);  
    
  const short clifo = _fattura.partita().conto().tipo() == 'C' ? E_CLIENTE : E_FORNITORE;  
  set_handler(clifo, clifo_handler);

  set_handler(E_DATADOC, datadoc_handler);
  set_handler(FS_NRATE, nrate_handler);
  set_handler(FS_RECALC, recalc_handler);
  set_handler(FS_NSCAB, codcab_handler);
  set_handler(FS_VSCAB, codcab_handler);
  set_handler(FS_RESET, reset_handler);
  
  TSheet_field& sf = pag_sheet();
  sf.set_notify(pag_notify);
  sf.set_handler(pag_handler);
  
  TMask& sm = sf.sheet_mask();
  sm.set_handler(105, tipopag_handler);
  sm.set_handler(106, tipopag_handler);
  
  const bool ad = _fattura.ultima_rata_con_abbuoni_diffcam() > 0;
  if (ad)  // Esistono abbuoni o differenze cambio sulla fattura
  {
    disable(E_SEZIONE);    // Non posso cambiare sezione
    disable(E_ANNORIF);    // Non posso cambiare partita
    disable(E_NUMRIF);
    disable(DLG_DELREC);   // Non posso eliminare
  }
  
  read_scadenze();
} 
                            
TFattura_mask::~TFattura_mask()
{
  delete _pag;
}

real TFattura_mask::totale_rate(bool val) const
{                                                       
  const TPagamento& pag = pagamento();
  real tot = pag.importo_da_dividere(val);
  tot += pag.importo_da_non_dividere(val);
  return tot;
}

void TFattura_mask::pag2sheet()
{
  TPagamento& pag = pagamento();
  TSheet_field& ps = pag_sheet();
  pag.set_sheet(ps);
  _pag_rows = ps.rows_array();
}

bool TFattura_mask::pag_notify(TSheet_field& ps, int riga, KEY k)
{                                   
  TFattura_mask& msk = (TFattura_mask&)ps.mask();      
  TPagamento&    pag = msk.pagamento();
  TString_array& rws = msk._pag_rows;                                
                                               
  const int rdiff      = msk.get_int(FS_RDIFFER);
  const bool in_valuta = pag.in_valuta(); 
  const int impos      = in_valuta ? 2 : 1;
  
  // ts contiene la vecchia riga, ns la nuova                                       
  TToken_string ts(128), ns(128);
  TString16 banca;

  bool doit = TRUE, m_impl = FALSE, m_impv = FALSE, m_perc = FALSE, m_pag = FALSE;
  bool m_scad = FALSE, m_tipo = FALSE, m_ulc = FALSE, mod = FALSE, m_implit = FALSE;
  word ahiahi = P_OK;                                
  
  TString news(10), newl(15), newv(15), newp(15), newt(1), newu(1);                                  

  bool recalc = msk.get_bool(FS_RECALC); 
  bool mcomm  = msk.get_bool(FS_MCOMM);
  
  switch (k)
  { 
  case K_SPACE:       
    {                                         
      const bool can = !recalc && pag.n_rate() > 1 && ps.row(riga).get_char(13) != 'X';   
      ps.sheet_mask().enable(DLG_DELREC, can);
    }  
    break;
  case K_ENTER:
    ns  = ps.row(riga);     
    ts  = rws.row(riga);    
    
    news = ns.get(0);           // Data scadenza
    newl = ns.get(1);           // Imponibile (lire)
    newv = ns.get(2);           // Imponibile (valuta)
    newp = ns.get(3);           // Percentuale
    newt = ns.get(4);           // Tipo pagamento                                 
    newu = ns.get(5);           // Ulteriore classificazione 

    // qui viene il bello, si fa per dire 
    if (news != ts.get(0))  // modificata data scadenza
      mod = m_scad = TRUE;        
    if (real(newp) != real(ts.get(3)))  // modificata percentuale
      mod = m_perc = TRUE;        
    if (real(newl) != real(ts.get(1)))  // modificato importo lire
    {          
       // se si modifica la percentuale nessun importo viene cagato
      if ((recalc && !m_perc) || (!recalc)) 
        mod = m_impl = TRUE;   
    }
    if (in_valuta && real(newv) != real(ts.get(2)))      
    {
       // se si modifica la percentuale nessun importo viene cagato
      if ((recalc && !m_perc) || (!recalc)) 
        mod = m_impv = TRUE;   
    }
    if (newt != ts.get(4))  // modificato tipo pagamento
      mod = m_tipo = m_ulc = TRUE;      
    
    if (newu != ts.get(5))  // modificata ulteriore classificazione
      mod = m_ulc  = TRUE;
    else if (m_tipo) 
    {
      // forza reset di ulc se si e' modificato il tipo rata
      m_ulc = TRUE;
      newu = "";                                             
    }                                                        
          
    break;
  case K_DEL: 
    doit = !recalc && pag.n_rate() > 1 && ps.row(riga).get_char(13) != 'X';   
    if (doit)
    {
      pag.remove_rata(riga);
      msk.set(FS_NRATE, pag.n_rate());
    }  
    break;
  case K_INS:   
    // permette aggiunta e cancellazione solo se non c'e' ricalcolo automatico
    doit = !recalc;
    break;
  case K_CTRL+K_INS:                 // Post inserimento
    {                   
      const int prev = riga - 1;
      const int gio_scad = pag.scad_rata(prev); 
      TDate data_scad(pag.data_rata(prev));

      pag.add_rata(ZERO, gio_scad, pag.tipo_rata(prev), pag.ulc_rata(prev));
      pag.next_scad(data_scad, gio_scad, pag.mese_commerciale(), riga);
      pag.set_datarata(riga, data_scad);
//      pag.adjust_fixed_scad();
      msk.pag2sheet();
    }
    break;
  default:
    break;
  }          

  // settato da recalc_rate se occorre ridefinire lo sheet
  // aggiungendo o togliendo righe
  bool need_recalc = FALSE;      

  if (k == K_ENTER) 
  {
    if (mod && recalc)
    {
      // ricalcola sheet come sai fare tu
      ahiahi = pag.recalc_rate(riga, m_perc, 
                               ((m_perc || m_impv) ? 
                                (m_perc ? (const char*)newp : (const char*)newv) : NULL), 
                               (m_impl ? (const char*)newl : NULL), 
                               (m_scad ? (const char*)news : NULL),
                               (m_tipo ? (const char*)newt : NULL),
                               (m_ulc  ? (const char*)newu : NULL), 
                               rdiff, mcomm, need_recalc);   
                               
      // see if rdiff changed                          
      msk.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
      msk.set(FS_NRATE, pag.n_rate());
    } 
    if (!recalc)
    {                              
      ahiahi = P_OK;
      // put data as they are
      TToken_string& trw = pag.rata(riga);
      TToken_string  srw = trw;
      if (m_tipo) trw.add(newt,2); 
      if (m_ulc)
        trw.add(newu, 5);
      if (m_scad)
      {
        trw.add(news,3);
        if (riga > 0)
        {             
          TDate d(news);   
          int scd = (int)(d - pag.data_rata(riga-1));
          if (pag.mese_commerciale() && (scd % 30) != 0) 
               scd = 30 * ((scd/30)+1);
          trw.add(scd, 0);
        }
      }
      if (m_impl)  
      {
        trw.add(newl,7); 
        if (!in_valuta)
        {
          const real p = pag.recalc_percrata(riga, FALSE);
          ps.row(riga).add(p.string(), 3);                                  
        } 
        ps.force_update(riga); 
      }
      if (m_impv)  
      {
        trw.add(newv,4);
        const real p = pag.recalc_percrata(riga, TRUE);
        ps.row(riga).add(p.string(), 3);
        ps.force_update(riga); 
      }
      else
       if (m_tipo)
         ps.force_update(riga);  
      if (mod) 
        rws.row(riga) = ps.row(riga);
    }    
      
    if (ahiahi)  // any error? Rimetti le righe com'erano prima
    {         
      if (recalc)
      {            
        TString err(80); pag.strerr(ahiahi,err);
        warning_box(err);
        ps.row(riga) = rws.row(riga); 
        ps.force_update(riga); 
      }  
    } 
    else if (recalc && mod && need_recalc) 
    {                                   
      msk.pag2sheet();
    } 
  }
  
  return doit;
}

bool TFattura_mask::pag_handler(TMask_field& f, KEY key)
{           
  bool ok = TRUE;
  if (key == K_TAB || key == K_ENTER)
  {              
    TFattura_mask& m = (TFattura_mask&)f.mask();

    TPagamento& pag = m.pagamento();
    const TDate dt(m.get(E_DATADOC));
    
    pag.set_datadoc(dt);
    word err = pag.validate();
    if (m.edit_mode())
      err &= ~(P_RSUM | P_TOTNCLIT | P_TOTNCVAL );    // Ignora totale importi e rate
    if (err != P_OK)
    {
      TString s(256);
      pag.strerr(err, s);
      return f.error_box(s);   
    }  
    
    const bool in_valuta = m.get(E_VALUTA).not_empty();
    real imp;
    
    if (key == K_ENTER && m.edit_mode())
    {      
      real tot = m.get(in_valuta ? E_TOTDOCVAL : E_TOTALE);
      for (int r = pag.n_rate()-1; r >= 0; r--)
        imp += in_valuta ? pag.tval_rata(r) : pag.tlit_rata(r); 
      
      imp.round(pag.round(in_valuta));                               
      tot.round(pag.round(in_valuta));                               

      if (imp != tot)  
      {                     
        const char* const pic = in_valuta ? ".3" : ".";                
        const TString is(imp.string(pic));
        const TString ts(tot.string(pic));
        ok = yesno_box("Il totale delle rate e' %s mentre\n"
                       "il totale del documento e' %s.\n"
                       "Si desidera registrare ugualmente?",
                       (const char*)is, (const char*)ts);
      }
    }
      
    if (key == K_ENTER && in_valuta)
    {   
      const real totlit = m.get(E_TOTALE);             
      imp = ZERO;
      for (int r = pag.n_rate()-1; r >= 0; r--)
        imp += pag.tlit_rata(r);
                                         
      imp.round(pag.round(FALSE));

      if (imp != totlit)
      {
        const TString is(imp.string("."));
        const TString ts(totlit.string("."));
        ok = f.yesno_box("Il totale in lire delle rate e' %s mentre\n"
                         "il totale del documento e' %s.\n"
                         "Si desidera registrare ugualmente?", 
                         (const char*)is, (const char*)ts);
      }
    }
  }
  return ok;
}

bool TFattura_mask::datadoc_handler(TMask_field& f, KEY key)
{
  if (key == K_TAB && f.focusdirty())
  {
    TFattura_mask& fm = (TFattura_mask&)f.mask();
    TPagamento& pag = fm.pagamento();
    const TDate dd(f.get());
    if (fm.insert_mode())
    {
      pag.set_inizio(dd); 
      fm.pag2sheet();
    }   
    else 
      pag.set_datadoc(dd);
  }  
  return TRUE;
}  


bool TFattura_mask::clifo_handler(TMask_field& f, KEY key)
{                  
  if (key == K_TAB)
  {                                  
    TFattura_mask& m = (TFattura_mask&)f.mask();
    if (m.insert_mode())
    {              
      const TEdit_field& clifo = (TEdit_field&)f;
      const TRectype& cur = clifo.browse()->cursor()->curr();
      TMask_field& cp = m.field(E_CODPAG);
      if (cp.get().empty())
      {
        cp.set(cur.get(CLI_CODPAG));
        cp.check(STARTING_CHECK);
      }  
      TMask_field& cv = m.field(E_VALUTA);
      if (cv.get().empty())
      {
        cv.set(cur.get(CLI_CODVAL));
        cv.on_hit();
      }  
    }  
  }  
  return TRUE;
}

 
bool TFattura_mask::reset_handler(TMask_field& f, KEY key)
{                       
  TFattura_mask& fm = (TFattura_mask&)f.mask();
  if (key == K_SPACE && fm.is_running())
    fm.set_scadenze();
  return TRUE;
}

bool TFattura_mask::recalc_handler(TMask_field& f, KEY key)
{
  TFattura_mask& fm = (TFattura_mask&)f.mask();
  if (key == K_SPACE)
  {
    TSheet_field& ps = (TSheet_field&)fm.field(FS_RATESHEET);
    TPagamento& pag = fm.pagamento();

    const bool recalc_aut = f.get().not_empty();
    
    if (!recalc_aut && pag.tipo_prima_rata() > 3)
    {
      // SE CAMBIANO I SIGNIFICATI DEL TIPO PRIMA RATA BISOGNA RIFARE TUTTO
      pag.set_tipo_prima_rata(pag.tipo_prima_rata() - 3);  
      fm.set(FS_TIPOPR, pag.desc_tpr());
      pag.set_tpr4(TRUE);      
    }
    else if (recalc_aut && pag.was_tpr4())
    {
      // SE CAMBIANO I SIGNIFICATI DEL TIPO PRIMA RATA BISOGNA RIFARE TUTTO
      pag.set_tpr4(FALSE);  
      bool yak = pag.tlit_rata(0) != pag.importo_da_non_dividere(FALSE);
      if (pag.in_valuta()) yak |= (pag.tval_rata(0) != pag.importo_da_non_dividere(TRUE));    
      if (yak)
      {
        if (f.yesno_box("L'importo della prima rata e' stato modificato. "
                        "Con il ricalcolo automatico esso non sara' piu'"
                        " modificabile. Si desidera "
                        "riportare le rate alle condizioni iniziali?"))
         {
           pag.set_tipo_prima_rata(pag.tipo_prima_rata() + 3); 
           fm.set(FS_TIPOPR, pag.desc_tpr());
           fm.set_scadenze();
         }
         else 
           f.warning_box("Il tipo prima rata rimane modificato in %s", pag.desc_tpr());
      }
      else
      {
        pag.set_tipo_prima_rata(pag.tipo_prima_rata() + 3); 
        fm.set(FS_TIPOPR, pag.desc_tpr());
      }      
    }
    
    ps.enable_column(3, recalc_aut);
    ps.sheet_mask().enable(DLG_DELREC, !recalc_aut); 
    const bool on = pag.tipo_prima_rata() < 4 || !recalc_aut;
    ps.enable_cell(0, 1, on);
    ps.enable_cell(0, 2, on); 
    ps.enable_cell(0, 3, on);
    ps.force_update();
  }
  
  return TRUE;
}

bool TFattura_mask::nrate_handler(TMask_field& f, KEY key)
{                                 
  if (key == K_TAB && f.focusdirty())
  {
    TFattura_mask& fm = (TFattura_mask&)f.mask();
    TPagamento& pag = fm.pagamento();
    pag.set_numero_rate(atoi(f.get()));
    if (pag.dirty())
      fm.pag2sheet();  
    
    TString n; n << pag.n_rate();
    f.set(n);  
  }
  return TRUE;
}

bool TFattura_mask::codcab_handler(TMask_field& f, KEY key)
{
  if (key == K_TAB && f.focusdirty())
  {
    const TMask& m = f.mask();
    const short id = f.dlg() == FS_NSCAB ? FS_NSABI : FS_VSABI;
    const int pos = id == FS_NSABI ? 7 : 9;
    const TString abi = m.get(id);
    const TString cab = m.get(id+1);
    TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
    for (int i = ps.items()-1; i >= 0; i--)
    {
      TToken_string& row = ps.row(i);
      row.add(abi, pos);
      row.add(cab, pos+1);
    }
    ps.force_update();
  }
  
  return TRUE;
}

TPagamento& TFattura_mask::set_pagamento(const char* cod, const char* dat)
{
  if (_pag != NULL) delete _pag;
  _pag = new TPagamento(cod, dat);
  return *_pag;
}

void TFattura_mask::set_totale_pagamento(bool update)
{
  TPagamento& pag = pagamento();        
  
  const real imposta    = get_real(E_IMPOSTE); 
  const real imponibile = get_real(E_TOTALE) - imposta;
  const real spese      = ZERO;        
  
  const TValuta cambio(*this, E_VALUTA, E_DATACAMBIO, E_CAMBIO); 
  if (cambio.in_valuta())
  { 
    const real imposval = cambio.lit2val(imposta);
    const real imponval = get_real(E_TOTDOCVAL) - imposval;   
    pag.set_total_valuta(imponval, imposval, spese, cambio.cambio(), 
                         imponibile, imposta, spese);
  }
  else
  {
    pag.set_total(imponibile, imposta, spese);
  }  
  
  if (update)
    pag2sheet();
}


bool TFattura_mask::read_scadenze()
{                                                                  
  TRelation rel(LF_PARTITE);
  rel.curr() = _fattura;
  autoload(&rel);

  // Determino il codice pagamento dalla riga di fattura  
  TString codpag;                           
  if (_fattura.rate() > 0)
  {
    const TRiga_scadenze& primarata = _fattura.rata(1);
    codpag = primarata.get(SCAD_CODPAG);
    set(E_CODPAG, codpag);
  }  
  
  TPagamento& pag = set_pagamento(codpag, get(E_DATADOC));
  
  const bool in_valuta = _fattura.in_valuta();
  set_totale_pagamento(FALSE);

  TSheet_field& ps = (TSheet_field&)field(FS_RATESHEET);
  
  const int protette = _fattura.ultima_rata_con_abbuoni_diffcam();
      
  pag.zap_rate();                              // Azzera pagamento
  for (int i = 1; i <= _fattura.rate(); i++)   // E' necessario andare in avanti!!!
  { 
    const TRiga_scadenze& scadenza = _fattura.rata(i);
    real  importo       = scadenza.get(SCAD_IMPORTO); 
    const TDate scad    = scadenza.get(SCAD_DATASCAD);
    const int tipop     = scadenza.get_int(SCAD_TIPOPAG);     
    const bool prot     = i <= protette;       // Non cancellabile
    const TString16 ulc = scadenza.get(SCAD_ULTCLASS);                       
    if (in_valuta)
    {                                                        
      const real impval(scadenza.get(SCAD_IMPORTOVAL));
      pag.set_rata(i-1, impval, importo, scad, tipop, ulc, prot);
    }
    else
      pag.set_rata(i-1, ZERO, importo, scad, tipop, ulc, prot);
        
    TToken_string& str = ps.row(i-1);
    str.add(scadenza.get(SCAD_CODABIPR), 7);
    str.add(scadenza.get(SCAD_CODCABPR), 8);
    str.add(scadenza.get(SCAD_CODABI),   9);
    str.add(scadenza.get(SCAD_CODCAB),   10);    
    if (i == 1)
    {
      set(FS_NSABI, str.get(7));
      set(FS_NSCAB, str.get(8));
      set(FS_VSABI, str.get(9));
      set(FS_VSCAB, str.get(10));
      set(FS_AGENTE, scadenza.get(SCAD_CODAG));
    }    
    str.add(scadenza.get(SCAD_DESCR),    11);    
    str.add(scadenza.get(SCAD_BLOCCATA), 12);    
    str.add(prot ? "X" : " ",            13);    
  } 
  pag2sheet();

  set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
  set(FS_NAMEPAG, pag.name());
  set(FS_TIPOPR,  pag.desc_tpr());
  set(FS_MCOMM,   pag.mese_commerciale() ? "X" : "", TRUE);
  set(FS_RECALC,  insert_mode() ? "X" : "", TRUE);
  set(FS_NRATE,   pag.n_rate());
  
  return TRUE;
}

void TFattura_mask::set_scadenze()
{                                                                  
  const TString cp(get(E_CODPAG));
  const TString dt(get(E_DATADOC));
  set_pagamento(cp, dt);   
  set_totale_pagamento(FALSE);
  
  TPagamento& pag = pagamento();
  if (field(FS_RECALC).enabled())
  {
    set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
    set(FS_NAMEPAG, pag.name());
    set(FS_TIPOPR,  pag.desc_tpr());
    set(FS_MCOMM,   pag.mese_commerciale() ? "X" : "");
    set(FS_RECALC,  insert_mode() ? "X" : "", TRUE);
    set(FS_NRATE,   pag.n_rate());
  }

  pag.set_rate_auto();          
  pag2sheet();
}

bool TFattura_mask::tipopag_handler(TMask_field& f, KEY key)
{
  if ((key == K_TAB || key == K_ENTER) && f.dirty())
  {                
    TFattura_mask& m = (TFattura_mask&)f.mask();
    int t = m.get_int(105); 
    if (t <= 0)
    {
      t = 1;  
      f.set("1");
    }
    const char u = m.get(106)[0];
    const TPagamento& pag = m.pagamento();  
    bool ok;
    const char* s = pag.desc_tipo(t, u, &ok);  
    if (!ok) m.reset(106);
    m.set(107, s);
  }
  
  return TRUE;
}


void TFattura_mask::write_scadenze() const
{                    
  const TBill conto(_fattura);          // Conto cliente/fornitore della partita
  const int anno = get_int(E_ANNORIF);  // Anno di riferimento
  const TString numpart(get(E_NUMRIF)); // Numero di riferimento
  
  TPartita* oldgame = &_fattura.partita();;
  int vecchia_riga = _fattura.get_int(PART_NRIGA);
  if (insert_mode())
  {
    oldgame->rimuovi_riga(vecchia_riga); // Elimina riga creata provvisoriamente 
    oldgame = NULL;                      // Annulla vecchia partita
    vecchia_riga = 0;                    // Annulla vecchio numero riga fattura
  }

  TPartita* newgame = NULL;
  int nuova_riga = 0;  

  if (anno > 0 && !numpart.blank())      // In realta' e' sempre cosi' nell'extra-contabile
  {
    // Campi invarianti per ogni rata
    const TString codpag(get(E_CODPAG));
    const TValuta cambio(*this, E_VALUTA, E_DATACAMBIO, E_CAMBIO); 
    const TString agente(get(FS_AGENTE)); 
    
    newgame = new TPartita(conto, anno, numpart);
  
    TRiga_partite& partita = (oldgame != NULL && *newgame == *oldgame) ? 
                             newgame->riga(vecchia_riga) : newgame->new_row();
    nuova_riga = partita.get_int(PART_NRIGA);
    
    TPagamento& pag = pagamento();                      
                          
    // put data on partita
    partita.put(PART_TIPOMOV,   (int)tm_fattura);
    partita.put(PART_NUMRIG,    0);
    partita.put(PART_DATAREG,   get(E_DATAREG)); 
    partita.put(PART_DATADOC,   get(E_DATADOC));
    partita.put(PART_NUMDOC,    get(E_NUMDOC));
    partita.put(PART_DESCR,     get(E_DESCR));
    partita.put(PART_SEZ,       get(E_SEZIONE));        
    partita.put(PART_IMPTOTDOC, get(E_TOTALE));
    partita.put(PART_IMPTOTVAL, get(E_TOTDOCVAL));
    
    cambio.put(partita);
    const bool in_valuta = cambio.in_valuta();

    TSheet_field& ps = (TSheet_field&)field(FS_RATESHEET);
    partita.elimina_rata(-1);                    // Elimina tutte le rate eventuali
    
    real imponibile, imponibile_val;   
    for (int i = 0; i < ps.items(); i++)
    {    
      TToken_string& row = ps.row(i);
      
      TRiga_scadenze& scadenza = partita.new_row(); 

      scadenza.put(SCAD_CODPAG,     codpag);     // Codice pagamento
      scadenza.put(SCAD_CODAG,      agente);     // Codice agente

      scadenza.put(SCAD_DATASCAD,   row.get(0)); // 0 = Data scadenza
      
      const real imp = row.get();     imponibile += imp;
      const real imp_val = row.get(); imponibile_val += imp_val;
      
      scadenza.put(SCAD_IMPORTO,    imp);        // 1 = Importo
      scadenza.put(SCAD_IMPORTOVAL, imp_val);    // 2 = Importo in valuta

      row.get();                                 // 3 = Percentuale
      scadenza.put(SCAD_TIPOPAG,    row.get());  // 4 = Tipo pagamento
      scadenza.put(SCAD_ULTCLASS,   row.get());  // 5 = Ulteriore classificazione
      row.get();                                 // 6 = Descrizione pagamento
      scadenza.put(SCAD_CODABIPR,   row.get());  // 7 = Ns ABI  
      scadenza.put(SCAD_CODCABPR,   row.get());  // 8 = Ns CAB  
      scadenza.put(SCAD_CODABI,     row.get());  // 9 = Vs ABI  
      scadenza.put(SCAD_CODCAB,     row.get());  //10 = Vs CAB 
      scadenza.put(SCAD_DESCR,      row.get());  //11 = Note  
      scadenza.put(SCAD_BLOCCATA,   row.get());  //12 = Non pagabile  
    }
    
    partita.put(PART_IMPORTO, imponibile);
    partita.put(PART_IMPORTOVAL, imponibile_val);
    partita.put(PART_IMPOSTA, get(E_IMPOSTE));
    partita.put(PART_SPESE, get(FS_SPESE));
  }
  
  if (oldgame != NULL)
  {
    if (newgame == NULL || *oldgame != *newgame)
    {        
      bool sposta = newgame != NULL;
      if (sposta)
      {                   
        sposta = yesno_box("Si desidera spostare la fattura ed i "
                           "pagamenti relativi nella nuova partita?");
      }  
      if (sposta)                        
      {
        oldgame->sposta_riga(vecchia_riga, *newgame, nuova_riga);
      }  
      else  
      {
        oldgame->scollega_pagamenti(vecchia_riga);
        oldgame->rimuovi_riga(vecchia_riga);
      }  
    }
    else
    {     
      oldgame->sposta_riga(vecchia_riga, *newgame, nuova_riga);
    }
    oldgame->rewrite();
  }    

  if (newgame != NULL)               // Se non ho cancellato il numero partita ...
  {
    app().partite().insert(newgame); // Aggiungi nuova partita
    newgame->write(edit_mode());
  }  
}


///////////////////////////////////////////////////////////
// Addendum alla maschera gestione partite
///////////////////////////////////////////////////////////

bool TPay_mask::descr_handler(TMask_field& f, KEY k)
{
  if (k == K_TAB && f.focusdirty())
  {
    const short id = f.dlg() == E_DESCR ? S_DESCAGG : E_DESCR;
    f.mask().set(id, f.get());
  }
  return TRUE;
}

bool TGame_mask::edit_fattura(TPartita& p, int nriga)
{                                       
  const bool nuova = nriga <= 0;          
  if (nuova)
    nriga = nuova_riga(p, tm_fattura);
  
  TRiga_partite& f = p.riga(nriga);
  TFattura_mask fm(f);
  const KEY k = fm.run();
  
  bool update = FALSE;
  if (k == K_ENTER)  
  {
    update = TRUE;
  }
  else
  {
    if (nuova || k == K_DEL)
    {
      p.rimuovi_riga(nriga);
      update = !nuova;
    }  
  }  
  if (update)
    fm.write_scadenze();
  
  return update;
}              

bool TGame_mask::prima_nota(const long nreg)
{   
  bool ok = TRUE;
  if (_changed)
  {
    ok = yesno_box("Registrare le parite modificate?");
    if (ok)
    {
      app().partite().rewrite(); 
      _changed = FALSE;             // Resetta flag di cambiato
    }  
  }
  if (ok)
  {
    app().partite().destroy();       // Distrugge tutte le partite in memoria

    const char* const pn = "cg2 -0";
    TExternal_app prima_nota(pn);
    TString numreg; numreg << "1|" << nreg;
    TMessage msg(pn, MSG_LN, numreg);
    msg.send();                      // Messaggio di collegamento al movimento nreg
    ok = prima_nota.run() == 0;      // Lancia la prima nota

    fill_partite();                  // Rilegge partite
  }
  
  return ok;
}

///////////////////////////////////////////////////////////
// Handlers prima pagina
///////////////////////////////////////////////////////////

HIDDEN bool is_fattura(TMask& m)
{
  const tipo_movimento tm = (tipo_movimento)m.get_int(E_TIPOMOV);
  return tm == tm_fattura;
}
HIDDEN void update_rate(TMask& m)
{           
  CHECK(is_fattura(m), "Non e' una maschera di fattura!");
  if (m.insert_mode())
  {
    TFattura_mask& fm = (TFattura_mask&)m;
    fm.set_scadenze();
  }
}

bool TSaldaconto_app::totale_handler(TMask_field& f, KEY k)
{
  bool ok = TRUE;
  TMask& m = f.mask();
  const bool is_fatt = is_fattura(m);
  
  if (k == K_F8)
  {            
    if (is_fatt)
    {
      TFattura_mask& fm = (TFattura_mask&)m;
      f.set(fm.totale_rate(FALSE).string());
    }
    else
      f.set(m.get(S_IMPORTO));
    k = K_TAB;
  }

  if (k == K_TAB && f.focusdirty())
  { 
    app().gioca_cambi(m);
    if (is_fatt)
    {
      update_rate(m);
      real tot(f.get());
      tot -= m.get_real(E_IMPOSTE);
      m.set(FS_IMPONIBILI, tot);
    }  
  }
  
  if (k == K_ENTER)
  {
    const real totale(f.get());
    if (totale.is_zero())
      ok = yesno_box("Totale documento nullo: continuare ugualmente?");
    
    if (ok)
    {
      const TValuta cambio(m, E_VALUTA, E_DATACAMBIO, E_CAMBIO);
      if (cambio.in_valuta())
      {
        const real totval(m.get(E_TOTDOCVAL));
        const real totlit = cambio.val2lit(totval);
        if (totale != totlit)
          ok = yesno_box("Il totale documento in lire dovrebbe essere %s: continuare ugualmente?",
                         totlit.string("."));
      }  
    }  
    
    if (ok && !is_fatt)
    {
      const real totdoc(f.get());
      const real imppag(m.get(S_IMPORTO));
      if (totdoc < imppag)
      {
        TString msg(80);
        msg << "Il totale del documento deve essere maggiore dell'importo pagato "
            << imppag.string(".");
        if (m.edit_mode())
        {
          msg << "\nSi desidera continuare ugualmente?";
          ok = f.yesno_box(msg);
        }
        else
          ok = f.error_box(msg);
      }
    }
  }    
  
  return ok;
}

bool TSaldaconto_app::imposte_handler(TMask_field& f, KEY key)
{
  if (key == K_TAB && f.focusdirty())
  { 
    TMask& m = f.mask();      
    if (is_fattura(m))
    {
      update_rate(m);
      m.set(FS_IMPOSTE, f.get());
    }
  }  
  return TRUE;  
}

bool TSaldaconto_app::totval_handler(TMask_field& f, KEY key)
{   
  bool ok = TRUE;
  TMask& m = f.mask(); 
  const bool is_fatt = is_fattura(m);
             
  if (key == K_F8)           
  {
    if (is_fatt)
    {
      TFattura_mask& fm = (TFattura_mask&)m;
      f.set(fm.totale_rate(TRUE).string());
    }
    else
      f.set(m.get(S_IMPORTOVAL));
  }
  
  if (key == K_TAB && f.focusdirty())
  {  
    app().gioca_cambi(m, m.insert_mode() ? 0x1 : 0x0);
    if (is_fatt)
      update_rate(m);
  }
  
  if (key == K_ENTER && !is_fatt)
  {
    const real totdoc(f.get());
    const real imppag(m.get(S_IMPORTOVAL));
    if (totdoc < imppag)
    {
      TString msg(80);
      msg << "Il totale del documento in valuta " << m.get(E_VALUTA)
          << " deve essere maggiore dell'importo pagato " << imppag.string(".3");
      if (m.edit_mode())
      {
        msg << "\nSi desidera continuare ugualmente?";
        ok = f.yesno_box(msg);
      }
      else
        ok = f.error_box(msg);
    }
  }
  
  return ok;
}

bool TSaldaconto_app::valuta_handler(TMask_field& f, KEY k)
{
  if (k == K_TAB && f.to_check(k, TRUE))
  {           
    TMask& m = f.mask();
    const TString val = f.get();
    const bool full = val.not_empty();
    
    if (full)
    {   
      TMask_field& dc = m.field(E_DATACAMBIO);
      if (dc.get().empty())      // Inizializza data cambio se assente
        dc.set(m.get(E_DATADOC));
      if (f.focusdirty())
      {
        dc.set_dirty(); 
        dc.check(RUNNING_CHECK); // Forza ricerca cambio
        dc.on_hit();             // Forza messaggi (eventuale copia a pag. 2)
      }  
    }
    else
    {
      m.set(E_CAMBIO, "", TRUE); 
      m.set(E_TOTDOCVAL, "", TRUE);
    }  
    m.enable(E_CAMBIO, full); 
    m.enable(E_TOTDOCVAL, full);
    
    if (is_fattura(m))                
      m.set(FS_VALUTA, val);      // Copia a pagina 2
  }
  return TRUE;
}

bool TSaldaconto_app::datacambio_handler(TMask_field& f, KEY key)
{
  if (key == K_TAB && f.to_check(key, TRUE))
  {                          
    TMask& m = f.mask();             
    if (is_fattura(m))                
      m.set(FS_DATACAMBIO, f.get());      // Copia a pagina 2
  }
  return TRUE;
}

bool TSaldaconto_app::cambio_handler(TMask_field& f, KEY key)
{
  if (key == K_TAB && f.to_check(key, TRUE))
  {                   
    TMask& m = f.mask();
    bool update = is_fattura(m);         // Devo ricopiarmi a pagina 2?
    if (f.focusdirty())
    {                                                       
      // Forza il ricalcolo del totale in lire se necessario
      app().gioca_cambi(m, m.insert_mode() ? 0x1 : 0x0);  
    }  
    else
      update &= !m.is_running();
    
    if (update)
      m.set(FS_CAMBIO, f.get());            // Copia a pagina 3
  }
  return TRUE;
}

///////////////////////////////////////////////////////////
// Gestione partite extra-contabili
///////////////////////////////////////////////////////////

void TSaldaconto_app::edit_partite(const TMask& m)
{                                           
  const char t = m.get(F_TIPO)[0];
  const int g  = m.get_int(F_GRUPPO);
  const int c  = m.get_int(F_CONTO);
  const long s = m.get_long(F_SOTTOCONTO);
  const TBill b(g, c, s, t);  // Legge il conto della riga selezionata
  TGame_mask gm(b, 0, 0);                
  gm.run();
  partite().destroy();        // Azzera memoria        
}