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

*** empty log message ***

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@11857 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2004-03-13 09:12:24 +00:00
parent 83dbe7df6e
commit 5a4e83275c
18 changed files with 114 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ce/ce0100.cpp
View File

@ -180,8 +180,8 @@ bool TCCE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
case F_DURATA:
if (e == fe_init && !field(F_CODESER).empty())
{
const TDate ies = get(F_DATAINI);
const TDate fes = get(F_DATAFINE);
const TDate ies = get_date(F_DATAINI);
const TDate fes = get_date(F_DATAFINE);
set(F_DURATA, fes-ies+1);
set(F_COEFF_DURATA, calc_coeff(ies, fes));
}
@ -271,7 +271,6 @@ bool TCEtables::protected_record(TRectype& rec)
if (get_tabname() == "%CGR")
{
TTable cat("%CAT");
const bool prot = FALSE;
const TString16 key(rec.get("CODTAB"));
cat.put("CODTAB", key);
@ -282,7 +281,6 @@ bool TCEtables::protected_record(TRectype& rec)
if (get_tabname() == "%CAT")
{
TTable cac("%CAC");
const bool prot = FALSE;
const TString16 key(rec.get("CODTAB"));
cac.put("CODTAB", key);

2
ce/ce0400.cpp
View File

@ -17,4 +17,4 @@ int ce0400 (int argc, char* argv[])
TCespi_config_app appc;
appc.run(argc, argv, TR("Parametri Ditta"));
return 0;
}
}

48
ce/ce0500.cpp
View File

@ -253,7 +253,9 @@ public:
bool TEdit_mask::one_compiled(const short* f) const
{
for (int i = 0; f[i]; i++)
int i;
for (i = 0; f[i]; i++)
{
if (!field(f[i]).empty())
break;
@ -299,10 +301,10 @@ bool TEdit_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (e == fe_modify || e == fe_close)
{
const TDate dtcomp = o.get();
const TDate dtcomp(o.get());
TDitta_cespiti& dc = ditta_cespiti();
TDate iniz, fine;
const int ese = dc.esercizio_corrente(iniz, fine);
dc.esercizio_corrente(iniz, fine);
if (stato_attivita() == 2)
{
@ -329,17 +331,17 @@ bool TEdit_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
case F_DTFUNZ:
if (e == fe_modify || e == fe_close)
{
const TDate dtfunz = o.get();
const TDate dtfunz(o.get());
if (dtfunz.ok())
{
const TDate dtcomp = field(F_DTCOMP).get();
const TDate dtcomp(field(F_DTCOMP).get());
if (dtfunz < dtcomp)
return error_box(FR("La data di entrata in funzione deve essere successiva a quella di aquisizione"));
if (!dtcomp.ok())
return error_box(TR("La data di entrata in funzione non puo' essere inserita senza specificare quella di aquisizione"));
if (stato_attivita() == 2)
{
const TDate iniz = get(F_INIZIO_ES);
const TDate iniz(get(F_INIZIO_ES));
if (dtfunz < iniz)
return error_box(TR("La data di entrata in funzione deve essere successiva a quella di inizio esercizio"));
}
@ -351,10 +353,10 @@ bool TEdit_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
return error_box(TR("In base alla normativa del TUIR, le date di acquisizione e di entrata in funzione devono coincidere"));
}
const TRectype& cac = dc.categoria(0, NULL, get_int(F_CATEGORIA));
const TDate iniz = cac.get("D0");
const TDate iniz = cac.get_date("D0");
if (iniz.ok() && dtfunz < iniz)
return error_box(TR("La data è precedente all'inizio validità della categoria"));
const TDate fine = cac.get("D1");
const TDate fine = cac.get_date("D1");
if (fine.ok() && dtfunz > fine)
return error_box(TR("La data è successiva alla fine validità della categoria"));
if (dtfunz.year() >= dc.anno_tuir())
@ -399,8 +401,8 @@ bool TEdit_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
case F_ELEMENTI:
if ((e == fe_modify || e == fe_close) && o.empty())
{
const TDate dtcomp = field(F_DTCOMP).get();
const TDate dtiniz = field(F_INIZIO_ES).get();
const TDate dtcomp(field(F_DTCOMP).get());
const TDate dtiniz(field(F_INIZIO_ES).get());
if (dtcomp.ok() && dtcomp < dtiniz)
return error_box(TR("E' necessario specificare il numero di elementi per cespiti acquisiti negli esercizi precedenti"));
const short fields[] = { F_COSTO, F_VNONAMM, F_RIV75, F_RIV83, F_RIV90, F_RIV91, F_RIVGF, F_RIVGC, 0 };
@ -521,9 +523,9 @@ bool TEdit_mask::test_ammissibilita_saldi()
case 1:
case 2:
{
const TDate iniz = get(F_INIZIO_ES);
const TDate dtacq = get(F_DTCOMP);
const TDate dtfunz = get(F_DTFUNZ);
const TDate iniz(get(F_INIZIO_ES));
const TDate dtacq(get(F_DTCOMP));
const TDate dtfunz(get(F_DTFUNZ));
if (!dtacq.ok() || !dtfunz.ok())
protez = TRUE;
else
@ -563,13 +565,13 @@ bool TEdit_mask::test_ammissibilita_fondi()
case 1:
case 2:
{
const TDate dtacq = get(F_DTCOMP);
const TDate dtfunz = get(F_DTFUNZ);
const TDate dtacq(get(F_DTCOMP));
const TDate dtfunz(get(F_DTFUNZ));
if (!dtacq.ok() || !dtfunz.ok())
protez = TRUE;
else
{
const TDate iniz = get(F_INIZIO_ES);
const TDate iniz(get(F_INIZIO_ES));
protez = dtacq >= iniz;
}
if (protez)
@ -590,8 +592,8 @@ bool TEdit_mask::test_ammissibilita_fondi()
if (!protez)
{
const TDate dtfunz = get(F_DTFUNZ);
const TDate iniz = get(F_INIZIO_ES);
const TDate dtfunz(get(F_DTFUNZ));
const TDate iniz(get(F_INIZIO_ES));
bool prot9 = FALSE;
if (!dtfunz.ok() || dtfunz >= iniz)
{
@ -735,7 +737,7 @@ void TAnacespi::init_query_mode(TMask& m)
bool TAnacespi::protected_record(TRectype& rec)
{
const TDate dtalien = rec.get(CESPI_DTALIEN);
const TDate dtalien = rec.get_date(CESPI_DTALIEN);
return dtalien.ok();
}
@ -784,9 +786,9 @@ void TAnacespi::init_modify_mode(TMask& m)
TDitta_cespiti& dc = ditta_cespiti();
TDate iniz, fine;
const int ese = dc.esercizio_corrente(iniz, fine);
const TDate dtacq = m.get(F_DTCOMP);
const TDate dtfunz = m.get(F_DTFUNZ);
dc.esercizio_corrente(iniz, fine);
const TDate dtacq(m.get(F_DTCOMP));
const TDate dtfunz(m.get(F_DTFUNZ));
const int staat = _qmask->stato_attivita();
TToken_string enabling;
@ -877,7 +879,7 @@ int TAnacespi::write(const TMask& m)
break;
default:
{
TDate dt = m.get(F_DTFUNZ);
TDate dt(m.get(F_DTFUNZ));
if (!dt.ok())
dt = m.get_date(F_INIZIO_ES);
// % beni mat D.M. 29/10/74 oppure D.M. 31/12/88

6
ce/ce0900.cpp
View File

@ -657,7 +657,7 @@ int TConversione_cespiti::conv_tab(const TFilename& ofname, const char* tab)
}
}
// scrivo il record sul nuovo file
int errore = newrec.write(*newfile);
newrec.write(*newfile);
}
if (newfile)
delete newfile;
@ -739,7 +739,7 @@ int TConversione_cespiti::conv_inifile(const TFilename& ofname, const char* ofpa
}
}
// scrivo il record sul nuovo file
int errore = newrec.write(*newfile);
newrec.write(*newfile);
}
delete newfile;
}
@ -892,4 +892,4 @@ int ce0900(int argc, char* argv[])
TConversione_cespiti a ;
a.run(argc, argv, TR("Conversione cespiti"));
return 0;
}
}

2
ce/ce1100.cpp
View File

@ -120,7 +120,7 @@ void TQuery_mask::calc_res(bool prec)
{
TCespite ces (get(F_IDCESPITE));
// calcolo ammortamento sul cespite (per sit. fiscale(1) e civilistica(2))
TDate fine_es = get(F_FINE_ES);
TDate fine_es(get(F_FINE_ES));
ces.calc_amm(1, fine_es);
const TRectype& salce2=ces.sal_pro(); //rectype giá di "tipo fiscale"
const TRectype& ammce2=ces.amm_pro();

1
ce/ce1101a.h
View File

@ -18,4 +18,3 @@
#define F_IDCESPITE 120
#define F_DESC 121

2
ce/ce1101b.h
View File

@ -49,4 +49,4 @@
#define F_RIS_PRIVATO 152
#define F_RIS_QUOTE_PRIV 153
#define F_RESIDUO_F 154
#define F_RESIDUO_C 155
#define F_RESIDUO_C 155

6
ce/ce1200.cpp
View File

@ -183,8 +183,8 @@ bool TForce_mov_qmask::on_field_event(TOperable_field& o, TField_event e, long j
return error_box(TR("Non sono ammessi ammortamenti sulle rettifiche"));
const TDate dtmov = curr_movce.get_date(MOVCE_DTMOV); // controlla che datamovimento sia inclusa nell'esercizio selezionato
const TDate dataini = get(F_INIZIO_ES);
const TDate datafine = get(F_FINE_ES);
const TDate dataini(get(F_INIZIO_ES));
const TDate datafine(get(F_FINE_ES));
if ( dtmov < dataini || dtmov > datafine)
return error_box(TR("Il movimento selezionato non é di competenza dell'esercizio selezionato"));
}
@ -534,4 +534,4 @@ int ce1200(int argc, char* argv[])
TForza_amm_movce fm;
fm.run(argc, argv, TR("Forzatura ammortamento sui movimenti"));
return 0;
}
}

2
ce/ce1201a.h
View File

@ -49,4 +49,4 @@
#define F_RESIDUO_F 154
#define F_RESIDUO_C 155
#define F_PLUSMINUS_F 156
#define F_PLUSMINUS_C 157
#define F_PLUSMINUS_C 157

12
ce/ce1300.cpp
View File

@ -144,7 +144,7 @@ void TSelam_qmask::calc_res(bool prec)
{
TCespite ces (get(F_IDCESPITE));
// calcolo ammortamento sul cespite (per sit. fiscale(1) e civilistica(2))
TDate fine_es = get(F_FINE_ES);
TDate fine_es(get(F_FINE_ES));
ces.calc_amm(1, fine_es);
const TRectype& salce2=ces.sal_pro(); //rectype giá di "tipo fiscale"
const TRectype& ammce2=ces.amm_pro();
@ -307,8 +307,8 @@ bool TSelam_mmask::test_min(short quota, short minimo) const
const bool ammrit = get_bool(F_AMMRIT_CE);
if (!ammrit)
{
const real perq = get(quota);
const real minq = get(minimo);
const real perq(get(quota));
const real minq(get(minimo));
warning = perq < minq;
}
return warning;
@ -456,7 +456,7 @@ bool TSelam_imask::on_field_event(TOperable_field& o, TField_event e, long jolly
case F_AMMCIV_CE:
if (e == fe_modify || e == fe_close)
{
TCespite ces = get(F_IDCESPITE);
TCespite ces(get(F_IDCESPITE));
if ( (ces.get_int(CESPI_VINCOLO) != 2) && ( (get(F_AMMFISC_CE) > get(F_ALIQMAX)) || (get(F_AMMCIV_CE) > get(F_ALIQMAX)) ) )
return error_box(TR("L' ammortamento richiesto supera il limite della categoria"));
}
@ -498,12 +498,12 @@ bool TSelam_pmask::on_field_event(TOperable_field& o, TField_event e, long jolly
case F_AMMCIV_CE:
if (e == fe_modify || e == fe_close)
{
TCespite ces = get(F_IDCESPITE);
TCespite ces(get(F_IDCESPITE));
if (ces.get_int(CESPI_VINCOLO) == 1)
{
if (ces.get_int(CESPI_ANNIRIC) == 0)
{
real amm_fisc = o.get();
real amm_fisc(o.get());
if (amm_fisc == ZERO) //controlla l'obbligatorietá e la validitá dei campi (fiscale)
return error_box(TR("Compilare l'ammortamento scelto"));
else

2
ce/ce1301a.h
View File

@ -63,4 +63,4 @@
#define F_ANNIAMMOREQ 306
#define F_ALIQMIN 401
#define F_ENTROANNI 402
#define F_ENTROANNI 402

16
ce/ce1400.cpp
View File

@ -158,8 +158,8 @@ bool TMat_mask::test_min(short quota, short minimo) const
const bool ammrit = get_bool(F_AMMRIT);
if (!ammrit)
{
const real perq = get(quota);
const real minq = get(minimo);
const real perq(get(quota));
const real minq(get(minimo));
warning = perq < minq;
}
return warning;
@ -171,8 +171,8 @@ bool TMat_mask::test_rit(short quota, short minimo) const
const bool ammrit = get_bool(F_AMMRIT);
if (ammrit)
{
const real perq = get(quota);
const real minq = get(minimo);
const real perq(get(quota));
const real minq(get(minimo));
warning = perq >= minq;
}
return warning;
@ -190,8 +190,8 @@ bool TMat_mask::test_max(short nor, short ant, short acc) const
bool TMat_mask::is_max(short quota, short massima) const
{
const real perq = get(quota);
const real maxq = get(massima);
const real perq(get(quota));
const real maxq(get(massima));
return perq >= maxq;
}
@ -439,8 +439,8 @@ void TScelta_amm_cat::init_mask(TMask& m)
break;
default:
{
const real r11 = cac.get("R11");
const real r12 = cac.get("R12");
const real r11 = cac.get_real("R11");
const real r12 = cac.get_real("R12");
m.set(F_MIN_87, real(r12/2.0));
m.set(F_MIN_88, real(r12/2.0));
m.set(F_MIN_89, real(r11/2.0));

30
ce/ce1500.cpp
View File

@ -231,8 +231,8 @@ public:
// Determina se siamo in presenza di un cespite nuovo
bool TMov_emask::cespite_nuovo() const
{
const TDate dtacq = _cespite.get(CESPI_DTCOMP);
const TDate dtmov = get(F_DTMOV);
const TDate dtacq = _cespite.get_date(CESPI_DTCOMP);
const TDate dtmov(get(F_DTMOV));
return !dtacq.ok() || dtacq >= dtmov;
}
@ -399,10 +399,10 @@ bool TMov_emask::on_field_event(TOperable_field& o, TField_event e, long jolly)
reset(F_CATEGORIA);
reset(F_DESC_CAT);
}
const TDate dtcomp = _cespite.get(CESPI_DTCOMP);
const TDate dtcomp = _cespite.get_date(CESPI_DTCOMP);
if (dtcomp.ok())
{
const TDate dtmov = get(F_DTMOV);
const TDate dtmov(get(F_DTMOV));
if (dtcomp > dtmov)
return error_box(TR("La data di acquisizione del cespite non può precedere quella del movimento"));
}
@ -431,10 +431,10 @@ bool TMov_emask::on_field_event(TOperable_field& o, TField_event e, long jolly)
ini.set("DataMovimento", "");
}
const TDate dtret = get(F_DTMOV_RET);
const TDate dtret(get(F_DTMOV_RET));
if (dtret.ok())
{
const TDate dtmov = o.get();
const TDate dtmov(o.get());
if (dtmov < dtret)
return error_box(TR("La data del movimento di rettifica deve seguire la data del movimento rettificato"));
}
@ -553,8 +553,8 @@ void TMov_emask::calc_plus_minus(int tipo, real& plus, real& minus) const
{
TDitta_cespiti& cce = ditta_cespiti();
TDate inies, fines;
const int esercizio = cce.esercizio_corrente(inies, fines);
const TDate dtlim = get(F_DTMOV);
cce.esercizio_corrente(inies, fines);
const TDate dtlim(get(F_DTMOV));
TRelation rel(LF_MOVCE);
TString expr; expr << "IDCESPITE==IDCESPITE|IDMOV==IDMOV|TPAMM==\"" << tipo << '"';
@ -587,7 +587,7 @@ bool TMov_emask::calc_amm(int tipo)
if (idcespite.empty())
return FALSE;
const TDate dtlim = get(F_DTMOV);
const TDate dtlim(get(F_DTMOV));
_cespite.calc_amm(tipo, dtlim);
set(S_DATAMOV, dtlim);
@ -640,7 +640,7 @@ void TMov_emask::set_fondi_inputability()
void TMov_emask::recalc_amm()
{
const TDate dtlim = get(F_FINE_ES);
const TDate dtlim(get(F_FINE_ES));
for (int tipo = 1; tipo <= 3; tipo++)
_cespite.calc_amm(tipo, dtlim);
}
@ -786,7 +786,7 @@ void TMovicespi::calc_residuo(long numreg)
for (cur = 0L; cur.pos() < items; ++cur)
{
const char segno = movce.get_char(MOVCE_SEGNO);
real imp = movce.get(segno == '-' ? MOVCE_IMPVEN : MOVCE_CSTO);
real imp = movce.get_real(segno == '-' ? MOVCE_IMPVEN : MOVCE_CSTO);
if (imp > ZERO) // Cerca una riga con lo stesso importo
{
for (int r = 0; r < s.items(); r++)
@ -810,7 +810,7 @@ void TMovicespi::calc_residuo(long numreg)
if (ignore.is_key(movce.get(MOVCE_IDMOV)))
continue;
const char segno = movce.get_char(MOVCE_SEGNO);
real imp = movce.get(segno == '-' ? MOVCE_IMPVEN : MOVCE_CSTO);
real imp = movce.get_real(segno == '-' ? MOVCE_IMPVEN : MOVCE_CSTO);
for (int r = 0; r < s.items() && imp > ZERO; r++)
{
TToken_string& row = s.row(r);
@ -864,8 +864,8 @@ void TMovicespi::show_plus_minus(TMask& m)
key.add(m.get(F_IDMOV));
key.add(tipo);
const TRectype& ammmv = cache().get(LF_AMMMV, key);
const real plus = ammmv.get(AMMMV_PLUS);
const real minus = ammmv.get(AMMMV_MINUS);
const real plus = ammmv.get_real(AMMMV_PLUS);
const real minus = ammmv.get_real(AMMMV_MINUS);
const bool on = !plus.is_zero() || !minus.is_zero();
if (on)
{
@ -1015,7 +1015,7 @@ void TMovicespi::init_modify_mode(TMask& m)
m.disable(F_DESC_CES);
const TRectype& rec = get_relation()->curr();
const TDate dtmov = rec.get(MOVCE_DTMOV);
const TDate dtmov = rec.get_date(MOVCE_DTMOV);
bool bollato = rec.get_bool(MOVCE_STAMPATO);
if (!bollato) // Se proprio non ci fidiamo del flag
{

2
ce/ce2100.cpp
View File

@ -81,7 +81,7 @@ bool TCalcamm::calcola_ammortamenti()
const TString& esercizio = _mask->get(F_ESERCIZIO);
const TString& gruppo = _mask->get(F_GRUPPO);
const TString& specie = _mask->get(F_SPECIE);
const TDate data_limite = _mask->get(F_FINE_ES);
const TDate data_limite(_mask->get(F_FINE_ES));
TRectype filter(LF_CESPI);
filter.put(CESPI_CODCGRA, gruppo);

74
ce/ce2101.cpp
View File

@ -68,7 +68,7 @@ HIDDEN real sum_fields(const TRectype& rec, const char* fld0, const char* fld1,
const char* fld6 = NULL, const char* fld7 = NULL, const char* fld8 = NULL,
const char* fld9 = NULL, const char* fld10 = NULL, const char* fld11 = NULL)
{
real sum = rec.get(fld0);
real sum = rec.get_real(fld0);
sum += rec.get_real(fld1);
if (fld2 && *fld2) sum += rec.get_real(fld2);
if (fld3 && *fld3) sum += rec.get_real(fld3);
@ -252,7 +252,7 @@ bool TCespite::valido()
read_amm(esercizio);
// Cespite alienato
const TDate alienazione = get(CESPI_DTALIEN);
const TDate alienazione = get_date(CESPI_DTALIEN);
if (alienazione.ok() && alienazione < ini_es)
{
set_msg05(TR("cespite completamente eliminato."));
@ -268,7 +268,7 @@ bool TCespite::valido()
}
// Cespite non ancora completato
const TDate completamento = get(CESPI_DTCOMP);
const TDate completamento = get_date(CESPI_DTCOMP);
if (!completamento.ok() || completamento > fin_es)
{
set_msg05(TR("cespite non completato."));
@ -280,7 +280,7 @@ bool TCespite::valido()
const TTipo_cespite tc = tipo();
if (tc == tc_materiale || (tc == tc_immateriale && !get_bool(CESPI_TUIR)))
{
const TDate funzione = get(CESPI_DTFUNZ);
const TDate funzione = get_date(CESPI_DTFUNZ);
if (!funzione.ok() || funzione > fin_es)
{
set_msg05(TR("cespite non ancora entrato in funzione."));
@ -328,8 +328,8 @@ real TCespite::val_amm() const
if (_tipo_sit == 2 && !get_bool(CESPI_LEASING))
val += _salpro.get_real(SALCE_RIVGC);
const real riv90 = _salpro.get(SALCE_RIV90);
const real riv91 = _salpro.get(SALCE_RIV91);
const real riv90 = _salpro.get_real(SALCE_RIV90);
const real riv91 = _salpro.get_real(SALCE_RIV91);
if (riv90 != ZERO || riv91 != ZERO)
{
const int annipost90 = _salpro.get_int(SALCE_ANNIPOST90);
@ -371,7 +371,7 @@ TRectype& date2limit(const TDate& d)
bool ok = clm.last() == NOERR;
if (ok)
{
TDate datalim = clm.get("CODTAB");
TDate datalim = clm.get_date("CODTAB");
ok = d >= datalim;
while (!ok)
{
@ -480,10 +480,10 @@ void TCespite::prepara_saldi(bool is_valid)
// Certified 100%
void TCespite::incr_field(TRectype& dst, const char* fdst, const TRectype& src, const char* fsrc, char segno) const
{
const real num = src.get(fsrc);
const real num = src.get_real(fsrc);
if (!num.is_zero())
{
real val = dst.get(fdst);
real val = dst.get_real(fdst);
if (segno == '-')
val -= num;
else
@ -663,8 +663,8 @@ void TCespite::rip_jolly(TRelation& rel, const real& num, const real& den, int m
void TCespite::rip_elem(TRelation& rel, int mode)
{
log(TR("# Ripartizionamento importi in base agli elementi"));
const real num = rel.curr(LF_MOVCE).get(MOVCE_NUMELE);
const real den = _salpro.get(SALCE_NUMELE);
const real num = rel.curr(LF_MOVCE).get_real(MOVCE_NUMELE);
const real den = _salpro.get_real(SALCE_NUMELE);
if (den > ZERO)
rip_jolly(rel, num, den, mode);
else
@ -676,8 +676,8 @@ void TCespite::rip_elem(TRelation& rel, int mode)
void TCespite::rip_costo(TRelation& rel, int mode)
{
log(TR("# Ripartizionamento importi in base al costo storico"));
const real num = rel.curr(LF_MOVCE).get(MOVCE_CSTO);
const real den = _salpro.get(SALCE_CSTO);
const real num = rel.curr(LF_MOVCE).get_real(MOVCE_CSTO);
const real den = _salpro.get_real(SALCE_CSTO);
if (den > ZERO)
rip_jolly(rel, num, den, mode);
else
@ -759,8 +759,8 @@ real TCespite::calc_quota(const real& valamm, const real& perric,
{
TDate inies, fines;
cce.esercizio_corrente(inies, fines);
const TDate dtmov = mov->curr(LF_MOVCE).get(MOVCE_DTMOV);
const TDate dtcomp = get(CESPI_DTCOMP);
const TDate dtmov = mov->curr(LF_MOVCE).get_date(MOVCE_DTMOV);
const TDate dtcomp = get_date(CESPI_DTCOMP);
const long giorni_possesso = dtmov - fnc_max(inies, dtcomp) + 1;
const long giorni_esercizio = fines - inies + 1;
quota = quota * giorni_possesso / giorni_esercizio;
@ -799,7 +799,7 @@ real TCespite::calc_quote_perse(const real& valamm, const real& peric, const rea
{
TDate inies, fines;
cce.esercizio_corrente(inies, fines);
const TDate dtcomp = get(CESPI_DTCOMP);
const TDate dtcomp = get_date(CESPI_DTCOMP);
const real giorni_possesso = dtmov - fnc_max(inies, dtcomp) + 1;
const real giorni_esercizio = fines - inies + 1;
quota = quota * giorni_possesso / giorni_esercizio;
@ -850,7 +850,7 @@ void TCespite::agg_quota(const real& movvalamm, TRectype& rec, const char* field
clim = mva;
const TDitta_cespiti& cce = ditta_cespiti();
const real quotat = rec.get(field);
const real quotat = rec.get_real(field);
const real limcsto = clim / mva;
real campo = quotat * limcsto * perc;
cce.arrotonda(campo);
@ -861,7 +861,7 @@ void TCespite::agg_quota(const real& movvalamm, TRectype& rec, const char* field
rec.put("FPRIVATO", rec.get_real("FPRIVATO") + quotat - campo);
if (calcq)
{
const real quotap = rec.get("QPERSE");
const real quotap = rec.get_real("QPERSE");
real qp = quotap * limcsto * perc;
cce.arrotonda(qp);
rec.put("QPERSE", qp);
@ -936,7 +936,7 @@ TString& TCespite::ammini_get(const char* pstar) const
{
case tc_materiale:
{
TDate dtfunz = get(CESPI_DTFUNZ);
TDate dtfunz = get_date(CESPI_DTFUNZ);
if (!dtfunz.ok())
{
TDate dtdummy;
@ -977,7 +977,7 @@ TString& TCespite::ammini_get(const char* pstar) const
case 4: // PANT
if (tc == tc_materiale && scelte == 2)
{
TDate dtfunz = get(CESPI_DTFUNZ);
TDate dtfunz = get_date(CESPI_DTFUNZ);
if (!dtfunz.ok())
{
TDate dtdummy;
@ -1006,7 +1006,7 @@ bool TCespite::ammini_get_bool(const char* pstar) const
real TCespite::ammini_get_real(const char* pstar) const
{
const real val = ammini_get(pstar);
const real val = ammini_get_real(pstar);
return val;
}
@ -1102,14 +1102,14 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
real resamm = mov_res_amm(tmv, tmvam) - ammmv.get_real(AMMMV_FPRIVATO);
if (resamm > ZERO)
{
const real penor = ammmv.get(AMMMV_PENOR);
const real penor = ammmv.get_real(AMMMV_PENOR);
real per_eff;
const real qnor = calc_quota(mov_val_amm(tmv), penor, resamm, per_eff, &rel);
ammmv.put(AMMMV_QNOR, qnor);
ammmv.put(AMMMV_PENOR, per_eff);
resamm -= qnor;
const real peacc = ammmv.get(AMMMV_PEACC);
const real peacc = ammmv.get_real(AMMMV_PEACC);
if (resamm > ZERO && peacc > ZERO)
{
const real qacc = calc_quota(mov_val_amm(tmv), peacc, resamm, per_eff, &rel);
@ -1118,7 +1118,7 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
resamm -= qacc;
}
const real peant = ammmv.get(AMMMV_PEANT);
const real peant = ammmv.get_real(AMMMV_PEANT);
if (resamm > ZERO && peant > ZERO)
{
const real qant = calc_quota(mov_val_amm(tmv), peant, resamm, per_eff, &rel);
@ -1171,7 +1171,7 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
ammmv.put(AMMMV_PENOR, per_eff);
// Calcolare quote perse
const TDate dtmov = tmv.get(MOVCE_DTMOV);
const TDate dtmov = tmv.get_date(MOVCE_DTMOV);
const real quote_perse = calc_quote_perse(valamm, per_eff, resamm, qnor, TRUE, dtmov);
ammmv.put(AMMMV_QPERSE, quote_perse);
@ -1208,7 +1208,7 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
resamm -= ammmv.get_real(AMMMV_QACC);
if (tipo() == tc_materiale && _salini.get_int(SALCE_ANNIAMM) <= 2)
{
const real peant = ammmv.get(AMMMV_PEANT);
const real peant = ammmv.get_real(AMMMV_PEANT);
if (resamm > ZERO && peant > ZERO && ammmv.get_real(AMMMV_QPERSE) == ZERO)
{
const real qant = calc_quota(valamm, peant, resamm, per_eff, &rel);
@ -1262,7 +1262,7 @@ void TCespite::calc_anni(TRectype& ammmv, const TRectype& tmv, const TRectype& t
}
const real resamm = mov_res_amm(tmv, tmvam);
real qnor = ammmv.get(AMMMV_QNOR);
real qnor = ammmv.get_real(AMMMV_QNOR);
if (resamm < qnor)
{
qnor = resamm;
@ -1389,7 +1389,7 @@ void TCespite::scansione_movimenti(const TDate& data_limite, bool is_valid)
log(TR("- Scansione movimenti"));
TDitta_cespiti& cce = ditta_cespiti();
TDate inies, fines;
const int esercizio = cce.esercizio_corrente(inies, fines);
cce.esercizio_corrente(inies, fines);
TRelation rel(LF_MOVCE);
@ -1510,7 +1510,7 @@ void TCespite::calc_amm_residui(bool is_valid)
real resamm = res_amm() - _ammpro.get_real(AMMCE_FPRIVATO);
if (resamm > ZERO)
{
real qnor = _ammpro.get(AMMCE_QNOR);
real qnor = _ammpro.get_real(AMMCE_QNOR);
if (resamm < qnor)
_ammpro.put(AMMCE_QNOR, qnor = resamm); // Forzo la quota uguale al residuo
@ -1520,7 +1520,7 @@ void TCespite::calc_amm_residui(bool is_valid)
resamm -= qnor;
if (resamm > ZERO)
{
real qacc = _ammpro.get(AMMCE_QACC);
real qacc = _ammpro.get_real(AMMCE_QACC);
if (resamm < qacc)
_ammpro.put(AMMCE_QACC, qacc = resamm); // Forzo la quota uguale al residuo
const real pacc = qacc / coeff_durata * 100.0 / val_amm();
@ -1533,7 +1533,7 @@ void TCespite::calc_amm_residui(bool is_valid)
}
if (resamm > ZERO)
{
real qant = _ammpro.get(AMMCE_QANT);
real qant = _ammpro.get_real(AMMCE_QANT);
if (resamm < qant)
_ammpro.put(AMMCE_QANT, qant = resamm); // Forzo la quota uguale al residuo
const real pant = qant / coeff_durata * 100.0 / val_amm();
@ -1570,7 +1570,7 @@ void TCespite::calc_amm_residui(bool is_valid)
AMMCE_QPERSE, AMMCE_FPRIVATO, AMMCE_QPPRIVATE, NULL);
}
const real pacc = _ammpro.get(AMMCE_PACC);
const real pacc = _ammpro.get_real(AMMCE_PACC);
if (resamm > ZERO && pacc > ZERO)
{
const real valamm = val_amm();
@ -1583,7 +1583,7 @@ void TCespite::calc_amm_residui(bool is_valid)
else
zero_fields(_ammpro, AMMCE_QACC, AMMCE_PACC, NULL);
const real pant = _ammpro.get(AMMCE_PANT);
const real pant = _ammpro.get_real(AMMCE_PANT);
if (resamm > ZERO && pant > ZERO)
{
const real valamm = val_amm();
@ -1605,7 +1605,7 @@ void TCespite::calc_amm_residui(bool is_valid)
// Percentuale minima quote perse
real pmat = get_real(CESPI_PMAT) / 2.0;
const TDate dtfunz = get(CESPI_DTFUNZ);
const TDate dtfunz = get_date(CESPI_DTFUNZ);
if (tc == tc_materiale && _salini.get_int(SALCE_ANNIAMM) == 0 &&
!cce.professionista() && dtfunz >= inies)
{
@ -1613,7 +1613,7 @@ void TCespite::calc_amm_residui(bool is_valid)
real vam = val_amm();
if (vam > ZERO)
{
const real numele = _salpro.get(SALCE_NUMELE);
const real numele = _salpro.get_real(SALCE_NUMELE);
if (numele > ZERO)
vam /= numele;
}
@ -1651,7 +1651,7 @@ void TCespite::calc_amm_residui(bool is_valid)
if (resamm > ZERO)
{
const real valamm = val_amm();
const real pnor = _ammpro.get(AMMCE_PNOR);
const real pnor = _ammpro.get_real(AMMCE_PNOR);
real per_eff;
const real qnor = calc_quota(valamm, pnor, resamm, per_eff);
_ammpro.put(AMMCE_QNOR, qnor);
@ -1802,7 +1802,7 @@ void TCespite::agg_spe_man(bool is_valid)
ccb.put("CODTAB", key);
}
real speman = ccb.get(field);
real speman = ccb.get_real(field);
if (tpspeman == 3)
speman += vspmanu * 0.25; // 25%
else

8
ce/ce2200.cpp
View File

@ -300,7 +300,7 @@ void TOpenesc::test_alien(const TRectype& salce, const TDate& fines) const
cespiti.put(CESPI_IDCESPITE, idcespite);
if (cespiti.read() == NOERR)
{
const TDate dtcomp = cespiti.get(CESPI_DTCOMP);
const TDate dtcomp = cespiti.get_date(CESPI_DTCOMP);
if (dtcomp <= fines)
{
cespiti.put(CESPI_DTALIEN, fines);
@ -356,7 +356,7 @@ void TOpenesc::crea_saldi(int oldes, int newes) const
void TOpenesc::incr_zero(TRectype& rec, const char* val, const char* valp) const
{
real num = rec.get(val);
real num = rec.get_real(val);
num += rec.get_real(valp);
rec.put(val, num);
rec.zero(valp);
@ -406,8 +406,8 @@ void TOpenesc::main_loop()
{
const int oldes = m.get_int(F_OLDES);
const int newes = m.get_int(F_NEWES);
const TDate ies = m.get(F_NEWINIZIO);
const TDate fes = m.get(F_NEWFINE);
const TDate ies(m.get(F_NEWINIZIO));
const TDate fes(m.get(F_NEWFINE));
crea_esercizio(oldes, newes, ies, fes);
crea_attivita(oldes, newes);
crea_registro(oldes, newes);

8
ce/ce2400.cpp
View File

@ -157,8 +157,8 @@ static bool MovHandler(TRelation& rel, void* jolly)
if (movce.get_bool(MOVCE_STAMPATO)) // Salta i movimenti già stampati su bollato
return FALSE;
const TDate dtmov = movce.get(MOVCE_DTMOV);
const TDate dtacq = data._cespite->get(CESPI_DTCOMP);
const TDate dtmov = movce.get_date(MOVCE_DTMOV);
const TDate dtacq = data._cespite->get_date(CESPI_DTCOMP);
if (dtmov < dtacq) // Ignora movimenti precedenti l'acquisizione del cespite
return FALSE;
@ -172,11 +172,11 @@ static bool CespHandler(TRelation& rel, void* jolly)
TTras_data& data = *(TTras_data*)jolly;
data._cespite = &cespite; // Inizializza cespite corrente
const TDate dtalien = cespite.get(CESPI_DTALIEN);
const TDate dtalien = cespite.get_date(CESPI_DTALIEN);
if (dtalien.ok() && dtalien < data._inizio) // Escludi cespiti alienati
return FALSE;
const TDate dtcomp = cespite.get(CESPI_DTCOMP);
const TDate dtcomp = cespite.get_date(CESPI_DTCOMP);
if (!dtcomp.ok() || dtcomp > data._fine) // Escludi cespiti non in funzione
return FALSE;

2
ce/ce2500.cpp
View File

@ -64,7 +64,7 @@ void TRestore_boll::pulisci_movce()
{
int ese;
TString4 gru, specie;
const TRectype& curr = ditta_cespiti().get_attivita(ese, gru, specie);
ditta_cespiti().get_attivita(ese, gru, specie);
TDate inies, fines;
ditta_cespiti().esercizio_corrente(inies, fines);