Aggiunto interesse trimestrale nelle deleghe
git-svn-id: svn://10.65.10.50/trunk@833 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
904dffc045
commit
0c619f7d4f
@ -846,9 +846,15 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
|
||||
risultato -= dt;
|
||||
ris_cred += dt;
|
||||
|
||||
_lim->put("R0",risultato);
|
||||
_lim->put("R7",ris_cred);
|
||||
_lim->put("R8",ris_deb);
|
||||
_lim->put("R0",risultato);
|
||||
|
||||
if (_freqviva == "T" && risultato.sign() > 0)
|
||||
{
|
||||
real interesse = interesse_trimestrale(_month);
|
||||
real ivi = risultato * interesse / CENTO; ivi.ceil(ROUND_LIRA);
|
||||
_lim->put("R7",ivi);
|
||||
}
|
||||
|
||||
_lim->put("B0","X");
|
||||
_lim->rewrite();
|
||||
|
||||
|
@ -116,24 +116,30 @@ bool TLiquidazione_app::extract_delega(int month)
|
||||
if (look_lim(month))
|
||||
{
|
||||
real topay = _lim->get_real("R0");
|
||||
real intr = _lim->get_real("R7");
|
||||
|
||||
if (topay.sign() <= 0) return TRUE;
|
||||
|
||||
if (_isannual)
|
||||
{
|
||||
if (look_del(12,7))
|
||||
{
|
||||
topay -= _del->get_real("R0");
|
||||
intr -= _del->get_real("R1");
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
// importo rettifiche solo se non e' annuale
|
||||
topay += _lim->get_real("R5");
|
||||
intr += _del->get_real("R1");
|
||||
}
|
||||
|
||||
if (topay.sign() > 0)
|
||||
{
|
||||
look_del(month, _isannual ? 2 : 1, TRUE);
|
||||
_del->put("R0",topay);
|
||||
_del->put("R1",intr);
|
||||
_del->rewrite();
|
||||
}
|
||||
}
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
#include "cg5500t.h"
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user