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

Patch level : 10.0 580

Browse Source 
Files correlati     :  tc0.exe
Ricompilazione Demo : [ ]
Commento            :

Corretta ricerca causali di regolarizzazione


git-svn-id: svn://10.65.10.50/trunk@19929 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-01-14 18:47:33 +00:00
parent 61e3214206
commit 5c9f9e139b
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tc/tc0700.cpp
View File

@ -354,22 +354,15 @@ bool search_reg(const TRelation& rel, void* pJolly)
bool TTS_campo_sender::create()
{
bool ok = TTS_sender::create();
if (ok)
{
TRelation rel(LF_CAUSALI);
TCursor c(&rel);
ok = c.scan(search_reg, &_caus_regolarizzazione, "Ricerca causali di regolarizzazione");
}
TRelation rel(LF_CAUSALI);
TCursor c(&rel);
bool ok = c.scan(search_reg, &_caus_regolarizzazione, "Ricerca causali di regolarizzazione");
TLocalisamfile clifo(LF_CLIFO);
bool big_cli_code = false;
clifo.put(CLI_TIPOCF, "C");
clifo.put(CLI_CODCF, 100000L);
if (!((clifo.read(_isgteq) == _iseof) || (clifo.get(CLI_TIPOCF) == "F")))
big_cli_code = true;
if (!big_cli_code)
@ -380,11 +373,10 @@ bool TTS_campo_sender::create()
if (clifo.read(_isgteq) != _iseof)
big_cli_code = true;
}
if (big_cli_code)
riclassifica().add("TSNOHCLI", EMPTY_STRING);
return ok;
return ok && TTS_sender::create();
}
int tc0700(int argc, char* argv[])