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

Patch level : 1.7 at

Browse Source 
Files correlati     : at8.exe
Ricompilazione Demo : [ ]
Commento            : Aggiornamento sit. sogg. da appoggio: non funzionava se il donatore ha 0 donazioni: corretto!


git-svn-id: svn://10.65.10.50/trunk@12829 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2005-03-21 11:37:46 +00:00
parent 36d6a7f5e7
commit 193cb84dce
1 changed files with 14 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
at/at8400.cpp
View File

@ -63,7 +63,6 @@ bool TReconstruction::create()
TApplication::create();
_msk = new TMask("at8400a");
_rel = new TRelation(LF_SOGGETTI);
//_rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD);
_donaz = new TLocalisamfile(LF_DONAZ);
_contsan = new TLocalisamfile(LF_CONTSAN);
_idoneita = new TLocalisamfile(LF_IDONEITA);
@ -130,9 +129,6 @@ bool TReconstruction::menu(MENU_TAG m)
TDate oggi(TODAY);
TRectype recsog = _rel->curr();
TExternisamfile f("$appoggio");
//TExternisamfile f = new TExternisamfile("$appoggio");
//TProgind *pi;
//pi = new TProgind(f->eod(),"Aggiornamento situazione soggetti da appoggio", FALSE, TRUE, 10);
TProgind pi(f.eod(),"Aggiornamento situazione soggetti da appoggio", TRUE, TRUE, 10);
pi.setstatus(1);
for(f.first(); !f.eof(); f.next())
@ -147,35 +143,22 @@ bool TReconstruction::menu(MENU_TAG m)
TRectype* keyd = new TRectype(LF_DONAZ);
keyd->put(DON_CODICE, codsog);
int err = _sdonazioni->read(keyd);
//if (err == NOERR)
//{
if (_sdonazioni->rows()>0)
{
calcola_donazioni_lib(recsog, _sdonazioni);
_sdonazioni->rewrite();
recsog.rewrite(_rel->lfile());
}
//}
//else
// return error_box("Errore in donazioni, codice %ld", codsog);
calcola_donazioni_lib(recsog, _sdonazioni);
_sdonazioni->rewrite();
recsog.rewrite(_rel->lfile());
TRectype* key = new TRectype(LF_IDONEITA);
key->put(IDO_CODICE, recsog.get(SOG_CODICE));
err = _sidoneita->read(key);
//if (err == NOERR)
//{
_sidoneita->sort(compare_date);
_sidoneita->rewrite();
TRectype* keyc = new TRectype(LF_CONTSAN);
keyc->put(CON_CODICE, recsog.get(SOG_CODICE));
_scontrolli->read(keyc);
if (_scontrolli->rows()>0 || _sidoneita->rows()>0)
{
con_reord(recsog,_scontrolli,_sidoneita);
recsog.rewrite(_rel->lfile());
}
//}
//else
// return error_box("Errore in idoneita, codice %ld", codsog);
_sidoneita->sort(compare_date);
_sidoneita->rewrite();
TRectype* keyc = new TRectype(LF_CONTSAN);
keyc->put(CON_CODICE, recsog.get(SOG_CODICE));
_scontrolli->read(keyc);
if (_scontrolli->rows()>0 || _sidoneita->rows()>0)
{
con_reord(recsog,_scontrolli,_sidoneita);
recsog.rewrite(_rel->lfile());
}
if (_calcolacat)
{
TTable ctd("CTD");
@ -237,14 +220,11 @@ bool TReconstruction::menu(MENU_TAG m)
recsog.put(SOG_NUMCONV,numzero);
}
recsog.put(SOG_DATAULTAGG, oggi);
//recsog.put(SOG_UTENULTAGG, "WINSIT");
recsog.put(SOG_UTENULTAGG, "CONV");
recsog.put(SOG_UTENULTAGG, "CONVE");
recsog.rewrite(_rel->lfile());
}
f.remove();
}
//delete pi;
//delete f;
}
return FALSE;
}