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(); TMask& m = f.mask();
if (m.get(F_CATNOND1).not_empty() || m.get(F_CATNOND2).not_empty()) if (m.get(F_CATNOND1).not_empty() || m.get(F_CATNOND2).not_empty())
{ if (cache().get("CTD",m.get(F_CATDON)).get_bool("B0"))
TTable ctd("CTD"); f.warning_box("ATTENZIONE: il soggetto ha almeno una categoria non donatori. Verificare!");
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!");
}
}
} }
return TRUE; return TRUE;
} }
@ -2011,16 +2003,11 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si)
} }
} }
} }
TTable tcs("TCS"); const TString16 catcoll = cache().get("TCS",tipo).get("S7");
tcs.put("CODTAB",tipo); if (catcoll.not_empty())
if (tcs.read() == NOERR)
{ {
TString catcoll = tcs.get("S7"); mask.set(F_CATDON,catcoll);
if (catcoll.not_empty()) 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 // verifico la concordanza di stato soggetto e stato idoneita
TString16 statosi = mask.get(F_STATOSI); 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 // verifico la categoria e lo stato
TString16 catdon = mask.get(F_CATDON); TString16 catdon = mask.get(F_CATDON);
TTable ctd("CTD"); const bool dimissione = cache().get("CTD", catdon).get_bool("B0");
ctd.put("CODTAB",catdon); const char statocalcolato = modstato_tcs(mask.get(F_STATO));
if (ctd.read() == NOERR) // 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"); int totdon = mask.get_int(F_TOTDON);
const char statocalcolato = modstato_tcs(mask.get(F_STATO)); if (!dimissione)
// 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); //Operazione sostituita da Marco il 26/07/99 al posto di quella commentata sotto
if (!dimissione) 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 mask.set(F_CATDON, app()._catfin1);
if ((catdon == app()._catini1 || app()._catini1.empty()) && (totdon>=app()._numdon1) && app()._catfin1.not_empty()) catdon = app()._catfin1;
{
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
} }
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()._catfin2);
{ catdon = app()._catfin2;
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); // Corretto da Marco il 26/07/99 sostituendolo con quello sopra
TDate datanulla(NULLDATE); // 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_DATADIM,datanulla);
} }
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 //fino a qui
} }
} }