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

Patch level : at 1.7 702

Browse Source 
Files correlati     : at8.exe
Ricompilazione Demo : [ ]
Commento            : varie sul trasferimento CT parma


git-svn-id: svn://10.65.10.50/trunk@12143 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-06-03 10:54:56 +00:00
parent ed76a67e25
commit fcc8dae17d
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
at/at8900.cpp
View File

@ -848,6 +848,8 @@ bool TCtpr2at::update_record(TRectype& record_at, TAssoc_array& record_ct)
tmp = lcp.get("CODTAB");
record_at.put(SOG_DOM_CODLOC, tmp);
stampa << " inserito da CETRAPLUS: " << tmp << " " << localita;
tmp = lcp.get("S6");
record_at.put(SOG_DOM_CAP, tmp);
}
else
stampa << " non presente in tabella avis " << localita;
@ -859,6 +861,27 @@ bool TCtpr2at::update_record(TRectype& record_at, TAssoc_array& record_ct)
}
}
}
else if (elab == "CAP") // cap
{
str = val;
TString tmp = record_at.get(SOG_DOM_CAP);
str.trim();
tmp.trim();
if (tmp != str)
{
TString256 stampa = "";
stampa << "CAP ";
if (tmp.empty())
{
record_at.put(SOG_DOM_CAP, str);
stampa << " inserito da CETRAPLUS: " << str;
}
else
stampa << " diverso: avis " << tmp << " sit " << str;
print_line(stampa);
stampa = "";
}
}
else if ((elab == "CONFRONTA") || (elab == "SEGNALA")) // SEGNALA = solo segnalazione, CONFRONTA = segnala e modifica
{
if (campo.not_empty())