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

Aggiunto interesse trimestrale nelle deleghe

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@833 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-01-09 08:40:57 +00:00
parent 904dffc045
commit 0c619f7d4f
3 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cg/cg4301.cpp
View File

@ -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();

6
cg/cg4305.cpp
View File

@ -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
cg/cg5500d.uml
View File

@ -2,7 +2,7 @@
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
#include "cg5500t.h"
ENDPAGE