root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/src/at/atlib1.cpp
bonazzi 9f90b0bf72 Patch level : 12.0 no patch 
Files correlati     : 
Commento            :

Riaggiunto AVIS ai sorgenti

git-svn-id: svn://10.65.10.50/branches/R_10_00@23247 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-09-10 08:28:36 +00:00

538 lines
16 KiB
C++
Executable File
Raw Blame History

#include <tabutil.h>
#include "atlib.h"
#include "contsan.h"
#include "donaz.h"
#include "idoneita.h"
#include "rconvoc.h"
static int compare_date(const TObject** o1, const TObject** o2)
{
TRectype* s1 = (TRectype*)*o1;
TRectype* s2 = (TRectype*)*o2;
const TDate d1(s1->get(DON_DATADON));
const TDate d2(s2->get(DON_DATADON));
int d=0;
if (d1>d2) d=+1;
else
if (d1<d2) d=-1;
return d;
}
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(const 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, TRecord_array* idoneita)
{
const TDate datanulla(NULLDATE);
TDate data(NULLDATE);
TDate prossdata(NULLDATE);
TString16 tipo = " ";
TString16 prosstipo = " ";
char modstato = ' ';
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>0; r--)
{
const TRectype& row = controlli->row(r);
tipo = row.get(CON_TIPOCON);
modstato = modstato_tcs(tipo);
if ((modstato != 'N') && (r_ultstato == -1))
r_ultstato = r;
else if ((modstato != 'N') && (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);
}
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);
if (intsi > 0)
soggetto.put(SOG_INTSI,intsi);
if (intaf > 0)
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);
/*
soggetto.put(SOG_STATOSI, " ");
soggetto.put(SOG_STATOAF, " ");
soggetto.put(SOG_DATASI, datanulla);
soggetto.put(SOG_DATAAF, datanulla);
soggetto.put(SOG_FINESOSSI, datanulla);
soggetto.put(SOG_FINESOSAF, datanulla);
*/
if (intsi > 0)
{
soggetto.put(SOG_STATOSI, tipo);
soggetto.put(SOG_DATASI, dataultstato);
//if (prosstipo == "FS")
if (modstato_tcs(prosstipo)=='F')
soggetto.put(SOG_FINESOSSI, prossdata);
else
soggetto.put(SOG_FINESOSSI, datanulla);
}
else
{
soggetto.put(SOG_STATOSI, " ");
soggetto.put(SOG_DATASI, datanulla);
soggetto.put(SOG_FINESOSSI, datanulla);
}
if (intaf > 0)
{
soggetto.put(SOG_STATOAF, tipo);
soggetto.put(SOG_DATAAF, dataultstato);
//if (prosstipo == "FS")
if (modstato_tcs(prosstipo)=='F')
soggetto.put(SOG_FINESOSAF, prossdata);
else
soggetto.put(SOG_FINESOSAF, datanulla);
}
else
{
soggetto.put(SOG_STATOAF, " ");
soggetto.put(SOG_DATAAF, datanulla);
soggetto.put(SOG_FINESOSAF, datanulla);
}
// riordino le idoneita
for (int ri=1; ri<=idoneita->rows(); ri++)
{
const TRectype& row = idoneita->row(ri);
TDate dataido = row.get_date(IDO_DATAIDO);
TString16 tipoido = row.get(IDO_TIPOIDO);
TString16 ido_sos = row.get(IDO_IDO_SOS);
int intervallo = row.get_int(IDO_INTERVALLO);
TDate finesos = row.get_date(IDO_FINESOS);
if (tipoido == IDON_SI)
if ((intervallo != 0) && (intsi == 0))
soggetto.put(SOG_INTSI, intervallo);
if (tipoido == IDON_AF)
if ((intervallo != 0) && (intaf == 0))
soggetto.put(SOG_INTAF, intervallo);
if ((dataido >= dataultstato) || (ultstato) == 'F')
{
if (tipoido == IDON_SI)
{
soggetto.put(SOG_DATASI,dataido);
soggetto.put(SOG_STATOSI,ido_sos);
soggetto.put(SOG_FINESOSSI,finesos);
if (intervallo != 0 && ido_sos == IDONEITA)
{
soggetto.put(SOG_INTSI,intervallo);
if (id1 != IDON_SI && id2 != IDON_SI && id3 != IDON_SI && id4 != IDON_SI)
if (id1.empty())
soggetto.put(SOG_IDON1,IDON_SI);
else
if (id2.empty())
soggetto.put(SOG_IDON2,IDON_SI);
else
if (id3.empty())
soggetto.put(SOG_IDON3,IDON_SI);
else
if (id4.empty())
soggetto.put(SOG_IDON4,IDON_SI);
}
}
if (tipoido == IDON_AF)
{
soggetto.put(SOG_DATAAF,dataido);
soggetto.put(SOG_STATOAF,ido_sos);
soggetto.put(SOG_FINESOSAF,finesos);
if (intervallo != 0 && ido_sos == IDONEITA)
{
soggetto.put(SOG_INTAF,intervallo);
if (id1 != IDON_PL && id2 != IDON_PL && id3 != IDON_PL && id4 != IDON_PL)
if (id1.empty())
soggetto.put(SOG_IDON1,IDON_PL);
else
if (id2.empty())
soggetto.put(SOG_IDON2,IDON_PL);
else
if (id3.empty())
soggetto.put(SOG_IDON3,IDON_PL);
else
if (id4.empty())
soggetto.put(SOG_IDON4,IDON_PL);
}
}
}
}
// verifico la concordanza di stato soggetto e stato idoneita
TString16 statosi = soggetto.get(SOG_STATOSI);
TString16 statoaf = soggetto.get(SOG_STATOAF);
TDate datastatosi = soggetto.get_date(SOG_DATASI);
TDate datastatoaf = soggetto.get_date(SOG_DATAAF);
if (statosi.not_empty() || statoaf.not_empty())
{
TString16 stato = soggetto.get(SOG_STATO);
char modstato = modstato_tcs(stato);
const char tipostatosi = modstato_tcs(statosi);
const char tipostatoaf = modstato_tcs(statoaf);
if ((tipostatosi == 'I') || (tipostatoaf == 'I'))
if ((modstato != 'I') || (modstato != 'F'))
stato = IDONEITA;
if ((tipostatosi == 'S') && (tipostatoaf == 'S'))
if (modstato != 'S')
stato == statosi;
char statocalcolato = modstato_tcs(stato);
if (modstato != statocalcolato)
{
soggetto.put(SOG_STATO, stato);
soggetto.put(SOG_PROS_STATO," ");
soggetto.put(SOG_DATA_PROS, datanulla);
if (statocalcolato == 'I')
{
TDate datacalcolata = NULLDATE;
if (statosi == IDONEITA)
datacalcolata = datastatosi;
if ((statoaf == IDONEITA) && (datastatoaf > datacalcolata))
datacalcolata = datastatoaf;
soggetto.put(SOG_DATASTATO,datacalcolata);
}
else
if (datastatoaf > datastatosi)
soggetto.put(SOG_DATASTATO,datastatoaf);
else
soggetto.put(SOG_DATASTATO,datastatosi);
}
}
TString stato = soggetto.get(SOG_STATO);
TTable tcs("TCS");
tcs.put("CODTAB",stato);
if (tcs.read() == NOERR)
{
TString catcoll = tcs.get("S7");
if (catcoll.not_empty())
soggetto.put(SOG_CATDON,catcoll);
}
don_datepross(soggetto);
if (((penultstato == 'S') || (penultstato == 'I')) && ((ultstato == 'I') || (ultstato == 'F')))
{
data = soggetto.get_date(SOG_DATAPROSSI);
if (data < dataultstato && data.ok()) soggetto.put(SOG_DATAPROSSI,dataultstato);
data = soggetto.get_date(SOG_DATAPROSAF);
if (data < dataultstato && data.ok()) 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') // il soggetto è idoneo
{
id_si = ((is_idon(id1,id2,id3,id4,IDON_SI) || (soggetto.get(SOG_STATOSI) == IDONEITA)) && (intsi != 0)); // il soggetto è idoneo SI
id_af = ((is_idon(id1,id2,id3,id4,IDON_AF) || (soggetto.get(SOG_STATOAF) == IDONEITA)) && (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);
}
}
TString16 statoparziale;
TDate datastatoparziale;
char tipostato;
statoparziale = soggetto.get(SOG_STATOSI);
datastatoparziale = soggetto.get_date(SOG_DATASI);
tipostato = modstato_tcs(statoparziale);
if (tipostato == 'S')
datasi = NULLDATE;
if (tipostato == 'I')
if (datastatoparziale > datasi)
datasi = datastatoparziale;
statoparziale = soggetto.get(SOG_STATOAF);
datastatoparziale = soggetto.get_date(SOG_DATAAF);
tipostato = modstato_tcs(statoparziale);
if (tipostato == 'S')
dataaf = NULLDATE;
if (tipostato == 'I')
if (datastatoparziale > dataaf)
dataaf = datastatoparziale;
soggetto.put(SOG_DATAPROSSI,datasi);
soggetto.put(SOG_DATAPROSAF,dataaf);
// se la data prossima SI è superiore all'ultima convocazione
// va cancellata, anche dall'archivio convocazioni
TDate dataconv = soggetto.get_date(SOG_DATACONV);
if (datasi >= dataconv)
{
TLocalisamfile rconv(LF_RCONVOC);
const long codsog = soggetto.get_long(SOG_CODICE);
rconv.setkey(2);
rconv.zero();
rconv.put(RCV_DATACONV, dataconv);
rconv.put(RCV_CODICE, codsog);
int err = rconv.read();
if (err == NOERR)
{
rconv.put(RCV_ANNULLATO,TRUE);
rconv.rewrite();
}
soggetto.put(SOG_DATACONV, NULLDATE);
soggetto.put(SOG_DATAULTSOL, NULLDATE);
const int zeroconv = 0;
soggetto.put(SOG_NUMCONV, zeroconv);
}
}
void calcola_donazioni_lib(TRectype& soggetto, TRecord_array* donazioni)
{
TDate ultdata(NULLDATE);
TString16 ulttipo = " ";
const int i = donazioni->rows();
const int donprecsi = soggetto.get_int(SOG_DONPRECSI);
const int donprecaf = soggetto.get_int(SOG_DONPRECAF);
if (i <= 0) // non ha donazioni
{
int zerodon = 0;
soggetto.put(SOG_DATAULTDON,ultdata);
soggetto.put(SOG_DATAULTSI,ultdata);
soggetto.put(SOG_DATAULTAF,ultdata);
soggetto.put(SOG_TOTDONSI,donprecsi);
soggetto.put(SOG_TOTDONAF,donprecaf);
soggetto.put(SOG_TIPOULTDON,ulttipo);
soggetto.put(SOG_TOTDON,donprecsi+donprecaf);
}
else
{
donazioni->sort(compare_date);
const TRectype& row = donazioni->row(i);
ultdata = row.get_date(DON_DATADON);
ulttipo = row.get(DON_TIPODON);
soggetto.put(SOG_DATAULTDON,ultdata);
soggetto.put(SOG_TIPOULTDON,ulttipo);
TDate dataultsi(NULLDATE);
TDate dataultaf(NULLDATE);
int totdonsi = 0;
int totdonaf = 0;
for (int r=1; r<=donazioni->rows(); r++)
{
const TRectype& row = donazioni->row(r);
ultdata = row.get_date(DON_DATADON);
ulttipo = row.get(DON_TIPODON);
if (is_donaz(ulttipo,IDON_SI))
{
dataultsi = ultdata;
totdonsi++;
}
else
if (is_donaz(ulttipo,IDON_AF))
{
dataultaf = ultdata;
totdonaf++;
}
}
soggetto.put(SOG_DATAULTSI, dataultsi);
soggetto.put(SOG_TOTDONSI, totdonsi+donprecsi);
soggetto.put(SOG_DATAULTAF, dataultaf);
soggetto.put(SOG_TOTDONAF, totdonaf+donprecaf);
soggetto.put(SOG_TOTDON, totdonsi+donprecsi+totdonaf+donprecaf);
}
don_datepross(soggetto);
}
bool configura_stampante(TPrinter& p, const char* configurazione, const char* tipostampa)
{
TString cfg = configurazione;
cfg << '_' << user();
p.read_configuration(cfg);
p.set_printtype(winprinter);
if (p.set())
{
TString80 messaggio = "Stampante configurata per stampa ";
messaggio << tipostampa;
message_box(messaggio);
return TRUE;
}
else
{
TString80 messaggio = "Operazione di stampa ";
messaggio << tipostampa << " annullata";
message_box(messaggio);
return FALSE;
}
}
//metodo per il controllo della corretta configurazione del formato di stampa (etichette,cartoline,tessere ecc.) in configurazione..
//..sezione e della effettiva esistenza del .frm indicato
bool controlla_esistenza_form(TString& frm_name, const TString& default_frm_name)
{
//se non trova un formato indicato nel config usa quello di default
if (frm_name.blank())
frm_name = default_frm_name;
//controlla se il file .frm esiste davvero
TFilename frm_file = frm_name;
frm_file.ext("frm");
if (!frm_file.custom_path() || !frm_file.exist())
return error_box("Manca il file %s sia in custom che nella cartella del programma. Impossibile proseguire!", (const char*)frm_file);
return true;
}
//metodo per il controllo della esistenza dei tracciati record dei file di appoggio dell'AVIS
bool controlla_esistenza_trr(const char* name, TFilename& filename, TFilename& trrname)
{
filename = name;
filename.ext("dbf");
trrname = name;
trrname.ext("trr");
if (!trrname.custom_path() || !trrname.exist())
return error_box("Manca il file %s sia in custom che nella cartella del programma. Impossibile proseguire!", (const char*)trrname);
return true;
}
Reference in New Issue View Git Blame Copy Permalink