From f4561cc153f334dea7ae272a7a559a013d3abbcc Mon Sep 17 00:00:00 2001
From: cris <cris@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 25 Sep 1998 07:51:53 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            : Parametrizzata l'idoneita' automatica alla
 donazione e il motivo del controllo

git-svn-id: svn://10.65.10.50/trunk@7137 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 at/at5100a.h   |  6 +++++
 at/at5100a.uml | 65 +++++++++++++++++++++++++++++++++++++-------------
 2 files changed, 54 insertions(+), 17 deletions(-)

diff --git a/at/at5100a.h b/at/at5100a.h
index d3431fffe..a90131d39 100755
--- a/at/at5100a.h
+++ b/at/at5100a.h
@@ -60,3 +60,9 @@
 
 // totale etichette stampate
 #define AT_ETICTOT  160
+
+// idoneita automatica al momento della donazione
+#define AT_AUTOID     161
+// motivo idoneita automatica
+#define AT_MOTIVOID   162
+#define AT_D_MOTIVOID 163
diff --git a/at/at5100a.uml b/at/at5100a.uml
index eef48607a..c8f85c04f 100755
--- a/at/at5100a.uml
+++ b/at/at5100a.uml
@@ -57,7 +57,7 @@ BEGIN
    CHECKTYPE NORMAL
 END
 
-GROUPBOX DLG_NULL 77 6
+GROUPBOX DLG_NULL 77 5
 BEGIN
    PROMPT 1 5 "Secondo passaggio di categoria"
 END
@@ -69,6 +69,13 @@ BEGIN
    FIELD NumDon2
 END
 
+BOOLEAN AT_STTESS2
+BEGIN
+   PROMPT 30 6 "Passaggio con stampa tessera"
+   HELP "Eseguire il cambio di categoria al momento della stampa tessera"
+   FIELD StTess2
+END
+
 STRING AT_CATINI2 2
 BEGIN
    PROMPT 2 7 "Categoria di partenza "
@@ -97,70 +104,94 @@ BEGIN
    CHECKTYPE NORMAL
 END
 
-BOOLEAN AT_STTESS2
-BEGIN
-   PROMPT 2 9 "Passaggio con stampa tessera"
-   HELP "Eseguire il cambio di categoria al momento della stampa tessera"
-   FIELD StTess2
-END
-
 GROUPBOX DLG_NULL 77 5
 BEGIN
-   PROMPT 1 11 "Intervalli di donazione nelle idoneita' automatiche"
+   PROMPT 1 10 "Intervalli di donazione nelle idoneita' automatiche"
 END
 
 NUMBER AT_ETADONNE 3
 BEGIN
-   PROMPT 2 12 "Eta' per la suddivisione delle donne in due fasce "
+   PROMPT 2 11 "Eta' per la suddivisione delle donne in due fasce "
    FIELD EtaDonne
 END
 
 NUMBER AT_INTSI_F1 3
 BEGIN
-   PROMPT 2 13 "Intervallo SI per femmine 1ø fascia "
+   PROMPT 2 12 "Intervallo SI per femmine 1ø fascia "
    FIELD IntSI_F1
 END
 
 NUMBER AT_INTSI_F2 3
 BEGIN
-   PROMPT 2 14 "Intervallo SI per femmine 2ø fascia "
+   PROMPT 2 13 "Intervallo SI per femmine 2ø fascia "
    FIELD IntSI_F2
 END
 
 
 NUMBER AT_INTSI_M 3
 BEGIN
-   PROMPT 45 13 "Intervallo SI per maschi "
+   PROMPT 45 12 "Intervallo SI per maschi "
    FIELD IntSI_M
 END
 
 NUMBER AT_INTAF_M 3
 BEGIN
-   PROMPT 45 14 "Intervallo AF per tutti  "
+   PROMPT 45 13 "Intervallo AF per tutti  "
    FIELD IntAF_M
 END
 
 BOOLEAN AT_DATAISC
 BEGIN
-   PROMPT 2 16 "Data iscrizione (se vuota) uguale a data prima donazione"
+   PROMPT 2 15 "Data iscrizione (se vuota) uguale a data prima donazione"
    HELP "Data iscrizione automaticamente uguale alla data prima donazione, se vuota"
    FIELD DataIsc
 END
 
 BOOLEAN AT_STAMPA80
 BEGIN
-   PROMPT 2 17 "Stampa 80 colonne dove prevista"
+   PROMPT 2 16 "Stampa 80 colonne dove prevista"
    HELP "Stampa gli elenchi con il formato 80 colonne dove previsto"
    FIELD Stampa80
 END
 
 BOOLEAN AT_NOMESSAGE
 BEGIN
-   PROMPT 2 18 "Disabilita messaggi in giornaliero donazioni"
+   PROMPT 2 17 "Disabilita messaggi in giornaliero donazioni"
    HELP "Disabilita i messaggi di attenzione in giornaliero donazioni"
    FIELD NoMessage
 END
 
+BOOLEAN AT_AUTOID
+BEGIN
+   PROMPT 2 18 "Idoneita' automatica"
+   HELP "Idoneita' automatica in giornaliero donazioni"
+   FIELD AutoId
+   MESSAGE TRUE ENABLE,AT_MOTIVOID
+   MESSAGE FALSE RESET,AT_MOTIVOID|DISABLE,AT_MOTIVOID
+END
+
+STRING AT_MOTIVOID 4
+BEGIN
+   PROMPT 30 18 "Motivo "
+   FIELD MotivoId
+   FLAGS "U"
+   USE MTC
+   INPUT CODTAB AT_MOTIVOID
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@50" S0
+   OUTPUT AT_MOTIVOID CODTAB
+   OUTPUT AT_D_MOTIVOID S0
+   CHECKTYPE NORMAL
+   WARNING "Codice motivo non presente"
+   HELP "Motivo del controllo sanitario"
+END
+
+STRING AT_D_MOTIVOID 25
+BEGIN
+  PROMPT 45 18 ""
+  FLAGS "D"
+END
+
 BOOLEAN AT_CTRLPASS
 BEGIN
    PROMPT 2 19 "Accesso ai controlli sanitari con password"