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            : correzioni su trasf. da Cetraplus


git-svn-id: svn://10.65.10.50/trunk@12550 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-12-15 09:52:19 +00:00
parent 12eea0bede
commit 50441f610f
1 changed files with 318 additions and 304 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
at/at8900.cpp
View File

@ -1048,6 +1048,9 @@ bool TCtpr2at::accesso(const TString& istruzione)
TString8 luogodon_at;
TString16& str = (TString16&) record["DT_ACCESSO"];
const TDate datadon = TDate(atoi(str.sub(8,10)) ,atoi(str.sub(5,7)), atoi(str.sub(0,4)));
TDate datanulla(NULLDATE);
if (datadon != datanulla)
{
TString16& codabar = (TString16&) record["CODABAR"];
_donaz->setkey(2);
TRectype& recdon = _donaz->curr();
@ -1074,12 +1077,16 @@ bool TCtpr2at::accesso(const TString& istruzione)
_array_donaz->add(chiave, record["ID_ANAGRAFICA"]) ;
}
}
}
else
{
// trattasi di controllo o visita
TString4 tipocon = _configfile->get(tp_accesso, "ACCESSI");
TString16& str = (TString16&) record["DT_ACCESSO"];
TDate datacon = TDate(atoi(str.sub(8,10)) ,atoi(str.sub(5,7)), atoi(str.sub(0,4)));
TDate datanulla(NULLDATE);
if (datacon != datanulla)
{
TString16& prog = (TString16&) record["PROG_GIORNAL"];
TString80 chiave = str;
chiave << prog;
@ -1200,6 +1207,7 @@ bool TCtpr2at::accesso(const TString& istruzione)
}
}
}
}
else
{
// soggetto non trovato
@ -1250,6 +1258,9 @@ bool TCtpr2at::sacca(const TString& istruzione)
// ho trovato il soggetto, ora verifico la donazione
TString16& str = (TString16&) record["DT_PRELIEVO"];
const TDate datadon = TDate(atoi(str.sub(8,10)) ,atoi(str.sub(5,7)), atoi(str.sub(0,4)));
TDate datanulla(NULLDATE);
if (datadon != datanulla)
{
_progins++;
TRectype* rec = new TRectype(LF_DONAZ);
rec->put(DON_CODICE, recsog.get(SOG_CODICE));
@ -1353,6 +1364,7 @@ bool TCtpr2at::sacca(const TString& istruzione)
}
}
}
}
else
{
// soggetto non trovato
@ -1410,9 +1422,10 @@ bool TCtpr2at::analisi(const TString& istruzione)
stampa = recsog.get(SOG_COGNOME);
stampa << " " << recsog.get(SOG_NOME);
stampa << " " << recsog.get(SOG_DATANASC);
//TString16& str = (TString16&) record["DT_ACCESSO"];
TDate datacon = TDate(atoi(str.sub(8,10)) ,atoi(str.sub(5,7)), atoi(str.sub(0,4)));
TDate datanulla(NULLDATE);
if (datacon != datanulla)
{
TRectype* recc = new TRectype(LF_CONTSAN);
recc->put(CON_CODICE, recsog.get(SOG_CODICE));
recc->put(CON_DATACON, datacon);
@ -1516,6 +1529,7 @@ bool TCtpr2at::analisi(const TString& istruzione)
err = recsog.rewrite(_rel->lfile());
}
}
}
else
{
// soggetto non trovato