Patch level : at

Files correlati     : at0.exe
Ricompilazione Demo : [ ]
Commento            : corretto cambi di categoria in sblocco sospesi


git-svn-id: svn://10.65.10.50/trunk@10434 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-07-24 09:09:05 +00:00
parent 6cad1aad4a
commit a9e1dd72d9

View File

@ -311,31 +311,30 @@ bool TSbloccoSospesi::preprocess_page(int file, int counter)
recsog.put(SOG_DATAULTAGG,oggi);
recsog.put(SOG_UTENULTAGG,user());
TTable ctd("CTD");
TString16 catdon = recsog.get(SOG_CATDON);
const TRectype& ctd = cache().get("CTD", catdon);
const int totdon = recsog.get_int(SOG_TOTDON);
ctd.put("CODTAB",catdon);
if (ctd.read() == NOERR)
if (ctd.get_bool("B0"))
{
const TString16 catcoll = ctd.get("S6");
if (catcoll.not_empty())
{
recsog.put(SOG_CATDON, catcoll);
recsog.put(SOG_DATADIM,NULLDATE);
catdon = catcoll;
}
}
if ((catdon == _catini1 || _catini1.empty()) && (totdon>=_numdon1) && _catfin1.not_empty())
{
bool dimissione = ctd.get_bool("B0");
if (dimissione)
{
recsog.put(SOG_CATDON,ctd.get("S6"));
if (ctd.get("S6").not_empty())
catdon = ctd.get("S6");
}
if ((catdon == _catini1 || _catini1.empty()) && (totdon>=_numdon1) && _catfin1.not_empty())
{
recsog.put(SOG_CATDON, _catfin1);
catdon = _catfin1;
}
bool tstampata = recsog.get_bool(SOG_T_STAMPATA);
if ((catdon == _catini2 || _catini2.empty()) && (totdon>=_numdon2) && _catfin2.not_empty() && (!_sttess2 || tstampata))
{
recsog.put(SOG_CATDON, _catfin2);
catdon = _catfin2;
}
}
recsog.put(SOG_CATDON, _catfin1);
catdon = _catfin1;
}
bool tstampata = recsog.get_bool(SOG_T_STAMPATA);
if ((catdon == _catini2 || _catini2.empty()) && (totdon>=_numdon2) && _catfin2.not_empty() && (!_sttess2 || tstampata))
{
recsog.put(SOG_CATDON, _catfin2);
catdon = _catfin2;
}
current_cursor()->file().rewrite();
}
}