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

Patch level : aga 07 no patch

Browse Source 
Files correlati     : si0.exe
Ricompilazione Demo : [ ]
Commento            :
Corretto errore su trasferimento comuni dei clienti


git-svn-id: svn://10.65.10.50/trunk@10019 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2002-01-21 15:32:54 +00:00
parent d44619b4a3
commit 57f2cb47a3
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
si/si0100.cpp
View File

@ -255,7 +255,7 @@ bool TImport::localita2comune(const TString & caporig, const TString & localita,
if (comuni.curr() != com) if (comuni.curr() != com)
break; break;
found = localita.left(3) == comuni.get("DENCOM").left(3); found = localita.compare(comuni.get("DENCOM"), 3, FALSE) == 0;
if (found) if (found)
codice = comuni.get("COM"); codice = comuni.get("COM");
} }
@ -310,7 +310,11 @@ void TImport::update_cli(TCli_file & in, TRecord_text & r, TLocalisamfile & cli)
if (localita2comune(cap, localita, codice) == TRUE) if (localita2comune(cap, localita, codice) == TRUE)
localita = ""; localita = "";
localita.insert(loc); if (loc.not_empty())
{
localita.insert(" ");
localita.insert(loc);
}
cli.put("COMCF", codice); cli.put("COMCF", codice);
cli.put("LOCALITACF", localita); cli.put("LOCALITACF", localita);