root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/at/at8800.cpp
alex 797e8900fb Patch level : 4.0 673 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Riportata la versione 3.1 patch 873


git-svn-id: svn://10.65.10.50/trunk@15151 c028cbd2-c16b-5b4b-a496-9718f37d4682
2007-03-30 13:51:17 +00:00

509 lines
15 KiB
C++
Executable File
Raw Blame History

#include <applicat.h>
#include <filetext.h>
#include <mask.h>
#include <tabutil.h>
#include <progind.h>
#include <utility.h>
#include "at8.h"
#include "at8800a.h"
#include "atlib.h"
#include "contsan.h"
#include "donaz.h"
#include "idoneita.h"
#include "soggetti.h"
#include "convoc.h"
#include "rconvoc.h"
#include "storico.h"
#define ATFILENAME "pippo.txt"
////////////////////////////////////////////////////////
// Classe TCtbo2at_file customizzata dalla TFile_text //
////////////////////////////////////////////////////////
class TCtbo2at_file: public TFile_text
{
protected:
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
public:
virtual int autosave(TRelation& rel, const TRecord_text& rec);
TCtbo2at_file(const TString& file_name, const TString& config_name);
virtual ~TCtbo2at_file() { }
};
TCtbo2at_file::TCtbo2at_file(const TString& file_name, const TString& config_name)
: TFile_text(file_name, config_name)
{
}
int TCtbo2at_file::autosave(TRelation& rel, const TRecord_text& rec)
{
const TString& type = rec.type();//prendo il tracciato record del tipo del record_text
TTracciato_record& tr = *t_rec(type);
TArray& a_tc = tr.tracciati_campo();
const int items = a_tc.items();
TString valore;
for (int i = 0; i < items; i++)
{
const TTracciato_campo& tc = tr.get(i);
TFieldref field(tc.field());
if (field.name().not_empty())
{
if (field.file()==0)
field.set_file(rel.lfile().num());
valore = rec.row(i);
// formatta il campo del file di testo secondo le specifiche del campo su file isam
preformat_field(field,valore,rel,tr.type());
const TRectype& rel_rec = rel.curr(field.file());
TFieldtypes tipo_campo = rel_rec.type(field.name());
bool vuoto = valore.blank();
if (valore[0] == '@') //se trovo il carattere @ -> azzero il campo
valore.cut(0);
switch(tipo_campo) //in base al tipo di campo formatta i valori seguendo le specifiche del tracciato
{
case _datefld: //tipo data...
{
if (real::is_null(valore))
{
valore.cut(0);
vuoto = TRUE;
}
TDate data(valore);
format_date(data, fpicture(tc), valore);//formatta la data secondo le specifiche del tracciato
}
break;
case _realfld: //tipi numerici
case _intfld:
case _longfld:
{
const real numero(valore);
vuoto = numero.is_zero();
valore = numero.string(fpicture(tc));//formatta il numero secondo le specifiche del tracciato
int length = flength(tc,rel_rec);
if (falign(tc) == 'L')
valore.left_just(length, ffiller(tc));
else
valore.right_just(length, ffiller(tc)); }
break;
default:
valore = format_field(tc, rel.lfile().num(), valore);//formatta il campo secondo le specifiche del record
break;
}
if (!vuoto && rel.exist(field.file()))
field.write(valore, rel);//faccio una write sulla relazione del fieldref
}
}
int err = NOERR;
if (pre_writerel(rel,rec))
{
err= rel.write();
if (err == _isdupkey || err ==_isreinsert)
err = rel.rewrite();
}
return err;
}
/////////////////////////////////////////////////////
// Classe TCtbo2at: applicazione principale //
/////////////////////////////////////////////////////
class TCtbo2at: public TSkeleton_application
{
TMask* _msk;
TCtbo2at_file* _trasfile;
int _numdon1, _numdon2;
TString16 _catini1, _catfin1, _catini2, _catfin2;
bool _sttess2, _dataisc;
protected:
virtual bool create(void);
virtual void main_loop();
virtual bool destroy(void) ;
void transfer(void);
void inizializza_file(void);
static bool annulla_handler(TMask_field& f, KEY k);
bool test_donation(TRectype& recsog, const char* tipo, const TDate& datadon, const TString& luogodon);
bool test_inter(TRectype& recsog, const char* tipo, const TDate& datadon, int inter);
void calcola_categoria(TRectype& recsog);
public:
const TMask& msk() const { return *_msk; }
TCtbo2at() {}
virtual ~TCtbo2at() {}
};
// restituisce un riferimento all' applicazione
inline TCtbo2at& app() { return (TCtbo2at&) main_app();}
// creazione dell'applicazione
bool TCtbo2at::create()
{
open_files(LF_SOGGETTI, LF_DONAZ, LF_CONTSAN, LF_IDONEITA, LF_CONVOC, LF_RCONVOC, LF_STORICO, 0);
_msk = new TMask("at8800a");
_msk->set(F_FILENAME,ATFILENAME);
_trasfile = NULL;
TConfig config(CONFIG_STUDIO);
_numdon1 = config.get_int("NumDon1");
_numdon2 = config.get_int("NumDon2");
_catini1 = config.get("CatIni1");
_catfin1 = config.get("CatFin1");
_catini2 = config.get("CatIni2");
_catfin2 = config.get("CatFin2");
_sttess2 = config.get_bool("StTess2");
_dataisc = config.get_bool("DataIsc");
return TSkeleton_application::create();
}
// distruzione dell'applicazione
bool TCtbo2at::destroy()
{
delete _msk;
return TSkeleton_application::destroy();
}
// carica la maschera
void TCtbo2at::main_loop()
{
// Preimposta gli eventuali valori specificati sulla riga di comando
//error_box("Attenzione: manca la configurazione del trasferimento!");
KEY key = K_ENTER;
while (key != K_QUIT)
{
key = _msk->run();
if (key == K_ENTER)
transfer();
}
}
bool TCtbo2at::test_donation(TRectype& recsog, const char* tipo, const TDate& datadon, const TString& luogodon)
{
//ricostruisce le donazioni del soggetto in esame
TRectype* key = new TRectype(LF_DONAZ);
key->put(DON_CODICE, recsog.get(SOG_CODICE));
TRecord_array donazioni(LF_DONAZ,DON_PROGDON);
donazioni.read(key);
// verificare se ha fatto una donazione di tipo <tipo> con data successiva all'ultima donazione
const int r=donazioni.last_row();
if (r > 0)
{
const TRectype& lastdon = donazioni[r];
if (lastdon.get_date(DON_DATADON) >= datadon)
return FALSE;
}
//aggiunge la nuova donazione
// compila i dati della donazione in esame
TRectype* rec = new TRectype(LF_DONAZ);
rec->put(DON_CODICE, recsog.get(SOG_CODICE));
rec->put(DON_PROGDON,r+1);
rec->put(DON_DATADON, datadon);
rec->put(DON_TIPODON, tipo);
rec->put(DON_CODSEZ,recsog.get(SOG_CODSEZ));
rec->put(DON_CODSOT,recsog.get(SOG_CODSOT));
rec->put(DON_LUOGODON, luogodon);
if (r == 0) //pu<70> essere una prima donazione...
rec->put(DON_PRIMADON,"X");
donazioni.insert_row(rec);
donazioni.write(TRUE);
calcola_donazioni_lib(recsog, &donazioni); // questo metodo sistema tutto!!!
calcola_categoria(recsog);
// aggiorno data e utente ultimo aggiornamento
//const TDate oggi(TODAY);
//recsog.put(SOG_DATAULTAGG,oggi);
//recsog.put(SOG_UTENULTAGG,"WINSIT");
return TRUE;
}
void TCtbo2at::calcola_categoria(TRectype& recsog)
{
TTable ctd("CTD");
TString16 catdon = recsog.get(SOG_CATDON);
const int totdon = recsog.get_int(SOG_TOTDON);
ctd.put("CODTAB",catdon);
if (ctd.read() == NOERR)
{
bool dimissione = ctd.get_bool("B0");
if (dimissione)
{
const TString& cat_coll = ctd.get("S6");
if (cat_coll.not_empty())
{
catdon = cat_coll;
recsog.put(SOG_CATDON, catdon);
}
}
if ((catdon == _catini1 || _catini1.empty()) && (totdon>=_numdon1) && _catfin1.not_empty())
{
recsog.put(SOG_CATDON, _catfin1);
catdon = _catfin1;
}
bool tstampata = recsog.get_bool(SOG_T_STAMPATA);
if ((catdon == _catini2 || _catini2.empty()) && (totdon>=_numdon2) && _catfin2.not_empty() && (!_sttess2 || tstampata))
{
recsog.put(SOG_CATDON, _catfin2);
catdon = _catfin2;
}
}
}
bool TCtbo2at::test_inter(TRectype& recsog, const char* tipo, const TDate& datadon, int inter)
{
const char* tipoido = stricmp(tipo, "SI") != 0 ? "AF" : "SI";
int intervallo = 0;
TRectype* key_cont = new TRectype(LF_CONTSAN);
key_cont->put(CON_CODICE, recsog.get(SOG_CODICE));
TRecord_array controlli(LF_CONTSAN,CON_PROGCON);
controlli.read(key_cont);
TRectype* key = new TRectype(LF_IDONEITA);
key->put(IDO_CODICE, recsog.get(SOG_CODICE));
TRecord_array idoneita(LF_IDONEITA,IDO_PROGIDO);
idoneita.read(key);
TString16 stato;
TDate datapross;
TDate datastato;
if (tipo == "SI")
{
stato = recsog.get(SOG_STATOSI);
intervallo = recsog.get_int(SOG_INTSI);
datapross = recsog.get_int(SOG_DATAPROSSI);
datastato = recsog.get_date(SOG_DATASI);
}
else
{
stato = recsog.get(SOG_STATOAF);
intervallo = recsog.get_int(SOG_INTAF);
datapross = recsog.get_int(SOG_DATAPROSAF);
datastato = recsog.get_date(SOG_DATAAF);
}
if (stato.empty())
{
stato = recsog.get(SOG_STATO);
datastato = recsog.get_date(SOG_DATASTATO);
}
if (modstato_tcs(stato) != 'S' && stato.not_empty() && intervallo == inter && !datapross.empty())
return FALSE;
const int r = idoneita.last_row(); //se trova una data idoneita >= di quella in esame, quest'ultima viene ignorata
if (r > 0)
{
const TRectype& lastido = idoneita[r];
const TString16 tipoultido = lastido.get(IDO_TIPOIDO);
const TString16 tipoidostr(tipoido);
if ((lastido.get_date(IDO_DATAIDO) >= datadon) && (tipoidostr == tipoultido) && (modstato_tcs(stato) != 'S'))
return FALSE;
}
TDate data;
if (datadon < datastato)
data = TODAY;
else
data = datadon;
TRectype* rec = new TRectype(LF_IDONEITA);
rec->put(IDO_CODICE, recsog.get(SOG_CODICE));
if (idoneita.rows() == 0)
rec->put(IDO_PROGIDO, 1);
else
rec->put(IDO_PROGIDO, r+1);
rec->put(IDO_DATAIDO, data);
rec->put(IDO_TIPOIDO, tipoido); // Il mondo <20> bello perch<63> c'<27> l'AVIS (tutte le donaz. non SI sono AF! mah?!)
rec->put(IDO_IDO_SOS, "ID");
rec->put(IDO_INTERVALLO, inter);
// aggiunto da cristina il 18/09/2002 altrimenti non so che quella riga <20> stata aggiunta da CT
rec->put(IDO_RESPONSAB, "TRASF. DA CT");
idoneita.add_row(rec);
idoneita.write();
con_reord(recsog, &controlli, &idoneita);
// verifico se occorre azzerare numero convocazioni e data ultima convocazione
TDate dataultdon = recsog.get(SOG_DATAULTDON);
if ((data - dataultdon) > 730)
{
recsog.put(SOG_DATACONV, NULLDATE);
recsog.put(SOG_NUMCONV, 0);
}
// aggiorno data e utente ultimo aggiornamento (Cristina 18/09/2002)
//const TDate oggi(TODAY);
//recsog.put(SOG_DATAULTAGG,oggi);
//recsog.put(SOG_UTENULTAGG,"WINSIT");
return TRUE;
}
// trasferimento dati da file CT su programma avis
void TCtbo2at::transfer()
{
TFilename ctboini = "ctbo2at.ini";
_trasfile = new TCtbo2at_file(_msk->get(F_FILENAME), ctboini);
inizializza_file();
const long dimension = fsize(_msk->get(F_FILENAME));
TProgind pi(dimension,"Acquisizione in corso...");
TRelation rel(LF_SOGGETTI);
TRectype& recsog = rel.curr();
TLocalisamfile& soggetti = rel.lfile();
rel.lfile().setkey(2);
TString80 str; // Stringa jolly di lavoro
TRecord_text curr;
while (_trasfile->read(curr) == NOERR)
{
pi.setstatus(_trasfile->read_file()->tellg());
//controlla se il donatore <20> AVIS oppure un cane sciolto o, peggio ancora, un adepto della
//concorrenza!!!(ovviamente si va a stringhe fisse e non a tabelle! roba da avis.....)
str = curr.get(31); //donatore della concorrenza -> lo salta
str.trim();
if (str == "ADVS")
continue;
if (str == "NOASS") //se il donatore <20> un cane sciolto -> va in sezione NI ed in categoria NI
{
curr.add("NI",0);
curr.add("@",1);
//sogg.put(SOG_CATDON,"NI");
}
//str = curr.get(2);
//sogg.put(SOG_CODICE, atol(str));
//if (rel.read(_isequal) != NOERR)
recsog.zero();
str = curr.get(3);
recsog.put(SOG_COGNOME, str);
str = curr.get(4);
recsog.put(SOG_NOME, str);
str = curr.get(5);
if (!str.blank())
{
recsog.put(SOG_DATANASC, str);
if (recsog.read(rel.lfile())!=NOERR)
{
recsog.zero();
str = curr.get(2);
recsog.put(SOG_CODICE, str);
str = curr.get(3);
recsog.put(SOG_COGNOME, str);
str = curr.get(4);
recsog.put(SOG_NOME, str);
str = curr.get(5);
recsog.write(rel.lfile());
}
//controlla se il donatore ha cambiato sezione spostandosi da Bologna in provincia;
//in questo caso gli deve cancellare il sottogruppo (veramente un procedimento da
//galera, ma se l'avis e winsit vogliono cos<6F>.....)
str = curr.get(0);
str.trim();
TString8 str1;
str1 = curr.get(1);
str1.trim();
if (str != recsog.get(SOG_CODSEZ) && str != "01" && str1 == "")
curr.add("@",1);
//esegue l'effettivo passaggio dati basandosi sulla formattazione del file .ini
_trasfile->autosave(rel, curr);
const TDate oggi(TODAY);
recsog.put(SOG_DATAULTAGG,oggi);
recsog.put(SOG_UTENULTAGG,"WINSIT");
rel.rewrite();
const char* tipo[] = { "SI", "PL", "PI", "PP" };
for (int i = 0; i < 4; i++)
{
bool update = FALSE;
TDate datadon(TODAY);
str = curr.get(23+i);
if (!str.blank())
{
datadon = TDate(str);
str = curr.get(32);
str.trim();
//cambio codice del punto di prelievo per casi speciali (sarebbe necessaria una tabella,
//ma con l'AVIS <20> tempo sprecato....)
if (str == "UROM")
str = "013";
else if (str == "UROB")
str = "O.BE";
else if (str == "IMOLA")
str = "70";
else if (str.empty())
str = "70";
update |= test_donation(recsog, tipo[i], datadon, str);
}
str = curr.get(35);
TDate datainisos(NULLDATE);
if (!str.blank())
datainisos = TDate(str);
str = curr.get(36);
TDate datafinesos(NULLDATE);
if (!str.blank())
datafinesos = TDate(str);
str = curr.get(27+i);
if ((datainisos.empty()) || (datafinesos <= oggi))
if (!real::is_null(str))
update |= test_inter(recsog, tipo[i], datadon, atoi(str));
if (update)
{
calcola_categoria(recsog);
rel.rewrite();
}
}
}
}
_trasfile->close();
message_box("Operazione terminata");
}
//inizializza il file di testo su cui emettere i dati
void TCtbo2at::inizializza_file()
{
TFilename filect = _msk->get(F_FILENAME); //aggiungere lettura automatica nomi file
_trasfile->open(filect,'r');
}
// handler per gestire la conferma dell'annullamento dei dati inseriti
// nella maschera
bool TCtbo2at::annulla_handler(TMask_field& f, KEY k)
{
TMask &m = f.mask();
if (k == K_SPACE)
{
if (yesno_box("Vuoi veramente annullare i dati inseriti"))
m.reset();
}
return TRUE;
}
// gestione dei messaggi estesi nei campi
void TCtbo2at_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
{
const TString code(s.get(0));
TString valore;
if (code == "_UPPERCASE")
{
valore.upper();
}
else NFCHECK("Macro non definita: %s", (const char *)code);
str = valore;
}
int at8800(int argc, char* argv[])
{
TCtbo2at a ;
a.run(argc, argv, "Acquisizione dati da CT Bologna");
return 0;
}
Reference in New Issue View Git Blame Copy Permalink