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            : Cambio categoria derivante da stato nel riordino controlli soggetto da libreria


git-svn-id: svn://10.65.10.50/trunk@7914 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1999-03-09 13:29:22 +00:00
parent 2464ad4147
commit 033d552cb9
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
at/atlib1.cpp
View File

@ -236,19 +236,6 @@ void con_reord(TRectype& soggetto, TRecord_array* controlli, TRecord_array* idon
}
}
}
/*
TTable tcs("TCS");
tcs.put("CODTAB",tipo);
if (tcs.read() == NOERR)
{
TString catcoll = tcs.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 = soggetto.get(SOG_STATOSI);
TString16 statoaf = soggetto.get(SOG_STATOAF);
@ -287,6 +274,15 @@ void con_reord(TRectype& soggetto, TRecord_array* controlli, TRecord_array* idon
soggetto.put(SOG_DATASTATO,datastatosi);
}
}
TString stato = soggetto.get(SOG_STATO);
TTable tcs("TCS");
tcs.put("CODTAB",stato);
if (tcs.read() == NOERR)
{
TString catcoll = tcs.get("S7");
if (catcoll.not_empty())
soggetto.put(SOG_CATDON,catcoll);
}
don_datepross(soggetto);
if (((penultstato == 'S') || (penultstato == 'I')) && ((ultstato == 'I') || (ultstato == 'F')))