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

Corretti errori liquidazione relativi a:

Browse Source 
- liquidazioni trimestrali (interfaccia e calcolo)
	- periodo di calcolo


git-svn-id: svn://10.65.10.50/trunk@489 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-10-31 10:28:09 +00:00
parent 91709b3849
commit 5ca5c84738
5 changed files with 50 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
cg/cg4300.cpp
View File

@ -27,20 +27,10 @@ void CG4300_App::user_create()
"@1|Cod.@5|Ragione Sociale@50|Vers.");
_n_ditte = 0l;
pnd.addstatus(1);
for (_nditte->first(); !_nditte->eof(); _nditte->next())
{
_n_ditte++;
TToken_string* d = new TToken_string(64);
// add record
d->add(_nditte_r->get("CODDITTA"));
d->add(_nditte_r->get("RAGSOC"));
d->add(_nditte_r->get("FREQVIVA"));
_nomiditte.add(d);
}
// prevediamo la data che usera'; se calcola la liq. di un altro anno
// si fottera' la frequenza versamenti
TDate oggi(TODAY);
_year.format("%d",oggi.year());
pnd.addstatus(1);
@ -48,7 +38,7 @@ void CG4300_App::user_create()
_rel->add(LF_RMOVIVA,"NUMREG=NUMREG");
_cur = new TCursor(_rel, "", 2);
(*_cur) = 0;
// (*_cur) = 0;
_pim = new TTable("PIM");
_ppa = new TTable("PPA");
@ -106,6 +96,25 @@ void CG4300_App::user_create()
_del_mese = new TRecfield(*_del_r,"CODTAB",9,10);
_del_tipo = new TRecfield(*_del_r,"CODTAB",11,11);
pnd.addstatus(1);
for (_nditte->first(); !_nditte->eof(); _nditte->next())
{
if (!(TApplication::set_firm(_nditte_r->get_long("CODDITTA"))))
continue;
_n_ditte++;
TToken_string* d = new TToken_string(64);
// add record
d->add(_nditte_r->get("CODDITTA"));
d->add(_nditte_r->get("RAGSOC"));
d->add(look_lia() ? _lia->get("S7") : _nditte_r->get("FREQVIVA"));
_nomiditte.add(d);
}
pnd.addstatus(1);
set_real_picture(REAL_PICTURE);
}
@ -164,17 +173,11 @@ bool CG4300_App::set_print(int n)
{
if (_selected.ones() > 0l)
{
/* if (_year != yy)
{
TString cond(format("ANNOES=%s",(const char*)_year));
_cur->setfilter(cond);
}*/
TRectype& mov = _cur->curr();
TRectype from(_cur->curr()); from.zero();
TRectype to(mov);
TRectype to(from);
TDate f(1, 1, atoi(_year));
TDate t(1, _month, atoi(_year));
t.set_end_month();
from.put(MOV_DATAREG, f);
to.put(MOV_DATAREG, t);
@ -191,17 +194,11 @@ bool CG4300_App::set_print(int n)
{
if (_calcall || _selected.ones() > 0l)
{
/* if (_year != yy)
{
TString cond(format("ANNOES=%s",(const char*)_year));
_cur->setfilter(cond);
} */
TRectype & mov = _cur->curr();
TRectype from(_cur->curr()); from.zero();
TRectype to(mov);
TRectype to(from);
TDate f(1, _recalc == one ? _month : 1, atoi(_year));
TDate t(1, _month, atoi(_year));
t.set_end_month();
from.put(MOV_DATAREG, f);
to.put(MOV_DATAREG, t);
@ -218,17 +215,11 @@ bool CG4300_App::set_print(int n)
{
if (_calcall || _selected.ones() > 0l)
{
/* if (_year != yy)
{
TString cond(format("ANNOES=%s",(const char*)_year));
_cur->setfilter(cond);
}*/
TRectype & mov = _cur->curr();
TRectype from(_cur->curr()); from.zero();
TRectype to(mov);
TRectype to(from);
TDate f(1, _recalc == one ? _month : 1, atoi(_year));
TDate t(1, _month, atoi(_year));
t.set_end_month();
from.put(MOV_DATAREG, f);
to.put(MOV_DATAREG, t);

6
cg/cg4301.cpp
View File

@ -108,7 +108,9 @@ bool CG4300_App::update_firm(int month, bool recalc)
TString80 desatt = _nditte->curr(LF_ATTIV).get("DESCR");
// attivita' mista: ce ne sono in realta' due
_mixed = _nditte->curr().get_bool("FLIVA11Q");
// viene calcolato nel ciclo su tipoatt (che viene ripetuto solo
// se diventa TRUE);
_mixed = FALSE;
sprintf (buf,"Calcolo liquidazioni (%d)...\n%s: %s",
month,
@ -134,6 +136,7 @@ bool CG4300_App::update_firm(int month, bool recalc)
_isplafond = !(_p8.is_zero() && _p8b.is_zero() &&
_p9.is_zero());
_isservizio = _pla->get("S7") == "S";
_mixed = _pla->get("S7") == "M" || _pla->get("S7") == "E";
}
else
_isservizio = _nditte->curr(LF_ATTIV).get("TIPOATT") == "S";
@ -145,7 +148,6 @@ bool CG4300_App::update_firm(int month, bool recalc)
_isannual = (_month == 12 && !mens && !_isbenzinaro) ||
(_month == 13 && (mens || _isbenzinaro));
_isriepilogo = _month == 13;
// _isvent = _pla->get_bool("B0");
for (_reg->first(); !_isvent && _reg->good(); _reg->next())

10
cg/cg4302.cpp
View File

@ -16,21 +16,21 @@ bool CG4300_App::is_month_ok(int x, int month)
// di liquidazione e (opz) non e' maggiore di quello scelto
{
if (month == -1) month = x;
return _nditte_r->get("FREQVIVA") == "M" ?
return _freqviva == "M" ?
( x > 0 && x <= month) :
( x <= month && is_trim(x));
}
bool CG4300_App::is_first_month(int m)
{
return _nditte_r->get("FREQVIVA") == "M" ?
return _freqviva == "M" ?
m == 1 : m == 3;
}
int CG4300_App::previous_month(int m)
{
if (m == 13) m = 12;
if (_nditte_r->get("FREQVIVA") == "M")
if (_freqviva == "M")
return m == 1 ? 1 : m - 1;
else return m == 3 ? 3 : m - 3;
}
@ -51,7 +51,7 @@ bool CG4300_App::is_date_ok(TDate& d, int month)
{
if (d.month() > month || d.year() != atoi(_year))
return FALSE;
return _nditte_r->get("FREQVIVA") == "M" ?
return _freqviva == "M" ?
(d.month() == month):
((month - d.month()) >= 0 &&
(month - d.month()) < 3);
@ -331,7 +331,7 @@ bool CG4300_App::look_lia(bool create, int year)
{
_lia->zero();
_lia->put("CODTAB", y);
_lia->put("S7", _nditte->curr().get("FREQVIVA"));
_lia->put("S7", _freqviva);
_lia->write();
}
return ok;

14
cg/cg4304.cpp
View File

@ -94,7 +94,7 @@ void CG4300_App::describe_name(int month, TToken_string& codatts)
d->_s1 = _nditte->curr().get("RAGSOC");
d->_s2 = _nditte->curr(LF_ATTIV).get("CODATT");
d->_s3 = codatts.items() == 1 ? (const char*)_nditte->curr(LF_ATTIV).get("DESCR") : "";
d->_s4 = _nditte->curr().get("FREQVIVA");
d->_s4 = _freqviva;
d->_f1 = month;
d->_f2 = _isbenzinaro;
@ -113,7 +113,7 @@ void CG4300_App::describe_firm(int month)
d->_s0 = _nditte->curr().get("CODDITTA");
d->_s1 = _nditte->curr().get("RAGSOC");
d->_s2 = _nditte->curr().get("FREQVIVA");
d->_s2 = _freqviva;
d->_f1 = month;
_descr_arr.add(d);
}
@ -479,7 +479,7 @@ void CG4300_App::describe_liq(int month, const char* codatts, _DescrItem* di)
else
d->_r6 += _lim->get_real("R5"); // rettifiche a credito
d->_f0 = _nditte->curr().get("FREQVIVA") == "T";
d->_f0 = _freqviva == "T";
// r7 = credito precedente
d->_r7 = credito_prec(month);
@ -616,7 +616,7 @@ void CG4300_App::set_att(_DescrItem& d)
else
{
if (d._s4 == "T")
tim_title << format(" del %dx Trimestre %s", d._f1/3, (const char *) _year);
tim_title << format(" del %do Trimestre %s", d._f1/3, (const char *) _year);
else
tim_title << format(" del mese di %s %s", itom(d._f1),
(const char*)_year);
@ -671,21 +671,21 @@ void CG4300_App::set_plafond(_DescrItem& d)
"MENSILE DEI PLAFOND");
set_row(2,""); set_row(3,"");
set_row(4,"Art. 8 1@ix@rcomma lettere a-b@31gDisponibile@48g%r",
set_row(4,"Art. 8 1@io@rcomma lettere a-b@31gDisponibile@48g%r",
&r1);
set_row(5,"Utilizzato all'interno@48g%r", &(d._r0));
set_row(6,"Utilizzato per l'importazione@48g%r@69gRiporto %r",
&(d._r1), &(d._r2));
set_row(7,"");
set_row(8,"Art. 8bis 1@ix@rcomma@31gDisponibile@48g%r",
set_row(8,"Art. 8bis 1@io@rcomma@31gDisponibile@48g%r",
&r2);
set_row(9,"Utilizzato all'interno@48g%r", &(d._r3));
set_row(10,"Utilizzato per l'importazione@48g%r@69gRiporto %r",
&(d._r4), &(d._r5));
set_row(11,"");
set_row(12,"Art. 9 1@ix@rcomma@31gDisponibile@48g%r",
set_row(12,"Art. 9 1@io@rcomma@31gDisponibile@48g%r",
&r3);
set_row(13,"Utilizzato all'interno@48g%r", &(d._r6));
set_row(14,"Utilizzato per l'importazione@48g%r@69gRiporto %r",

6
cg/cg4305.cpp
View File

@ -36,7 +36,7 @@ bool CG4300_App::set_deleghe()
for (l = 0l, _nditte->first(); !_nditte->eof(); l++, _nditte->next())
{
TString cod = _nditte_r->get("CODDITTA");
TString vers = _nditte_r->get("FREQVIVA");
TString vers = _freqviva;
TToken_string d(" ");
@ -96,7 +96,7 @@ bool CG4300_App::extract_deleghe()
if (is_month_ok(_month))
{
_isbenzinaro = _nditte->curr(LF_ATTIV).get_bool("ART74/4");
_freqviva = _nditte->curr().get("FREQVIVA");
_freqviva = look_lia() ? _lia->get("S7") : _nditte->curr().get("FREQVIVA");
bool mens = _freqviva == "M";
_isannual = (_month == 12 && !mens && !_isbenzinaro) ||
(_month == 13 && (mens || _isbenzinaro));
@ -177,7 +177,7 @@ bool CG4300_App::set_acconto()
for (l = 0l, _nditte->first(); !_nditte->eof(); l++, _nditte->next())
{
TString cod = _nditte_r->get("CODDITTA");
TString vers = _nditte_r->get("FREQVIVA");
TString vers = _freqviva;
TToken_string d(" ");