root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/fe/felib.cpp
guy 5f618c9efe Migliorata gestione TAnagrafica 
git-svn-id: svn://10.65.10.50/branches/R_10_00@23180 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-02-25 11:34:34 +00:00

1065 lines
28 KiB
C++
Raw Blame History

#include <diction.h>
#include <recarray.h>
#include <mask.h>
#include <validate.h>
#include "fe0100a.h"
#include "felib.h"
#include "../cg/cg2103.h"
#include <alleg.h>
#include <anafis.h>
#include <anagr.h>
#include <attiv.h>
#include <clifo.h>
#include <comuni.h>
#include <doc.h>
#include <effetti.h>
#include <mov.h>
#include <nditte.h>
#include <occas.h>
///////////////////////////////////////////////////////////
// Utility
///////////////////////////////////////////////////////////
bool fe_is_nota_variazione(const TRectype& mov)
{
const int logicnum = mov.num();
if (logicnum == LF_MOV)
{
const real totdoc = mov.get_real(MOV_TOTDOC);
if (totdoc < ZERO)
return true;
const int tipomov = mov.get_int(MOV_TIPOMOV);
if (tipomov == 2) // Nota di credito/debito per saldaconto
return true;
if (tipomov <= 1)
{
const TString& tipodoc = mov.get(MOV_TIPODOC);
if (tipodoc == "NC" || tipodoc == "ND") // Nota di credito/debito senza saldaconto
return true;
}
} else
if (logicnum == LF_ALLEG)
{
const TString& tipo = mov.get(ALL_TIPOPE);
if (tipo.len() == 2 && tipo != "BL")
return tipo == "NE" || tipo == "NR";
const real importo = mov.get_real(ALL_IMPORTO);
const real imposta = mov.get_real(ALL_IMPOSTA);
if (importo < ZERO || (importo.is_zero() && imposta < ZERO))
return true;
const long numreg = mov.get_long(ALL_PROGR);
if (numreg < 900000L)
{
const TRectype& pn = cache().get(LF_MOV, numreg);
if (!pn.empty())
return fe_is_nota_variazione(pn);
}
} else
if (logicnum == LF_DOC)
{
const TString& tipodoc = mov.get(DOC_TIPODOC);
const TRectype& td = cache().get("%TIP", tipodoc);
bool yes = td.get_bool("B7");
if (!yes)
{
const TString4 codcaus(td.get("S6"));
if (codcaus.full())
{
const TCausale c(codcaus, mov.get_int(DOC_ANNO));
const char sez = c.sezione_clifo();
//controllo ulteriore sull'iva
TipoIVA tiva = c.reg().iva();
const char tcf = mov.get_char(DOC_TIPOCF);
if (tiva == nessuna_iva && tcf > ' ')
tiva = tcf == 'C' ? iva_vendite : iva_acquisti;
if (tiva != nessuna_iva)
yes = ((tiva == iva_vendite) ^ (sez == 'D'));
}
}
return yes;
}
return false;
}
bool fe_decode_cofi(const TString& cofi, char& sex_nasc, TDate& dt_nasc, TString& com_nasc)
{
if (cofi.len() != 16 || !cf_check("", cofi))
return false;
const TFixed_string wm = "ABCDEHLMPRST"; // Controllo data di nascita
int anno = atoi(cofi.mid(6,2));
anno += anno < 25? 2000 : 1900;
const int mese = wm.find(cofi[8])+1;
int giorno = atoi(cofi.mid(9,2));
if (giorno > 40)
{
giorno -= 40;
sex_nasc = 'F';
}
else
sex_nasc = 'M';
com_nasc = cofi.mid(11,4);
return true;
}
///////////////////////////////////////////////////////////
// TAnagrafica
///////////////////////////////////////////////////////////
static bool is_stato_estero(const TString& codcom)
{ return codcom.full() && codcom.match("Z[0-9][0-9][0-9]"); }
static const TString& comune_di(const TString& codcom, int stato)
{
if (codcom.blank() || codcom.len() != 4)
return EMPTY_STRING;
TString8 key;
if (stato > 0)
key.format("%03d", stato);
key << '|' << codcom;
return cache().get(LF_COMUNI, key, COM_DENCOM);
}
static const TString& provincia_di(const TString& codcom)
{
if (codcom.blank() || codcom.len() != 4)
return EMPTY_STRING;
TString& prov = get_tmp_string();
if (is_stato_estero(codcom))
prov = "EE";
else
{
TString8 key; key << '|' << codcom;
prov = cache().get(LF_COMUNI, key, COM_PROVCOM);
if (prov.len() > 2) prov = "RM";
}
return prov;
}
const TString& TAnagrafica::comune_nascita() const
{
if (is_stato_estero(_com_nasc))
{
const TString& c = comune_di(_com_nasc, 0);
if (c.full())
return c;
}
if (_stato_nasc > 0)
{
TString4 u; u.format("%03d", _stato_nasc);
const TString& s = cache().get("%STA", u, "S0");
if (s.full())
return s;
}
return comune_di(_com_nasc, _stato_nasc);
}
const TString& TAnagrafica::provincia_nascita() const
{
if (_stato_nasc > 0 || is_stato_estero(_com_nasc))
return get_tmp_string() = "EE";
return provincia_di(_com_nasc);
}
const TString& TAnagrafica::comune_residenza() const
{
const TString& cr = comune_di(_com_res, _stato_estero);
if (cr.full())
return cr;
return _loc_res;
}
const TString& TAnagrafica::provincia_residenza() const
{
if (estero())
return get_tmp_string() = "EE";
return provincia_di(_com_res);
}
void TAnagrafica::build_ind_res(const TRectype& rec, const char* ind, const char* civ)
{
_via_res = _ind_res = rec.get(ind);
_civ_res = rec.get(civ);
if (_civ_res.blank())
{
const int comma = _via_res.rfind(',');
if (comma > 0 && _via_res.len()-comma <= 8)
{
_civ_res = _via_res.mid(comma+1); _civ_res.trim();
_via_res.cut(comma); _via_res.trim();
}
}
if (_via_res.full())
{
TString80 ind = _via_res;
if (_civ_res.full())
ind << ", " << _civ_res;
ind.strip_double_spaces();
TParagraph_string s(ind, 40);
_ind_res = s.get(0); // prende solo i primi 40 caratteri dell'indirizzo completo
}
// Sistema persone senza codice stato, ma residenti in comune estero
if (_stato_estero <= 0 && is_stato_estero(_com_res))
{
const TString80 naz = comune_di(_com_res, 0);
TString query; query.format("USE %%STA KEY 2\nFROM S0=%c\nTO S0=%c", naz[0], naz[0]);
TISAM_recordset sta(query);
double dBest = 0;
int nBest = 0;
for (bool ok = sta.move_first(); ok; ok = sta.move_next())
{
const double s = xvt_str_fuzzy_compare(naz, sta.get("S0").as_string());
if (s > dBest)
{
nBest = sta.get("CODTAB").as_int();
dBest = s;
if (dBest >= 1.0)
break;
}
}
if (dBest > 0.8)
_stato_estero = nBest;
}
}
const TString& TAnagrafica::ragione_sociale() const
{
if (fisica())
{
TString& rs = get_tmp_string();
rs = _ragsoc;
return rs.strip_double_spaces();
}
return _ragsoc;
}
const TString& TAnagrafica::cognome() const
{
TString& c = get_tmp_string();
c = _ragsoc.left(30);
return c.trim();
}
const TString& TAnagrafica::nome() const
{
CHECK(fisica(), "Non chiedere nome giuridico!");
TString& c = get_tmp_string();
c = _ragsoc.mid(30,20);
return c.trim();
}
bool TAnagrafica::italiano() const
{ return _stato_estero == 0 && !is_stato_estero(_com_res); }
const TString& TAnagrafica::stato_estero_UNICO() const
{
if (_stato_estero <= 0)
return EMPTY_STRING;
TString4 u; u.format("%03d", _stato_estero);
const TString& cod = cache().get("%STA", u, "S8"); // S8=UNICO S9=ISTAT
if (cod.len() == 3)
return cod;
return get_tmp_string() = u;
}
const TString& TAnagrafica::stato_partita_IVA() const
{
if (_stato_paiv.full())
return _stato_paiv;
TString& str = get_tmp_string();
if (italiano()) str = "IT";
return str;
}
char TAnagrafica::is_black_list(const TDate& datareg) const
{
char is_black = ' ';
if (_stato_estero > 0)
{
TString4 u; u.format("%03d", _stato_estero);
const TRectype& sta = cache().get("%STA", u);
if (sta.get_bool("B1")) // San Marino
{
if (datareg.date2ansi() < TDate(24,2,2014))
is_black = 'M';
}
else
{
if (sta.get_bool("B0")) // Black List
is_black = 'S';
}
}
return is_black;
}
void TAnagrafica::split_ragsoc()
{
if (_tipo == 'F')
{
if (nome().blank())
{
const int space = _ragsoc.find(' ');
if (space >= 4)
{
TString80 nom = _ragsoc.mid(space+1);
nom.cut(20);
_ragsoc.cut(space);
_ragsoc.insert(nom, 30);
}
}
}
else
_ragsoc.strip_double_spaces();
_ragsoc.replace('"', '\''); // gli " creano casini nel csv
}
bool TAnagrafica::init(const TRectype& rec)
{
_tipo = '\0';
_stato_estero = _stato_nasc = 0;
_allegato = 0;
_ragsoc.cut(0);
if (rec.empty())
return false;
bool is_firm = false;
switch (rec.num())
{
case LF_OCCAS:
_cofi = rec.get(OCC_COFI);
_paiv = rec.get(OCC_PAIV);
if (_cofi.blank() || _paiv.blank())
{
const TString& codice = rec.get(OCC_CFPI);
if (_cofi.blank() && cf_check("", codice))
_cofi = codice;
if (_paiv.blank() && pi_check("", codice))
_paiv = codice;
}
_ragsoc = rec.get(OCC_RAGSOC);
_data_nasc = rec.get(OCC_DNASC);
_stato_nasc = rec.get_int(OCC_STATONASC);
_com_nasc = rec.get(OCC_COMNASC);
_stato_estero = rec.get_int(OCC_STATO);
_com_res = rec.get(OCC_COM);
_loc_res = rec.get(OCC_LOCALITA);
_cap_res = rec.get(OCC_CAP);
build_ind_res(rec, OCC_INDIR, OCC_CIV);
if (_com_nasc.full() || (!_stato_estero && !real::is_natural(_cofi) || cf_check("", _cofi)))
{
_tipo = 'F';
if (_cofi.full() && (!_data_nasc.ok()) || _com_nasc.blank())
{
char sex = 'X';
fe_decode_cofi(_cofi, sex, _data_nasc, _com_nasc);
}
}
else
_tipo = 'G';
_allegato = _tipo == 'F' ? 6 : 2;
break;
case LF_ANAG:
_tipo = rec.get_char(ANA_TIPOA);
_ragsoc = rec.get(ANA_RAGSOC);
_cofi = rec.get(ANA_COFI);
_paiv = rec.get(ANA_PAIV);
_stato_paiv = rec.get(ANA_STATOPAIV);
if (_ragsoc.starts_with("EYCK"))
int zingara = 1;
// Comune di residenza fiscale o domicilio
_stato_estero = rec.get_int(ANA_STATORES);
_com_res = rec.get(ANA_COMRF);
if (_com_res.empty())
_com_res = rec.get(ANA_COMRES);
build_ind_res(rec, ANA_INDRES, ANA_CIVRES);
_cap_res = rec.get(ANA_CAPRES);
// Dati di nascita persone fisiche
if (_tipo == 'F' || (italiano() && isalpha(_cofi[0])))
{
const long codana = rec.get_long(ANA_CODANAGR);
if (codana > 0)
{
const TRectype& anafis = cache().get(LF_ANAGFIS, codana);
_data_nasc = anafis.get(ANF_DATANASC);
_stato_nasc = anafis.get_int(ANF_STATONASC);
_com_nasc = anafis.get(ANF_COMNASC);
if ((!_data_nasc.ok() || _com_nasc.blank()) && cf_check("", _cofi))
{
char sex = 'X';
fe_decode_cofi(_cofi, sex, _data_nasc, _com_nasc);
}
}
}
else
_tipo = 'G';
break;
case LF_NDITTE:
{
const char tipoa = rec.get_char(NDT_TIPOA);
const long codana = rec.get_long(NDT_CODANAGR);
const bool good = init(LF_ANAG, tipoa, codana);
if (_tipo == 'G')
{
_ragsoc = rec.get(NDT_RAGSOC);
split_ragsoc();
}
return good;
}
break;
case LF_CLIFO:
_allegato = rec.get_int(CLI_ALLEG);
if (_allegato == 4)
{
const long ca = rec.get_long(CLI_CODALLEG);
if (ca > 0)
return init(rec.get_char(CLI_TIPOCF), ca, EMPTY_STRING);
}
_tipo = ' '; // Non faccio assunzioni sulla persona fisica
is_firm = (rec.get_char(CLI_TIPOAPER) == 'G' || _allegato==7) && (_allegato != 6);
if (!is_firm && rec.get(CLI_PAIV).full())
{
TString80 rs = rec.get(CLI_RAGSOC); rs.lower();
const char* soc[] = { "&", "azienda ", " sas ", " s.a.s.", " snc", " s.n.c.", " srl", " s.r.l.",
"coop.", "cooperativa", " s.n.c.", " srl", " s.r.l.", " s.p.a", " s.a.", NULL };
for (int s = 0; soc[s] && !is_firm; s++)
is_firm = rs.find(soc[s]) > 0;
if (!is_firm)
is_firm = rs.ends_with(" spa") || (rs.find(" di ") > 15); // Shopping Point di Karoline Reiner
}
if (!is_firm)
{
bool has_cofi = false; // Codice fiscale alfanumerico?
const TString& cli_cofi = rec.get(CLI_COFI);
if (cli_cofi.full() && isalpha(cli_cofi[0]))
has_cofi = cf_check(rec.get(CLI_STATOPAIV), cli_cofi);
// Persona Fisica?
if (rec.get_char(CLI_TIPOAPER) == 'F' || rec.get_date(CLI_DATANASC).ok() || has_cofi || _allegato == 6)
{
const long cod = rec.get_long(CLI_CODANAGPER); // Percipiente?
if (cod > 0)
init(LF_ANAG, 'F', cod);
_tipo = 'F';
_data_nasc = rec.get_date(CLI_DATANASC);
if (!_data_nasc.ok() && has_cofi)
{
char sex = 'X';
fe_decode_cofi(cli_cofi, sex, _data_nasc, _com_nasc);
}
if (_com_nasc.blank())
{
_com_nasc = rec.get(CLI_COMNASC);
if (_com_nasc.blank() && has_cofi)
{
char sex = 'X';
fe_decode_cofi(cli_cofi, sex, _data_nasc, _com_nasc);
}
}
if (_stato_nasc <= 0)
_stato_nasc = rec.get_int(CLI_STATONASC);
if (_com_nasc.blank() && _stato_nasc > 0)
{
TString4 sn; sn.format("%03d", _stato_nasc);
const TString80 stato = cache().get("%STA", sn, "S0");
TISAM_recordset comuni("USE COMUNI\nFROM COM=Z\nTO STATO=\"0~\"");
double best = 0.8;
for (bool ok = comuni.move_first(); ok; ok = comuni.move_next())
{
const TString& desc = comuni.get(COM_DENCOM).as_string();
const double score = xvt_str_fuzzy_compare_ignoring_case(desc, stato);
if (score > best)
{
best = score;
_stato_nasc = 0;
_com_nasc = comuni.get(COM_COM).as_string();
if (best >= 1.0)
break;
}
}
}
}
}
// Assegno codice fiscale e partita IVA se validi, altrimenti mantengo quelli dell'anagrafica
if (rec.get(CLI_COFI).full())
_cofi = rec.get(CLI_COFI);
if (rec.get(CLI_PAIV).full())
{
_paiv = rec.get(CLI_PAIV);
_stato_paiv = rec.get(CLI_STATOPAIV);
}
if (_allegato != 5 && _allegato != 9)
{
if (_stato_paiv.blank() || _stato_paiv == "IT")
{
// Ci sono anagrafiche con codice fiscale numerico e partita IVA vuota!
// I codici fiscali che cominciano per 8 e 9 sono le associazioni riconosciute e non, rispettivamente.
if (_paiv.blank() && pi_check(_stato_paiv, _cofi) && _cofi[0] < '8')
_paiv = _cofi;
if (_paiv.len() == 11 && pi_check(_stato_paiv, _paiv) && (_paiv[0] == '8' || _paiv[0] == '9'))
{
if (_cofi.blank())
_cofi = _paiv;
_paiv.cut(0);
}
}
}
// Prevale sempre la ragione sociale del cliente: "Il cliente ha sempre ragione".
_ragsoc = rec.get(CLI_RAGSOC);
_loc_res = rec.get(CLI_LOCCF);
_cap_res = rec.get(CLI_CAPCF);
_stato_estero = rec.get_int(CLI_STATOCF);
if (_stato_estero <= 0 && (_allegato == 5 || _allegato == 9)) // Estero CEE o extra-CEE
_stato_estero = -1; // Stato estero ignoto
_com_res = rec.get(CLI_COMCF);
build_ind_res(rec, CLI_INDCF, CLI_CIVCF);
if (_tipo != 'F' && _tipo != 'G')
{
switch (_allegato)
{
case 6: _tipo = 'F'; break; // Privato
case 7: _tipo = 'G'; break; // Ente pubblico
case 8: _tipo = 'G'; break; // Fallimento
default:
if (_com_nasc.full())
_tipo = 'F';
else
{
_tipo = rec.get_char(CLI_TIPOPERS);
if (_tipo != 'F' || is_firm)
_tipo = 'G';
}
break;
}
}
if (_tipo == 'G' || _ragsoc.len() <= 30)
split_ragsoc();
break;
case LF_MOV:
return init(rec.get_char(MOV_TIPO), rec.get_long(MOV_CODCF), rec.get(MOV_OCFPI));
case LF_ALLEG:
return init(rec.get_char(ALL_TIPOCF), rec.get_long(ALL_CODCF), rec.get(ALL_OCFPI));
case LF_EFFETTI:
return init(rec.get_char(EFF_TIPOCF), rec.get_long(EFF_CODCF), EMPTY_STRING);
case LF_PERC:
return init(LF_ANAG, rec.get_char("TIPOA"), rec.get_long("CODANAGR"));
default:
CHECKD(false, "Record non valido per TAnagrafica ", rec.num());
break;
}
split_ragsoc();
return _tipo == 'F' || _tipo == 'G';
}
bool TAnagrafica::init(int num, const TString& codice)
{ return init(cache().get(num, codice)); }
bool TAnagrafica::init(int num, long codice)
{ return init(cache().get(num, codice)); }
bool TAnagrafica::init(int num, char tipo, long codice)
{
TString8 key; key.format("%c|%ld", tipo, codice);
return init(cache().get(num, key));
}
bool TAnagrafica::init(char tipocf, long codice, const TString& ocfpi)
{
bool done = false;
if (ocfpi.full())
done = init(LF_OCCAS, ocfpi);
if (!done)
{
CHECK(tipocf == 'C' || tipocf == 'F', "Tipo cli/for non valido");
CHECKD(codice > 0, "Codice cli/for non valido", codice);
done = init(LF_CLIFO, tipocf, codice);
}
return done;
}
///////////////////////////////////////////////////////////
// TSpesometro_set
///////////////////////////////////////////////////////////
const TVariant& TSpesometro_set::get(unsigned int column) const
{
const TRecordset_column_info& info = column_info(column);
if (info._type == _realfld || info._type == _datefld)
{
TString80 val = row().get(column);
TVariant& var = get_tmp_var();
if (info._type == _realfld)
{
val.replace(',', '.');
var = real(val);
}
else
{
if (val.len() == 8)
{
val.insert("-", 2);
val.insert("-", 5);
}
var = TDate(val);
}
return var;
}
return TCSV_recordset::get(column);
}
bool TSpesometro_set::set(unsigned int fld, const TVariant& var)
{
const TRecordset_column_info& fi = column_info(fld);
// Salva le date in formato GGMMAAAA invece dello standard ANSI AAAAMMGG
if (fi._type == _datefld)
{
const TDate d = var.as_date();
if (d.ok())
{
TFixed_string str = d.string(full, '\0', full, full, gma_date);
row().add(str, fld);
}
else
row().add("", fld);
return true;
} else
// Salva gli importi in italiano (non possono essere negativi)
if (fi._type == _realfld)
{
real r = var.as_real();
row().add(r.stringa(0, 2), fld);
} else
if (fi._type == _boolfld)
{
row().add(var.as_bool() ? "S" : " ", fld);
}
else
{
TString256 str = var.as_string();
str.upper();
str.replace('<EFBFBD>', 'A');
str.replace('<EFBFBD>', 'N');
str.replace('<EFBFBD>', 'O');
str.replace('<EFBFBD>', 'U');
row().add(str, fld);
}
return true;
}
void TSpesometro_set::add_header_data(int n, const TString& value)
{
CHECKD(n > 0 && n <= 16, "Bad SO record type ", n);
TString8 fld; fld.format("SO%03d", n);
new_rec(fld);
set(1, value);
}
const TString& TSpesometro_set::get_recapito(const TRectype& ndt, const char* numero, const char* prefisso) const
{
if (ndt.exist(numero))
{
TString& tel = get_tmp_string();
if (prefisso && *prefisso)
tel = ndt.get(prefisso);
tel << ndt.get(numero);
if (tel.full())
return tel;
}
if (ndt.num() == LF_NDITTE)
{
TString16 key;
key.format("%c|%ld", ndt.get_char(NDT_TIPOA), ndt.get_long(NDT_CODANAGR));
const TRectype& anag = cache().get(LF_ANAG, key);
if (prefisso)
{
if (xvt_str_same(numero, "TEL"))
{
numero = "TELRF";
prefisso = "PTELRF";
} else
if (xvt_str_same(numero, "FAX"))
{
numero = "FAXRF";
prefisso = "PFAXRF";
}
}
return get_recapito(anag, numero, prefisso);
}
return EMPTY_STRING;
}
bool TSpesometro_set::add_header(const TMask& msk)
{
const long codditta = prefix().get_codditta();
const TAnagrafica ditta(LF_NDITTE, codditta);
add_header_data(1, ditta.codice_fiscale());
add_header_data(2, ditta.partita_IVA());
TString16 key;
key.format("%ld", codditta);
const TRectype& ndt = cache().get(LF_NDITTE, key);
const char* codatt = ndt.get(NDT_CODATTPREV);
key.format("%ld|%s", codditta, codatt);
const TRectype& att = cache().get(LF_ATTIV, key);
const TString8 ateco = att.get(ATT_CODATECO);
add_header_data(3, ateco);
add_header_data(4, get_recapito(ndt, NDT_TEL, NDT_PTEL));
add_header_data(5, get_recapito(ndt, NDT_FAX, NDT_PFAX));
add_header_data(6, get_recapito(ndt, "MAIL", NULL));
if (ditta.fisica())
{
add_header_data( 7, ditta.cognome());
add_header_data( 8, ditta.nome());
add_header_data( 9, ditta.sesso() == 'F' ? "F" : "M");
add_header_data(10, ditta.data_nascita().string(full, '\0', full, full, gma_date));
add_header_data(11, ditta.comune_nascita());
add_header_data(12, ditta.provincia_nascita());
add_header_data(13, EMPTY_STRING);
}
else
{
add_header_data( 7, EMPTY_STRING);
add_header_data( 8, EMPTY_STRING);
add_header_data( 9, EMPTY_STRING);
add_header_data(10, EMPTY_STRING);
add_header_data(11, EMPTY_STRING);
add_header_data(12, EMPTY_STRING);
add_header_data(13, ditta.ragione_sociale());
}
add_header_data(14, msk.get(F_ANNO));
add_header_data(15, EMPTY_STRING);
add_header_data(16, TFixed_string("04879210963"));
if (ateco.blank())
return error_box("Manca il codice attivit<69> ATECO nell'anagrafica della ditta %ld", codditta);
return true;
}
bool TSpesometro_set::add_footer(const TMask& /*msk*/)
{
// Elimina elementi composti da un solo spazio
for (TRecnotype i = items()-1; i >= 0; i--)
{
TToken_string& r = row(i);
if (r.empty_items())
{
destroy(i);
continue;
}
for (;;)
{
const int p = r.find("| |");
if (p > 0)
{
r.overwrite(r.mid(p+2), p+1);
r.rtrim(1);
}
else
break;
}
r.rtrim();
}
return true;
}
void TSpesometro_set::init()
{
create_column("Tipo", _alfafld); // 0
create_column("PartitaIVA", _alfafld);
create_column("CodiceFiscale", _alfafld);
create_column("IVANonEsposta", _boolfld);
create_column("Noleggio", _alfafld);
create_column("Autofattura", _boolfld); // 5
create_column("ReverseCharge", _boolfld);
create_column("DataDoc", _datefld);
create_column("DataReg", _datefld);
create_column("NumDoc", _alfafld);
create_column("TipoOperazione", _alfafld); // 10
create_column("TipoDocumento", _alfafld);
create_column("Imponibile", _realfld); // 12
create_column("Imposta", _realfld);
create_column("Cognome", _alfafld); // 14
create_column("Nome", _alfafld);
create_column("DataNasc", _datefld);
create_column("ComNasc", _alfafld);
create_column("Provincia", _alfafld);
create_column("StatoEstero", _alfafld); // 19
create_column("CittaEstera", _alfafld);
create_column("IndirEstero", _alfafld);
create_column("RagSoc", _alfafld); // 22
create_column("CittaEsteraSede", _alfafld);
create_column("StatoEsteroSede", _alfafld);
create_column("IndirEsteroSede", _alfafld);
create_column("CodiceIVAEstero", _alfafld);
create_column("BlackList", _alfafld); // 27 S o M o blank
create_column("NonResidente", _boolfld);
create_column("AcquistoDaNonRes", _boolfld);
create_column("TipoImponibile", _alfafld);
create_column("OperazAggAttive", _intfld); // 31
create_column("OperazAggPassive", _intfld);
create_column("FatturaRiepilogativa", _boolfld);
create_column("SchedaCarburante", _boolfld); // 34
}
TSpesometro_set::TSpesometro_set(const TFilename& file) : TCSV_recordset("CSV(|)")
{
init();
load_file(file);
move_first();
}
TSpesometro_set::TSpesometro_set() : TCSV_recordset("CSV(|)")
{
init();
}
///////////////////////////////////////////////////////////
// TCofi_cache
///////////////////////////////////////////////////////////
class TCofi_cache : public TCache
{
TLocalisamfile _clifo, _occas;
protected:
virtual TObject* key2obj(const char* key);
TObject* find_ragsoc(bool piva, char tipocf, const TString& code);
public:
const TString& cofi2ragsoc(char tipocf, const TString& cofi);
const TString& paiv2ragsoc(char tipocf, const TString& paiv);
TCofi_cache() : _clifo(LF_CLIFO), _occas(LF_OCCAS) { }
};
TObject* TCofi_cache::find_ragsoc(bool piva, char tipocf, const TString& code)
{
const int fkey = piva ? 5 : 4;
const char* kfield = piva ? CLI_PAIV : CLI_COFI;
_clifo.setkey(fkey);
_clifo.zero();
_clifo.put(CLI_TIPOCF, tipocf);
_clifo.put(kfield, code);
int err = _clifo.read();
if (err == NOERR && _clifo.get_int(CLI_ALLEG) == 4) // Codice Fiscale o Partita IVA doppia
{
const long codall = _clifo.get_long(CLI_CODALLEG);
if (codall > 0)
{
const TRecnotype recno = _clifo.recno();
_clifo.setkey(1);
_clifo.put(CLI_TIPOCF, tipocf);
_clifo.put(CLI_CODCF, codall);
err = _clifo.read();
if (err != NOERR || _clifo.get(kfield) != code)
err = _clifo.readat(recno);
_clifo.setkey(fkey);
}
}
if (err != NOERR && piva && pi_check("IT", code))
{
_clifo.put(CLI_TIPOCF, tipocf);
_clifo.put(CLI_STATOPAIV, "IT");
_clifo.put(CLI_PAIV, code);
err = _clifo.read();
}
if (err == NOERR)
return new TString80(_clifo.get(CLI_RAGSOC));
if (piva && !pi_check("IT", code)) // cerco partite IVA estere
{
TString query;
query << "USE CLIFO SELECT PAIV=\"" << code << '"'
<< "\nFROM TIPOCF=" << tipocf
<< "\nTO TIPOCF=" << tipocf;
TISAM_recordset clifo(query);
if (clifo.move_first())
return new TString80(clifo.get(CLI_RAGSOC).as_string());
}
_occas.put(OCC_CFPI, code);
if (_occas.read() == NOERR)
{
const TString& cfpi = _occas.get(piva ? OCC_PAIV : OCC_COFI);
if (code == cfpi || cfpi.empty())
return new TString80(_occas.get(OCC_RAGSOC));
}
TString query;
query << "USE OCCAS SELECT ";
if (piva)
query << "PAIV=\"" << code << '"';
else
query << "COFI=\"" << code << '"';
TISAM_recordset occas(query);
if (occas.move_first())
return new TString80(occas.get(OCC_RAGSOC).as_string());
return NULL;
}
TObject* TCofi_cache::key2obj(const char* key)
{
TToken_string chiave(key);
const bool paiv = chiave.get_char(0)=='P';
const char tipocf = chiave.get_char(1);
TString16 code; chiave.get(2, code);
TObject* ragsoc = NULL;
if (code.full())
{
if (tipocf != 'C' && tipocf != 'F')
{
ragsoc = find_ragsoc(paiv, 'C', code);
if (ragsoc == NULL)
ragsoc = find_ragsoc(paiv, 'F', code);
}
else
ragsoc = find_ragsoc(paiv, tipocf, code);
}
return ragsoc;
}
const TString& TCofi_cache::cofi2ragsoc(char tipocf, const TString& cofi)
{
const TString* ragsoc = NULL;
if (cofi.full())
{
TString80 key;
key.format("CF|%c|%s", tipocf, (const char*)cofi);
ragsoc = (const TString*)objptr(key);
}
if (ragsoc == NULL)
{
TString& str = get_tmp_string();
str << TR("C.F. sconosciuto ") << cofi;
ragsoc = &str;
}
return *ragsoc;
}
const TString& TCofi_cache::paiv2ragsoc(char tipocf, const TString& paiv)
{
const TString* ragsoc = NULL;
if (paiv.full())
{
TString80 key;
key.format("PI|%c|%s", tipocf, (const char*)paiv);
ragsoc = (const TString*)objptr(key);
}
if (ragsoc == NULL)
{
TString& str = get_tmp_string();
str << TR("P.I. sconosciuta ") << paiv;
ragsoc = &str;
}
return *ragsoc;
}
///////////////////////////////////////////////////////////
// TSpesometro_rep
///////////////////////////////////////////////////////////
const TString& TSpesometro_rep::cofi2ragsoc(char tipocf, const TString& cofi) const
{ return ((TCofi_cache*)_cofi)->cofi2ragsoc(tipocf, cofi); }
const TString& TSpesometro_rep::paiv2ragsoc(char tipocf, const TString& cofi) const
{ return ((TCofi_cache*)_cofi)->paiv2ragsoc(tipocf, cofi); }
bool TSpesometro_rep::get_usr_val(const TString& name, TVariant& var) const
{
if (name == "ANNO")
{
const TFixed_string d("DataReg");
TVariant var;
if (!get_record_field(d, var))
var = "2015";
else
var = var.as_string().right(4);
return true;
}
return TReport::get_usr_val(name, var);
}
TSpesometro_rep::TSpesometro_rep(const TFilename& file)
{
_cofi = new TCofi_cache;
load("fe0100");
TSpesometro_set* set = new TSpesometro_set(file);
// Elimina dati di testata e coda
for (TRecnotype i = set->items()-1; i >= 0; i--)
{
if (set->move_to(i))
{
const TString& t = set->get(0).as_string();
if (t.blank() || t.starts_with("SO"))
set->destroy(i);
}
else
break;
}
set_recordset(set);
}
TSpesometro_rep::~TSpesometro_rep()
{ delete _cofi; }
Reference in New Issue View Git Blame Copy Permalink