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

Correzione errore sul pro-rata (riportata anche in R9603): modificata

Browse Source 
la la composizione della chiave di ricerca in look_pla().
Correzione errore MI3386 per il calcolo versamenti effettuati in 13a
liquidazione.


git-svn-id: svn://10.65.10.50/trunk@2865 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-05-20 13:54:44 +00:00
parent 9ac776eaa4
commit 734f481a25
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cg/cg4302.cpp
View File

@ -356,12 +356,15 @@ bool TLiquidazione_app::look_pla(const char* a, bool create)
_pla_r->zero(); _pla_r->zero();
// forza il tipoatt a 1 // forza il tipoatt a 1
char buf[10]; strcpy(buf,a); TString buf(a);
buf[strlen(buf) - 1] = '1'; buf.ltrim();
buf.rtrim(1);
buf << "1";
while (buf.len() < 6) buf.insert("0");
(*_pla_ditta) = format("%05ld", get_firm()); (*_pla_ditta) = format("%05ld", get_firm());
(*_pla_anno) = _year; (*_pla_anno) = _year;
(*_pla_codatt) = format("%06ld", atol(buf)); (*_pla_codatt) = buf;
TString16 s = _pla_r->get("CODTAB"); TString16 s = _pla_r->get("CODTAB");
_pla->read(); _pla->read();
@ -673,10 +676,15 @@ real TLiquidazione_app::versamenti_IVA(int month, const char* types, bool intr)
{ {
//if (_del->get_bool("B0") || _is_visliq) // solo se stampata, a meno //if (_del->get_bool("B0") || _is_visliq) // solo se stampata, a meno
// che non sia per visliq // che non sia per visliq
ret += _del->get_real("R0"); if (_month == 13)
ret += _del->get_real("R2"); // Questo e' l'importo lordo non arrotondato!!
else
ret += _del->get_real("R0");
//gli interessi vengono memorizzati solo se si //gli interessi vengono memorizzati solo se si
//devono pagare (=> nessun controllo su intra) //devono pagare (=> nessun controllo su intra)
ret -= _del->get_real("R1"); // al netto degli interessi ret -= _del->get_real("R1"); // al netto degli interessi
// In caso di 13a liq devo fare la somma degli importi netti dovuti, ecco perche' leggo R2,
// perche togliendo poi gli interessi ottengo il dovuto netto!
} }
} }
return ret; return ret;