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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Giornaliero controlli: se il donatore non ha id. precedenti sono obbligato a metterle


git-svn-id: svn://10.65.10.50/trunk@7778 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1999-02-12 12:24:13 +00:00
parent 07a017ad1e
commit 02675b94b8
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
at/at0300.cpp
View File

@ -391,6 +391,24 @@ bool TGiornalieroC::soggetti_notify(TSheet_field& s, int r, KEY k)
contsan.put(CON_CODICE,codsog);
if (contsan.read() == NOERR)
return s.sheet_mask().field(F_S_CODICE).error_box("Il soggetto ha gia' un controllo in data %s", datacon.string());
else
{
TString16 tipocon = row.get(3);
if (tipocon.blank())
tipocon = s.mask().get(F_TIPOCON);
const char modstato = modstato_tcs(tipocon);
if ( modstato == 'I' || modstato == 'M')
{
TString16 idon1 = row.get(4);
TString16 idon2 = row.get(5);
TString16 idon3 = row.get(6);
TString16 idon4 = row.get(7);
int intsi = row.get_int(8);
int intaf = row.get_int(9);
if ((idon1.blank() && idon2.blank() && idon3.blank() && idon4.blank()) || (intsi==0 && intaf==0))
return s.sheet_mask().field(F_S_CODICE).error_box("Il soggetto non ha idoneita' precedenti; inserire idoneita' e intervalli");
}
}
}
else
{