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

Sistemato il malefico regime agricolo

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@892 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-01-19 16:12:58 +00:00
parent e35ca71241
commit 0fc6d09302
2 changed files with 41 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
cg/cg4301.cpp
View File

@ -216,8 +216,8 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
// occorre poterla chiamare altre volte con mesi diversi
_nditte->restore_status();
// aggiorna le liquidazioni mensili
if ((_month != 13 || _isannual) && (calc || !recalc))
// aggiorna le liquidazioni
if (calc || !recalc)
write_liq(month, atts);
// rimborso infraannuale
@ -247,28 +247,23 @@ bool TLiquidazione_app::update_att(int month, const char* codatt,
// saranno solo quelli di dicembre per data <= 20/12;
// il ricalcolo e' FORZATO da _recalc messo a one
{
if (month == 13)
recalc_annual(codatt);
else
{
look_plm(month, codatt, TRUE);
bool ok = _plm->get_bool("B0");
if (ok && !recalc) return TRUE;
bool calc = _recalc == ever || (_recalc == one && month == _month);
if (!calc && _recalc != never) calc = !ok;
look_plm(month, codatt, TRUE);
bool ok = _plm->get_bool("B0");
if (ok && !recalc) return TRUE;
bool calc = _recalc == ever || (_recalc == one && month == _month);
if (!calc && _recalc != never) calc = !ok;
if (calc || !recalc)
{
zero_att(month,codatt);
recalc_att(month,codatt);
recalc_ventilation(month, codatt);
recalc_corrispettivi(month, codatt);
// per trimestrali
if (_isannual) recalc_annual(codatt);
}
return ok || calc;
if (calc || !recalc)
{
zero_att(month,codatt);
recalc_att(month,codatt);
recalc_ventilation(month, codatt);
recalc_corrispettivi(month, codatt);
if (month == 13)
recalc_annual(codatt);
}
return TRUE;
return ok || calc;
}
void TLiquidazione_app::zero_att(int month, const char* codatt)
@ -285,7 +280,7 @@ void TLiquidazione_app::zero_att(int month, const char* codatt)
_pim->rewrite();
}
}
if (_isplafond)
if (_isplafond && month != 13)
zero_plafond(month,codatt);
}
@ -932,9 +927,8 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
{
for (int m = 1; m <= 12; m++)
{
// ciclo su tutti i mesi del caso (1 o 3)
// non porta via tempo anche cosi'
if (!_isannual && !is_month_ok(m, month))
// ciclo su tutti i mesi del caso (1 o 3, o tutti se annuale)
if (!is_month_ok(m, month))
continue;
look_plm(month, att); look_ptm(month,att);
@ -955,7 +949,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
a_eCEE += _plm->get_real("R8");
c_mCEE += _plm->get_real("R9");
a_mCEE += _plm->get_real("R10");
a_meCEE += _plm->get_real("R11");
a_meCEE += _plm->get_real("R11");
}
} // fine ciclo sul mese
}

42
cg/cg4304.cpp
View File

@ -249,22 +249,24 @@ void TLiquidazione_app::describe_agricolo(int month, const char* codatt)
{
_DescrItem* d = new _DescrItem(REGAGR);
for (int mese = 1; mese <= month && mese < 13; mese++)
for (int mese = 1; mese <= month; mese++)
{
if (!(_isannual || _isriepilogo) && !is_month_ok(mese,month))
if (!is_month_ok(mese,month))
continue;
if (!(look_plm(mese, codatt) && look_ptm(mese,codatt)))
continue;
d->_r0 += _plm->get_real("R5"); // vend. reg. agr.
d->_r1 += _plm->get_real("R6"); // vend. per conferimento
// d->_r2 += _plm->get_real("R7"); // vend. accessorie
d->_r3 += _plm->get_real("R8"); // acquisti reg. agr.
d->_r4 += _plm->get_real("R0"); // IVA acquisti rimasta
d->_r5 += _plm->get_real("R1"); // IVA vendite rimasta
d->_r6 += _ptm->get_real("R4") + _ptm->get_real("R12") +
_ptm->get_real("R9"); // IVA acq. ammortizzabili
if (!look_plm(mese, codatt))
continue;
// vendite regime agricolo
d->_r0 += _plm->get_real("R5");
// vendite non regime agricolo
d->_r1 += _plm->get_real("R6");
// acquisti in regime agricolo
d->_r2 += _plm->get_real("R9") + _plm->get_real("R10");
// acquisti non in regime agricolo (compr. ammort.)
d->_r3 += _plm->get_real("R7") + _plm->get_real("R8");
// acquisti beni ammortizzabili
d->_r4 += _plm->get_real("R8");
}
_descr_arr.add(d);
}
@ -1249,18 +1251,14 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
set_row(1,"@50gPROSPETTO REGIME AGRICOLO");
set_row(2,"");
real ca = d._r0 + d._r1 + d._r2;
real an = d._r4 + d._r6;
set_row(3, "Cessioni in regime agricolo (Tabella A/I)@54g%r",&ca);
set_row(3, "Cessioni in regime agricolo (Tabella A/I)@54g%r",&(d._r0));
set_row(4, "");
set_row(5, "Cessioni non in regime agricolo@54g%r",&(d._r5));
set_row(5, "Cessioni non in regime agricolo@54g%r",&(d._r1));
set_row(6, "");
set_row(7, "Acquisti in regime agricolo@54g%r",&(d._r3));
set_row(7, "Acquisti in regime agricolo@54g%r",&(d._r2));
set_row(8, "");
set_row(9, "Acquisti non in regime agricolo@54g%r",&an);
set_row(10, "... di cui beni ammortizzabili@54g%r",&(d._r6));
set_row(9, "Acquisti non in regime agricolo@54g%r",&(d._r3));
set_row(10, "... di cui beni ammortizzabili@54g%r",&(d._r4));
set_auto_ff(TRUE);
set_print_zero(FALSE);