253 lines
6.9 KiB
C++
Executable File
253 lines
6.9 KiB
C++
Executable File
#include <recarray.h>
|
|
#include <tabutil.h>
|
|
#include "atlib.h"
|
|
|
|
#include "soggetti.h"
|
|
#include "contsan.h"
|
|
|
|
bool is_idon_one(TString16 idon, const char* tipo)
|
|
// verifica che l'idoneità "idon" sia del tipo "tipo"
|
|
// esempio: se passo PL, AF restituisce TRUE
|
|
{
|
|
bool is_idon = FALSE;
|
|
TTable ido("IDO");
|
|
ido.put("CODTAB",idon);
|
|
if (ido.read() == NOERR)
|
|
{
|
|
TString tipol(2);
|
|
tipol = ido.get("S6");
|
|
if (tipol == tipo)
|
|
is_idon = TRUE;
|
|
}
|
|
return is_idon;
|
|
}
|
|
|
|
bool is_idon(TString16 id1, TString16 id2, TString16 id3, TString16 id4, const char* tipo)
|
|
//verifica che almeno una delle "id" sia del tipo "tipo"
|
|
{
|
|
return (is_idon_one(id1,tipo) || is_idon_one(id2,tipo) || is_idon_one(id3,tipo) || is_idon_one(id4,tipo));
|
|
}
|
|
|
|
bool is_donaz(TString16 don, const char* tipo)
|
|
// verifica che il tipo di donazione "don" sia del tipo "tipo"
|
|
{
|
|
bool is_don = FALSE;
|
|
TTable tdn("TDN");
|
|
tdn.put("CODTAB",don);
|
|
if (tdn.read() == NOERR)
|
|
{
|
|
TString tipol(2);
|
|
tipol = tdn.get("S6");
|
|
if (tipol == tipo)
|
|
is_don = TRUE;
|
|
}
|
|
return is_don;
|
|
}
|
|
|
|
char modstato_tcs(TString16 tipo)
|
|
// verifica se il controllo sanitario "tipo" e' un controllo che modifica
|
|
// lo stato del soggetto
|
|
{
|
|
char modstato = ' ';
|
|
TTable tcs("TCS");
|
|
tcs.put("CODTAB",tipo);
|
|
if (tcs.read() == NOERR)
|
|
modstato = tcs.get_char("S6");
|
|
return modstato;
|
|
}
|
|
|
|
void con_reord(TRectype& soggetto, TRecord_array* controlli)
|
|
{
|
|
TDate data, prossdata;
|
|
TString16 tipo, prosstipo;
|
|
char modstato = ' ';
|
|
int r_modifica = -1; // eventuale ultima riga di modifica id.
|
|
int r_ultid = -1; // riga ultima idoneità
|
|
int r_ultstato = -1; // riga ultimo stato valido
|
|
char penultstato = ' '; // penultimo stato valido
|
|
char ultstato = ' '; // ultimo stato valido
|
|
TDate dataultstato(NULLDATE); // data ultimo stato valido
|
|
|
|
for (int r=controlli->rows(); r>=1; r--)
|
|
{
|
|
const TRectype& row = controlli->row(r);
|
|
tipo = row.get(CON_TIPOCON);
|
|
modstato = modstato_tcs(tipo);
|
|
if (modstato == 'M')
|
|
{
|
|
if (r_modifica == -1)
|
|
r_modifica = r;
|
|
}
|
|
else
|
|
{
|
|
if ((modstato != ' ') && (r_ultstato == -1))
|
|
r_ultstato = r;
|
|
else if ((modstato != ' ') && (penultstato == ' '))
|
|
penultstato = modstato;
|
|
if ((modstato == 'I') && (r_ultid == -1))
|
|
r_ultid = r;
|
|
}
|
|
}
|
|
TString16 id1 = ' ';
|
|
TString16 id2 = ' ';
|
|
TString16 id3 = ' ';
|
|
TString16 id4 = ' ';
|
|
int intsi = 0;
|
|
int intaf = 0;
|
|
tipo = ' ';
|
|
prosstipo = ' ';
|
|
data = TDate(NULLDATE);
|
|
prossdata = TDate(NULLDATE);
|
|
|
|
if (r_ultid != -1)
|
|
{
|
|
const TRectype& row = controlli->row(r_ultid);
|
|
data = TDate(row.get(CON_DATACON));
|
|
tipo = row.get(CON_TIPOCON);
|
|
id1 = row.get(CON_IDON1);
|
|
id2 = row.get(CON_IDON2);
|
|
id3 = row.get(CON_IDON3);
|
|
id4 = row.get(CON_IDON4);
|
|
intsi = row.get_int(CON_INTSI);
|
|
intaf = row.get_int(CON_INTAF);
|
|
if (r_modifica > r_ultid)
|
|
{
|
|
const TRectype& rowm = controlli->row(r_modifica);
|
|
id1 = rowm.get(CON_IDON1);
|
|
id2 = rowm.get(CON_IDON2);
|
|
id3 = rowm.get(CON_IDON3);
|
|
id4 = rowm.get(CON_IDON4);
|
|
intsi = rowm.get_int(CON_INTSI);
|
|
intaf = rowm.get_int(CON_INTAF);
|
|
}
|
|
}
|
|
soggetto.put(SOG_DATAULTID,data);
|
|
soggetto.put(SOG_TIPOULTID,tipo);
|
|
soggetto.put(SOG_IDON1,id1);
|
|
soggetto.put(SOG_IDON2,id2);
|
|
soggetto.put(SOG_IDON3,id3);
|
|
soggetto.put(SOG_IDON4,id4);
|
|
soggetto.put(SOG_INTSI,intsi);
|
|
soggetto.put(SOG_INTAF,intaf);
|
|
|
|
tipo = ' ';
|
|
if (r_ultstato != -1)
|
|
{
|
|
const TRectype& row = controlli->row(r_ultstato);
|
|
dataultstato = TDate(row.get(CON_DATACON));
|
|
tipo = row.get(CON_TIPOCON);
|
|
prosstipo = row.get(CON_PROSSTIPO);
|
|
prossdata = TDate(row.get(CON_PROSSDATA));
|
|
ultstato = modstato_tcs(tipo);
|
|
}
|
|
soggetto.put(SOG_STATO,tipo);
|
|
soggetto.put(SOG_DATASTATO,dataultstato);
|
|
soggetto.put(SOG_PROS_STATO,prosstipo);
|
|
soggetto.put(SOG_DATA_PROS,prossdata);
|
|
|
|
don_datepross(soggetto);
|
|
|
|
if ((penultstato == 'S') && ((ultstato == 'I') || (ultstato == 'F')))
|
|
{
|
|
data = soggetto.get_date(SOG_DATAPROSSI);
|
|
if (data < dataultstato) soggetto.put(SOG_DATAPROSSI,dataultstato);
|
|
data = soggetto.get_date(SOG_DATAPROSAF);
|
|
if (data < dataultstato) soggetto.put(SOG_DATAPROSAF,dataultstato);
|
|
}
|
|
if ((penultstato == '1') && (ultstato == 'F'))
|
|
{
|
|
data = soggetto.get_date(SOG_DATAPROSSI);
|
|
if (data < dataultstato) soggetto.put(SOG_DATAPROSSI,dataultstato);
|
|
}
|
|
if ((penultstato == '2') && (ultstato == 'F'))
|
|
{
|
|
data = soggetto.get_date(SOG_DATAPROSAF);
|
|
if (data < dataultstato) soggetto.put(SOG_DATAPROSAF,dataultstato);
|
|
}
|
|
}
|
|
|
|
void don_datepross(TRectype& soggetto)
|
|
// calcola le date di prossima donazione in base a: donazioni, stato attuale, idoneità
|
|
{
|
|
char modstato = ' ';
|
|
const TString16 stato = soggetto.get(SOG_STATO); // stato attuale
|
|
const TString16 id1 = soggetto.get(SOG_IDON1); // idon. 1
|
|
const TString16 id2 = soggetto.get(SOG_IDON2); // idon. 2
|
|
const TString16 id3 = soggetto.get(SOG_IDON3); // idon. 3
|
|
const TString16 id4 = soggetto.get(SOG_IDON4); // idon. 4
|
|
const int intsi = soggetto.get_int(SOG_INTSI); // intervallo per SI
|
|
const int intaf = soggetto.get_int(SOG_INTAF); // intervallo per AF
|
|
const TDate dataultdon(soggetto.get_date(SOG_DATAULTDON)); // data ultima donazione
|
|
const TString16 tipoultdon(soggetto.get(SOG_TIPOULTDON)); // tipo ultima donazione
|
|
TDate datasi(NULLDATE); // data prossima si calcolata
|
|
TDate dataaf(NULLDATE); // data prossima af calcolata
|
|
TDate dataultsi(NULLDATE); // data ultima donazione si
|
|
|
|
bool id_si = FALSE; // il soggetto è idoneo per si?
|
|
bool id_af = FALSE; // il soggetto è idoneo per af?
|
|
|
|
modstato = modstato_tcs(stato);
|
|
if (modstato == 'I' || modstato == 'F' || modstato == '1' || modstato == '2') // il soggetto è idoneo
|
|
{
|
|
id_si = (is_idon(id1,id2,id3,id4,IDON_SI) && intsi != 0); // il soggetto è idoneo SI
|
|
id_af = (is_idon(id1,id2,id3,id4,IDON_AF) && intaf != 0); // il soggetto è idoneo AF
|
|
|
|
if (dataultdon.ok()) // se ha fatto almeno una donazione
|
|
{
|
|
if (is_donaz(tipoultdon,IDON_SI)) // se l'ultima donazione è una SI
|
|
{
|
|
if (id_si)
|
|
{
|
|
datasi=dataultdon;
|
|
datasi+=intsi;
|
|
}
|
|
if (id_af)
|
|
{
|
|
dataaf=dataultdon;
|
|
dataaf+=intaf;
|
|
}
|
|
}
|
|
if (is_donaz(tipoultdon,IDON_AF)) // se l'ultima donazione è una AF
|
|
{
|
|
dataultsi = soggetto.get(SOG_DATAULTSI);
|
|
if (id_si)
|
|
{
|
|
if (intaf != 0)
|
|
{
|
|
datasi=dataultdon;
|
|
datasi+=intaf;
|
|
}
|
|
else
|
|
{
|
|
datasi=dataultdon;
|
|
datasi+=intsi;
|
|
}
|
|
if (dataultsi.ok())
|
|
dataultsi+=intsi;
|
|
if (dataultsi > datasi)
|
|
datasi = dataultsi;
|
|
}
|
|
if (id_af)
|
|
{
|
|
dataaf=dataultdon;
|
|
dataaf+=intaf;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (id_si)
|
|
datasi = soggetto.get_date(SOG_DATAULTID);
|
|
if (id_af)
|
|
dataaf = soggetto.get_date(SOG_DATAULTID);
|
|
}
|
|
}
|
|
if (modstato == '1')
|
|
datasi = NULLDATE;
|
|
if (modstato == '2')
|
|
dataaf = NULLDATE;
|
|
soggetto.put(SOG_DATAPROSSI,datasi);
|
|
soggetto.put(SOG_DATAPROSAF,dataaf);
|
|
}
|
|
|