Patch level :
Files correlati : agalib Ricompilazione Demo : [ ] Commento : Corretta gestione chiavi sospese git-svn-id: svn://10.65.10.50/branches/R_10_00@22425 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
4f095b2624
commit
4972385cec
@ -1375,23 +1375,18 @@ int Tdninst::check_customer() const
|
||||
if (em.ok() && em.year_assist() > 2100 && em.find_serno(serno))
|
||||
{
|
||||
error = 0;
|
||||
const TDate oggi(TODAY);
|
||||
TToken_string l(80, '=');
|
||||
TString16 str;
|
||||
TDate ds;
|
||||
while (em.line(l) && error == 0)
|
||||
{
|
||||
if (l.empty() || l[0] == '[')
|
||||
break;
|
||||
if (parse_date(l, str, ds))
|
||||
if (l[0]=='*' || l.starts_with("MustCall"))
|
||||
{
|
||||
if (ds >= oggi)
|
||||
{
|
||||
if (str == "*")
|
||||
error = 2; else
|
||||
if (str == "MustCall")
|
||||
error = 1;
|
||||
}
|
||||
const TDate oggi(TODAY);
|
||||
TString16 str;
|
||||
TDate ds;
|
||||
if (parse_date(l, str, ds) && oggi >= ds)
|
||||
error = (l[0] == '*') ? 2 : 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user