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

Corretti errori MI2308 e MI2309, relativo al calcolo dell'acconto

Browse Source 
per anno precedente.


git-svn-id: svn://10.65.10.50/trunk@4340 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-05-14 10:46:05 +00:00
parent 2b26a6840c
commit a2e7b5aa4a
1 changed files with 136 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
cg/cg4305.cpp
View File

@ -470,6 +470,7 @@ bool TLiquidazione_app::recalc_acconto(real& inf, real& ina)
{
// determina casistica
enum { mm, tt, mt, tm, boh } history = boh;
real divide_by_three = 1.0;
char thh = *_freqviva;
TString16 thyear = _year;
@ -526,9 +527,9 @@ bool TLiquidazione_app::recalc_acconto(real& inf, real& ina)
real av = _lim->get_real("R11");
bc += av;
}
if (_basecalc == tm)
if (history == tm)
// tm come tt ma si divide per 3 la base di calcolo prima di calcolare l'88%
bc /= real(3.0);
divide_by_three = 3.0;
break;
case mt:
// basecalcolo: 10, 11, 12 anno prec., 10 e 11 se a debito, 12 vedi acconto;
@ -557,9 +558,10 @@ bool TLiquidazione_app::recalc_acconto(real& inf, real& ina)
break;
}
round_mille_lire(bc);
if (bc.sign() > 0) //debito
{
acc = (bc * _ver->get(isdifferita ? B_LIQ_DIFF : B_LIQ_NORM))/CENTO;
acc = ((bc / divide_by_three) * _ver->get(isdifferita ? B_LIQ_DIFF : B_LIQ_NORM))/CENTO;
acc.round(ROUND_LIRA);
}
@ -567,8 +569,9 @@ bool TLiquidazione_app::recalc_acconto(real& inf, real& ina)
}
_year = thyear;
}
else if (_basecalc == incorso)
{
else
if (_basecalc == incorso)
{
// that's pazzesc but as it turns out there's no better way
_comp_acconto = TRUE;
// force recalc of current month
@ -664,11 +667,11 @@ else if (_basecalc == incorso)
}
//fine
_isprint = TRUE;
}
}
// sbatti l'acconto (e non solo!) in LIA
if (look_lia())
{
// sbatti l'acconto (e non solo!) in LIA
if (look_lia())
{
if (isdifferita && _basecalc == incorso)
{
acc *= real(2.0);
@ -687,7 +690,7 @@ if (look_lia())
_lia->put("S1",rr);
_lia->put("S8",tipo_acc);
_lia->rewrite();
}
}
/*** Non bisogna aggiornare la delega
Se in un prossimo futuro si decidesse di ripristinare questa
@ -710,8 +713,8 @@ if (look_lia())
***/
// per questa volta lasciamo perdere la describe_acconto
if (_isprint)
{
if (_isprint)
{
// segnalazioni di errore da gesticolare:
// error = 0: no error
// error = 1: manca tabella risultati liquidazione per l'anno indicato
@ -729,7 +732,7 @@ if (_isprint)
d->_s0 = _nditte->curr().get("CODDITTA");
d->_s1 = _nditte->curr().get("RAGSOC");
_descr_arr.add(d);
}
return TRUE;
}
return TRUE;
}