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

38
cg/cg4304.cpp
View File

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