diff --git a/ce/ce0100.cpp b/ce/ce0100.cpp index 11d6c555e..5de32fd61 100755 --- a/ce/ce0100.cpp +++ b/ce/ce0100.cpp @@ -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); diff --git a/ce/ce0400.cpp b/ce/ce0400.cpp index dc5a1b2b5..7cefd0fcf 100755 --- a/ce/ce0400.cpp +++ b/ce/ce0400.cpp @@ -17,4 +17,4 @@ int ce0400 (int argc, char* argv[]) TCespi_config_app appc; appc.run(argc, argv, TR("Parametri Ditta")); return 0; -} \ No newline at end of file +} diff --git a/ce/ce0500.cpp b/ce/ce0500.cpp index f292a8f16..3fbddce10 100755 --- a/ce/ce0500.cpp +++ b/ce/ce0500.cpp @@ -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 diff --git a/ce/ce0900.cpp b/ce/ce0900.cpp index 97d3559c8..33aea084f 100755 --- a/ce/ce0900.cpp +++ b/ce/ce0900.cpp @@ -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; -} \ No newline at end of file +} diff --git a/ce/ce1100.cpp b/ce/ce1100.cpp index 9efdcb86f..ecc7ad36e 100755 --- a/ce/ce1100.cpp +++ b/ce/ce1100.cpp @@ -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(); diff --git a/ce/ce1101a.h b/ce/ce1101a.h index ef99a7d0b..5d35e2b9d 100755 --- a/ce/ce1101a.h +++ b/ce/ce1101a.h @@ -18,4 +18,3 @@ #define F_IDCESPITE 120 #define F_DESC 121 - \ No newline at end of file diff --git a/ce/ce1101b.h b/ce/ce1101b.h index e950e0574..26102e1c7 100755 --- a/ce/ce1101b.h +++ b/ce/ce1101b.h @@ -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 \ No newline at end of file +#define F_RESIDUO_C 155 diff --git a/ce/ce1200.cpp b/ce/ce1200.cpp index 7110f9bce..cb5351d6e 100755 --- a/ce/ce1200.cpp +++ b/ce/ce1200.cpp @@ -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; -} \ No newline at end of file +} diff --git a/ce/ce1201a.h b/ce/ce1201a.h index 12f4041d8..e48799e34 100755 --- a/ce/ce1201a.h +++ b/ce/ce1201a.h @@ -49,4 +49,4 @@ #define F_RESIDUO_F 154 #define F_RESIDUO_C 155 #define F_PLUSMINUS_F 156 -#define F_PLUSMINUS_C 157 \ No newline at end of file +#define F_PLUSMINUS_C 157 diff --git a/ce/ce1300.cpp b/ce/ce1300.cpp index 8a639fd81..6869577ac 100755 --- a/ce/ce1300.cpp +++ b/ce/ce1300.cpp @@ -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 diff --git a/ce/ce1301a.h b/ce/ce1301a.h index f8a041cbf..73df205f3 100755 --- a/ce/ce1301a.h +++ b/ce/ce1301a.h @@ -63,4 +63,4 @@ #define F_ANNIAMMOREQ 306 #define F_ALIQMIN 401 -#define F_ENTROANNI 402 \ No newline at end of file +#define F_ENTROANNI 402 diff --git a/ce/ce1400.cpp b/ce/ce1400.cpp index 7f969e365..655153540 100755 --- a/ce/ce1400.cpp +++ b/ce/ce1400.cpp @@ -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)); diff --git a/ce/ce1500.cpp b/ce/ce1500.cpp index d78f1c83e..ecd92188b 100755 --- a/ce/ce1500.cpp +++ b/ce/ce1500.cpp @@ -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 pụ 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 { diff --git a/ce/ce2100.cpp b/ce/ce2100.cpp index 29b07a49f..883383deb 100755 --- a/ce/ce2100.cpp +++ b/ce/ce2100.cpp @@ -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); diff --git a/ce/ce2101.cpp b/ce/ce2101.cpp index 8d4b73edb..5bb53c13f 100755 --- a/ce/ce2101.cpp +++ b/ce/ce2101.cpp @@ -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 diff --git a/ce/ce2200.cpp b/ce/ce2200.cpp index 36735d1d5..b14b8992b 100755 --- a/ce/ce2200.cpp +++ b/ce/ce2200.cpp @@ -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); diff --git a/ce/ce2400.cpp b/ce/ce2400.cpp index c1e79a7b8..13af07845 100755 --- a/ce/ce2400.cpp +++ b/ce/ce2400.cpp @@ -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; diff --git a/ce/ce2500.cpp b/ce/ce2500.cpp index 8ba4c2640..987a5c0b3 100755 --- a/ce/ce2500.cpp +++ b/ce/ce2500.cpp @@ -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);