797e8900fb
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
304 lines
7.5 KiB
C++
Executable File
304 lines
7.5 KiB
C++
Executable File
#include <mask.h>
|
||
#include <printapp.h>
|
||
#include <utility.h>
|
||
|
||
#include "contsan.h"
|
||
#include "soggetti.h"
|
||
#include "sezioni.h"
|
||
|
||
#include "at5.h"
|
||
#include "at5100a.h"
|
||
|
||
#define ALIAS_TCS 200
|
||
|
||
class TControlloControlli : public TPrintapp
|
||
{
|
||
TRelation* _rel;
|
||
TMask* _msk;
|
||
int _counter;
|
||
int _cur;
|
||
TDate _dataold, _dataini, _datafin;
|
||
TString16 _tipocon, _sezold;
|
||
TString16 _sezini, _sotini, _tipostampa, _ordinamento;
|
||
|
||
TParagraph_string _cognome_nome;
|
||
|
||
protected:
|
||
virtual bool user_create();
|
||
virtual bool user_destroy();
|
||
virtual bool set_print(int m);
|
||
virtual void set_page(int file, int cnt);
|
||
virtual bool preprocess_page(int file, int counter);
|
||
|
||
public:
|
||
void crea_intestazione();
|
||
void header_stampa(const TDate data, const TString16 sezione, const TString16 sottog);
|
||
TMask& app_mask() { return *_msk; }
|
||
TControlloControlli() : _cognome_nome("",35) {}
|
||
};
|
||
|
||
HIDDEN inline TControlloControlli& app() { return (TControlloControlli&) main_app(); }
|
||
|
||
void TControlloControlli::set_page(int file, int cnt)
|
||
{
|
||
set_row(1,"@0g#D" , &_counter);
|
||
set_row(1,"@7g@pn" , FLD(LF_SOGGETTI,SOG_CODICE,"########"));
|
||
set_row(1,"@16g@S" , FLD(LF_SOGGETTI,SOG_TESSAVIS));
|
||
set_row(1,"@24g#a" , &_cognome_nome);
|
||
set_row(1,"@60g@ld" , FLD(LF_SOGGETTI,SOG_DATANASC));
|
||
set_row(1,"@71g@S" , FLD(LF_SOGGETTI,SOG_CODSEZ));
|
||
set_row(1,"@74g@S" , FLD(LF_SOGGETTI,SOG_CODSOT));
|
||
set_row(1,"@77g@ld" , FLD(LF_CONTSAN,CON_DATACON));
|
||
set_row(1,"@88g@S" , FLD(LF_CONTSAN,CON_TIPOCON));
|
||
set_row(1,"@91g@S" , FLD(LF_CONTSAN,CON_IDON1));
|
||
set_row(1,"@94g@S" , FLD(LF_CONTSAN,CON_IDON2));
|
||
set_row(1,"@97g@S" , FLD(LF_CONTSAN,CON_IDON3));
|
||
set_row(1,"@100g@S" , FLD(LF_CONTSAN,CON_IDON4));
|
||
set_row(1,"@103g@pn" , FLD(LF_CONTSAN,CON_INTSI,"###"));
|
||
set_row(1,"@107g@pn" , FLD(LF_CONTSAN,CON_INTAF,"###"));
|
||
set_row(1,"@111g@S" , FLD(LF_CONTSAN,CON_PROSSTIPO));
|
||
set_row(1,"@114g@ld" , FLD(LF_CONTSAN,CON_PROSSDATA));
|
||
set_row(1,"@125g@S" , FLD(LF_CONTSAN,CON_MOTIVO));
|
||
set_row(2,"@60g@S" , FLD(LF_CONTSAN,CON_RESPONSAB));
|
||
}
|
||
|
||
bool TControlloControlli::preprocess_page(int file, int counter)
|
||
{
|
||
// contatore soggetti stampati
|
||
// per ora non c'<27>
|
||
TString80 nome = current_cursor()->curr(LF_SOGGETTI).get(SOG_COGNOME);
|
||
nome << " ";
|
||
nome << current_cursor()->curr(LF_SOGGETTI).get(SOG_NOME);
|
||
_cognome_nome = nome;
|
||
|
||
// salto pagina se cambio punto di rottura
|
||
switch (_tipostampa[0])
|
||
{
|
||
case 'D':
|
||
{
|
||
const TDate datanew = current_cursor()->curr().get(CON_DATACON);
|
||
if (datanew != _dataold )
|
||
{
|
||
if (_dataold.ok())
|
||
printer().formfeed();
|
||
_dataold = datanew;
|
||
header_stampa(datanew,"","");
|
||
_counter = 0;
|
||
}
|
||
}
|
||
break;
|
||
case 'S':
|
||
{
|
||
TString16 sezione = current_cursor()->curr(LF_SOGGETTI).get(SOG_CODSEZ);
|
||
TString16 sottog = current_cursor()->curr(LF_SOGGETTI).get(SOG_CODSOT);
|
||
TString16 seznew = "";
|
||
seznew << sezione;
|
||
seznew << '/';
|
||
seznew << sottog;
|
||
if (seznew != _sezold )
|
||
{
|
||
if (_sezold != "****")
|
||
printer().formfeed();
|
||
_sezold = seznew;
|
||
header_stampa(NULLDATE,sezione,sottog);
|
||
_counter = 0;
|
||
}
|
||
}
|
||
break;
|
||
}
|
||
_counter++;
|
||
return TRUE;
|
||
}
|
||
|
||
void TControlloControlli::header_stampa(const TDate data, const TString16 sezione, const TString16 sottog)
|
||
{
|
||
TString intestazione(132);
|
||
intestazione = "STAMPA CONTROLLI SANITARI ";
|
||
switch (_tipostampa[0])
|
||
{
|
||
case 'D':
|
||
{
|
||
intestazione << "PER DATA ";
|
||
intestazione << data;
|
||
}
|
||
break;
|
||
case 'S':
|
||
{
|
||
intestazione << "PER SEZIONE ";
|
||
intestazione << sezione;
|
||
if (sottog.not_empty())
|
||
{
|
||
intestazione << "/";
|
||
intestazione << sottog;
|
||
}
|
||
TLocalisamfile sez(LF_SEZIONI);
|
||
sez.setkey(1);
|
||
TRectype& recsez = sez.curr();
|
||
recsez.zero();
|
||
recsez.put(SEZ_CODSEZ, sezione);
|
||
recsez.put(SEZ_CODSOT, sottog);
|
||
if (sez.read() == NOERR)
|
||
{
|
||
intestazione << " ";
|
||
intestazione << recsez.get(SEZ_DENSEZ);
|
||
TString80 densot = recsez.get(SEZ_DENSOT);
|
||
if (densot.not_empty())
|
||
{
|
||
intestazione << "/";
|
||
intestazione << densot;
|
||
}
|
||
}
|
||
}
|
||
break;
|
||
}
|
||
intestazione.center_just();
|
||
set_header(1,"@0g%s", (const char*) intestazione);
|
||
intestazione = "Pag. @#";
|
||
set_header(1, "@120g%s", (const char*) intestazione);
|
||
return;
|
||
}
|
||
|
||
bool TControlloControlli::set_print(int m)
|
||
{
|
||
KEY tasto;
|
||
tasto = _msk->run();
|
||
if (tasto == K_ENTER)
|
||
{
|
||
_sezini = _msk->get(F_SEZINI);
|
||
_sotini = _msk->get(F_SOTINI);
|
||
_dataini = _msk->get_date(F_DATAINI);
|
||
_datafin = _msk->get_date(F_DATAFIN);
|
||
_tipocon = _msk->get(F_TIPOCON);
|
||
|
||
_tipostampa = _msk->get(F_TIPOSTAMPA);
|
||
_ordinamento = _msk->get(F_ORDINAMENTO);
|
||
TString80 chiave = "";
|
||
switch (_tipostampa[0])
|
||
{
|
||
case 'D':
|
||
chiave = "93->DATACON|";
|
||
break;
|
||
case 'S':
|
||
chiave = "90->CODSEZ|90->CODSOT|";
|
||
break;
|
||
}
|
||
switch (_ordinamento[0])
|
||
{
|
||
case 'C':
|
||
chiave << "UPPER(90->COGNOME)|UPPER(90->NOME)";
|
||
break;
|
||
case 'D':
|
||
chiave << "93->DATACON";
|
||
break;
|
||
}
|
||
TString80 filtro = "";
|
||
// filtro per tipo controlli
|
||
if (_tipocon.not_empty())
|
||
filtro = format("(TIPOCON == \"%s\")",(const char*)_tipocon);
|
||
// filtro per sezione/sottogruppo
|
||
if (_sezini.not_empty())
|
||
{
|
||
if (filtro.empty())
|
||
filtro = format("(90->CODSEZ == \"%s\")",(const char*)_sezini);
|
||
else
|
||
{
|
||
filtro << " && ";
|
||
filtro << format("(90->CODSEZ == \"%s\")",(const char*)_sezini);
|
||
}
|
||
if (_sotini.not_empty())
|
||
{
|
||
if (filtro.empty())
|
||
filtro = format("(90->CODSOT == \"%s\")",(const char*)_sotini);
|
||
else
|
||
{
|
||
filtro << " && ";
|
||
filtro << format("(90->CODSOT == \"%s\")",(const char*)_sotini);
|
||
}
|
||
}
|
||
}
|
||
// filtro per data
|
||
TRectype da(LF_CONTSAN);
|
||
TRectype a (LF_CONTSAN);
|
||
if (_dataini.ok())
|
||
da.put(CON_DATACON, _dataini);
|
||
if (_datafin.ok())
|
||
a.put(CON_DATACON, _datafin);
|
||
_cur = add_cursor(new TSorted_cursor(_rel, (const char*) chiave, "", 2, &da, &a));
|
||
current_cursor()->setfilter((const char*) filtro, TRUE);
|
||
_counter = 0;
|
||
_dataold = NULLDATE;
|
||
_sezold = "****";
|
||
reset_files();
|
||
add_file(LF_CONTSAN);
|
||
reset_print();
|
||
crea_intestazione();
|
||
return TRUE;
|
||
}
|
||
else
|
||
return FALSE;
|
||
}
|
||
|
||
void TControlloControlli::crea_intestazione()
|
||
{
|
||
reset_header();
|
||
TString sep(132);
|
||
sep = "Selezioni stampa: ";
|
||
if (_sezini.not_empty())
|
||
{
|
||
sep << "Sez. ";
|
||
sep << _sezini;
|
||
if (_sotini.not_empty())
|
||
{
|
||
sep << "/";
|
||
sep << _sotini;
|
||
}
|
||
sep << "; ";
|
||
}
|
||
if (_dataini.ok())
|
||
{
|
||
sep << "Dal ";
|
||
sep << _dataini.string();
|
||
}
|
||
if (_datafin.ok())
|
||
{
|
||
sep << " Al ";
|
||
sep << _datafin.string();
|
||
}
|
||
if (_dataini.ok() || _datafin.ok())
|
||
sep << "; ";
|
||
if (_tipocon.not_empty())
|
||
{
|
||
sep << "Tipo ";
|
||
sep << _tipocon;
|
||
sep << "; ";
|
||
}
|
||
sep.center_just();
|
||
set_header(2,"@0g%s", (const char*) sep);
|
||
set_header(3,"@0gProg.@7gCodice@16gTessera@24gCognome e nome@60gNato il@71gSe/So@77gData con/tipo@91gIdoneita'@103g SI AF@111gPross.tipo@125gMot.");
|
||
set_header(4,"@60gResponsabile");
|
||
set_header(5,"@0g------@7g--------@16g-------@24g-----------------------------------@60g----------@71g-----@77g----------@88g--@91g-- -- -- --@103g--- ---@111g-- ----------@125g----");
|
||
}
|
||
|
||
bool TControlloControlli::user_create()
|
||
{
|
||
_rel = new TRelation(LF_CONTSAN);
|
||
_rel->add(LF_SOGGETTI, "CODICE==CODICE");
|
||
_rel->add("TCS", "CODTAB==TIPOCON",1,0,ALIAS_TCS);
|
||
_msk = new TMask("at5100a");
|
||
return TRUE;
|
||
}
|
||
|
||
bool TControlloControlli::user_destroy()
|
||
{
|
||
delete _msk;
|
||
delete _rel;
|
||
return TRUE;
|
||
}
|
||
|
||
int at5100(int argc, char* argv[])
|
||
{
|
||
TControlloControlli a;
|
||
a.run(argc, argv, "Stampa di controllo controlli sanitari");
|
||
return 0;
|
||
}
|