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

Patch level : 10.0

Browse Source 
Files correlati     : fe0.exe
Ricompilazione Demo : [ ]
Commento            :
Corretta gestione minuscole
Tolta validazione codice fiscale intermediario


git-svn-id: svn://10.65.10.50/branches/R_10_00@22499 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-11-22 13:47:21 +00:00
parent 9ef09d386c
commit b0b9dcb98e
5 changed files with 17 additions and 10 deletions

2
fe/fe0100.cpp

@ -1051,7 +1051,7 @@ bool TDati_rilevanti_msk::send_fatt(const TRectype& alleg, TDati_rilevanti_set&
else
{
operaz.set(8, anag.ragione_sociale());
if (anag.comune_residenza().empty())
if (anag.comune_residenza().blank())
operaz.set(9, anag.localita_residenza());
else
operaz.set(9, anag.comune_residenza());

1
fe/fe0100a.uml

@ -234,7 +234,6 @@ STRING F_INTER_COFI 16
BEGIN
PROMPT 2 8 "Codice fiscale dell'intermediario "
FLAGS "U"
VALIDATE CF_FUNC 1 F_INTER_COFI
END
NUMBER F_INTER_CAF 5

2
fe/fe0300.cpp

@ -157,7 +157,7 @@ bool TSomma_spesometro_msk::on_field_event(TOperable_field& o, TField_event e, l
if (t > 0)
{
const struct tm& lt = *localtime(&t);
const TDate d(lt.tm_mday, lt.tm_mon, 1900+lt.tm_year);
const TDate d(lt.tm_mday, lt.tm_mon+1, 1900+lt.tm_year);
row->add(d);
TString8 ora; ora.format("%02d:%02d:%02d", lt.tm_hour, lt.tm_min, lt.tm_sec);
row->add(ora);

1
fe/fe0300a.uml

@ -37,7 +37,6 @@ STRING F_INTER_COFI 16
BEGIN
PROMPT 2 2 "Codice fiscale dell'intermediario "
FLAGS "U"
VALIDATE CF_FUNC 1 F_INTER_COFI
END
NUMBER F_INTER_CAF 5

21
fe/felib.cpp

@ -30,8 +30,7 @@ static const TString& comune_di(const TString& codcom)
TString& den = get_tmp_string();
den = cache().get(LF_COMUNI, key, COM_DENCOM);
den.cut(40);
den.upper();
return den;
}
@ -91,7 +90,7 @@ bool TAnagrafica::init(const TRectype& rec)
if (_paiv.blank() && pi_check("", codice))
_paiv = codice;
}
_ragsoc = rec.get(OCC_RAGSOC); _ragsoc.upper();
_ragsoc = rec.get(OCC_RAGSOC);
_data_nasc = rec.get(OCC_DNASC);
_com_nasc = rec.get(OCC_COMNASC);
_com_res = rec.get(OCC_COM);
@ -102,7 +101,7 @@ bool TAnagrafica::init(const TRectype& rec)
break;
case LF_ANAG:
_tipo = rec.get_char(ANA_TIPOA);
_ragsoc = rec.get(ANA_RAGSOC); _ragsoc.upper();
_ragsoc = rec.get(ANA_RAGSOC);
_cofi = rec.get(ANA_COFI);
_paiv = rec.get(ANA_PAIV);
@ -125,7 +124,7 @@ bool TAnagrafica::init(const TRectype& rec)
case LF_NDITTE:
{
const bool good = init(LF_ANAG, rec.get_char(NDT_TIPOA), rec.get_long(NDT_CODANAGR));
_ragsoc = rec.get(NDT_RAGSOC); _ragsoc.upper();
_ragsoc = rec.get(NDT_RAGSOC);
return good;
}
break;
@ -160,7 +159,7 @@ bool TAnagrafica::init(const TRectype& rec)
build_ind_res(rec, CLI_INDCF, CLI_CIVCF);
// Prevale sempre la ragione sociale del cliente: "Il cliente ha sempre ragione".
_ragsoc = rec.get(CLI_RAGSOC); _ragsoc.upper();
_ragsoc = rec.get(CLI_RAGSOC);
_stato_estero = rec.get_int(CLI_STATOCF);
_loc_res = rec.get(CLI_LOCCF);
break;
@ -410,6 +409,16 @@ bool TDati_rilevanti_set::set_field(const TAS400_column_info& fi, const TVariant
str.right_just(fi._width, '0');
row().overwrite(str, fi._pos);
return true;
} else
if (fi._type == AN)
{
TString256 str = var.as_string();
str.upper();
str.replace('ä', 'A');
str.replace('ö', 'O');
str.replace('ü', 'U');
row().overwrite(str, fi._pos, fi._width);
return true;
}
return TAS400_recordset::set_field(fi, var);