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

Errore MI4357

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4213 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-03-17 09:44:12 +00:00
parent a31e8709cf
commit cc86160256
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cg/cg1200.cpp
View File

@ -246,17 +246,22 @@ bool TPrintclifo_app::preprocess_page(int file, int counter)
//modifica del 27/04/1995 //modifica del 27/04/1995
TString16 comcf = get_field(LF_CLIFO, CLI_COMCF); TString16 comcf = get_field(LF_CLIFO, CLI_COMCF);
TRectype com = look_comuni(comcf); TRectype com = look_comuni(comcf);
if (com.empty()) _comune.cut(0);
_comprov.cut(0);
if (_localita.not_empty())
{ {
_comprov = _comune = _localita; _comune << _localita << " ";
_prov = ""; _comprov = _comune;
} }
if (com.empty())
_prov = "";
else else
{ {
_comprov = com.get(COM_DENCOM); _comprov << com.get(COM_DENCOM);
_comprov << " "; _comprov << " ";
_comprov << com.get(COM_PROVCOM); _comprov << com.get(COM_PROVCOM);
_comune = (com.get(COM_DENCOM)).left(20); _comune << (com.get(COM_DENCOM));
_comune = _comune.left(20);
_prov = com.get(COM_PROVCOM); _prov = com.get(COM_PROVCOM);
} }
TString16 comnasc = get_field(LF_CLIFO, CLI_COMNASC); TString16 comnasc = get_field(LF_CLIFO, CLI_COMNASC);