Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Turni per controlli: stampa sia chi non ha mai fatto il controllo sia chi ha fatto l'ultimo prima di una data selezionabile


git-svn-id: svn://10.65.10.50/trunk@6953 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-08-12 10:59:34 +00:00
parent f4c915ae99
commit 93dd671c64
3 changed files with 48 additions and 24 deletions

View File

@ -51,7 +51,9 @@ class TTurniControlli : public TPrintapp
int _contatore, _totale;
TDate _data_stampa;
TString16 _codsez, _codsot;
TString16 _tipo1, _tipo2, _tipo3, _tipo4, _tipo5;
TString16 _tipo1;
bool _maifatto;
TDate _primadel;
TParagraph_string _cognome_nome, _rigastampa, _dencom;
ts _tipostampa;
int _etlarghezza, _etcolonne;
@ -171,7 +173,7 @@ bool TTurniControlli::preprocess_page(int file, int counter)
localita.trim();
_dencom = localita;
TDate data1(NULLDATE), data2(NULLDATE), data3(NULLDATE), data4(NULLDATE), data5(NULLDATE);
TDate data1(NULLDATE);
TRectype* key = new TRectype(LF_CONTSAN);
long codice = recsog.get_long(SOG_CODICE);
@ -184,22 +186,13 @@ bool TTurniControlli::preprocess_page(int file, int counter)
TDate datacon = riga.get(CON_DATACON);
if (tipocon == _tipo1 && _tipo1.not_empty())
data1 = datacon;
if (tipocon == _tipo2 && _tipo2.not_empty())
data2 = datacon;
if (tipocon == _tipo3 && _tipo3.not_empty())
data3 = datacon;
if (tipocon == _tipo4 && _tipo4.not_empty())
data4 = datacon;
if (tipocon == _tipo5 && _tipo5.not_empty())
data5 = datacon;
}
TString80 rigastampa;
rigastampa = "";
rigastampa << "@72g"<<data1;
rigastampa << "@83g"<<data2;
rigastampa << "@94g"<<data3;
rigastampa << "@105g"<<data4;
rigastampa << "@116g"<<data5;
if (data1.ok())
rigastampa << "@72g"<<data1;
else
rigastampa << "@72g"<<"mai effettuato";
_rigastampa = rigastampa;
// salto pagina se cambio sezione
const TString16 codsez = recsog.get(SOG_CODSEZ);
@ -259,7 +252,7 @@ void TTurniControlli::set_page(int file, int cnt)
set_row(1,"@87g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
set_row(1,"@102g@S", FLD(LF_SOGGETTI,SOG_TELALT));
//set_row(3,"@72g#a", &_rigastampa);
set_row(3,"@72g#a", &_rigastampa);
set_row(4,"");
}
@ -289,7 +282,21 @@ bool TTurniControlli::filter_func_turnicon(const TRelation* rel)
const TRectype& riga = app()._scontrolli->row(r);
TString16 tipocon = riga.get(CON_TIPOCON);
if (tipocon == app()._tipo1)
filtrato = FALSE;
{
if (app()._maifatto)
{
if (app()._primadel.ok())
{
TDate datacon = riga.get(CON_DATACON);
if (datacon >= app()._primadel)
filtrato = FALSE;
}
else
filtrato = FALSE;
}
else
filtrato = FALSE;
}
}
}
return filtrato;
@ -335,6 +342,8 @@ bool TTurniControlli::set_print(int)
if (_tipostampa != undefined)
{
_tipo1 = _msk->get(F_TIPO1);
_maifatto = _msk->get_bool(F_MAIFATTO);
_primadel = _msk->get_date(F_PRIMADEL);
_contatore = 0;
_totale = 0;
reset_files();
@ -373,8 +382,12 @@ void TTurniControlli::crea_intestazione()
{
reset_header();
TString sep(132);
sep = "STAMPA SOGGETTI CHE NON HANNO MAI EFFETTUATO IL CONTROLLO ";
sep = "STAMPA TURNI PER CONTROLLI SANITARI ";
sep << _tipo1;
if (_maifatto)
sep << " - mai effettuato";
if (_primadel.ok())
sep << " - effettuato prima del " << _primadel.string();
sep.center_just();
set_header(2, "@0g%s", (const char*) sep);
TDate data_stampa = _data_stampa.string();
@ -388,8 +401,7 @@ void TTurniControlli::crea_intestazione()
set_header(3, (const char *) sep);
set_header(4,"@0gCodice@9gCognome e nome@61gNato il@72gTelefono abit.@87gTelefono lav.@102gTelefono altro");
set_header(5,"@0gTessera@9gIndirizzo");
TString256 riga = "@0gCat.@61gGruppo Rh@";
set_header(6,riga);
set_header(6,"@0gCat.@61gGruppo Rh@72gData ult. controllo scelto");
set_header(7,"@0g--------@9g---------------------------------------------------@61g----------@72g------------------------------------------------------");
printer().footerlen(3);
}

View File

@ -25,6 +25,8 @@
#define F_TIPO1 301
#define F_D_TIPO1 302
#define F_MAIFATTO 303
#define F_PRIMADEL 304
#define F_ELENCO 401
#define F_ETICHETTE 402

View File

@ -4,13 +4,13 @@ TOOLBAR "" 0 20 0 2
BUTTON F_ELENCO 9 2
BEGIN
PROMPT -13 -11 "Elenco"
PROMPT -13 -11 "E~lenco"
MESSAGE EXIT,F_ELENCO
END
BUTTON F_ETICHETTE 9 2
BEGIN
PROMPT -23 -11 "Etichette"
PROMPT -23 -11 "~Etichette"
MESSAGE EXIT,F_ETICHETTE
END
@ -265,9 +265,9 @@ BEGIN
FLAGS "D"
END
GROUPBOX DLG_NULL 77 3
GROUPBOX DLG_NULL 77 5
BEGIN
PROMPT 1 10 "Stampa i soggetti che non hanno mai effettuato"
PROMPT 1 10 "Opzioni per la stampa"
END
STRING F_TIPO1 2
@ -291,5 +291,15 @@ BEGIN
FLAGS "D"
END
BOOLEAN F_MAIFATTO
BEGIN
PROMPT 2 12 "Includi chi non ha mai effettuato il controllo scelto"
END
DATE F_PRIMADEL
BEGIN
PROMPT 2 13 "Includi chi ha fatto l'ultimo controllo scelto prima del "
END
ENDPAGE
ENDMASK