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

98
at/at0100.cpp
View File

@ -559,16 +559,8 @@ 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)
f.warning_box("ATTENZIONE: il soggetto ha almeno una categoria non donatori. Verificare!");
}
}
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,16 +2003,11 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si)
}
}
}
TTable tcs("TCS");
tcs.put("CODTAB",tipo);
if (tcs.read() == NOERR)
const TString16 catcoll = cache().get("TCS",tipo).get("S7");
if (catcoll.not_empty())
{
TString catcoll = tcs.get("S7");
if (catcoll.not_empty())
{
mask.set(F_CATDON,catcoll);
mask.field(F_CATDON).on_key(K_TAB);
}
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);
@ -2075,52 +2062,47 @@ 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 = 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
if ((statocalcolato == 'I') || (statocalcolato == 'F'))
{
const bool dimissione = ctd.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
if ((statocalcolato == 'I') || (statocalcolato == 'F'))
int totdon = mask.get_int(F_TOTDON);
if (!dimissione)
{
int totdon = mask.get_int(F_TOTDON);
if (!dimissione)
//Operazione sostituita da Marco il 26/07/99 al posto di quella commentata sotto
if ((catdon == app()._catini1 || app()._catini1.empty()) && (totdon>=app()._numdon1) && app()._catfin1.not_empty())
{
//Operazione sostituita da Marco il 26/07/99 al posto di quella commentata sotto
if ((catdon == app()._catini1 || app()._catini1.empty()) && (totdon>=app()._numdon1) && app()._catfin1.not_empty())
{
mask.set(F_CATDON, app()._catfin1);
catdon = app()._catfin1;
}
const bool tstampata = mask.get_bool(F_T_STAMPATA);
if ((catdon == app()._catini2 || app()._catini2.empty()) && (totdon>=app()._numdon2) && app()._catfin2.not_empty() && ((!app()._sttess2)|| (tstampata)))
{
mask.set(F_CATDON, app()._catfin2);
catdon = app()._catfin2;
}
// Corretto da Marco il 26/07/99 sostituendolo con quello sopra
// Reinserito come else da Marco il 07/09/99 per gestire il cambio in caso di inserimento idoneità parziali invece di controllo
mask.set(F_CATDON, app()._catfin1);
catdon = app()._catfin1;
}
else
const bool tstampata = mask.get_bool(F_T_STAMPATA);
if ((catdon == app()._catini2 || app()._catini2.empty()) && (totdon>=app()._numdon2) && app()._catfin2.not_empty() && ((!app()._sttess2)|| (tstampata)))
{
if ((totdon>=app()._numdon1) && (app()._catfin1.not_empty()))
{
mask.set(F_CATDON, app()._catfin1);
catdon = app()._catfin1;
}
const bool tstampata = mask.get_bool(F_T_STAMPATA);
if ((totdon>=app()._numdon2) && (app()._catfin2.not_empty()) && ((!app()._sttess2) || (tstampata)))
{
mask.set(F_CATDON, app()._catfin2);
catdon = app()._catfin2;
}
mask.set(F_CATDON, app()._catfin2);
catdon = app()._catfin2;
}
mask.field(F_CATDON).on_key(K_TAB);
TDate datanulla(NULLDATE);
mask.set(F_DATADIM,datanulla);
// Corretto da Marco il 26/07/99 sostituendolo con quello sopra
// Reinserito come else da Marco il 07/09/99 per gestire il cambio in caso di inserimento idoneità parziali invece di controllo
}
else
{
if ((totdon>=app()._numdon1) && (app()._catfin1.not_empty()))
{
mask.set(F_CATDON, app()._catfin1);
catdon = app()._catfin1;
}
const bool tstampata = mask.get_bool(F_T_STAMPATA);
if ((totdon>=app()._numdon2) && (app()._catfin2.not_empty()) && ((!app()._sttess2) || (tstampata)))
{
mask.set(F_CATDON, app()._catfin2);
catdon = app()._catfin2;
}
}
mask.field(F_CATDON).on_key(K_TAB);
TDate datanulla(NULLDATE);
mask.set(F_DATADIM,datanulla);
//fino a qui
}
}