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

Skukkurukkukku'

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@916 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-01-26 16:00:13 +00:00
parent d907c91539
commit 80f9fa5396
4 changed files with 54 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg4300.cpp
View File

@ -578,6 +578,8 @@ bool TLiquidazione_app::set_liquidazione()
do
{
m.field(CG43_RDB_VERS).set(format("%d",(int)_what));
if ((k = m.run()) == K_ESC) break;
// handlers have set everything

44
cg/cg4301.cpp
View File

@ -1014,12 +1014,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
rettifiche= _lim->get_real("R5");
rimborsi = _lim->get_real("R1");
// leggi anche tutti gli altri totali
tt = _lim->get("S0");
iva_vend = tt.get(); iva_acq = tt.get();
tt = _lim->get("S1");
res_debt = tt.get(); res_cred = tt.get();
tt = _lim->get("S2");
cred_prec = tt.get(); debt_precd = tt.get();
iva_vend = tt.get(0); iva_acq = tt.get(1);
cred_prec = tt.get(2); debt_precd = tt.get(3);
res_debt = (const char*)_lim->get("S5");
res_cred = (const char*)_lim->get("S4");
acc_dec = (const char*)_lim->get("S3");
_year = format("%d", atoi(_year)+1);
}
@ -1082,11 +1082,14 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
*/
if (attc == 0 && is_lim)
{
// benzinaro le conta solo in annuale,
// non benzinaro solo in periodica
// TBC vedi se distinguere rett. benzinai / autotrasport,
if ((_isbenzinaro && _isannual) ||
(!_isbenzinaro && !_isannual))
// se sono per benzinaro le conta solo in annuale,
// se no vanno solo in periodica
TString descrett(_lim->get("S0"));
bool isforbenzinaro = descrett[0] == '$' ||
(descrett[0] == '>' && descrett[1] == '>');
if ((isforbenzinaro && _isannual) ||
(!isforbenzinaro && !_isannual))
{
risultato += _lim->get_real("R5");
rettifiche += _lim->get_real("R5");
@ -1234,7 +1237,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
// comprende anche il conguaglio prorata
risultato += tot_cong;
if (tot_cong.sign() > 0) res_debt += tot_cong;
if (tot_cong.sign() < 0) res_cred += tot_cong;
if (tot_cong.sign() < 0) res_cred += abs(tot_cong);
look_lim(month,TRUE);
// azzeriamo tutto
@ -1287,34 +1290,31 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
real interesse = interesse_trimestrale(_month);
real ivi = risultato * (interesse / CENTO);
ivi.ceil(ROUND_LIRA);
_lim->put("R7", ivi);
_lim->put("R11", ivi);
_lim->put("R10",interesse_trimestrale(_month));
}
// totale conguaglio su tutte le attivita'
_lim->put("R7", tot_cong);
_lim->put("R8", versamenti);
_lim->put("R9", vers_int);
// scrivi: totali IVA vendite e acquisti, credito prec,
// debito prec, acconto, totale conguaglio prorata
// cosi' si fa una volta sola in stampa
tt = iva_vend.string(); tt.add(iva_acq.string());
_lim->put("S0", tt);
tt = res_debt.string(); tt.add(res_cred.string());
_lim->put("S1", tt);
tt = cred_prec.string(); tt.add(debt_precd.string());
tt.add(cred_prec.string()); tt.add(debt_precd.string());
_lim->put("S2", tt);
tt = acc_dec.string();
_lim->put("S3", tt);
// totale conguaglio su tutte le attivita'
_lim->put("S4", tot_cong.string());
_lim->put("S3", acc_dec.string());
_lim->put("S4", res_cred.string());
_lim->put("S5", res_debt.string());
_lim->put("B0","X");
if (_isfinal)
_lim->put("B1", "X");
_lim->rewrite();
}

60
cg/cg4304.cpp
View File

@ -579,24 +579,22 @@ void TLiquidazione_app::describe_liq(int month, const char* codatts,
_DescrItem* d = new _DescrItem(THE_END);
// gli diamo la stessa struttura di LIM
d->_r0 = _lim->get_real("R0");
d->_r1 = _lim->get_real("R1");
d->_r2 = _lim->get_real("R2");
d->_r3 = _lim->get_real("R3");
d->_r4 = _lim->get_real("R4");
d->_r5 = _lim->get_real("R5");
d->_r6 = _lim->get_real("R6");
d->_r7 = _lim->get_real("R7");
d->_r8 = _lim->get_real("R8");
d->_r9 = _lim->get_real("R9");
d->_s0 = _lim->get("S0");
d->_s1 = _lim->get("S1");
d->_s2 = _lim->get("S2");
d->_s3 = _lim->get("S3");
d->_r0 = _lim->get_real("R0");
d->_r1 = _lim->get_real("R1");
d->_r2 = _lim->get_real("R2");
d->_r3 = _lim->get_real("R3");
d->_r4 = _lim->get_real("R4");
d->_r5 = _lim->get_real("R5");
d->_r6 = _lim->get_real("R6");
d->_r7 = _lim->get_real("R11");
d->_r8 = _lim->get_real("R8");
d->_r9 = _lim->get_real("R9");
d->_r10 = _lim->get_real("R7"); // totale conguaglio prorata
d->_s0 = _lim->get("S2");
d->_s1 = _lim->get("S3");
d->_s2 = _lim->get("S4");
d->_s3 = _lim->get("S5");
d->_r11 = (const char*)_lim->get("R10"); // tasso di interesse
real cong(_lim->get("S4")); // totale conguaglio prorata
d->_r10 = cong;
// aggiunge eventuale satellite per rimborso infraannuale
if (di != NULL) d->_arr.add(di);
@ -969,15 +967,13 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
real& conguaglio = d._r10;
TToken_string tt(d._s0);
real iva_vend(tt.get(0));
real iva_acq(tt.get(1));
tt = d._s1;
real res_debt(tt.get(0));
real res_cred(tt.get(1));
tt = d._s2;
real cred_prec(tt.get(0));
real debt_prec(tt.get(1));
real acc_dec(d._s3);
real iva_acq(tt.get(1));
real cred_prec(tt.get(2));
real debt_prec(tt.get(3));
real acc_dec(d._s1);
real res_cred(d._s2);
real res_debt(d._s3);
real rett_debt(0.0);
real rett_cred(0.0);
real& interesse = d._r11;
@ -1034,8 +1030,10 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
}
if (conguaglio.sign() < 0)
{
set_row(rw++,"@11gConguaglio pro-rata@58g%r", &conguaglio);
{
real cg = conguaglio;
cg = -cg;
set_row(rw++,"@11gConguaglio pro-rata@58g%r", &cg);
}
set_row(rw++,"@11gRISULTATO@58g%r", &res_cred);
@ -1141,10 +1139,10 @@ bool TLiquidazione_app::set_annual(_DescrItem& d)
set_row(row++,"Volume d'affari riga B4@30g%r", &(d._r0));
set_row(row++,"Indetraibilita' @40g%2.2r%%", &(d._r2));
if (!(d._r3.is_zero()))
{
{
const char* sss = d._r3.sign() < 0 ? "credito" : "debito";
real ccc = abs(d._r3);
set_row(row++,"Conguaglio a %s@30g%r", d._r3.sign() < 0 ? "credito" :
"debito", &ccc);
set_row(row++,"Conguaglio a %s@30g%r", sss, &ccc);
}
set_print_zero(FALSE);
}

2
cg/cg4305.cpp
View File

@ -117,7 +117,7 @@ bool TLiquidazione_app::extract_delega(int month)
if (look_lim(month))
{
real topay = result_liq(month);
real intr = _lim->get_real("R7");
real intr = _lim->get_real("R11");
if (topay.sign() <= 0)
return TRUE;