*** empty log message ***
git-svn-id: svn://10.65.10.50/trunk@11857 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
83dbe7df6e
commit
5a4e83275c
@ -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);
|
||||
|
@ -17,4 +17,4 @@ int ce0400 (int argc, char* argv[])
|
||||
TCespi_config_app appc;
|
||||
appc.run(argc, argv, TR("Parametri Ditta"));
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
@ -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
|
||||
|
@ -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;
|
||||
}
|
||||
}
|
||||
|
@ -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();
|
||||
|
@ -18,4 +18,3 @@
|
||||
|
||||
#define F_IDCESPITE 120
|
||||
#define F_DESC 121
|
||||
|
@ -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
|
||||
|
@ -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;
|
||||
}
|
||||
}
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -63,4 +63,4 @@
|
||||
#define F_ANNIAMMOREQ 306
|
||||
|
||||
#define F_ALIQMIN 401
|
||||
#define F_ENTROANNI 402
|
||||
#define F_ENTROANNI 402
|
||||
|
@ -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));
|
||||
|
@ -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
|
||||
{
|
||||
|
@ -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);
|
||||
|
@ -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
|
||||
|
@ -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);
|
||||
|
@ -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;
|
||||
|
||||
|
@ -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);
|
||||
|
Loading…
x
Reference in New Issue
Block a user