root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Possibilitá di specificare 2 controlli


git-svn-id: svn://10.65.10.50/trunk@8974 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2000-05-03 10:11:08 +00:00
parent 3fec150254
commit f2e19b2fdc
3 changed files with 38 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
at/at5300.cpp
View File

@ -51,7 +51,7 @@ class TTurniControlli : public TPrintapp
int _contatore, _totale; int _contatore, _totale;
TDate _data_stampa; TDate _data_stampa;
TString16 _codsez, _codsot; TString16 _codsez, _codsot;
TString16 _tipo1; TString16 _tipo1, _tipo2;
bool _maifatto; bool _maifatto;
TDate _primadel, _dataini, _datafin; TDate _primadel, _dataini, _datafin;
TParagraph_string _cognome_nome, _rigastampa, _dencom; TParagraph_string _cognome_nome, _rigastampa, _dencom;
@ -177,7 +177,7 @@ bool TTurniControlli::preprocess_page(int file, int counter)
const TRectype& riga = _scontrolli->row(r); const TRectype& riga = _scontrolli->row(r);
TString16 tipocon = riga.get(CON_TIPOCON); TString16 tipocon = riga.get(CON_TIPOCON);
TDate datacon = riga.get(CON_DATACON); TDate datacon = riga.get(CON_DATACON);
if (tipocon == _tipo1 && _tipo1.not_empty()) if ((tipocon == _tipo1 && _tipo1.not_empty()) || (tipocon == _tipo2 && _tipo2.not_empty()))
data1 = datacon; data1 = datacon;
} }
TString80 rigastampa; TString80 rigastampa;
@ -285,7 +285,7 @@ bool TTurniControlli::filter_func_turnicon(const TRelation* rel)
{ {
const TRectype& riga = app()._scontrolli->row(r); const TRectype& riga = app()._scontrolli->row(r);
TString16 tipocon = riga.get(CON_TIPOCON); TString16 tipocon = riga.get(CON_TIPOCON);
if (tipocon == app()._tipo1) if ((tipocon == app()._tipo1) || (tipocon == app()._tipo2))
{ {
fatto = TRUE; fatto = TRUE;
if (app()._primadel.ok()) if (app()._primadel.ok())
@ -344,6 +344,7 @@ bool TTurniControlli::set_print(int)
if (_tipostampa != undefined) if (_tipostampa != undefined)
{ {
_tipo1 = _msk->get(F_TIPO1); _tipo1 = _msk->get(F_TIPO1);
_tipo2 = _msk->get(F_TIPO2);
_maifatto = _msk->get_bool(F_MAIFATTO); _maifatto = _msk->get_bool(F_MAIFATTO);
_primadel = _msk->get_date(F_PRIMADEL); _primadel = _msk->get_date(F_PRIMADEL);
_dataini = _msk->get_date(F_DATAINI); _dataini = _msk->get_date(F_DATAINI);
@ -389,6 +390,8 @@ void TTurniControlli::crea_intestazione()
TString sep(132); TString sep(132);
sep = "STAMPA TURNI PER CONTROLLI SANITARI "; sep = "STAMPA TURNI PER CONTROLLI SANITARI ";
sep << _tipo1; sep << _tipo1;
sep << " ";
sep << _tipo2;
if (_maifatto) if (_maifatto)
sep << " - mai effettuato"; sep << " - mai effettuato";
if (_primadel.ok()) if (_primadel.ok())

10
at/at5300a.h
View File

@ -25,10 +25,12 @@
#define F_TIPO1 301 #define F_TIPO1 301
#define F_D_TIPO1 302 #define F_D_TIPO1 302
#define F_MAIFATTO 303 #define F_TIPO2 303
#define F_PRIMADEL 304 #define F_D_TIPO2 304
#define F_DATAINI 305 #define F_MAIFATTO 305
#define F_DATAFIN 306 #define F_PRIMADEL 306
#define F_DATAINI 307
#define F_DATAFIN 308
#define F_ELENCO 401 #define F_ELENCO 401
#define F_ETICHETTE 402 #define F_ETICHETTE 402

31
at/at5300a.uml
View File

@ -265,7 +265,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 6 GROUPBOX DLG_NULL 77 7
BEGIN BEGIN
PROMPT 1 10 "Opzioni per la stampa" PROMPT 1 10 "Opzioni per la stampa"
END END
@ -291,24 +291,45 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
STRING F_TIPO2 2
BEGIN
PROMPT 2 12 "Tipo/Esito "
FLAGS "U"
USE TCS
INPUT CODTAB F_TIPO2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TIPO2 CODTAB
OUTPUT F_D_TIPO2 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Tipo/Esito controllo sanitario"
END
STRING F_D_TIPO2 30
BEGIN
PROMPT 20 12 ""
FLAGS "D"
END
BOOLEAN F_MAIFATTO BOOLEAN F_MAIFATTO
BEGIN BEGIN
PROMPT 2 12 "Includi chi non ha mai effettuato il controllo scelto" PROMPT 2 13 "Includi chi non ha mai effettuato i controlli scelti"
END END
DATE F_PRIMADEL DATE F_PRIMADEL
BEGIN BEGIN
PROMPT 2 13 "Includi chi ha fatto l'ultimo controllo scelto prima del " PROMPT 2 14 "Includi chi ha fatto gli ultimi controlli scelti prima del "
END END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 2 14 "Solo soggetti nati dal " PROMPT 2 15 "Solo soggetti nati dal "
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 38 14 "al " PROMPT 38 15 "al "
END END
ENDPAGE ENDPAGE