campo-sirio/cg/cg4302.cpp

// -------------------------------------------------------------
// calcolo liquidazioni
// part 3: utilities
// fv 2-2-94
// --------------------------------------------------------------

#include <config.h>
#include <utility.h>
#include <lffiles.h>

#include "cg4300.h"

bool TLiquidazione_app::is_trim(int x) 
  // TRUE se il mese passato e' un trimestre
{ return x == 3 || x == 6 || x == 9 || x == 12; }

bool TLiquidazione_app::is_month_ok_strict(int x, int month)
  // TRUE se il mese passato e' compatibile con il regime
  // di liquidazione e (opz) non e' maggiore di quello scelto
{ 
  if (month == -1) month = x;
  return _freqviva == "M" ? 
    ( x > 0 && x <= month) :
  ( x <= month && is_trim(x));
} 

bool TLiquidazione_app::is_month_ok(int x, int mtocalc)
  // TRUE se il mese passato e' compatibile con il mese da calcolare
  // rispetto al regime di liquidazione scelto
{ 
  bool ret = x == mtocalc;
  if (!ret && _freqviva == "T" && mtocalc != 13)
  {  
    // aggiusta al trimestre il mese da calcolare
    mtocalc += 2 - ((mtocalc-1) % 3);   
    ret = x > (mtocalc - 3) && x <= mtocalc; 
  }
  else if (!ret && mtocalc == 13)
  {               
    // per l'annuale ritorna TRUE per tutti i mesi da liquidare
    ret =  x <= 13;
  }      
  return ret;
} 

int TLiquidazione_app::liq_month(int x)
  // ritorna il mese da liquidare (= LIM presente)
  //  che corrisponde al mese passato
{         
  if (x == 13 || _freqviva == "M") 
    return x;
  else return x + (2 - ((x-1) % 3));
}

bool TLiquidazione_app::is_first_month(int m)
{
  return _freqviva == "M" ? 
    m == 1 : m == 3;
}

int TLiquidazione_app::previous_month(int m)
{
  // vale per LIM (mese o trimestre precedente)
  if (_freqviva == "M")
    return m == 1 ? 1 : m - 1;
  else return m == 3 ? 3 : m - 3;
}

bool TLiquidazione_app::is_date_ok(TDate& d, int month)
  // TRUE se la data (di mov o pim) passata va considerata nel
  // ricalcolo dei progressivi mensili per il mese e anno
  // selezionati; se month == 13 vanno bene tutte purche'
  // sia giusto l'anno
{
  if (d.month() > month || d.year() != atoi(_year))
    return FALSE;
  if (month == 13) return d.month() <= month;
  else             return d.month() == month;
}


void TLiquidazione_app::add_ventilation(real iva, real howmuch,  
                                        const char* codiva, const char* other)
{
  _VentItem* vi = NULL;
  for (int i = 0; i < _vent_arr.items(); i++)
  {
    vi = (_VentItem*)&_vent_arr[i];
    if (vi->_codiva == codiva)
      break;
  }
  if (i == _vent_arr.items())
  {
    _vent_arr.add(vi = new _VentItem);
    vi->_aliquota    = iva;
    vi->_codiva      = codiva;
    vi->_other       = other;
  }
  vi->_totale += howmuch;
}

void TLiquidazione_app::add_vendite(int month, const char* codreg, 
                                    int tipodet, real& r)
{
  _VendItem* vi = NULL;
  
  for (int i = 0; i < _vend_arr.items(); i++)
  {
    vi = (_VendItem*)&_vend_arr[i];
    if (vi->_codreg == codreg && vi->_month == month && vi->_tipodet == tipodet)
      break;
  }
  if (i == _vend_arr.items())
  {
    _vend_arr.add(vi = new _VendItem);
    vi->_codreg      = codreg;
    vi->_month       = month;
    vi->_tipodet     = tipodet;
  }
  vi->_totale += r;
}

void TLiquidazione_app::add_corrisp(int month, const char* codreg, real& r,
                                    real& p, int tipodet, const char * codiva)
{
  _CorrItem* ci = NULL;
  const int nitems = _corr_arr.items();
  
  for (int i = 0; i < nitems; i++)
  {
    ci = (_CorrItem*)&_corr_arr[i];
    if (ci->_codreg == codreg && ci->_month == month &&
        ci->_codiva == codiva && ci->_tipodet == tipodet)
      break;
  }
  if (i == nitems)
  {
    _corr_arr.add(ci = new _CorrItem);
    ci->_codreg      = codreg;
    ci->_month       = month;
    ci->_codiva      = codiva;
    ci->_tipodet     = tipodet;
    ci->_aliquota    = p;
  }
  ci->_totale += r;
}


bool TLiquidazione_app::look_pim(int month, const char* codatt, const char* codreg, 
                                 const char* tipocr, const char* codiva, int tipodet,  
                                 bool create)
  // ritorna il PIM corrispondente alla chiave passata; se 
  // create = TRUE lo crea se non lo trova. Ritorna se c'era
{
  bool ok = FALSE;
  _pim_r->zero();
  (*_pim_anno)    = _year;
  (*_pim_mese)    = format("%02d", month);
  (*_pim_codreg)  = codreg;
  (*_pim_codiva)  = codiva;
  (*_pim_codatt)  = codatt;
  (*_pim_tipocr)  = tipocr;
  (*_pim_tipodet) = tipodet;
  
  TString s = _pim_r->get("CODTAB"); 
  
  _pim->read();
  ok = _pim->good();
  
  if (!ok && create)
  {
    _pim_r->zero();
    _pim_r->put("CODTAB",s);
    _pim->write();
  }
  return ok;
}

bool TLiquidazione_app::look_plm(int m, const char* a, bool create)
{
  bool ok = FALSE;

  _plm_r->zero();
  (*_plm_codatt) = format("%06ld", atol(a));
  (*_plm_mese)   = format("%02d",m);
  (*_plm_anno)   = _year;

  TString s = _plm_r->get("CODTAB");
  _plm->read();
  ok = _plm->good();
  
  if (!ok && create)
  {
    _plm_r->zero();
    _plm_r->put("CODTAB",s);
    _plm->write();
  }  
  // crea/posiziona tabelle gemelle PAM, PUM, POM
  look_pam(m,a,!ok);
  look_pum(m,a,!ok);    
  look_pom(m,a,!ok);    
  return ok;
}

bool TLiquidazione_app::look_pum(int m, const char* a, bool create)
{
  bool ok = FALSE;

  _pum->zero();
  (*_pum_codatt) = format("%06ld", atol(a));
  (*_pum_mese)   = format("%02d",m);
  (*_pum_anno)   = _year;

  TString s = _pum->get("CODTAB");
  _pum->read();
  ok = _pum->good();
  
  if (!ok && create)
  {
    _pum->zero();
    _pum->put("CODTAB",s);
    _pum->write();
  }
  return ok;
}

bool TLiquidazione_app::look_pom(int m, const char* a, bool create)
{
  bool ok = FALSE;

  _pom->zero();
  (*_pom_codatt) = format("%06ld", atol(a));
  (*_pom_mese)   = format("%02d",m);
  (*_pom_anno)   = _year;

  TString s = _pom->get("CODTAB");
  _pom->read();
  ok = _pom->good();
  
  if (!ok && create)
  {
    _pom->zero();
    _pom->put("CODTAB",s);
    _pom->write();
  }
  return ok;
}

bool TLiquidazione_app::look_pam(int m, const char* a, bool create)
{
  bool ok = FALSE;

  _pam->zero();
  (*_pam_codatt) = format("%06ld", atol(a));
  (*_pam_mese)   = format("%02d",m);
  (*_pam_anno)   = _year;

  TString s = _pam->get("CODTAB");
  _pam->read();
  ok = _pam->good();
  
  if (!ok && create)
  {
    _pam->zero();
    _pam->put("CODTAB",s);
    _pam->write();
  }
  return ok;
}

bool TLiquidazione_app::look_lim(int m, bool create)
{
  bool ok = FALSE;

  _lim_r->zero();
  (*_lim_mese)   = format("%02d",m);
  (*_lim_anno)   = _year;

  TString s = _lim_r->get("CODTAB");
  _lim->read();
  ok = _lim->good();
  
  if (!ok && create)
  {
    _lim_r->zero();
    _lim_r->put("CODTAB",s);
    _lim->write(); 
  }

  // crea o posiziona la tabella gemella LAM
  look_lam(m, !ok);   
  
  return ok;
}

bool TLiquidazione_app::look_lam(int m, bool create)
{
  bool ok = FALSE;

  _lam_r->zero();
  (*_lam_mese)   = format("%02d",m);
  (*_lam_anno)   = _year;

  TString s = _lam_r->get("CODTAB");
  _lam->read();
  ok = _lam->good();
  
  if (!ok && create)
  {
    _lam_r->zero();
    _lam_r->put("CODTAB",s);
    _lam->write();
  }
  return ok;
}

bool TLiquidazione_app::look_pla(const char* a, bool create)
{
  bool ok = FALSE;                  
  _pla_r->zero();

  // forza il tipoatt a 1
  char buf[10]; strcpy(buf,a);
  buf[strlen(buf) - 1] = '1';
  
  (*_pla_ditta)  = format("%05ld", get_firm());
  (*_pla_anno)   = _year;
  (*_pla_codatt) = format("%06ld", atol(buf));

  TString16 s = _pla_r->get("CODTAB");
  _pla->read();
  ok = _pla->good();
  
  if (!ok && create)
  {
    real es_b1, es_b2, es_b3, prorata;
    // alla creazione del PLA
    // si prendono i valori di prorata e plafond dall'anno scorso       
    _pla_r->zero();
    (*_pla_ditta)  = format("%05ld", get_firm());
    (*_pla_anno)   = atoi(_year) - 1;
    (*_pla_codatt) = format("%06ld", atol(buf));
    if (_pla->read() == NOERR)
    {
      es_b1 = _pla->get_real("R1");
      es_b2 = _pla->get_real("R2");
      es_b3 = _pla->get_real("R3");
      es_b1 = _pla->get_real("R9");
    }
    _pla->zero();
    _pla_r->put("CODTAB",s);
    _pla->put("R5",es_b1);
    _pla->put("R6",es_b2);
    _pla->put("R7",es_b3);
    _pla->put("R8",prorata);
    _pla->write();
  }
  return ok;
}

bool TLiquidazione_app::look_reg(const char* reg)
{
  _reg_r->zero();
  TString s(12); s << _year; s << format("%-3s",reg);
  _reg_r->put("CODTAB",(const char*)s);
  _reg->read();
  return _reg->good();
}

bool TLiquidazione_app::look_iva(const char* cod)
{
  _iva->zero();
  _iva->put("CODTAB",cod);
  _iva->read();
  return _iva->good();
}

bool TLiquidazione_app::look_ppa(int month, const char* codatt, int type, bool create)
{
  _ppa->zero();
  (*_ppa_year)   = _year;
  (*_ppa_month)  = format("%02d",month);
  (*_ppa_codatt) = format("%06ld", atol(codatt));
  (*_ppa_kind)   = type;
  TString ctab   = _ppa_r->get("CODTAB");
  _ppa->read();

  bool ok = _ppa->good();
  
  if (!ok && create)
  {
    _ppa_r->zero();
    _ppa_r->put("CODTAB",ctab);
    _ppa->write();
  }
  return ok;
}

bool TLiquidazione_app::look_rmb(int month, const char* codiva, tiporeg tr, bool create)
{
  _rmb->zero();
  (*_rmb_anno)   = _year;
  (*_rmb_mese)  = format("%02d",month);
  (*_rmb_codiva) = codiva;
  (*_rmb_tiporeg) = (int)tr;
  TString ctab   = _rmb->get("CODTAB");
  _rmb->read();

  bool ok = _rmb->good();
  
  if (!ok && create)
  {
    _rmb->zero();
    _rmb->put("CODTAB",ctab);
    _rmb->write();
  }
  return ok;
}

bool TLiquidazione_app::look_del(int month, int type, bool create)
{
  long ditta = _nditte->curr().get_long("CODDITTA");
  _del->zero();
  (*_del_ditta)  = format("%05ld", ditta);
  (*_del_anno)   = _year;
  (*_del_mese)   = format("%02d", month);
  (*_del_tipo)   = format("%1d",  type);     
  
  TString16 ctab = _del->get("CODTAB");
  _del->read();

  bool ok = _del->good();

  if (!ok && create)
  {
    _del->zero();
    _del->put("CODTAB",ctab);

    // codici ABI e CAB da anagrafica ditte
    TString abi = _nditte->lfile().get("ABIBAN");
    TString cab = _nditte->lfile().get("CABBAN");    
    _del->put("S7", abi);
    _del->put("S8", cab);                                  

    // descrizione banca
    TTable ban("%BAN");
    ban.zero();
    TString codban = format("%05ld", atol(abi));
    if (!cab.empty()) codban << format("%05ld", atol(cab)); 
    ban.put("CODTAB", codban);
    if (ban.read() != NOERR)
    {                          
      TString desban(ban.get("S0"));
      _del->put("S1", desban);
    }

    // infila ufficio concessione in S9
    // e descrizione comune in S2
    TString16 con; TString uva;
    if (look_conc(con, uva))
    {
      _del->put("S9", con);
      _del->put("S2", uva);
    }

    // scrive codice tributo
    int ctri = 6000;
    if (month == 13 && type == 7) 
      ctri = 6035;           // acconto IVA annuale (trimestrali?)
    else if (month == 13 && type == 1)
      ctri = 6099;           // IVA annuale
    else if (month < 13 && type == 7)
      ctri = 6013;           // acconto mensile
    else if (month < 13 && type == 1)  // regular
      ctri = _freqviva == "M" ? 6000 + month : 6030 + (month/3); 
    
    _del->put("S6", format("%d",ctri));
    _del->write();    
  }
  return ok;
}

bool TLiquidazione_app::look_lia(long ditta, bool create, int year)
{
  if (year == 0) year = atoi(_year);      
  if (ditta == 0l) ditta = get_firm();
  TString16 y; y.format("%05ld%04d", ditta, year);
  
  _lia->zero();
  _lia->put("CODTAB", y);
  _lia->read();
  const bool ok = _lia->good();
  if (!ok && create)
  {
    _lia->zero();
    _lia->put("CODTAB", y);
    _lia->put("S7", _freqviva);
    _lia->write();
  }
  return ok;
}

real TLiquidazione_app::result_liq(int month)
  // risultato esatto della liquidazione del mese month, <0 a credito
  // > 0 a debito; comprende TUTTI, anche il conguaglio prorata in annuale
{  
  real r(0.0);                               
  // ulteriori detrazioni, acconti, versamenti,
  // rettifiche, conguagli sono gia' compresi in R0
  if (look_lim(month))
    r = _lim->get_real("R0");
  return r;
}                                           


real TLiquidazione_app::debt_prec(int month)
{
  real r(0.0);
  if (!is_first_month(month))
  {
    if (look_lim(previous_month(month)))
    {
      r = result_liq(previous_month(month));
      if (!(r.sign() > 0 && r < IVA_DA_RIPORTARE))
        r = ZERO;
    }
  } 
  return r;
}


real TLiquidazione_app::credito_prec(int month)
  // ritorna l'appropriato credito precedente al mese in corso
{
  real c(0.0);

  if (is_first_month(month))
  {
    // credito inizio anno
    if (look_lia()) 
      c = _lia->get_real("R0");
    // e' positivo o 0
  }
else
{
  c = result_liq(previous_month(month)); 
  if (c.sign() < 0) c = abs(c); 
  else c = real(0.0);
}

return c;
}

real TLiquidazione_app::credito_costo_prec(int month)
  // ritorna l'appropriato credito di costo precedente al mese in corso
  // (travel agency only)
{
  real c(0.0);
  if (is_first_month(month))
  {
    int yr = atoi(_year)-1;
    _lim->zero();
    *_lim_anno = yr;
    *_lim_mese = 12;
    if (_lim->read() == NOERR) 
      c = _lim->get_real("R2");
  }
  else
  {
    if (look_lim(previous_month(month)))
      // qui il rimborso non c'e'
      c = _lim->get_real("R2");
  }
  look_lim(month);
  return c;
}


real TLiquidazione_app::versamenti_IVA(int month, const char* types, bool intr)
{ 
  real ret(0.0); TToken_string typ(types);

  for (int i = 0; i < typ.items(); i++)
  {                      
    int tp = typ.get_int(i);
    if (look_del(month,tp)) 
      if (_del->get_bool("B0") || _is_visliq)   // solo se stampata, a meno
        // che non sia per visliq
      {
        ret += _del->get_real("R0"); 
        if (intr) ret += _del->get_real("R1");   
      }
  }
  return ret;
}

real TLiquidazione_app::aliquota_agvia()
{
  TConfig cnf(CONFIG_STUDIO);
  look_iva(cnf.get("CodAgv"));
  real r = _iva->get_real("R0");
  return r;
}


real TLiquidazione_app::interesse_trimestrale(int month)
{
  month /= 3; month--;
  TConfig cnf(CONFIG_STUDIO);
  real r(cnf.get("InTr", NULL, month));
  return r;
}


bool TLiquidazione_app::look_conc(TString& uffcon, TString& uffiva)
{                       
  // piazza nelle TString passate: l'ufficio concessioni
  // l'ufficio IVA. Quest'ultimo e' preso dall'anagrafica se
  // c'e', dal comune (primo non vuoto) se non
  
  // Assume _nditte correctly positioned
  TString codana(_nditte->lfile().get("TIPOA"));
  TString ana(_nditte->lfile().get("CODANAGR"));
  // look anagrafica
  TLocalisamfile anagr(LF_ANAG);
  anagr.zero(); 
  anagr.put("TIPOA", ana);           
  anagr.put("CODANAGR", codana); 
  if (anagr.read() != NOERR) return FALSE;
  
  // becca comune residenza fiscale
  TString com(anagr.get("COMRF")); 
  // se non c'e', residenza
  if (com.empty())
    com = anagr.get("COMRIF");
  
  if (com.empty()) return FALSE;
  
  // becca comune
  TLocalisamfile comuni(LF_COMUNI);
  comuni.zero();      // STATO = "" ovvero ITAGLIA
  comuni.put("COM", com);
  if (comuni.read() != NOERR) return FALSE;
  
  uffcon = comuni.get("UFFCONC");
  uffiva = comuni.get("DENCOM");  
  if (!comuni.get("PROVCOM").empty())
    uffiva << " (" << comuni.get("PROVCOM") << ")";  
  
  return TRUE;
}