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

Patch level :4.0 /10.0 896

Browse Source 
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
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ce/ce4300.cpp
View File

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