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

Patch level : 3.0 668

Browse Source 
Files correlati     :   cg4.exe
Ricompilazione Demo : [ ]
Commento            :

Bug: 0000713

Il quadro VT non viene calcolato correttamente se la ditta ha piu' attività


git-svn-id: svn://10.65.10.50/trunk@15126 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2007-03-27 12:58:41 +00:00
parent e559c9ae33
commit ea2523e8a7
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cg/cg4301.cpp
View File

@ -154,6 +154,19 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
// se necessario (serve nelle chiamate ricorsive) // se necessario (serve nelle chiamate ricorsive)
// Ritorna FALSE soltanto se il ricalcolo era necessario e non e' // Ritorna FALSE soltanto se il ricalcolo era necessario e non e'
// stato effettuato per scelta dello stronzo commercialista. // stato effettuato per scelta dello stronzo commercialista.
if (month == 13 && recalc)
{
TTable pem("PEM");
for (int reg = 0; reg < 23; reg++)
{
look_pem(pem, reg);
pem.zero("R0");
pem.zero("R1");
pem.rewrite();
}
}
look_lim(liq_month(month), TRUE); look_lim(liq_month(month), TRUE);
_isdiffacc = is_differita(); _isdiffacc = is_differita();
@ -1923,15 +1936,21 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
_pum->rewrite(); _pum->rewrite();
_pom->rewrite(); _pom->rewrite();
if (month == 13)
{
TTable pem("PEM"); TTable pem("PEM");
for (int reg = 0; reg < 23; reg++) for (int reg = 0; reg < 23; reg++)
{ {
look_pem(pem, reg); look_pem(pem, reg);
pem.put("R0", vt_imponibile[reg]); real r = pem.get_real("R0") + vt_imponibile[reg];
pem.put("R1", vt_imposta[reg]); pem.put("R0", r);
r = pem.get_real("R1") + vt_imposta[reg];
pem.put("R1", r);
pem.rewrite(); pem.rewrite();
} }
} }
}
} }
void TLiquidazione_app::iva11_set_arr_phase_1(const TString& codatt) void TLiquidazione_app::iva11_set_arr_phase_1(const TString& codatt)