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

Patch level : 1.7 at

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
at/at0200.cpp
View File

@ -506,8 +506,11 @@ int TGiornalieroDC::write(TSheet_field& s)
TString16 id4 = sog.get(SOG_IDON4); // idon. 4
int intsi = sog.get_int(SOG_INTSI); // intervallo per SI
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);
TDate dataultdon = sog.get_date(SOG_DATAULTDON);
@ -630,8 +633,10 @@ int TGiornalieroDC::write(TSheet_field& s)
modstato = modstato_tcs(stato);
if (modstato == 'I' || modstato == 'F') // il soggetto è idoneo
{
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
if (dataultdon.ok()) // se ha fatto almeno una donazione
{

38
at/at0200a.h
View File

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

64
at/at0200a.uml
View File

@ -160,7 +160,6 @@ SPREADSHEET F_SOGGETTI
BEGIN
PROMPT 2 6 "Soggetti"
ITEM "Codice@8"
ITEM "Cod.CT@6"
ITEM "Cognome@25"
ITEM "Nome@25"
ITEM "Tessera"
@ -179,6 +178,7 @@ BEGIN
ITEM "Hb@4"
ITEM "SGPT"
ITEM "Prot."
ITEM "Cod.CT"
END
ENDPAGE
@ -224,37 +224,6 @@ BEGIN
ADD RUN at0 -0
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
BEGIN
PROMPT 2 2 "Cognome e nome "
@ -462,6 +431,37 @@ BEGIN
GROUP 2
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
BEGIN
PROMPT 23 7 ""