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

@@ -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

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"

at/f90.dir

@@ -1,3 +1,3 @@
 90
 0
-$soggetti|0|16342|676|17|Soggetti AVIS|||
+$soggetti|0|0|730|17|Soggetti AVIS|||

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

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"
+