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            : non carica i dimessi con piu' di 70 anni


git-svn-id: svn://10.65.10.50/trunk@12458 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-11-03 11:20:00 +00:00
parent 06152123a2
commit 945d022ce3
1 changed files with 32 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
at/at8900.cpp
View File

@ -447,6 +447,7 @@ bool TCtpr2at::build_record(TAssoc_array& record, const TString& istruzione)
bool TCtpr2at::soggetto(const TString& istruzione) bool TCtpr2at::soggetto(const TString& istruzione)
{ {
const TDate oggi(TODAY);
int error = NOERR; int error = NOERR;
TAssoc_array record; TAssoc_array record;
if (build_record(record, istruzione)) if (build_record(record, istruzione))
@ -504,23 +505,38 @@ bool TCtpr2at::soggetto(const TString& istruzione)
} }
if (error != NOERR) if (error != NOERR)
{ {
recsog.zero(); bool inserisci = TRUE;
recsog.put(SOG_COGNOME, cognome); const long eta = oggi - datanasc;
recsog.put(SOG_NOME, nome); if (eta > 71)
recsog.put(SOG_DATANASC, datanasc); {
recsog.put(SOG_NOTIZIARIO, 'X'); const TString16& stato = (TString16&) record["DT_NASCITA"];
recsog.put(SOG_BENEM, 'X'); TRectype recpr1 = cache().get("PR1", stato);
recsog.put(SOG_CODICE, get_next_key()); TString16 catdon = recpr1.get("S6");
error = recsog.write(_rel->lfile()); if (catdon.not_empty())
stampa = "Inserito da CETRAPLUS"; inserisci = cache().get("CTD", catdon).get_bool("B0");
print_line(stampa); }
if (inserisci)
{
recsog.zero();
recsog.put(SOG_COGNOME, cognome);
recsog.put(SOG_NOME, nome);
recsog.put(SOG_DATANASC, datanasc);
recsog.put(SOG_NOTIZIARIO, 'X');
recsog.put(SOG_BENEM, 'X');
recsog.put(SOG_CODICE, get_next_key());
error = recsog.write(_rel->lfile());
stampa = "Inserito da CETRAPLUS";
print_line(stampa);
}
} }
if (update_record(recsog, record)) if (error == NOERR)
{ {
TDate oggi(TODAY); if (update_record(recsog, record))
recsog.put(SOG_DATAULTAGG, oggi); {
recsog.put(SOG_UTENULTAGG, "CETRAPLUS"); recsog.put(SOG_DATAULTAGG, oggi);
error = recsog.rewrite(_rel->lfile()); recsog.put(SOG_UTENULTAGG, "CETRAPLUS");
error = recsog.rewrite(_rel->lfile());
}
} }
return (error == NOERR); return (error == NOERR);
} }