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

Corretti MI6306 e MI6307 relativi al nuovo prospetto agricolo.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5644 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-19 17:22:56 +00:00
parent a85aba5bd4
commit 368f2e0edb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cg/cg4301.cpp
View File

@ -922,7 +922,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
ivacomp = _iva->get("CODTAB"); // Ecco il codice IVA di compensazione
}
look_pia(month, codatt, codiva, ivacomp, TRUE); // Crea il record in tabella se non esiste
real pia_imp = _pia->get_real("R0") + agr_1i; // Aggiorna...
real pia_imp = _pia->get_real("R0") + agr_imp; // Aggiorna...
_pia->put("R0", pia_imp);
_pia->put("B0", TRUE); // Seguo l'esempio dei PIM per il ricalcolo acquisti alla fine del ciclo
_pia->rewrite(); // Semplice, no?
@ -2094,7 +2094,6 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
// totali per regimi agricoli
real acq_noCEE = 0.0;
real iva_detIA = 0.0;
real imp_agr1 = 0.0;
real imp_agr2 = 0.0;
@ -2189,9 +2188,10 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
// dove plm->R11 = acquisti misti fuori CEE
// pum->R10 = tot. imponibile reg agr. 1
// pum->R11 = tot. imponibile reg agr. 2
iva_acq += _plm->get_real("R7") + _plm->get_real("R5");
// L'iva acquisti viene calcolata in modo diverso se siamo dal 1998 in poi:
// somma l'iva ammessa in detr. I parte tab. A (R13) anziche' iva vendite (R5)
iva_acq += _plm->get_real("R7") + _plm->get_real(_isagr98 ? "R13" : "R5");
acq_noCEE += _plm->get_real("R11");
iva_detIA += _plm->get_real("R13");
imp_agr1 += _pum->get_real("R10");
imp_agr2 += _pum->get_real("R11");
}
@ -2316,7 +2316,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
perc.round(2);
iva_ded = acq_noCEE * perc;
iva_ded.round(ROUND_LIRA);
iva_acq += iva_ded + iva_detIA;
iva_acq += iva_ded;
res_debt += iva_vend;
res_cred += iva_acq;
risultato += (iva_vend - iva_acq);