Patch level : 1.7 at

Files correlati     : at0.exe at0200a.msk
Ricompilazione Demo : [ ]
Commento            : aggiunta ricerca per codice CT in giornaliero donazioni/controlli


git-svn-id: svn://10.65.10.50/trunk@12583 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2005-01-11 08:45:45 +00:00
parent 22550af659
commit d97d331e2a
3 changed files with 61 additions and 56 deletions

View File

@ -506,8 +506,11 @@ int TGiornalieroDC::write(TSheet_field& s)
TString16 id4 = sog.get(SOG_IDON4); // idon. 4 TString16 id4 = sog.get(SOG_IDON4); // idon. 4
int intsi = sog.get_int(SOG_INTSI); // intervallo per SI int intsi = sog.get_int(SOG_INTSI); // intervallo per SI
int intaf = sog.get_int(SOG_INTAF); // intervallo per AF int intaf = sog.get_int(SOG_INTAF); // intervallo per AF
id_si = ((statosi == "ID") && (intsi != 0)); // il soggetto è idoneo SI
id_af = ((statoaf == "ID") && (intaf != 0)); // il soggetto è idoneo AF const char modstatosi = modstato_tcs(statosi);
const char modstatoaf = modstato_tcs(statoaf);
id_si = ((modstatosi == 'I') && (intsi != 0)); // il soggetto è idoneo SI
id_af = ((modstatoaf == 'I') && (intaf != 0)); // il soggetto è idoneo AF
int totdon = sog.get_int(SOG_TOTDON); int totdon = sog.get_int(SOG_TOTDON);
TDate dataultdon = sog.get_date(SOG_DATAULTDON); TDate dataultdon = sog.get_date(SOG_DATAULTDON);
@ -630,8 +633,10 @@ int TGiornalieroDC::write(TSheet_field& s)
modstato = modstato_tcs(stato); modstato = modstato_tcs(stato);
if (modstato == 'I' || modstato == 'F') // il soggetto è idoneo if (modstato == 'I' || modstato == 'F') // il soggetto è idoneo
{ {
id_si = ((statosi == "ID") && (intsi != 0)); // il soggetto è idoneo SI const char modstatosi = modstato_tcs(statosi);
id_af = ((statoaf == "ID") && (intaf != 0)); // il soggetto è idoneo AF const char modstatoaf = modstato_tcs(statoaf);
id_si = ((modstatosi == 'I') && (intsi != 0)); // il soggetto è idoneo SI
id_af = ((modstatoaf == 'I') && (intaf != 0)); // il soggetto è idoneo AF
if (dataultdon.ok()) // se ha fatto almeno una donazione if (dataultdon.ok()) // se ha fatto almeno una donazione
{ {

View File

@ -17,25 +17,25 @@
// pagina soggetti // pagina soggetti
#define F_S_CODICE 101 #define F_S_CODICE 101
#define F_S_CODCT 102 #define F_S_COGNOME 102
#define F_S_COGNOME 103 #define F_S_NOME 103
#define F_S_NOME 104 #define F_S_TESSAVIS 104
#define F_S_TESSAVIS 105 #define F_S_TIPODON 105
#define F_S_TIPODON 106 #define F_S_TIPOCON 106
#define F_S_TIPOCON 107 #define F_S_ETICHETTA 107
#define F_S_ETICHETTA 108 #define F_S_PRIMADON 108
#define F_S_PRIMADON 109 #define F_S_DATADON 109
#define F_S_DATADON 110 #define F_S_DATANASC 110
#define F_S_DATANASC 111 #define F_S_CODSEZ 111
#define F_S_CODSEZ 112 #define F_S_CODSOT 112
#define F_S_CODSOT 113 #define F_S_CATDON 113
#define F_S_CATDON 114 #define F_S_INTSI 114
#define F_S_INTSI 115 #define F_S_CC 115
#define F_S_CC 116 #define F_S_PA 116
#define F_S_PA 117 #define F_S_HB 117
#define F_S_HB 118 #define F_S_SGPT 118
#define F_S_SGPT 119 #define F_S_PROTIDEMIA 119
#define F_S_PROTIDEMIA 120 #define F_S_CODCT 120
#define F_S_DENSEZ 151 #define F_S_DENSEZ 151
#define F_S_DENSOT 152 #define F_S_DENSOT 152

View File

@ -160,7 +160,6 @@ SPREADSHEET F_SOGGETTI
BEGIN BEGIN
PROMPT 2 6 "Soggetti" PROMPT 2 6 "Soggetti"
ITEM "Codice@8" ITEM "Codice@8"
ITEM "Cod.CT@6"
ITEM "Cognome@25" ITEM "Cognome@25"
ITEM "Nome@25" ITEM "Nome@25"
ITEM "Tessera" ITEM "Tessera"
@ -179,6 +178,7 @@ BEGIN
ITEM "Hb@4" ITEM "Hb@4"
ITEM "SGPT" ITEM "SGPT"
ITEM "Prot." ITEM "Prot."
ITEM "Cod.CT"
END END
ENDPAGE ENDPAGE
@ -224,37 +224,6 @@ BEGIN
ADD RUN at0 -0 ADD RUN at0 -0
END END
STRING F_S_CODCT 6
BEGIN
PROMPT 25 1 "Cod. CT "
FLAGS "U"
USE LF_SOGGETTI KEY 7
INPUT CODCT F_S_CODCT
DISPLAY "Cod.CT@6" CODCT
DISPLAY "Codice@8" CODICE
DISPLAY "Cognome@25" COGNOME
DISPLAY "Nome@25" NOME
DISPLAY "Nato il@10" DATANASC
DISPLAY "Sez." CODSEZ
DISPLAY "Sot." CODSOT
DISPLAY "C." CATDON
DISPLAY "Tessera" TESSAVIS
DISPLAY "Gr.AB0" GRUPPOAB0
DISPLAY "Rh " RHANTID
DISPLAY "Int.SI" INTSI
OUTPUT F_S_CODICE CODICE
OUTPUT F_S_COGNOME COGNOME
OUTPUT F_S_NOME NOME
OUTPUT F_S_DATANASC DATANASC
OUTPUT F_S_CODSEZ CODSEZ
OUTPUT F_S_CODSOT CODSOT
OUTPUT F_S_CATDON CATDON
OUTPUT F_S_TESSAVIS TESSAVIS
OUTPUT F_S_INTSI INTSI
OUTPUT F_S_CODCT CODCT
ADD RUN at0 -0
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 "
@ -461,7 +430,38 @@ BEGIN
FLAGS "U" FLAGS "U"
GROUP 2 GROUP 2
END END
STRING F_S_CODCT 6
BEGIN
PROMPT 25 1 "Cod. CT "
FLAGS "U"
USE LF_SOGGETTI KEY 7
INPUT CODCT F_S_CODCT
DISPLAY "Cod.CT@6" CODCT
DISPLAY "Codice@8" CODICE
DISPLAY "Cognome@25" COGNOME
DISPLAY "Nome@25" NOME
DISPLAY "Nato il@10" DATANASC
DISPLAY "Sez." CODSEZ
DISPLAY "Sot." CODSOT
DISPLAY "C." CATDON
DISPLAY "Tessera" TESSAVIS
DISPLAY "Gr.AB0" GRUPPOAB0
DISPLAY "Rh " RHANTID
DISPLAY "Int.SI" INTSI
OUTPUT F_S_CODICE CODICE
OUTPUT F_S_COGNOME COGNOME
OUTPUT F_S_NOME NOME
OUTPUT F_S_DATANASC DATANASC
OUTPUT F_S_CODSEZ CODSEZ
OUTPUT F_S_CODSOT CODSOT
OUTPUT F_S_CATDON CATDON
OUTPUT F_S_TESSAVIS TESSAVIS
OUTPUT F_S_INTSI INTSI
OUTPUT F_S_CODCT CODCT
ADD RUN at0 -0
END
STRING F_S_DESC_TIPOCON 25 STRING F_S_DESC_TIPOCON 25
BEGIN BEGIN
PROMPT 23 7 "" PROMPT 23 7 ""