Patch level :4.0 /10.0 896

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :riportata correzione segnalazione 793 dalla 3.2


git-svn-id: svn://10.65.10.50/trunk@16255 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-03-04 15:29:18 +00:00
parent 59817e8e08
commit 1e5e0c59aa

View File

@ -216,7 +216,7 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
{
pi.addstatus(1);
real costo, alien, famm;
real costo_ini, costo_fin, alien, famm;
//Colonna COSTO
const TString idcespite = rel_cespi.curr().get(CESPI_IDCESPITE);
@ -226,8 +226,12 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
salce.put(SALCE_TPSALDO, 1);
if (salce.read() == NOERR)
{
costo = salce.get_real(SALCE_CSTO);
add_value(codcat, SALCE_CSTO, costo);
//costo ad inizio esercizio (=0 nel caso di acquisto cespite nell'anno in corso)
costo_ini = salce.get_real(SALCE_CSTO);
add_value(codcat, SALCE_CSTO, costo_ini);
//costo a fine esercizio (=0 nel caso di vendita cespite nell'anno in corso)
salce.next();
costo_fin = salce.get_real(SALCE_CSTO);
}
//Colonna ALIENAZIONI
@ -267,8 +271,9 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
add_value(codcat, "AMMO1", qamm);
//Colonne degli ammortamenti
//Si calcolano in questo modo perche' si calcolano cespite
real residuo = costo - alien - famm - qamm; //qamm e' AMMO1
//Si calcolano in questo modo perche' si calcolano cespite x cespite;si usa costo_fin perche' e'..
//..quello che serve nel futuro!
real residuo = costo_fin - alien - famm - qamm; //qamm e' AMMO1
TString8 ammo;
for (int a = 2; a <= 5 && residuo > ZERO; a++)
{
@ -284,7 +289,7 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
residuo -= qamm;
}
}
if (residuo > 0)
if (residuo > ZERO)
add_value(codcat, "AMMOX", residuo);
}