Patch level : 1.7 at
Files correlati : at9.exe at9300a.msk Ricompilazione Demo : [ ] Commento : aggiunto programma di aggiornamento dati da estrazione git-svn-id: svn://10.65.10.50/trunk@11660 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
7cfc1df0e8
commit
7fe472115d
@ -4,7 +4,7 @@
|
||||
|
||||
#include "at9.h"
|
||||
|
||||
#define usage "Error - usage : %s -{0}"
|
||||
#define usage "Error - usage : %s -{0|1|2}"
|
||||
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
@ -15,7 +15,9 @@ int main(int argc,char** argv)
|
||||
case 0:
|
||||
rt = at9100(argc,argv) ; break; // statistica soggetti sospesi
|
||||
case 1:
|
||||
rt = at9200(argc,argv) ; break; // crea aggiornamento per provinciale
|
||||
rt = at9200(argc,argv) ; break; // Estrazione archivi per aggiornamento
|
||||
case 2:
|
||||
rt = at9300(argc,argv) ; break; // Aggiornamento archivi da estrazione
|
||||
default:
|
||||
error_box(usage, argv[0]) ; break;
|
||||
}
|
||||
|
||||
1
at/at9.h
1
at/at9.h
@ -3,6 +3,7 @@
|
||||
|
||||
int at9100(int argc, char* argv[]);
|
||||
int at9200(int argc, char* argv[]);
|
||||
int at9300(int argc, char* argv[]);
|
||||
|
||||
#endif // __AT9_H
|
||||
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
// crea archivi poer aggiornamento provinciale
|
||||
// estrazione archivi per aggiornamento
|
||||
// definizione campi per maschera di selezione
|
||||
|
||||
#define F_ANAGRAFICA 101
|
||||
|
||||
229
at/at9300.cpp
Executable file
229
at/at9300.cpp
Executable file
@ -0,0 +1,229 @@
|
||||
#include <applicat.h>
|
||||
#include <filetext.h>
|
||||
#include <form.h>
|
||||
#include <mask.h>
|
||||
#include <progind.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <printer.h>
|
||||
#include <recarray.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "at9.h"
|
||||
#include "at9300a.h"
|
||||
|
||||
#include "soggetti.h"
|
||||
#include "donaz.h"
|
||||
#include "contsan.h"
|
||||
#include "idoneita.h"
|
||||
#include "benem.h"
|
||||
#include "storico.h"
|
||||
|
||||
class TProv2com: public TSkeleton_application
|
||||
{
|
||||
TMask* _msk;
|
||||
TRelation* _rel;
|
||||
TRelation* _reltmp;
|
||||
TConfig* _configfile;
|
||||
TIsamtempfile* _filesog;
|
||||
TIsamtempfile* _filedon;
|
||||
TIsamtempfile* _filecon;
|
||||
TIsamtempfile* _fileido;
|
||||
TIsamtempfile* _fileben;
|
||||
TIsamtempfile* _filesto;
|
||||
TLocalisamfile* _soggetti;
|
||||
|
||||
protected:
|
||||
virtual bool create(void);
|
||||
virtual void main_loop();
|
||||
virtual bool destroy(void) ;
|
||||
void agg_anagrafica(const TRectype& recsog);
|
||||
void transfer();
|
||||
|
||||
public:
|
||||
const TMask& msk() const { return *_msk; }
|
||||
TProv2com() {}
|
||||
virtual ~TProv2com() {}
|
||||
};
|
||||
|
||||
// restituisce un riferimento all' applicazione
|
||||
inline TProv2com& app() { return (TProv2com&) main_app();}
|
||||
|
||||
// creazione dell'applicazione
|
||||
bool TProv2com::create()
|
||||
{
|
||||
_msk = new TMask("at9300a");
|
||||
_configfile = new TConfig("at9300a.ini");
|
||||
_soggetti = new TLocalisamfile(LF_SOGGETTI);
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
// distruzione dell'applicazione
|
||||
bool TProv2com::destroy()
|
||||
{
|
||||
delete _soggetti;
|
||||
delete _configfile;
|
||||
delete _msk;
|
||||
return TSkeleton_application::destroy();
|
||||
}
|
||||
|
||||
// carica la maschera
|
||||
void TProv2com::main_loop()
|
||||
{
|
||||
_msk->set(F_PERCORSO,_configfile->get("PERCORSO", "ARCHIVIO"));
|
||||
KEY key = _msk->run();
|
||||
if (key == K_ENTER)
|
||||
{
|
||||
transfer();
|
||||
_configfile->set("PERCORSO", _msk->get(F_PERCORSO), "ARCHIVIO");
|
||||
TDate oggi(TODAY);
|
||||
_configfile->set("DATA", oggi, "ARCHIVIO");
|
||||
}
|
||||
}
|
||||
|
||||
// trasferimento dati da file CT su programma avis
|
||||
void TProv2com::transfer()
|
||||
{
|
||||
bool anagrafica = _msk->get_bool(F_ANAGRAFICA);
|
||||
const bool donazioni = _msk->get_bool(F_DONAZIONI);
|
||||
const bool controlli = _msk->get_bool(F_CONTROLLI);
|
||||
const bool benemerenze = _msk->get_bool(F_BENEMERENZE);
|
||||
const bool storico = _msk->get_bool(F_STORICO);
|
||||
TString80 percorso = _msk->get(F_PERCORSO);
|
||||
percorso.insert("%");
|
||||
TString80 nomesog = percorso;
|
||||
nomesog << "SOGGETTI";
|
||||
TString80 nomedon = percorso;
|
||||
nomedon << "DONAZ";
|
||||
TString80 nomecon = percorso;
|
||||
nomecon << "CONTSAN";
|
||||
TString80 nomeido = percorso;
|
||||
nomeido << "IDONEITA";
|
||||
TString80 nomeben = percorso;
|
||||
nomeben << "BENEM";
|
||||
TString80 nomesto = percorso;
|
||||
nomesto << "STORICO";
|
||||
|
||||
_filesog = new TIsamtempfile(LF_SOGGETTI, (const char *) nomesog, FALSE);
|
||||
_filecon = new TIsamtempfile(LF_CONTSAN, (const char*) nomecon, FALSE);
|
||||
_filedon = new TIsamtempfile(LF_DONAZ, (const char* ) nomedon, FALSE);
|
||||
_fileido = new TIsamtempfile(LF_IDONEITA, (const char*) nomeido, FALSE);
|
||||
_fileben = new TIsamtempfile(LF_BENEM, (const char*) nomeben, FALSE);
|
||||
_filesto = new TIsamtempfile(LF_STORICO, (const char*) nomesto, FALSE);
|
||||
_rel = new TRelation(LF_SOGGETTI);
|
||||
if (donazioni)
|
||||
{
|
||||
_rel->add(LF_DONAZ, "CODICE==CODICE");
|
||||
}
|
||||
if (controlli)
|
||||
{
|
||||
_rel->add(LF_CONTSAN, "CODICE==CODICE");
|
||||
_rel->add(LF_IDONEITA, "CODICE==CODICE");
|
||||
}
|
||||
if (benemerenze)
|
||||
_rel->add(LF_BENEM, "CODICE==CODICE");
|
||||
if (storico)
|
||||
_rel->add(LF_STORICO, "CODICE==CODICE");
|
||||
|
||||
_reltmp = new TRelation(LF_SOGGETTI);
|
||||
//_reltmp->add(LF_DONAZ, "CODICE==CODICE");
|
||||
//_reltmp->add(LF_CONTSAN, "CODICE==CODICE");
|
||||
//_reltmp->add(LF_IDONEITA, "CODICE==CODICE");
|
||||
//_reltmp->add(LF_BENEM, "CODICE==CODICE");
|
||||
//_reltmp->add(LF_STORICO, "CODICE==CODICE");
|
||||
|
||||
_reltmp->replace(_filesog);
|
||||
|
||||
anagrafica = (anagrafica || donazioni || controlli || benemerenze || storico);
|
||||
TCursor cursore(_reltmp);
|
||||
long records = cursore.items();
|
||||
TProgind pi(records,"Aggiornamento archivi", TRUE, TRUE);
|
||||
pi.setstatus(1);
|
||||
for (cursore = 0; cursore.pos() < records; ++(cursore))
|
||||
{
|
||||
const long codsog = cursore.curr().get_long(SOG_CODICE);
|
||||
pi.addstatus(1);
|
||||
if (pi.iscancelled()) break;
|
||||
if (anagrafica)
|
||||
agg_anagrafica(cursore.curr());
|
||||
if (donazioni)
|
||||
{
|
||||
bool continua = TRUE;
|
||||
while (continua)
|
||||
{
|
||||
const long codice = cursore.curr(LF_DONAZ).get_long(DON_CODICE);
|
||||
if (codice == codsog)
|
||||
//filedon.write(cursore.curr(LF_DONAZ));
|
||||
continua = cursore.next_match(LF_DONAZ, "CODICE");
|
||||
}
|
||||
}
|
||||
if (controlli)
|
||||
{
|
||||
bool continua = TRUE;
|
||||
while (continua)
|
||||
{
|
||||
const long codice = cursore.curr(LF_CONTSAN).get_long(CON_CODICE);
|
||||
if (codice == codsog)
|
||||
//filecon.write(cursore.curr(LF_CONTSAN));
|
||||
continua = cursore.next_match(LF_CONTSAN, "CODICE");
|
||||
}
|
||||
continua = TRUE;
|
||||
while (continua)
|
||||
{
|
||||
const long codice = cursore.curr(LF_IDONEITA).get_long(IDO_CODICE);
|
||||
if (codice == codsog)
|
||||
//fileido.write(cursore.curr(LF_IDONEITA));
|
||||
continua = cursore.next_match(LF_IDONEITA, "CODICE");
|
||||
}
|
||||
}
|
||||
if (benemerenze)
|
||||
{
|
||||
bool continua = TRUE;
|
||||
while (continua)
|
||||
{
|
||||
const long codice = cursore.curr(LF_BENEM).get_long(BEN_CODICE);
|
||||
if (codice == codsog)
|
||||
//fileben.write(cursore.curr(LF_BENEM));
|
||||
continua = cursore.next_match(LF_BENEM, "CODICE");
|
||||
}
|
||||
}
|
||||
if (storico)
|
||||
{
|
||||
bool continua = TRUE;
|
||||
while (continua)
|
||||
{
|
||||
const long codice = cursore.curr(LF_STORICO).get_long(STO_CODICE);
|
||||
if (codice == codsog)
|
||||
//filesto.write(cursore.curr(LF_STORICO));
|
||||
continua = cursore.next_match(LF_STORICO, "CODICE");
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void TProv2com::agg_anagrafica(const TRectype& recsog)
|
||||
{
|
||||
const TString80 cognome = recsog.get(SOG_COGNOME);
|
||||
const TString80 nome = recsog.get(SOG_NOME);
|
||||
const TDate datanasc = recsog.get_date(SOG_DATANASC);
|
||||
_soggetti->setkey(3);
|
||||
TRectype& rec = _rel->curr();
|
||||
rec.zero();
|
||||
rec.put(SOG_COGNOME, cognome);
|
||||
rec.put(SOG_NOME, nome);
|
||||
rec.put(SOG_DATANASC, datanasc);
|
||||
if (_soggetti->read(rec)==NOERR)
|
||||
{
|
||||
TString80 cog = rec.get(SOG_COGNOME);
|
||||
TString80 nom = rec.get(SOG_NOME);
|
||||
int a = 1;
|
||||
a++;
|
||||
}
|
||||
}
|
||||
|
||||
int at9300(int argc, char* argv[])
|
||||
{
|
||||
TProv2com a;
|
||||
a.run(argc, argv, "Aggiornamento archivi da estrazione");
|
||||
return 0;
|
||||
}
|
||||
9
at/at9300a.h
Executable file
9
at/at9300a.h
Executable file
@ -0,0 +1,9 @@
|
||||
// aggiornamento archivi da estrazione
|
||||
// definizione campi per maschera di selezione
|
||||
|
||||
#define F_ANAGRAFICA 101
|
||||
#define F_DONAZIONI 102
|
||||
#define F_CONTROLLI 103
|
||||
#define F_BENEMERENZE 104
|
||||
#define F_STORICO 105
|
||||
#define F_PERCORSO 106
|
||||
53
at/at9300a.uml
Executable file
53
at/at9300a.uml
Executable file
@ -0,0 +1,53 @@
|
||||
#include "at9300a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -11 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -11 ""
|
||||
END
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Aggiornamento archivi da estrazione" -1 -1 78 20
|
||||
|
||||
GROUPBOX DLG_NULL 77 9
|
||||
BEGIN
|
||||
PROMPT 1 1 "Opzioni di trasferimento"
|
||||
END
|
||||
|
||||
BOOLEAN F_ANAGRAFICA
|
||||
BEGIN
|
||||
PROMPT 2 2 "Dati anagrafici"
|
||||
END
|
||||
|
||||
BOOLEAN F_DONAZIONI
|
||||
BEGIN
|
||||
PROMPT 2 3 "Donazioni"
|
||||
END
|
||||
|
||||
BOOLEAN F_CONTROLLI
|
||||
BEGIN
|
||||
PROMPT 2 4 "Controlli sanitari e idoneita'"
|
||||
END
|
||||
|
||||
BOOLEAN F_BENEMERENZE
|
||||
BEGIN
|
||||
PROMPT 2 5 "Benemerenze"
|
||||
END
|
||||
|
||||
BOOLEAN F_STORICO
|
||||
BEGIN
|
||||
PROMPT 2 6 "Storico"
|
||||
END
|
||||
|
||||
STRING F_PERCORSO 50
|
||||
BEGIN
|
||||
PROMPT 2 8 "Percorso "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user