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

Ulteriori caciotte spianate

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1395 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-05-25 10:47:10 +00:00
parent 1946e053f2
commit b4ad2f980a
5 changed files with 29 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cg/cg4301.cpp
View File

@ -164,7 +164,7 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
// lim c'e' solo per i trimestri // lim c'e' solo per i trimestri
bool ok = _lim->get_bool("B0"); bool ok = _lim->get_bool("B0");
if (ok && !recalc) return TRUE; if (ok && !recalc) return TRUE;
bool calc = (_recalc == ever || (_recalc == one && month == _month)); bool calc = (_recalc == ever || (_recalc == one && is_month_ok(month,_month)));
if (!calc && _recalc != never) calc = !ok; if (!calc && _recalc != never) calc = !ok;
bool gheravergot = FALSE; bool gheravergot = FALSE;
bool quater = FALSE; bool quater = FALSE;
@ -326,7 +326,7 @@ bool TLiquidazione_app::update_att(int month, const char* codatt,
look_plm(month, codatt, TRUE); look_plm(month, codatt, TRUE);
bool ok = _plm->get_bool("B0"); bool ok = _plm->get_bool("B0");
if (ok && !recalc) return TRUE; if (ok && !recalc) return TRUE;
bool calc = _recalc == ever || (_recalc == one && month == _month); bool calc = _recalc == ever || (_recalc == one && is_month_ok(month,_month));
if (!calc && _recalc != never) calc = !ok; if (!calc && _recalc != never) calc = !ok;
if (calc || !recalc) if (calc || !recalc)
@ -1518,10 +1518,13 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
real ivi = risultato * (interesse / CENTO); real ivi = risultato * (interesse / CENTO);
ivi.ceil(ROUND_LIRA); ivi.ceil(ROUND_LIRA);
_lim->put("R14", ivi); _lim->put("R14", ivi);
_lim->put("R10",interesse_trimestrale(_month));
} }
// totale conguaglio su tutte le attivita' // questo serve anche per la visualizzazione e per l'estrazione deleghe
if (_freqviva == "T" && month != 13 && !_isbenzinaro)
_lim->put("R10",interesse_trimestrale(_month));
// totale conguaglio su tutte le attivita'
_lim->put("R7", tot_cong); _lim->put("R7", tot_cong);
_lim->put("R8", versamenti); _lim->put("R8", versamenti);
_lim->put("R9", vers_int); _lim->put("R9", vers_int);

3
cg/cg4302.cpp
View File

@ -613,10 +613,7 @@ real TLiquidazione_app::versamenti_IVA(int month, const char* types, bool intr)
if (look_del(month,tp)) if (look_del(month,tp))
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"); ret += _del->get_real("R0");
if (intr) ret += _del->get_real("R1");
}
} }
return ret; return ret;
} }

16
cg/cg5500.cpp
View File

@ -557,7 +557,7 @@ bool Visliq_app::vis_one(int m)
} }
msk.field(F_DESCR1).set(desc1); msk.field(F_DESCR1).set(desc1);
msk.field(F_DESCR2).set(desc1); msk.field(F_DESCR2).set(desc2);
msk.field(F_ACCONTO).set(acconto.string()); msk.field(F_ACCONTO).set(acconto.string());
TExternal_app liq("cg4 -2"); TExternal_app liq("cg4 -2");
@ -584,7 +584,7 @@ bool Visliq_app::vis_one(int m)
if (is_delega = look_del(m,1)) if (is_delega = look_del(m,1))
{ {
vers = _del->get_real("R0") + _del->get_real("R1"); vers = _del->get_real("R0") /* + _del->get_real("R1") */;
date = _del->get_date("D0"); date = _del->get_date("D0");
abi = _del->get("S7"); abi = _del->get("S7");
cab = _del->get("S8"); cab = _del->get("S8");
@ -781,7 +781,10 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
_lim->put("R12", riscr); _lim->put("R12", riscr);
_lim->put("R13", risdb); _lim->put("R13", risdb);
_lim->put("R14", intr); _lim->put("R14", intr);
_lim->put("S0", d1);
_lim->put("S1", d2);
// i dati dei versamenti si schiaffano in LIM: // i dati dei versamenti si schiaffano in LIM:
// D0 la data, S4/5/6 le tre cazzate ABI CAB CON // D0 la data, S4/5/6 le tre cazzate ABI CAB CON
_lim->put("D0", date); _lim->put("D0", date);
@ -956,11 +959,16 @@ void Visliq_app::write_del()
TString con(_lim->get("S6")); TString con(_lim->get("S6"));
TDate date(_lim->get("D0")); TDate date(_lim->get("D0"));
real vers(_lim->get_real("R8")); real vers(_lim->get_real("R8"));
real intr(_lim->get_real("R10"));
bool wasdel = look_del(month,1,TRUE); bool wasdel = look_del(month,1,TRUE);
// riapplica il tasso di interesse
real inter = vers*(intr/real(100.0));
inter.ceil();
_del->put("R0",vers); _del->put("R0",vers);
_del->put("R1",""); _del->put("R1",inter);
_del->put("D0",date); _del->put("D0",date);
_del->put("S7",abi); _del->put("S7",abi);
_del->put("S8",cab); _del->put("S8",cab);

8
cg/cg5500b.uml
View File

@ -123,7 +123,7 @@ BEGIN
ITEM "C|Credito" ITEM "C|Credito"
INPUT 104 INPUT 104
OUTPUT 104 OUTPUT 104
FLAGS "D" FLAGS "DU"
END END
NUMBER 104 15 NUMBER 104 15
@ -147,7 +147,8 @@ BEGIN
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 104 INPUT 104
OUTPUT 104 OUTPUT 104
FLAGS "U"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
@ -235,7 +236,8 @@ BEGIN
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 104 INPUT 104
OUTPUT 104 OUTPUT 104
FLAGS "U"
END END
*/ */

8
cg/cg5500c.uml
View File

@ -101,7 +101,7 @@ BEGIN
ITEM "C|Credito" ITEM "C|Credito"
INPUT 104 INPUT 104
OUTPUT 104 OUTPUT 104
FLAGS "D" FLAGS "DU"
END END
NUMBER 104 15 NUMBER 104 15
@ -125,7 +125,8 @@ BEGIN
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 104 INPUT 104
OUTPUT 104 OUTPUT 104
FLAGS "U"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
@ -212,7 +213,8 @@ BEGIN
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 104 INPUT 104
OUTPUT 104 OUTPUT 104
FLAGS "U"
END END
*/ */