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

Forse stavolta ci siamo! Speriamo che cg4301.cpp e cg4304.cpp siano ok.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1952 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-10-13 08:44:43 +00:00
parent 43dd58b2e2
commit 8945f4596c
2 changed files with 41 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cg/cg4301.cpp
View File

@ -854,15 +854,15 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// *****************************************
} // non sosp_imp ne' altre casistiche che escludono la liq.
/*
* Calcolo e aggiornamento
* cerca o cre /*
* Calcolo e aggiornamento
* cerca o crea progressivo IVA
*/
look_pim(month, codatt, reg, tipocr_s, codiva, tipodet, TRUE);
/*
* se ign == TRUE non bisogna neppure PROGRESSIVARLI
*/
bool ign = sosp_imp || (fattrit && month != 13) || noninc;
* bool ign = sosp_imp || (fattrit && month != 13) || noninc;
/*
* se liq == FALSE gli importi non contano ai fini
@ -911,16 +911,13 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
/*
* la stramadonna dei corrispettivi gia' scorporati
* Gli s
/* le porche fatture in ritardo */
TToken_string fr(_pim->get("S1"));
real rti(fr.geti aggiungono i non incassati, sperando in bene
* Gli si aggiungono i non incassati, sperando in bene
*/
TToken_string cs(_pim->get("S2"));
real csi(cs.get(0));
real csv(cs.get(1));
csv += nin_iva;
/* incrociamm'e dituozz' */
csi += nin_imp;
csv += nin_iva;
rti += rit_imp;
@ -934,7 +931,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
else
{
fsi += asimp_imp;
+= bolld_imp;
fsv += asimp_iva;
bdi += bolld_imp;
bdv += bolld_iva;
}

64
cg/cg4304.cpp
View File

@ -818,22 +818,22 @@ void TLiquidazione_app::describe_liq(int month, const char* codatts,
_DescrItem* TLiquidazione_app::describe_deleghe(int month)
{
/*
if (!look_del(month,1)) return NULL;
_DescrItem* d = new _DescrItem(DELEGA);
if (_del->get_bool("B0"))
{
if (!look_del(month,1)) return NULL;
_DescrItem* d = new _DescrItem(DELEGA);
if (_del->get_bool("B0"))
{
d->_s0 = _del->get("S2"); // localita'
d->_s1 = _del->get("S1"); // banca
d->_s2 = _del->get("S7"); // ABI
d->_s3 = _del->get("S8"); // CAB
d->_r0 = _del->get_real("R0");
d->_d0 = _del->get_date("D0");
} // altrimenti lascia tutto in bianco e ci scriveranno i dati a mano
}
return d;
*/
} // altrimenti lascia tutto in bianco e ci scriveranno i dati a mano
}
return d;
*/
if (!look_del(month,1) && !look_del(month,7)) return NULL;
_DescrItem* d = new _DescrItem(DELEGA);
@ -1048,20 +1048,18 @@ void TLiquidazione_app::set_plafond(_DescrItem& d)
set_print_zero(TRUE);
set_row(1,"QUADRO RELATIVO ALLAm&)_errors[i];
if (d._s2 == s._att && s._firm == d._s0)
{ j++; set_row(i+10, "@5g@b*** %s ***@r", (const char*)s._err); }
}
if (j) set_auto_ff(TRUE);
}
void TLiquidazione_app::set_plafond(_DescrItem& d)
{ DISPONIBILITA' ED ALL'UTILIZZO "
set_row(1,"QUADRO RELATIVO ALLA DISPONIBILITA' ED ALL'UTILIZZO "
"MENSILE DEI PLAFOND");
set_row(2,""); set_row(3,"");
set_row(4,"Art. 8 1° is 1° comma@31gDisponibile@48g%r",
set_row(4,"Art. 8 1° comma lettere a-b@31gDisponibile@48g%r",
&(d._r2));
set_row(5,"Utilizzato all'interno@48g%r", &(d._r0));
set_row(6,"Utilizzato per l'importazione@48g%r@69gRiporto@78g%r",
&(d._r1), &r1);
set_row(7,"");
set_row(8,"Art. 8bis 1° comma@31gDisponibile@48g%r",
&(d._r5));
set_row(9,"Utilizzato all'interno@48g%r", &(d._r3));
set_row(10,"Utilizzato per l'importazione@48g%r@69gRiporto@78g%r",
@ -1083,7 +1081,7 @@ void TLiquidazione_app::set_liqacc(_DescrItem& d)
real r1 = d._r0 + d._r1 + d._r2 + d._r3 + d._r4;
real r2 = d._r5 + d._r10;
real r3 = r2 + d._r9 + d._r7 + abs(d._r3);
set_row(1,""); set_row(2,""); set_row(3,""); set_row(4,"");
set_row(5,"@11gCALCOLO ACCONTO SU OPERAZIONI EFFETTUATE");
set_row(6,"");
@ -1129,9 +1127,9 @@ void TLiquidazione_app::set_liqacc(_DescrItem& d)
set_row(i++,"@23gCREDITO DA EVIDENZIARE@64g%r", &ab);
}
else if ((d._r8).sign() > 0 && d._r8 > ACCONTO_MINIMO_DA_VERSARE)
set_row(i++,"@23gACCONTO DA VERSARE@81g%r", &(d._r8));
set_row(i++,"@23gACCONTO DA VERSARE@81g%r", &(d._r8));
else if ((d._r8).sign() > 0 && d._r8 <= ACCONTO_MINIMO_DA_VERSARE)
set_row(i++,"@23gACCONTO DA NON VERSARE@64g%r", &(d._r8));
set_row(i++,"@23gACCONTO DA NON VERSARE@64g%r", &(d._r8));
set_auto_ff();
}
@ -1575,9 +1573,9 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
{
int rr = rw;
/*
if (rw < (printer().formlen() - 10))
rw = printer().formlen() - 10;
*/
if (rw < (printer().formlen() - 10))
rw = printer().formlen() - 10;
*/
//11/10/1995
int cont = 10;
if (di._s4 == "ACC")
@ -1616,12 +1614,12 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
if (atof(vr) == 0.0 && vr[vr.len()-1] == '0') vr[vr.len()-1] = ' ';
set_row(rw++, "- ACCONTO DICEMBRE -");
set_row(rw++, "Versamento di L. %s effettuato il %s@68gdiretto all'ufficio IVA di %s",
(const char*)vr,
(const char*)dt,
(const char*)loc);
(const char*)vr,
(const char*)dt,
(const char*)loc);
set_row(rw++, "@68gtramite %s", (const char*)ban);
set_row(rw++, "@68gcodice azienda %s codice dipendenza %s",
(const char*)abi, (const char*)cab);
(const char*)abi, (const char*)cab);
}
set_row(rw++, "- SALDO -");
}
@ -2008,7 +2006,7 @@ else
else
set_row(1,"@55g%r@86g%r@119g%s", &bc, &(d._r1),
d._f3 ? "Si" : "No");
***/
***/
set_row(1,"@58g%r@74g%r@96g%r@122g%s", &(d._r3),
&(d._r2), &(d._r1), d._f3 ? "Si" : "No");
}
@ -2135,7 +2133,7 @@ void TLiquidazione_app::set_deltab(_DescrItem& d, bool iscred)
tel << '/';
tel << tt.get(9);
TString desc(tt.get(10));
//tp += in; //comprendeva gia' gli interessi!
set_row(rw++, "%-5s@8g%-30s@40g%1s %s @55g%r %5s %5s %3s %-.45s",