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

Patch level : AT

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : non capisco ma mi adeguo


git-svn-id: svn://10.65.10.50/trunk@10561 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-10-24 09:03:03 +00:00
parent a0e89b408c
commit 944e5898b3
1 changed files with 2404 additions and 2422 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
at/at0100.cpp
View File

@ -559,17 +559,9 @@ bool TGestioneSoggetti::catdon_handler(TMask_field& f, KEY k)
{
TMask& m = f.mask();
if (m.get(F_CATNOND1).not_empty() || m.get(F_CATNOND2).not_empty())
{
TTable ctd("CTD");
ctd.put("CODTAB",m.get(F_CATDON));
if (ctd.read() == NOERR)
{
const bool dimissione = ctd.get_bool("B0");
if (dimissione)
if (cache().get("CTD",m.get(F_CATDON)).get_bool("B0"))
f.warning_box("ATTENZIONE: il soggetto ha almeno una categoria non donatori. Verificare!");
}
}
}
return TRUE;
}
@ -2011,17 +2003,12 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si)
}
}
}
TTable tcs("TCS");
tcs.put("CODTAB",tipo);
if (tcs.read() == NOERR)
{
TString catcoll = tcs.get("S7");
const TString16 catcoll = cache().get("TCS",tipo).get("S7");
if (catcoll.not_empty())
{
mask.set(F_CATDON,catcoll);
mask.field(F_CATDON).on_key(K_TAB);
}
}
// verifico la concordanza di stato soggetto e stato idoneita
TString16 statosi = mask.get(F_STATOSI);
TString16 statoaf = mask.get(F_STATOAF);
@ -2075,11 +2062,7 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si)
}
// verifico la categoria e lo stato
TString16 catdon = mask.get(F_CATDON);
TTable ctd("CTD");
ctd.put("CODTAB",catdon);
if (ctd.read() == NOERR)
{
const bool dimissione = ctd.get_bool("B0");
const bool dimissione = cache().get("CTD", catdon).get_bool("B0");
const char statocalcolato = modstato_tcs(mask.get(F_STATO));
// tolto l'if da Cristina il 18/06/99 - da qui
// rimesso da Marco il 06/07/99 modificando dimissione in !dimissione e suddividendolo in due if
@ -2120,7 +2103,6 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si)
mask.field(F_CATDON).on_key(K_TAB);
TDate datanulla(NULLDATE);
mask.set(F_DATADIM,datanulla);
}
//fino a qui
}
}