root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Migliorata gestione residenti all'estero

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22935 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2014-05-14 08:26:11 +00:00
parent 858ae87f12
commit a0c6d081f1
4 changed files with 210 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
fe/fe0100.cpp
View File

@ -175,20 +175,23 @@ TExclusion_mode TSpesometro_msk::validate_clifo(const TRectype& mov)
TString8 key; key.format("%c|%ld", tipocf, codcf); TString8 key; key.format("%c|%ld", tipocf, codcf);
const TRectype& rec_clifo = cache().get(LF_CLIFO, key); const TRectype& rec_clifo = cache().get(LF_CLIFO, key);
const int alleg = rec_clifo.get_int(CLI_ALLEG); const int alleg = rec_clifo.get_int(CLI_ALLEG);
TString4 stato = rec_clifo.get(CLI_STATOCF); // Può cambiare per occasionali
if (alleg == 4) if (alleg == 4)
{ {
const long codalleg = rec_clifo.get_long(CLI_CODALLEG); const long codalleg = rec_clifo.get_long(CLI_CODALLEG);
key; key.format("%c|%ld", tipocf, codalleg); if (codalleg > 0L)
const TRectype& rec_alleg = cache().get(LF_CLIFO, key);
if (!rec_alleg.empty())
{ {
((TRectype&)mov).put(MOV_CODCF, codalleg); key.format("%c|%ld", tipocf, codalleg);
return validate_clifo(mov); const TRectype& rec_alleg = cache().get(LF_CLIFO, key);
if (!rec_alleg.empty())
{
((TRectype&)mov).put(MOV_CODCF, codalleg);
return validate_clifo(mov);
}
} }
} }
TString4 stato;
if (ocfpi.full()) if (ocfpi.full())
{ {
const TRectype& rec_occas = cache().get(LF_OCCAS, ocfpi); const TRectype& rec_occas = cache().get(LF_OCCAS, ocfpi);
@ -202,8 +205,6 @@ TExclusion_mode TSpesometro_msk::validate_clifo(const TRectype& mov)
if (alleg == 5) if (alleg == 5)
return segnala_movimento(mov, em_intra); return segnala_movimento(mov, em_intra);
stato = rec_clifo.get(CLI_STATOCF);
if (stato.blank() && alleg == 9) // Flag extra CEE incoerente if (stato.blank() && alleg == 9) // Flag extra CEE incoerente
return segnala_movimento(mov, em_estero); return segnala_movimento(mov, em_estero);
} }
@ -228,38 +229,40 @@ TExclusion_mode TSpesometro_msk::validate_mov(const TRectype& mov)
// Ignora eventuale vecchio movimento IVA (ANNOIVA < 2012) // Ignora eventuale vecchio movimento IVA (ANNOIVA < 2012)
const int anno = mov.get_int(MOV_ANNOIVA); const int anno = mov.get_int(MOV_ANNOIVA);
if (anno < 2012) if (anno < 2012)
return segnala_movimento(mov, em_data_limite); return segnala_movimento(mov, em_data_limite);
if (mov.get_long(MOV_NUMREG) == 57503)
int cazzone = 1;
TExclusion_mode em = validate_clifo(mov);
if (em != em_normale)
return em;
// Trova i movimenti INTRA // Trova i movimenti INTRA
if (!mov.get_real(MOV_CORRLIRE).is_zero() || if (!mov.get_real(MOV_CORRLIRE).is_zero() || !mov.get_real(MOV_CORRVALUTA).is_zero())
!mov.get_real(MOV_CORRVALUTA).is_zero()) em = segnala_movimento(mov, em_intra);
return segnala_movimento(mov, em_intra); else
const TString& keytok = mov.get(MOV_NUMREG);
const char tipocf = mov.get_char(MOV_TIPO);
TRecord_array righe_iva(keytok, LF_RMOVIVA);
real tot_imponibile, tot_imposta;
//calcolo di imponibile ed imposta di tutte le righe iva del movimento
for (int r = righe_iva.last_row(); r > 0; r = righe_iva.pred_row(r))
{ {
const TRectype& rmi = righe_iva.row(r); const TString& keytok = mov.get(MOV_NUMREG);
const TCodiceIVA ci(rmi.get(RMI_CODIVA)); const char tipocf = mov.get_char(MOV_TIPO);
const int natura_operazione = ci.allegato(tipocf); TRecord_array righe_iva(keytok, LF_RMOVIVA);
if (natura_operazione <= 0 || natura_operazione > 5) real tot_imponibile, tot_imposta;
continue; //calcolo di imponibile ed imposta di tutte le righe iva del movimento
tot_imponibile += rmi.get_real(RMI_IMPONIBILE); for (int r = righe_iva.last_row(); r > 0; r = righe_iva.pred_row(r))
tot_imposta += rmi.get_real(RMI_IMPOSTA); {
} const TRectype& rmi = righe_iva.row(r);
const TCodiceIVA ci(rmi.get(RMI_CODIVA));
if (tot_imponibile.is_zero() && tot_imposta.is_zero()) const int natura_operazione = ci.allegato(tipocf);
{ if (natura_operazione <= 0 || natura_operazione > 5)
TExclusion_mode em = validate_clifo(mov); continue;
if (em == em_normale) tot_imponibile += rmi.get_real(RMI_IMPONIBILE);
tot_imposta += rmi.get_real(RMI_IMPOSTA);
}
if (tot_imponibile.is_zero() && tot_imposta.is_zero())
em = segnala_movimento(mov, em_importo_limite); em = segnala_movimento(mov, em_importo_limite);
return em;
} }
return validate_clifo(mov); return em;
} }
TExclusion_mode TSpesometro_msk::elabora_movimento(const TRectype& mov, TBaseisamfile& falleg) TExclusion_mode TSpesometro_msk::elabora_movimento(const TRectype& mov, TBaseisamfile& falleg)
@ -370,7 +373,7 @@ TExclusion_mode TSpesometro_msk::elabora_movimento(const TRectype& mov, TBaseisa
tot_imponibile = tot_imposta.sign(); tot_imponibile = tot_imposta.sign();
} }
} }
if (mov.get_int(MOV_UPROTIVA) > 0) if (mov.get_int(MOV_UPROTIVA) > mov.get_int(MOV_PROTIVA))
falleg.put(ALL_RIEPILOG, true); falleg.put(ALL_RIEPILOG, true);
} }
} }
@ -433,9 +436,14 @@ TExclusion_mode TSpesometro_msk::elabora_movimento(const TRectype& mov, TBaseisa
} }
if (!good) if (!good)
{ {
falleg.put(ALL_AUTOFATT, true); TString8 key; key << tipocf << '|' << codcf;
if (tot_imponibile.is_zero() && !tot_imposta.is_zero()) const TRectype& clifo = cache().get(LF_CLIFO, key);
tot_imponibile = tot_imposta.sign(); if (clifo.get_int(CLI_ALLEG) == 9) // Extra CEE con dati anagrafici insufficienti
{
falleg.put(ALL_AUTOFATT, true);
if (tot_imponibile.is_zero() && !tot_imposta.is_zero())
tot_imponibile = tot_imposta.sign();
}
} }
} }
@ -657,7 +665,7 @@ bool TSpesometro_msk::send_estero(const TRectype& alleg, const TAnagrafica& anag
if (is_nota) // Le istruzioni dicono di ignorarla, ma Sirio non ha ancora deciso if (is_nota) // Le istruzioni dicono di ignorarla, ma Sirio non ha ancora deciso
send_nota_variazione(alleg, anag, operaz); // Imposta solamente il campo 11 a ND o NC send_nota_variazione(alleg, anag, operaz); // Imposta solamente il campo 11 a ND o NC
const char cayman = anag.is_black_list(); const char cayman = anag.is_black_list(alleg.get_date(ALL_DATAREG));
const bool servizi = tipocf == 'F' && alleg.get_bool(ALL_SERVIZI); const bool servizi = tipocf == 'F' && alleg.get_bool(ALL_SERVIZI);
if (servizi && alleg.get_bool(ALL_AUTOFATT)) if (servizi && alleg.get_bool(ALL_AUTOFATT))
@ -1254,6 +1262,15 @@ bool TSpesometro_msk::on_field_event(TOperable_field& o, TField_event e, long jo
return false; return false;
} }
break; break;
case DLG_LINK: // Ditta
if (e == fe_button)
{
TRectype ndt(LF_NDITTE);
ndt.put(NDT_CODDITTA, prefix().get_codditta());
if (ndt.edit(LF_NDITTE, NULL, "ba4 -2"))
prefix().notify_change(LF_NDITTE);
}
break;
case DLG_SAVEREC: case DLG_SAVEREC:
if (e == fe_button) if (e == fe_button)
save_if_dirty(); save_if_dirty();
@ -1324,7 +1341,7 @@ bool TSpesometro_msk::on_field_event(TOperable_field& o, TField_event e, long jo
if (e == fe_init || e == fe_modify) if (e == fe_init || e == fe_modify)
{ {
int anno = atoi(o.get()); int anno = atoi(o.get());
if (anno < 2013) if (anno < 2012)
{ {
anno = TDate(TODAY).year()-1; anno = TDate(TODAY).year()-1;
o.set(anno); o.set(anno);

18
fe/fe0100a.uml
View File

@ -15,43 +15,49 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_CANCEL 2 2, BUTTON DLG_CANCEL 2 2
BEGIN BEGIN
PROMPT 1 2 "Annulla" PROMPT 1 2 "Annulla"
END END
BUTTON DLG_LINK 2 2
BEGIN
PROMPT 1 3 "Ditta"
PICTURE TOOL_LINK
END
BUTTON DLG_NULL 2 2 BUTTON DLG_NULL 2 2
BEGIN BEGIN
END END
BUTTON DLG_RECALC 2 2 BUTTON DLG_RECALC 2 2
BEGIN BEGIN
PROMPT 1 3 "Ricalcola" PROMPT 1 5 "Ricalcola"
PICTURE TOOL_RECALC PICTURE TOOL_RECALC
END END
BUTTON DLG_EXPORT 2 2 BUTTON DLG_EXPORT 2 2
BEGIN BEGIN
PROMPT 1 4 "Excel" PROMPT 1 6 "Excel"
PICTURE TOOL_EXCEL PICTURE TOOL_EXCEL
MODULE rs MODULE rs
END END
BUTTON DLG_ELABORA 2 2 BUTTON DLG_ELABORA 2 2
BEGIN BEGIN
PROMPT 1 5 "Invia" PROMPT 1 7 "Invia"
PICTURE TOOL_EXPORT PICTURE TOOL_EXPORT
END END
BUTTON DLG_DELREC 2 2 BUTTON DLG_DELREC 2 2
BEGIN BEGIN
PROMPT 1 6 "Azzera Invio" PROMPT 1 8 "Azzera Invio"
PICTURE TOOL_RESET PICTURE TOOL_RESET
END END
BUTTON DLG_PREVIEW 2 2 BUTTON DLG_PREVIEW 2 2
BEGIN BEGIN
PROMPT 1 7 "Anteprima" PROMPT 1 9 "Anteprima"
PICTURE TOOL_PREVIEW PICTURE TOOL_PREVIEW
END END

171
fe/felib.cpp
View File

@ -49,7 +49,7 @@ bool fe_is_nota_variazione(const TRectype& mov)
if (logicnum == LF_ALLEG) if (logicnum == LF_ALLEG)
{ {
const TString& tipo = mov.get(ALL_TIPOPE); const TString& tipo = mov.get(ALL_TIPOPE);
if (tipo.len() == 2) if (tipo.len() == 2 && tipo != "BL")
return tipo == "NE" || tipo == "NR"; return tipo == "NE" || tipo == "NR";
const real importo = mov.get_real(ALL_IMPORTO); const real importo = mov.get_real(ALL_IMPORTO);
@ -97,6 +97,9 @@ bool fe_is_nota_variazione(const TRectype& mov)
// TAnagrafica // 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) static const TString& comune_di(const TString& codcom, int stato)
{ {
if (codcom.blank() || codcom.len() != 4) if (codcom.blank() || codcom.len() != 4)
@ -114,8 +117,8 @@ static const TString& provincia_di(const TString& codcom)
if (codcom.blank() || codcom.len() != 4) if (codcom.blank() || codcom.len() != 4)
return EMPTY_STRING; return EMPTY_STRING;
TString& prov = get_tmp_string(); TString& prov = get_tmp_string();
if (codcom.starts_with("Z")) if (is_stato_estero(codcom))
prov == "EE"; prov = "EE";
else else
{ {
TString8 key; key << '|' << codcom; TString8 key; key << '|' << codcom;
@ -126,10 +129,29 @@ static const TString& provincia_di(const TString& codcom)
} }
const TString& TAnagrafica::comune_nascita() const const TString& TAnagrafica::comune_nascita() const
{ return comune_di(_com_nasc, 0); } {
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 const TString& TAnagrafica::provincia_nascita() const
{ return provincia_di(_com_nasc); } {
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& TAnagrafica::comune_residenza() const
{ {
@ -158,6 +180,29 @@ void TAnagrafica::build_ind_res(const TRectype& rec, const char* ind, const char
TParagraph_string s(indirizzo, 40); TParagraph_string s(indirizzo, 40);
_ind_res = s.get(0); _ind_res = s.get(0);
} }
// Sistema persone senza stato ma con 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::cognome() const const TString& TAnagrafica::cognome() const
@ -173,21 +218,21 @@ const TString& TAnagrafica::nome() const
} }
bool TAnagrafica::italiano() const bool TAnagrafica::italiano() const
{ return _stato_estero == 0; } { return _stato_estero == 0 && !is_stato_estero(_com_res); }
const TString& TAnagrafica::stato_estero_UNICO() const const TString& TAnagrafica::stato_estero_UNICO() const
{ {
if (_stato_estero <= 0) if (_stato_estero <= 0)
return EMPTY_STRING; return EMPTY_STRING;
TString4 u;
u.format("%03d", _stato_estero); TString4 u; u.format("%03d", _stato_estero);
const TString& cod = cache().get("%STA", u, "S8"); // S8=UNICO S9=ISTAT const TString& cod = cache().get("%STA", u, "S8"); // S8=UNICO S9=ISTAT
if (cod.len() == 3) if (cod.len() == 3)
return cod; return cod;
return get_tmp_string() = u; return get_tmp_string() = u;
} }
char TAnagrafica::is_black_list() const char TAnagrafica::is_black_list(const TDate& datareg) const
{ {
char is_black = ' '; char is_black = ' ';
if (_stato_estero > 0) if (_stato_estero > 0)
@ -196,9 +241,15 @@ char TAnagrafica::is_black_list() const
const TRectype& sta = cache().get("%STA", u); const TRectype& sta = cache().get("%STA", u);
if (sta.get_bool("B1")) // San Marino if (sta.get_bool("B1")) // San Marino
is_black = 'M'; else {
if (sta.get_bool("B0")) // Black List if (datareg.date2ansi() < TDate(24,2,2014))
is_black = 'S'; is_black = 'M';
}
else
{
if (sta.get_bool("B0")) // Black List
is_black = 'S';
}
} }
return is_black; return is_black;
} }
@ -221,12 +272,13 @@ void TAnagrafica::split_ragsoc()
} }
else else
_ragsoc.strip_double_spaces(); _ragsoc.strip_double_spaces();
_ragsoc.replace('"', '\''); // gli " creano casini nel csv
} }
bool TAnagrafica::init(const TRectype& rec) bool TAnagrafica::init(const TRectype& rec)
{ {
_tipo = '\0'; _tipo = '\0';
_stato_estero = 0; _stato_estero = _stato_nasc = 0;
_allegato = 0; _allegato = 0;
_ragsoc.cut(0); _ragsoc.cut(0);
if (rec.empty()) if (rec.empty())
@ -247,11 +299,12 @@ bool TAnagrafica::init(const TRectype& rec)
} }
_ragsoc = rec.get(OCC_RAGSOC); _ragsoc = rec.get(OCC_RAGSOC);
_data_nasc = rec.get(OCC_DNASC); _data_nasc = rec.get(OCC_DNASC);
_stato_nasc = rec.get_int(OCC_STATONASC);
_com_nasc = rec.get(OCC_COMNASC); _com_nasc = rec.get(OCC_COMNASC);
_stato_estero = rec.get_int(OCC_STATO);
_com_res = rec.get(OCC_COM); _com_res = rec.get(OCC_COM);
_loc_res = rec.get(OCC_LOCALITA); _loc_res = rec.get(OCC_LOCALITA);
build_ind_res(rec, OCC_INDIR, OCC_CIV); build_ind_res(rec, OCC_INDIR, OCC_CIV);
_stato_estero = rec.get_int(OCC_STATO);
if (_com_nasc.full() || (!_stato_estero && !real::is_natural(_cofi) || cf_check("", _cofi))) if (_com_nasc.full() || (!_stato_estero && !real::is_natural(_cofi) || cf_check("", _cofi)))
_tipo = 'F'; _tipo = 'F';
else else
@ -265,18 +318,23 @@ bool TAnagrafica::init(const TRectype& rec)
_paiv = rec.get(ANA_PAIV); _paiv = rec.get(ANA_PAIV);
// Comune di residenza fiscale o domicilio // Comune di residenza fiscale o domicilio
_stato_estero = rec.get_int(ANA_STATORES);
_com_res = rec.get(ANA_COMRF); _com_res = rec.get(ANA_COMRF);
if (_com_res.empty()) if (_com_res.empty())
_com_res = rec.get(ANA_COMRES); _com_res = rec.get(ANA_COMRES);
build_ind_res(rec, ANA_INDRES, ANA_CIVRES); build_ind_res(rec, ANA_INDRES, ANA_CIVRES);
_stato_estero = rec.get_int(ANA_STATORES);
// Dati di nascita persone fisiche // Dati di nascita persone fisiche
if (_tipo == 'F') if (_tipo == 'F')
{ {
const TRectype& anafis = cache().get(LF_ANAGFIS, rec.get_long(ANA_CODANAGR)); const long codana = rec.get_long(ANA_CODANAGR);
_data_nasc = anafis.get(ANF_DATANASC); if (codana > 0)
_com_nasc = anafis.get(ANF_COMNASC); {
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);
}
} }
else else
_tipo = 'G'; _tipo = 'G';
@ -284,7 +342,8 @@ bool TAnagrafica::init(const TRectype& rec)
case LF_NDITTE: case LF_NDITTE:
{ {
const char tipoa = rec.get_char(NDT_TIPOA); const char tipoa = rec.get_char(NDT_TIPOA);
const bool good = init(LF_ANAG, tipoa, rec.get_long(NDT_CODANAGR)); const long codana = rec.get_long(NDT_CODANAGR);
const bool good = init(LF_ANAG, tipoa, codana);
if (tipoa == 'G') if (tipoa == 'G')
_ragsoc = rec.get(NDT_RAGSOC); _ragsoc = rec.get(NDT_RAGSOC);
return good; return good;
@ -307,18 +366,27 @@ bool TAnagrafica::init(const TRectype& rec)
const long cod = rec.get_long(CLI_CODANAGPER); const long cod = rec.get_long(CLI_CODANAGPER);
if (cod > 0) if (cod > 0)
init(LF_ANAG, 'F', cod); init(LF_ANAG, 'F', cod);
if (rec.get(CLI_DATANASC).not_empty()) if (rec.get(CLI_DATANASC).not_empty())
{ {
_data_nasc = rec.get(CLI_DATANASC); _data_nasc = rec.get(CLI_DATANASC);
_tipo = 'F'; _tipo = 'F';
#ifdef DBG
if (rec.get(CLI_RAGSOC).starts_with("ACAR"))
int cazzone_estero = 1;
#endif
} }
if (rec.get(CLI_COMNASC).not_empty())
if (_com_nasc.blank())
_com_nasc = rec.get(CLI_COMNASC); _com_nasc = rec.get(CLI_COMNASC);
if (_com_nasc.empty() && rec.get(CLI_STATONASC).not_empty()) if (_stato_nasc <= 0)
_stato_nasc = rec.get_int(CLI_STATONASC);
if (_com_nasc.blank() && _stato_nasc > 0)
{ {
const TString80 stato = cache().get("%STA", rec.get(CLI_STATONASC), "S0"); TString4 sn; sn.format("%03d", _stato_nasc);
TISAM_recordset comuni("USE COMUNI\nFROM CODCOM=Z"); const TString80 stato = cache().get("%STA", sn, "S0");
double best = 0.75; 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()) for (bool ok = comuni.move_first(); ok; ok = comuni.move_next())
{ {
const TString& desc = comuni.get(COM_DENCOM).as_string(); const TString& desc = comuni.get(COM_DENCOM).as_string();
@ -326,7 +394,10 @@ bool TAnagrafica::init(const TRectype& rec)
if (score > best) if (score > best)
{ {
best = score; best = score;
_stato_nasc = 0;
_com_nasc = comuni.get(COM_COM).as_string(); _com_nasc = comuni.get(COM_COM).as_string();
if (best >= 1.0)
break;
} }
} }
} }
@ -356,16 +427,15 @@ bool TAnagrafica::init(const TRectype& rec)
} }
} }
build_ind_res(rec, CLI_INDCF, CLI_CIVCF);
// Prevale sempre la ragione sociale del cliente: "Il cliente ha sempre ragione". // Prevale sempre la ragione sociale del cliente: "Il cliente ha sempre ragione".
_ragsoc = rec.get(CLI_RAGSOC); _ragsoc = rec.get(CLI_RAGSOC);
_loc_res = rec.get(CLI_LOCCF); _loc_res = rec.get(CLI_LOCCF);
_stato_estero = rec.get_int(CLI_STATOCF); _stato_estero = rec.get_int(CLI_STATOCF);
if (_stato_estero <= 0 && (_allegato == 5 || _allegato == 9)) // Estero CEE o extra-CEE if (_stato_estero <= 0 && (_allegato == 5 || _allegato == 9)) // Estero CEE o extra-CEE
_stato_estero = -1; // Stato estero ignoto _stato_estero = -1; // Stato estero ignoto
_com_res = rec.get(CLI_COMCF); _com_res = rec.get(CLI_COMCF);
build_ind_res(rec, CLI_INDCF, CLI_CIVCF);
if (_tipo != 'F' && _tipo != 'G') if (_tipo != 'F' && _tipo != 'G')
{ {
@ -505,6 +575,42 @@ void TSpesometro_set::add_header_data(int n, const TString& value)
set(1, value); 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 (strcmp(numero, "TEL") == 0)
{
numero = "TELRF";
prefisso = "PTELRF";
} else
if (strcmp(numero, "FAX") == 0)
{
numero = "FAXRF";
prefisso = "PFAXRF";
}
}
return get_recapito(anag, numero, prefisso);
}
return EMPTY_STRING;
}
bool TSpesometro_set::add_header(const TMask& msk) bool TSpesometro_set::add_header(const TMask& msk)
{ {
const long codditta = prefix().get_codditta(); const long codditta = prefix().get_codditta();
@ -522,13 +628,10 @@ bool TSpesometro_set::add_header(const TMask& msk)
const TString8 ateco = att.get(ATT_CODATECO); const TString8 ateco = att.get(ATT_CODATECO);
add_header_data(3, ateco); add_header_data(3, ateco);
TString80 tel; add_header_data(4, get_recapito(ndt, NDT_TEL, NDT_PTEL));
tel << ndt.get(NDT_PTEL) << ndt.get(NDT_TEL); add_header_data(5, get_recapito(ndt, NDT_FAX, NDT_PFAX));
add_header_data(4, tel); add_header_data(6, get_recapito(ndt, "MAIL", NULL));
tel.cut(0) << ndt.get(NDT_PFAX) << ndt.get(NDT_FAX);
add_header_data(5, tel);
add_header_data(6, EMPTY_STRING);
if (ditta.fisica()) if (ditta.fisica())
{ {
add_header_data( 7, ditta.cognome()); add_header_data( 7, ditta.cognome());
@ -621,7 +724,7 @@ void TSpesometro_set::init()
create_column("IndirEsteroSede", _alfafld); create_column("IndirEsteroSede", _alfafld);
create_column("CodiceIVAEstero", _alfafld); create_column("CodiceIVAEstero", _alfafld);
create_column("BlackList", _boolfld); // 27 create_column("BlackList", _alfafld); // 27 S o M o blank
create_column("NonResidente", _boolfld); create_column("NonResidente", _boolfld);
create_column("AcquistoDaNonRes", _boolfld); create_column("AcquistoDaNonRes", _boolfld);
create_column("TipoImponibile", _alfafld); create_column("TipoImponibile", _alfafld);

5
fe/felib.h
View File

@ -21,7 +21,7 @@ class TAnagrafica : public TObject
TString4 _com_nasc, _com_res; TString4 _com_nasc, _com_res;
TString80 _loc_res, _ind_res; TString80 _loc_res, _ind_res;
TDate _data_nasc; TDate _data_nasc;
int _allegato, _stato_estero; int _allegato, _stato_estero, _stato_nasc;
TAnagrafica& operator =(const TAnagrafica&) { CHECK(false, "Can't copy TAnagrafica"); } TAnagrafica& operator =(const TAnagrafica&) { CHECK(false, "Can't copy TAnagrafica"); }
TAnagrafica(const TAnagrafica&) { CHECK(false, "Can't copy TAnagrafica"); } TAnagrafica(const TAnagrafica&) { CHECK(false, "Can't copy TAnagrafica"); }
@ -47,7 +47,7 @@ public:
bool estero() const { return !italiano(); } bool estero() const { return !italiano(); }
const TString& stato_estero_UNICO() const; const TString& stato_estero_UNICO() const;
int inserimento_in_allegato() const { return _allegato; } int inserimento_in_allegato() const { return _allegato; }
char is_black_list() const; char is_black_list(const TDate& datareg) const;
const TString& comune_nascita() const; const TString& comune_nascita() const;
const TString& provincia_nascita() const; const TString& provincia_nascita() const;
@ -81,6 +81,7 @@ protected:
void init(); void init();
void add_header_data(int n, const TString& value); void add_header_data(int n, const TString& value);
const TString& get_recapito(const TRectype& ndt, const char* numero, const char* prefisso) const;
public: public:
virtual const TVariant& get(unsigned int column) const; virtual const TVariant& get(unsigned int column) const;