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

modifiche alla maschera e al trascciato dell'archivio soggetti e prog. collegati

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3930 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1996-11-27 08:56:33 +00:00
parent 53a83cb7b2
commit bac717a9ac
17 changed files with 3068 additions and 2651 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

131
at/at0100a.h
View File

@ -6,51 +6,76 @@
#define F_COGNOME 102 #define F_COGNOME 102
#define F_NOME 103 #define F_NOME 103
#define F_DATANASC 104 #define F_DATANASC 104
#define F_CODSEZ 105 #define F_TESSAVIS 105
#define F_DENSEZ 106 #define F_CODSEZ 106
#define F_CODSOT 107 #define F_DENSEZ 107
#define F_DENSOT 108 #define F_CODSOT 108
#define F_CATDON 109 #define F_DENSOT 109
#define F_DESC_CATDON 110 #define F_CATDON 110
#define F_DATAISC 111 #define F_DESC_CATDON 111
#define F_DATADIM 112 #define F_DATAISC 112
#define F_COMNASC 113 #define F_DATADIM 113
#define F_DENCOMNASC 114 #define F_DOM_INDIR 114
#define F_PROVCOMNASC 115 #define F_DOM_CODCOM 115
#define F_INDIRIZZO 116 #define F_DOM_DENCOM 116
#define F_COM 117 #define F_DOM_CAPCOM 117
#define F_DENCOM 118 #define F_DOM_PROVCOM 118
#define F_CAPCOM 119 #define F_DOM_CODLOC 119
#define F_PROVCOM 120 #define F_DOM_DENLOC 120
#define F_LOCALITA 121 #define F_DOM_STRADA 121
#define F_DENLOC 122 #define F_DOM_DISTRI 122
#define F_TELABI 123 #define F_RES_INDIR 123
#define F_TELLAV 124 #define F_RES_CODCOM 124
#define F_TELALT 125 #define F_RES_DENCOM 125
#define F_SESSO 126 #define F_RES_CAPCOM 126
#define F_DATAULTAGG 127 #define F_RES_PROVCOM 127
#define F_UTENULTAGG 128 #define F_RES_CODLOC 128
#define F_RES_DENLOC 129
#define F_COMNASC 130
#define F_DENCOMNASC 131
#define F_PROVCOMNASC 132
#define F_SESSO 133
#define F_CF 134
#define F_DOCID 135
#define F_TELABI 136
#define F_TELLAV 137
#define F_TELALT 138
// pagina 2 // pagina 2
#define F_CATNOND1 201 #define F_CATNOND1 201
#define F_DESC_CATNOND1 202 #define F_DESC_CATNOND1 202
#define F_CATNOND2 203 #define F_CATNOND2 203
#define F_DESC_CATNOND2 204 #define F_DESC_CATNOND2 204
#define F_TITINDIR 205 #define F_CODCL 205
#define F_TESSAVIS 206 #define F_CODCT 206
#define F_CODCT 207 #define F_TESSSSN 207
#define F_CODCL 208 #define F_TITINDIR 208
#define F_TESSSSN 209 #define F_CODMED 209
#define F_DOCID 210 #define F_COGNMED 210
#define F_CF 211 #define F_NOMMED 211
#define F_CONDOCC 212 #define F_GRUPPOAB0 212
#define F_POSPROF 213 #define F_RHANTID 213
#define F_RAMOATT 214 #define F_KELL 214
#define F_TITSTUD 215 #define F_FENOTIPORH 215
#define F_PROFESS 216 #define F_DU 216
#define F_DESC_PROF 217 #define F_MODCONV 217
#define F_LUOGOLAV 218 #define F_PUNTORACC 218
#define F_DESC_LUOGO 219 #define F_DESC_PUNTORACC 219
#define F_GPD_LUN 220
#define F_GPD_MAR 221
#define F_GPD_MER 222
#define F_GPD_GIO 223
#define F_GPD_VEN 224
#define F_GPD_SAB 225
#define F_GPD_DOM 226
#define F_GPC_LUN 227
#define F_GPC_MAR 228
#define F_GPC_MER 229
#define F_GPC_GIO 230
#define F_GPC_VEN 231
#define F_GPC_SAB 232
#define F_GPC_DOM 233
// pagina 3 // pagina 3
#define F_STATO 301 #define F_STATO 301
@ -78,23 +103,23 @@
#define F_DATAULTAF 323 #define F_DATAULTAF 323
#define F_TOTDONSI 324 #define F_TOTDONSI 324
#define F_TOTDONAF 325 #define F_TOTDONAF 325
#define F_DATACONV 326
#define F_NUMCONV 327
// pagina 4
// pagina 4 #define F_CONDOCC 401
#define F_GRUPPOAB0 401 #define F_POSPROF 402
#define F_RHANTID 402 #define F_RAMOATT 403
#define F_KELL 403 #define F_TITSTUD 404
#define F_FENOTIPORH 404 #define F_PROFESS 405
#define F_DU 405 #define F_DESC_PROFESS 406
#define F_MODCONV 406 #define F_LUOGOLAV 407
#define F_GIOPREDON 407 #define F_DESC_LUOGOLAV 408
#define F_GIOPRECON 408
#define F_ESCLUSO 409 #define F_ESCLUSO 409
#define F_TERMESCL 410 #define F_TERMESCL 410
#define F_MOTESCL 411 #define F_MOTESCL 411
#define F_CODMED 412 #define F_UTENULTAGG 412
#define F_COGNMED 413 #define F_DATAULTAGG 413
#define F_NOMMED 414
// pagina 5 // pagina 5
#define F_DONAZIONI 501 #define F_DONAZIONI 501
@ -119,7 +144,7 @@
#define F_D_HB 107 #define F_D_HB 107
#define F_D_SGPT 108 #define F_D_SGPT 108
#define F_D_PROTIDEMIA 109 #define F_D_PROTIDEMIA 109
//#define F_D_PRIMADON 110 #define F_D_PRIMADON 110
#define F_D_DESC_TIPODON 211 #define F_D_DESC_TIPODON 211
#define F_D_DESC_LUOGODON 212 #define F_D_DESC_LUOGODON 212

888
at/at0100a.uml
View File

File diff suppressed because it is too large Load Diff

64
at/at0200.cpp
View File

@ -49,7 +49,6 @@ protected:
bool check_sog_sheet(const char* codsog); bool check_sog_sheet(const char* codsog);
static bool nome_handler(TMask_field& f, KEY k); static bool nome_handler(TMask_field& f, KEY k);
static bool codice_handler(TMask_field& f, KEY k);
static bool soggetti_notify(TSheet_field& s, int r, KEY k); static bool soggetti_notify(TSheet_field& s, int r, KEY k);
void add_rows_soggetti(TSheet_field& s, int count = 10, int start = 0); void add_rows_soggetti(TSheet_field& s, int count = 10, int start = 0);
static bool ins_controlli_handler(TMask_field& f, KEY k); static bool ins_controlli_handler(TMask_field& f, KEY k);
@ -98,7 +97,6 @@ bool TDonaz_app::create()
ss.set_notify(soggetti_notify); ss.set_notify(soggetti_notify);
ss.sheet_mask().set_handler(F_S_NOME,nome_handler); ss.sheet_mask().set_handler(F_S_NOME,nome_handler);
ss.sheet_mask().set_handler(F_S_CODICE,codice_handler);
dispatch_e_menu(BAR_ITEM(1)); dispatch_e_menu(BAR_ITEM(1));
@ -431,10 +429,7 @@ bool TDonaz_app::check_sog_sheet(const char* codsog)
if (array_sogg.is_key(codsog)) if (array_sogg.is_key(codsog))
return FALSE; return FALSE;
else else
{
array_sogg.add(codsog);
return TRUE; return TRUE;
}
} }
bool TDonaz_app::soggetti_notify(TSheet_field& s, int r, KEY k) bool TDonaz_app::soggetti_notify(TSheet_field& s, int r, KEY k)
@ -444,18 +439,13 @@ bool TDonaz_app::soggetti_notify(TSheet_field& s, int r, KEY k)
{ {
case K_CTRL+K_DEL: case K_CTRL+K_DEL:
// avvenuta cancellazione riga // avvenuta cancellazione riga
break;
case K_SPACE:
// inizio modifica riga
break;
case K_TAB: case K_TAB:
// entrata riga // entrata riga
{ {
TToken_string& row = s.row(r);
const char* codsog = row.get(0);
if (codsog != NULL)
{
TAssoc_array& array_sogg = app().get_array_sogg();
if (array_sogg.is_key(codsog))
array_sogg.remove(codsog);
}
if ((r == s.items()-1) && (r == s.first_empty())) if ((r == s.items()-1) && (r == s.first_empty()))
{ {
app().add_rows_soggetti(s,10,r+1); app().add_rows_soggetti(s,10,r+1);
@ -463,10 +453,34 @@ bool TDonaz_app::soggetti_notify(TSheet_field& s, int r, KEY k)
} }
} }
break; break;
case K_ENTER:
// uscita da riga modificata
case K_CTRL+K_TAB: case K_CTRL+K_TAB:
// uscita riga // uscita riga
{ {
if ((r == s.items()-1) && (r == s.first_empty())) TToken_string& row = s.row(r);
const long codsog = row.get_long(0);
if (codsog != 0)
for (int i=s.items()-1; i>=0; i--)
{
if (i != r)
{
TToken_string& row = s.row(i);
if (codsog == row.get_long(0))
return s.sheet_mask().field(F_S_CODICE).error_box("Soggetto gia' inserito");
}
}
else
{
const char* cognome = row.get(1);
if ((cognome != NULL) && (cognome != "\0"))
{
TMask& m = s.sheet_mask();
m.send_key(K_F9,F_S_CODICE);
}
}
/*if ((r == s.items()-1) && (r == s.first_empty())) */
if (r == s.items()-1)
{ {
app().add_rows_soggetti(s,10,r+1); app().add_rows_soggetti(s,10,r+1);
s.select(r); s.select(r);
@ -477,26 +491,6 @@ bool TDonaz_app::soggetti_notify(TSheet_field& s, int r, KEY k)
return ok; return ok;
} }
bool TDonaz_app::codice_handler(TMask_field& f, KEY k)
{
bool ok = TRUE;
if (k == K_TAB && f.focusdirty())
{
const char* codice = f.get();
if (codice != NULL)
{
ok = app().check_sog_sheet(codice);
if (!ok)
return f.error_box("Soggetto già inserito");
//else
// controllare che sia idoneo a quel tipo di donazione
// il controllo sull'esistenza della donazione viene fatto
// al momento della registrazione (write)
}
}
return ok;
}
bool TDonaz_app::nome_handler(TMask_field& f, KEY k) bool TDonaz_app::nome_handler(TMask_field& f, KEY k)
{ {
bool ok = TRUE; bool ok = TRUE;

14
at/at0200a.h
View File

@ -25,3 +25,17 @@
#define F_S_DENSOT 202 #define F_S_DENSOT 202
#define F_S_DESC_TIPOCON 203 #define F_S_DESC_TIPOCON 203
#define F_S_DESC_CATDON 204 #define F_S_DESC_CATDON 204
#define F_S_IDON1 205
#define F_S_IDON2 206
#define F_S_IDON3 207
#define F_S_IDON4 208
#define F_S_INTSI 209
#define F_S_INTAF 210
#define F_S_PROSSTIPO 211
#define F_S_PROSSDATA 212
#define F_S_DESC_IDON1 213
#define F_S_DESC_IDON2 214
#define F_S_DESC_IDON3 215
#define F_S_DESC_IDON4 216
#define F_S_DESC_PROSSTIPO 217

184
at/at0200a.uml
View File

@ -63,7 +63,7 @@ BEGIN
DISPLAY "Descrizione@30" S0 DISPLAY "Descrizione@30" S0
OUTPUT F_TIPODON CODTAB OUTPUT F_TIPODON CODTAB
OUTPUT F_DESC_TIPODON S0 OUTPUT F_DESC_TIPODON S0
//VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Codice non presente" WARNING "Codice non presente"
HELP "Tipo donazione" HELP "Tipo donazione"
@ -126,10 +126,15 @@ ENDMASK
PAGE "Soggetto " -1 -1 78 20 PAGE "Soggetto " -1 -1 78 20
GROUPBOX DLG_NULL 77 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_S_CODICE 6 NUMBER F_S_CODICE 6
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD LF_SOGGETTI->CODICE
FLAGS "RG" FLAGS "RG"
USE LF_SOGGETTI KEY 1 USE LF_SOGGETTI KEY 1
INPUT CODICE F_S_CODICE INPUT CODICE F_S_CODICE
@ -148,6 +153,7 @@ BEGIN
OUTPUT F_S_CODSEZ CODSEZ OUTPUT F_S_CODSEZ CODSEZ
OUTPUT F_S_CODSOT CODSOT OUTPUT F_S_CODSOT CODSOT
OUTPUT F_S_CATDON CATDON OUTPUT F_S_CATDON CATDON
OUTPUT F_S_TESSAVIS TESSAVIS
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN at0 -0 ADD RUN at0 -0
END END
@ -155,7 +161,6 @@ END
STRING F_S_COGNOME 25 STRING F_S_COGNOME 25
BEGIN BEGIN
PROMPT 2 2 "Cognome e nome " PROMPT 2 2 "Cognome e nome "
FIELD LF_SOGGETTI->COGNOME
USE LF_SOGGETTI KEY 2 USE LF_SOGGETTI KEY 2
INPUT COGNOME F_S_COGNOME INPUT COGNOME F_S_COGNOME
INPUT NOME F_S_NOME INPUT NOME F_S_NOME
@ -176,18 +181,21 @@ END
STRING F_S_NOME 25 STRING F_S_NOME 25
BEGIN BEGIN
PROMPT 46 2 "" PROMPT 46 2 ""
FIELD LF_SOGGETTI->NOME
COPY ALL F_S_COGNOME COPY ALL F_S_COGNOME
COPY OUTPUT F_S_CODICE COPY OUTPUT F_S_CODICE
//CHECKTYPE NORMAL
CHECKTYPE SEARCH CHECKTYPE SEARCH
HELP "Nome del soggetto" HELP "Nome del soggetto"
ADD RUN at0 -0 ADD RUN at0 -0
END END
GROUPBOX DLG_NULL 77 9
BEGIN
PROMPT 1 9 "Dati del controllo sanitario effettuato"
END
STRING F_S_TIPOCON 2 STRING F_S_TIPOCON 2
BEGIN BEGIN
PROMPT 2 5 "Tipo controllo " PROMPT 2 10 "Tipo controllo "
FLAGS "U" FLAGS "U"
USE TCS SELECT S6=="N" USE TCS SELECT S6=="N"
INPUT CODTAB F_S_TIPOCON INPUT CODTAB F_S_TIPOCON
@ -202,27 +210,29 @@ END
DATE F_S_DATANASC DATE F_S_DATANASC
BEGIN BEGIN
PROMPT 2 3 "Nato il " PROMPT 2 3 "Nato il "
FIELD LF_SOGGETTI->DATANASC
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 5 "Dati associativi"
END
STRING F_S_CODSEZ 2 STRING F_S_CODSEZ 2
BEGIN BEGIN
PROMPT 2 7 "Sez. " PROMPT 2 6 "Sez. "
FIELD LF_SOGGETTI->CODSEZ
FLAGS "D" FLAGS "D"
END END
STRING F_S_DENSEZ 25 STRING F_S_DENSEZ 25
BEGIN BEGIN
PROMPT 13 7 "" PROMPT 12 6 ""
FLAGS "D" FLAGS "D"
END END
STRING F_S_CODSOT 2 STRING F_S_CODSOT 2
BEGIN BEGIN
PROMPT 43 7 "Sot. " PROMPT 40 6 "Sot. "
FIELD LF_SOGGETTI->CODSOT
FLAGS "D" FLAGS "D"
USE LF_SEZIONI USE LF_SEZIONI
INPUT CODSEZ F_S_CODSEZ INPUT CODSEZ F_S_CODSEZ
@ -234,14 +244,13 @@ END
STRING F_S_DENSOT 25 STRING F_S_DENSOT 25
BEGIN BEGIN
PROMPT 54 7 "" PROMPT 50 6 ""
FLAGS "D" FLAGS "D"
END END
STRING F_S_CATDON 2 STRING F_S_CATDON 2
BEGIN BEGIN
PROMPT 2 8 "Cat. " PROMPT 2 7 "Cat. "
FIELD LF_SOGGETTI->CATDON
FLAGS "D" FLAGS "D"
USE CTD USE CTD
INPUT CODTAB F_S_CATDON INPUT CODTAB F_S_CATDON
@ -249,22 +258,155 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_S_TESSERA 10 STRING F_S_TESSAVIS 10
BEGIN BEGIN
PROMPT 43 8 "Tessera AVIS " PROMPT 52 7 "Tessera AVIS "
FIELD LF_SOGGETTI->TESSAVIS
FLAGS "D" FLAGS "D"
END END
STRING F_S_DESC_TIPOCON 25 STRING F_S_DESC_TIPOCON 25
BEGIN BEGIN
PROMPT 35 5 "" PROMPT 23 10 ""
FLAGS "D" FLAGS "D"
END END
STRING F_S_DESC_CATDON 22 STRING F_S_DESC_CATDON 25
BEGIN BEGIN
PROMPT 13 8 "" PROMPT 12 7 ""
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "Se idoneita': Tipi donazione ammessi"
END
STRING F_S_IDON1 2
BEGIN
PROMPT 40 11 ""
FLAGS "U"
USE IDO
INPUT CODTAB F_S_IDON1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_S_IDON1 CODTAB
OUTPUT F_S_DESC_IDON1 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Idoneita' alla donazione"
END
STRING F_S_IDON2 2
BEGIN
PROMPT 40 12 ""
FLAGS "U"
USE IDO
INPUT CODTAB F_S_IDON2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_S_IDON2 CODTAB
OUTPUT F_S_DESC_IDON2 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Idoneita' alla donazione"
END
STRING F_S_IDON3 2
BEGIN
PROMPT 40 13 ""
FLAGS "U"
USE IDO
INPUT CODTAB F_S_IDON3
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_S_IDON3 CODTAB
OUTPUT F_S_DESC_IDON3 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Idoneita' alla donazione"
END
STRING F_S_IDON4 2
BEGIN
PROMPT 40 14 ""
FLAGS "U"
USE IDO
INPUT CODTAB F_S_IDON4
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_S_IDON4 CODTAB
OUTPUT F_S_DESC_IDON4 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Idoneita' alla donazione"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 15 " Intervalli"
END
NUMBER F_S_INTSI 3 0
BEGIN
PROMPT 40 15 "Sangue intero "
FLAGS "U"
END
NUMBER F_S_INTAF 3 0
BEGIN
PROMPT 60 15 "Aferesi "
FLAGS "U"
END
STRING F_S_PROSSTIPO 2
BEGIN
PROMPT 2 16 "Prossimo contr.: Tipo "
FLAGS "U"
USE TCS
INPUT CODTAB F_S_PROSSTIPO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_S_PROSSTIPO CODTAB
OUTPUT F_S_DESC_PROSSTIPO S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Tipo/Esito controllo sanitario"
END
DATE F_S_PROSSDATA
BEGIN
PROMPT 56 16 "Data "
HELP "Data controllo"
END
STRING F_S_DESC_IDON1 25
BEGIN
PROMPT 46 11 ""
FLAGS "D"
END
STRING F_S_DESC_IDON2 25
BEGIN
PROMPT 46 12 ""
FLAGS "D"
END
STRING F_S_DESC_IDON3 25
BEGIN
PROMPT 46 13 ""
FLAGS "D"
END
STRING F_S_DESC_IDON4 25
BEGIN
PROMPT 46 14 ""
FLAGS "D"
END
STRING F_S_DESC_PROSSTIPO 25
BEGIN
PROMPT 29 16 ""
FLAGS "D" FLAGS "D"
END END

4
at/at0700.h
View File

@ -1,8 +1,8 @@
// definizione campi della maschera at0700a.msk // definizione campi della maschera at0700a.msk
#define F_CODSEZ 101 #define F_CODSEZ 101
#define F_CODSOT 102 #define F_CODSOT 103
#define F_DENSEZ 103 #define F_DENSEZ 102
#define F_DENSOT 104 #define F_DENSOT 104
#define F_INDIRIZZO 105 #define F_INDIRIZZO 105
#define F_COM 106 #define F_COM 106

20
at/at0700a.uml
View File

@ -5,7 +5,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Sezioni 1/2" -1 -1 78 20 PAGE "Sezioni 1" -1 -1 78 20
GROUPBOX DLG_NULL 77 4 GROUPBOX DLG_NULL 77 4
BEGIN BEGIN
@ -21,6 +21,7 @@ BEGIN
KEY 1 KEY 1
USE LF_SEZIONI USE LF_SEZIONI
INPUT CODSEZ F_CODSEZ INPUT CODSEZ F_CODSEZ
INPUT CODSOT F_CODSOT
DISPLAY "Cod.sez. " CODSEZ DISPLAY "Cod.sez. " CODSEZ
DISPLAY "Cod.sot. " CODSOT DISPLAY "Cod.sot. " CODSOT
DISPLAY "Sezione@25" DENSEZ DISPLAY "Sezione@25" DENSEZ
@ -39,19 +40,9 @@ BEGIN
FIELD CODSOT FIELD CODSOT
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE LF_SEZIONI COPY ALL F_CODSEZ
INPUT CODSEZ F_CODSEZ
INPUT CODSOT F_CODSOT
DISPLAY "Cod.sez. " CODSEZ
DISPLAY "Cod.sot. " CODSOT
DISPLAY "Sezione@25" DENSEZ
DISPLAY "Sottogruppo@25" DENSOT
OUTPUT F_CODSEZ CODSEZ
OUTPUT F_DENSEZ DENSEZ
OUTPUT F_CODSOT CODSOT
OUTPUT F_DENSOT DENSOT
MESSAGE COPY,2@ MESSAGE COPY,2@
CHECKTYPE REQUIRED CHECKTYPE NORMAL
WARNING "Inserire il codice della sezione" WARNING "Inserire il codice della sezione"
END END
@ -62,6 +53,7 @@ BEGIN
KEY 2 KEY 2
USE LF_SEZIONI KEY 2 USE LF_SEZIONI KEY 2
INPUT DENSEZ F_DENSEZ INPUT DENSEZ F_DENSEZ
INPUT DENSOT F_DENSOT
DISPLAY "Sezione@25" DENSEZ DISPLAY "Sezione@25" DENSEZ
DISPLAY "Sottogruppo@25" DENSOT DISPLAY "Sottogruppo@25" DENSOT
DISPLAY "Cod.sez. " CODSEZ DISPLAY "Cod.sez. " CODSEZ
@ -262,7 +254,7 @@ END
ENDPAGE ENDPAGE
PAGE "Tabella Sezioni 2/2" -1 -1 78 20 PAGE "Sezioni 2" -1 -1 78 20
GROUPBOX DLG_NULL 77 4 GROUPBOX DLG_NULL 77 4
BEGIN BEGIN

2
at/at0800a.uml
View File

@ -5,7 +5,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Medici 1/1" -1 -1 78 20 PAGE "Medici" -1 -1 78 20
GROUPBOX DLG_NULL 77 5 GROUPBOX DLG_NULL 77 5
BEGIN BEGIN

4
at/at2100.cpp
View File

@ -297,8 +297,8 @@ bool TSospesi_application::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS); _rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("LCP", "CODTAB==LOCALITA",1,0,ALIAS_LCP); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
_rel->add(LF_COMUNI, "COM==COM"); _rel->add(LF_COMUNI, "COM==DOM_COMCOM");
// per stampare nell'intestazione la denominazione della sezione // per stampare nell'intestazione la denominazione della sezione
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");

91
at/at2200.cpp
View File

@ -56,12 +56,12 @@ protected:
virtual bool preprocess_page (int file, int counter); virtual bool preprocess_page (int file, int counter);
public: public:
void set_one_cat(short field_id); //void set_one_cat(short field_id);
void set_categorie(); //void set_categorie();
TAssoc_array& get_categorie() { return *_categorie; } //TAssoc_array& get_categorie() { return *_categorie; }
void crea_intestazione(); void crea_intestazione();
void filtra_sezioni(); void filtra_sezioni();
void header_sezione(const char* codsez, const char* codsot); void header_sezione(TString codsez, TString codsot);
TMask& app_mask() { return *_msk; } TMask& app_mask() { return *_msk; }
TPereta_application() : _data_stampa(TODAY), _cognome_nome("",25), _dencom("",50) {} TPereta_application() : _data_stampa(TODAY), _cognome_nome("",25), _dencom("",50) {}
@ -124,7 +124,7 @@ void TPereta_application::set_page(int file, int cnt)
set_row(1,"@7g@S", FLD(LF_SOGGETTI,SOG_CATDON)); set_row(1,"@7g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(1,"@10g#a", &_cognome_nome); set_row(1,"@10g#a", &_cognome_nome);
set_row(1,"@36g@ld", FLD(LF_SOGGETTI,SOG_DATANASC)); set_row(1,"@36g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
set_row(1,"@47g@S", FLD(LF_SOGGETTI,SOG_INDIRIZZO)); set_row(1,"@47g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
set_row(1,"@98g@S", FLD(LF_SOGGETTI,SOG_TELABI)); set_row(1,"@98g@S", FLD(LF_SOGGETTI,SOG_TELABI));
set_row(1,"@114g@S", FLD(LF_SOGGETTI,SOG_TELLAV)); set_row(1,"@114g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
set_row(2,"@47g#a", &_dencom); set_row(2,"@47g#a", &_dencom);
@ -140,12 +140,34 @@ bool TPereta_application::filter_func_pereta(const TRelation * rel)
TLocalisamfile* sog = &(rel->lfile(LF_SOGGETTI)); TLocalisamfile* sog = &(rel->lfile(LF_SOGGETTI));
//filtro per categorie TAssoc_array categorie;
TAssoc_array& categorie = TPereta_application::get_categorie();
TMask& msk = app().app_mask();
TString catpri = msk.get(F_CAT1);
TString catsec = msk.get(F_CAT2);
TString catter = msk.get(F_CAT3);
TString catqua = msk.get(F_CAT4);
TString catqui = msk.get(F_CAT5);
TString catses = msk.get(F_CAT6);
if (catpri.not_empty() && catpri.ok())
categorie.add((const char*) catpri);
if (catsec.not_empty() && catsec.ok())
categorie.add((const char*) catsec);
if (catter.not_empty() && catter.ok())
categorie.add((const char*) catter);
if (catqua.not_empty() && catqua.ok())
categorie.add((const char*) catqua);
if (catqui.not_empty() && catqui.ok())
categorie.add((const char*) catqui);
if (catses.not_empty() && catses.ok())
categorie.add((const char*) catses);
if (categorie.items() != 0) if (categorie.items() != 0)
{ {
const char* cat = sog->curr().get(SOG_CATDON); TString cat = sog->curr().get(SOG_CATDON);
if (categorie.is_key(cat)) if (categorie.is_key((const char*) cat))
filtrato = TRUE; filtrato = TRUE;
else else
filtrato = FALSE; filtrato = FALSE;
@ -169,6 +191,27 @@ bool TPereta_application::filter_func_pereta(const TRelation * rel)
return filtrato; return filtrato;
} }
void TPereta_application::header_sezione(TString codsez, TString codsot)
{
TString densez = current_cursor()->curr(LF_SEZIONI).get(SEZ_DENSEZ);
TString densot = current_cursor()->curr(LF_SEZIONI).get(SEZ_DENSOT);
TString intestazione(132);
intestazione = "Sezione: ";
intestazione << codsez;
intestazione << "/";
intestazione << codsot;
intestazione << " ";
intestazione << densez;
if ((densot.ok())&& (densot.not_empty()))
{
intestazione << "/";
intestazione << densot;
}
intestazione.center_just();
set_header(1,"@0g%s", (const char*) intestazione);
return;
}
bool TPereta_application::preprocess_page(int file, int counter) bool TPereta_application::preprocess_page(int file, int counter)
{ {
// contatore soggetti stampati // contatore soggetti stampati
@ -211,27 +254,6 @@ bool TPereta_application::preprocess_page(int file, int counter)
return TRUE; return TRUE;
} }
void TPereta_application::header_sezione(TString codsez, TString codsot)
{
const char* densez = current_cursor()->curr(LF_SEZIONI).get(SEZ_DENSEZ);
const char* densot = current_cursor()->curr(LF_SEZIONI).get(SEZ_DENSOT);
TString intestazione(132);
intestazione = "Sezione: ";
intestazione << codsez;
intestazione << "/";
intestazione << codsot;
intestazione << " ";
intestazione << densez;
if ((densot.ok())&& (densot.not_empty()))
{
intestazione << "/";
intestazione << densot;
}
intestazione.center_just();
set_header(1,"@0g%s", (const char*) intestazione);
return;
}
bool TPereta_application::set_print(int) bool TPereta_application::set_print(int)
{ {
_tipo_stampa = undefined; _tipo_stampa = undefined;
@ -255,7 +277,7 @@ bool TPereta_application::set_print(int)
_dataini = _msk->get(F_DATAINI); _dataini = _msk->get(F_DATAINI);
_datafin = _msk->get(F_DATAFIN); _datafin = _msk->get(F_DATAFIN);
filtra_sezioni(); filtra_sezioni();
set_categorie(); //set_categorie();
current_cursor()->set_filterfunction (filter_func_pereta); current_cursor()->set_filterfunction (filter_func_pereta);
reset_print(); reset_print();
crea_intestazione(); crea_intestazione();
@ -265,6 +287,7 @@ bool TPereta_application::set_print(int)
return FALSE; return FALSE;
} }
/*
void TPereta_application::set_one_cat(short field_id) void TPereta_application::set_one_cat(short field_id)
{ {
const char* cat = _msk->get(field_id); const char* cat = _msk->get(field_id);
@ -272,6 +295,7 @@ void TPereta_application::set_one_cat(short field_id)
_categorie->add(cat); _categorie->add(cat);
} }
void TPereta_application::set_categorie() void TPereta_application::set_categorie()
{ {
set_one_cat(F_CAT1); set_one_cat(F_CAT1);
@ -281,6 +305,7 @@ void TPereta_application::set_categorie()
set_one_cat(F_CAT5); set_one_cat(F_CAT5);
set_one_cat(F_CAT6); set_one_cat(F_CAT6);
} }
*/
void TPereta_application::crea_intestazione() void TPereta_application::crea_intestazione()
{ {
@ -324,8 +349,8 @@ bool TPereta_application::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS); _rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("LCP", "CODTAB==LOCALITA",1,0,ALIAS_LCP); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
_rel->add(LF_COMUNI, "COM==COM"); _rel->add(LF_COMUNI, "COM==DOM_CODCOM");
// per stampare nell'intestazione la denominazione della sezione // per stampare nell'intestazione la denominazione della sezione
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");

9
at/at2300.cpp
View File

@ -261,7 +261,8 @@ void TEsclusi_application::crea_intestazione()
if (_tipo_stampa == elenco) if (_tipo_stampa == elenco)
{ {
TString sep(132); //TString sep(132);
TString sep(90);
sep = "ELENCO ESCLUSI"; sep = "ELENCO ESCLUSI";
TString tipo = _msk->get(F_TIPO); TString tipo = _msk->get(F_TIPO);
if ((tipo.ok()) && (tipo.not_empty())) if ((tipo.ok()) && (tipo.not_empty()))
@ -281,7 +282,7 @@ void TEsclusi_application::crea_intestazione()
set_header(2,"@0g%10s", (const char*) data_stampa); set_header(2,"@0g%10s", (const char*) data_stampa);
sep = ""; sep = "";
sep << "Pag. @#"; sep << "Pag. @#";
set_header(2, "@120g%s", (const char*) sep); set_header(2, "@78g%s", (const char*) sep);
sep = ""; sep = "";
sep.fill('-'); sep.fill('-');
@ -302,8 +303,8 @@ bool TEsclusi_application::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS); _rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("LCP", "CODTAB==LOCALITA",1,0,ALIAS_LCP); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
_rel->add(LF_COMUNI, "COM==COM"); _rel->add(LF_COMUNI, "COM==DOM_CODCOM");
// per stampare le denominazione della sezione nell'intestazione // per stampare le denominazione della sezione nell'intestazione
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");

4
at/at2500.cpp
View File

@ -371,8 +371,8 @@ bool TIdonei_application::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS); _rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("LCP", "CODTAB==LOCALITA",1,0,ALIAS_LCP); _rel->add("LCP", "CODTAB==DOM_COLOC",1,0,ALIAS_LCP);
_rel->add(LF_COMUNI, "COM==COM"); _rel->add(LF_COMUNI, "COM==DOM_CODCOM");
// per stampare la denominazione della sezione nell'intestazione // per stampare la denominazione della sezione nell'intestazione
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");

4
at/at2600.cpp
View File

@ -319,8 +319,8 @@ bool TIscritti_application::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
//_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS); //_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("LCP", "CODTAB==LOCALITA",1,0,ALIAS_LCP); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
_rel->add(LF_COMUNI, "COM==COM"); _rel->add(LF_COMUNI, "COM==DOM_CODCOM");
// per stampare nell'intestazione la denominazione della sezione // per stampare nell'intestazione la denominazione della sezione
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");

4
at/at3100.cpp
View File

@ -355,8 +355,8 @@ bool TConv_application::user_create()
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
_rel->add("TCS", "CODTAB==STATO", 1, 0, ALIAS_TABTCS); // per verificare che sia IDONEO _rel->add("TCS", "CODTAB==STATO", 1, 0, ALIAS_TABTCS); // per verificare che sia IDONEO
_rel->add("CTD", "CODTAB==CATDON", 1, 0, ALIAS_TABCTD); // per verificare che sia DONATORE NON DIMESSO _rel->add("CTD", "CODTAB==CATDON", 1, 0, ALIAS_TABCTD); // per verificare che sia DONATORE NON DIMESSO
_rel->add("LCP", "CODTAB==LOCALITA", 1, 0, ALIAS_TABLCP); // per verificare che sia DONATORE NON DIMESSO _rel->add("LCP", "CODTAB==DOM_CODLOC", 1, 0, ALIAS_TABLCP); // per verificare che sia DONATORE NON DIMESSO
_rel->add(LF_COMUNI, "COM==COM"); _rel->add(LF_COMUNI, "COM==DOMC_CODCOM");
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
_cur1 = add_cursor(new TCursor(_rel, "", 1)); //cursore ordinamento per codice _cur1 = add_cursor(new TCursor(_rel, "", 1)); //cursore ordinamento per codice

4
at/at3200.cpp
View File

@ -183,8 +183,8 @@ bool TTessere_application::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
_rel->add(LF_COMUNI, "COM==COMNASC",1,0,ALIAS_COMNAS); _rel->add(LF_COMUNI, "COM==COMNASC",1,0,ALIAS_COMNAS);
_rel->add(LF_COMUNI, "COM==COM",1,0,ALIAS_COMRES); _rel->add(LF_COMUNI, "COM==DOM_CODCOM",1,0,ALIAS_COMRES);
_rel->add("LCP", "CODTAB==LOCALITA"); _rel->add("LCP", "CODTAB==DOM_CODLOC");
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
_cur1 = add_cursor(new TCursor(_rel, "", 1)); //cursore ordinamento per codice _cur1 = add_cursor(new TCursor(_rel, "", 1)); //cursore ordinamento per codice

6
at/sesso.h Executable file
View File

@ -0,0 +1,6 @@
// listbox per sesso
ITEM "0|Sconosciuto"
ITEM "1|Maschio"
ITEM "2|Femmina"
ITEM "9|Non specif."

42
at/soggetti.h
View File

@ -13,30 +13,26 @@
#define SOG_DATADIM "DATADIM" #define SOG_DATADIM "DATADIM"
#define SOG_CATNOND1 "CATNOND1" #define SOG_CATNOND1 "CATNOND1"
#define SOG_CATNOND2 "CATNOND2" #define SOG_CATNOND2 "CATNOND2"
#define SOG_INDIRIZZO "INDIRIZZO"
#define SOG_COM "COM"
#define SOG_TELABI "TELABI"
#define SOG_TELLAV "TELLAV"
#define SOG_TELALT "TELALT"
#define SOG_CONDOCC "CONDOCC"
#define SOG_POSPROF "POSPROF"
#define SOG_RAMOATT "RAMOATT"
#define SOG_PROFESS "PROFESS"
#define SOG_TITSTUD "TITSTUD"
#define SOG_LUOGOLAV "LUOGOLAV"
#define SOG_TESSAVIS "TESSAVIS" #define SOG_TESSAVIS "TESSAVIS"
#define SOG_TESSSSN "TESSSSN" #define SOG_TESSSSN "TESSSSN"
#define SOG_CODCT "CODCT" #define SOG_CODCT "CODCT"
#define SOG_CODCL "CODCL" #define SOG_CODCL "CODCL"
#define SOG_DOCID "DOCID" #define SOG_DOCID "DOCID"
#define SOG_CF "CF" #define SOG_CF "CF"
#define SOG_CODMED "CODMED"
#define SOG_DOM_INDIR "DOM_INDIR"
#define SOG_DOM_STRADA "DOM_STRADA"
#define SOG_DOM_DISTRI "DOM_DISTRI"
#define SOG_DOM_CODCOM "DOM_CODCOM"
#define SOG_DOM_CODLOC "DOM_CODLOC"
#define SOG_RES_INDIR "RES_INDIR"
#define SOG_RES_CODCOM "RES_CODCOM"
#define SOG_RES_CODLOC "RES_CODLOC"
#define SOG_TELABI "TELABI"
#define SOG_TELLAV "TELLAV"
#define SOG_TELALT "TELALT"
#define SOG_TITINDIR "TITINDIR" #define SOG_TITINDIR "TITINDIR"
#define SOG_LOCALITA "LOCALITA"
#define SOG_CAPCOM "CAPCOM"
#define SOG_MODCONV "MODCONV"
#define SOG_GIOPREDON "GIOPREDON"
#define SOG_GIOPRECON "GIOPRECON"
#define SOG_ESCLUSO "ESCLUSO" #define SOG_ESCLUSO "ESCLUSO"
#define SOG_TERMESCL "TERMESCL" #define SOG_TERMESCL "TERMESCL"
#define SOG_MOTESCL "MOTESCL" #define SOG_MOTESCL "MOTESCL"
@ -64,6 +60,16 @@
#define SOG_KELL "KELL" #define SOG_KELL "KELL"
#define SOG_FENOTIPORH "FENOTIPORH" #define SOG_FENOTIPORH "FENOTIPORH"
#define SOG_DU "DU" #define SOG_DU "DU"
#define SOG_PUNTORACC "PUNTORACC"
#define SOG_CODMED "CODMED"
#define SOG_MODCONV "MODCONV"
#define SOG_GIOPREDON "GIOPREDON"
#define SOG_GIOPRECON "GIOPRECON"
#define SOG_NUMCONV "NUMCONV"
#define SOG_DATACONV "DATACONV"
#define SOG_DATAULTAGG "DATAULTAGG" #define SOG_DATAULTAGG "DATAULTAGG"
#define SOG_UTENULTAGG "UTENULTAGG" #define SOG_UTENULTAGG "UTENULTAGG"
#define SOG_DATAULTCAR "DATAULTCAR" #define SOG_CONDOCC "CONDOCC"
#define SOG_POSPROF "POSPROF"
#define SOG_RAMOATT "RAMOATT"
#define SOG_TITSTUD "TITSTUD"