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

22
at/at8400.cpp
View File

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