From 8dba9af15bd44ef31eeb6ecae83524ba8b27ef0f Mon Sep 17 00:00:00 2001 From: cris Date: Mon, 11 Oct 2004 10:20:44 +0000 Subject: [PATCH] Patch level : 1.7 at Files correlati : at0.exe at0100a.msk tracciati record Ricompilazione Demo : [ ] Commento : aggiunta disponibilita e posta elettronica git-svn-id: svn://10.65.10.50/trunk@12381 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- at/at0100a.h | 6 ++-- at/at0100a.uml | 89 +++++++++++++++++++++++++------------------------- at/f90.dir | 2 +- at/f90.trr | 5 ++- at/soggetti.h | 3 ++ 5 files changed, 56 insertions(+), 49 deletions(-) diff --git a/at/at0100a.h b/at/at0100a.h index 91ba5573c..26b0fe1ed 100755 --- a/at/at0100a.h +++ b/at/at0100a.h @@ -41,8 +41,9 @@ #define F_TELABI 137 #define F_TELLAV 138 #define F_TELALT 139 +#define F_EMAIL 140 -#define F_RICPARZ 140 +#define F_RICPARZ 141 // pagina 2 #define F_CATNOND1 201 @@ -86,7 +87,8 @@ #define F_GPC_VEN 239 #define F_GPC_SAB 240 #define F_GPC_DOM 241 - +#define F_DISP_AF_1 242 +#define F_DISP_AF_2 243 // pagina 3 #define F_STATO 301 diff --git a/at/at0100a.uml b/at/at0100a.uml index 76ece7cc9..a3da64478 100755 --- a/at/at0100a.uml +++ b/at/at0100a.uml @@ -227,7 +227,7 @@ BEGIN HELP "Data di dimissione dalla sezione/categoria" END -GROUPBOX DLG_NULL 77 12 +GROUPBOX DLG_NULL 77 13 BEGIN PROMPT 1 9 "Dati anagrafici" END @@ -498,6 +498,13 @@ BEGIN HELP "Altro numero telefonico per reperibilita'" END +STRING F_EMAIL 50 +BEGIN + PROMPT 2 20 "Posta elettron. " + FIELD EMAIL + HELP "Indirizzo di posta elettronica" +END + ENDPAGE PAGE "Assoc." -1 -1 78 20 @@ -859,7 +866,7 @@ BEGIN #include "rh.h" END -GROUPBOX DLG_NULL 77 5 +GROUPBOX DLG_NULL 77 6 BEGIN PROMPT 1 16 "Preferenze" END @@ -996,6 +1003,41 @@ BEGIN PROMPT 74 19 "" FIELD GIOPRECON[7,7] END + +TEXT DLG_NULL +BEGIN + PROMPT 2 20 "Disponibilita' alla donazione in aferesi:" +END + +STRING F_DISP_AF_1 2 +BEGIN + PROMPT 46 20 "" + FIELD LF_SOGGETTI->DISP_AF_1 + FLAGS "U" + USE IDO SELECT S6="AF" + INPUT CODTAB F_DISP_AF_1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_DISP_AF_1 CODTAB + CHECKTYPE NORMAL + WARNING "Codice idoneita' non presente" + HELP "Idoneita' alla donazione" +END + +STRING F_DISP_AF_2 2 +BEGIN + PROMPT 54 20 "" + FIELD LF_SOGGETTI->DISP_AF_2 + FLAGS "U" + USE IDO SELECT S6="AF" + INPUT CODTAB F_DISP_AF_2 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_DISP_AF_2 CODTAB + CHECKTYPE NORMAL + WARNING "Codice idoneita' non presente" + HELP "Idoneita' alla donazione" +END ENDPAGE @@ -1193,69 +1235,29 @@ BEGIN PROMPT 2 9 "Tipi di idon. " FIELD IDON1 FLAGS "D" -// USE IDO -// INPUT CODTAB F_IDON1 -// OUTPUT F_DESC_ID1 S0 -// CHECKTYPE NORMAL END -//STRING F_DESC_ID1 25 -//BEGIN -// PROMPT 20 9 "" -// FLAGS "D" -//END - STRING F_IDON2 2 BEGIN PROMPT 20 9 "" FIELD IDON2 FLAGS "D" -// USE IDO -// INPUT CODTAB F_IDON2 -// OUTPUT F_DESC_ID2 S0 -// CHECKTYPE NORMAL END -//STRING F_DESC_ID2 25 -//BEGIN -// PROMPT 51 9 "" -// FLAGS "D" -//END - STRING F_IDON3 2 BEGIN PROMPT 24 9 "" FIELD IDON3 FLAGS "D" -// USE IDO -// INPUT CODTAB F_IDON3 -// OUTPUT F_DESC_ID3 S0 -// CHECKTYPE NORMAL END -//STRING F_DESC_ID3 25 -//BEGIN -// PROMPT 20 10 "" -// FLAGS "D" -//END - STRING F_IDON4 2 BEGIN PROMPT 28 9 "" FIELD IDON4 FLAGS "D" -// USE IDO -// INPUT CODTAB F_IDON4 -// OUTPUT F_DESC_ID4 S0 -// CHECKTYPE NORMAL END -//STRING F_DESC_ID4 25 -//BEGIN -// PROMPT 51 10 "" -// FLAGS "D" -//END - STRING F_TIPOULTID 2 BEGIN PROMPT 38 9 "Ult. idon.: Tipo " @@ -1408,14 +1410,12 @@ DATE F_DATACONV BEGIN PROMPT 2 19 "Convocazioni : Ultima " FIELD DATACONV - //FLAGS "D" END NUMBER F_NUMCONV 3 BEGIN PROMPT 37 19 "Nro " FIELD NUMCONV - //FLAGS "D" END STRING F_PUNTOCONV 4 @@ -1427,7 +1427,6 @@ BEGIN DISPLAY "Codice" CODTAB DISPLAY "Descrizione@40" S0 OUTPUT F_PUNTOCONV CODTAB - //OUTPUT F_DESC_PUNTORACC S0 CHECKTYPE NORMAL WARNING "Codice punto di prelievo non presente" HELP "Punto di prelievo per la convocazione" diff --git a/at/f90.dir b/at/f90.dir index c5521515b..93acb6ab3 100755 --- a/at/f90.dir +++ b/at/f90.dir @@ -1,3 +1,3 @@ 90 0 -$soggetti|0|16342|676|17|Soggetti AVIS||| +$soggetti|0|0|730|17|Soggetti AVIS||| diff --git a/at/f90.trr b/at/f90.trr index be9693856..352f2c84b 100755 --- a/at/f90.trr +++ b/at/f90.trr @@ -1,5 +1,5 @@ 90 -97 +100 CODSEZ|1|2|0|Codice sezione di appartenenza CODSOT|1|2|0|Codice sottogruppo di appartenenza CODICE|3|8|0|Codice @@ -32,6 +32,7 @@ RES_CAP|1|5|0|Residenza - CAP TELABI|1|14|0|Telefono abitazione TELLAV|1|14|0|Telefono lavoro TELALT|1|14|0|Telefono altro +EMAIL|1|50|0|Indirizzo di posta elettronica TITINDIR|1|10|0|Titolo in indirizzo ESCLUSO|1|2|0|Esclusione non sanitaria TERMESCL|5|8|0|Data termine esclusione @@ -97,6 +98,8 @@ STATOAF|1|2|0|Stato sanitario AF DATAAF|5|8|0|Data stato AF FINESOSAF|5|8|0|Data fine sospensione AF NOTE|11|10|0|Note +DISP_AF_1|1|2|0|Disponibilita AF 1 +DISP_AF_2|1|2|0|Disponibilita AF 2 7 CODICE| UPPER(COGNOME)+UPPER(NOME)+DATANASC|X diff --git a/at/soggetti.h b/at/soggetti.h index 871640efb..55ed95fb5 100755 --- a/at/soggetti.h +++ b/at/soggetti.h @@ -97,3 +97,6 @@ #define SOG_DATAAF "DATAAF" #define SOG_FINESOSAF "FINESOSAF" #define SOG_NOTE "NOTE" +#define SOG_DISP_AF_1 "DISP_AF_1" +#define SOG_DISP_AF_2 "DISP_AF_2" +