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

Corretto MI2216, relativo al calcolo sui regimi agricoli.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3964 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-12-06 08:19:03 +00:00
parent 0bd3df5552
commit d21d55194d
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cg/cg4304.cpp
View File

@ -349,6 +349,18 @@ void TLiquidazione_app::describe_agricolo(int month, const char* codatt)
d->_r7 += _pum->get_real("R10");
d->_r8 += _pum->get_real("R11");
}
// Aggiungo anche questi, perche' oltre che servire in stampa, servono anche in write_liq()
// in caso di ditta a regime agricolo
// Overossia:
// _r9 mantiene la percentuale (gia' arrotondata!)
// _r10 mantiene l'iva detraibile calcolata!
d->_r9 = (d->_r8 / (d->_r7 + d->_r8));
d->_r9.round(2);
d->_r10 = d->_r6 * d->_r9;
d->_r9 *= CENTO;
d->_r9.round(ROUND_LIRA);
d->_r10.round(ROUND_LIRA);
_descr_arr.add(d);
}
@ -1150,7 +1162,7 @@ void TLiquidazione_app::set_plafond(_DescrItem& d)
void TLiquidazione_app::set_liqacc(_DescrItem& d)
{
real r1 = d._r0 + d._r1 + d._r2 + d._r4;
real r2 = d._r5 + d._r10;
real r2 = d._r5;// + d._r10; //MI2258 (A me sembra una cagata, ma con certa gente non si riesce a parlare)
real r3 = r2 + d._r9 + d._r7;
if ((d._r3).sign() > 0) r1 += d._r3;
else r3 += abs(d._r3);
@ -1867,6 +1879,8 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
real& agr_7 = d._r6;
real& agr_1i = d._r7;
real& agr_2i = d._r8;
real& pdetr = d._r9;
real& ivadt = d._r10;
real ara = agr_5 + agr_6;
real arn = agr_3 + agr_4;
@ -1889,14 +1903,7 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
set_row(12, "Acquisti ad uso promiscuo@54g%r",&agr_7);
if (/*agr_7.sign() > 0*/ TRUE)
{
real pdetr = (agr_2i / (agr_1i + agr_2i));
pdetr.round(2);
real ivadt = agr_7 * pdetr;
pdetr *= CENTO;
pdetr.round(ROUND_LIRA);
ivadt.round(ROUND_LIRA);
{ /* Il calcolo della percentuale e' stato spostato in describe_agricolo() */
TString up = agr_2i.string(".");
up << " x 100";
TString dn = agr_1i.string(".");