Patch level :

Files correlati     : agalib
Ricompilazione Demo : [ ]
Commento            :
Corretta generazione IBAN check e BBAN cin


git-svn-id: svn://10.65.10.50/branches/R_10_00@22433 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-09-28 16:17:53 +00:00
parent 63c9082a5f
commit ebc7983a16
2 changed files with 9 additions and 2 deletions

View File

@ -26,8 +26,6 @@ DEFFLD(IMPOSTA)
DEFFLD(TIPOPE)
DEFFLD(CONTRATTO)
DEFFLD(IMPORTOTOT)
DEFFLD(IMPOSTATOT)
DEFFLD(NUMRETT)

View File

@ -1018,7 +1018,16 @@ HIDDEN bool _iban_val(TMask_field& f, KEY key)
TString80 iban;
iban << stato << "@@";
if (italy)
{
TEdit_field& cin = m.efield(id[4]);
TEdit_field& cc = m.efield(id[7]);
if (cin.empty() && !cc.empty())
{
cc.set_focusdirty();
cc.validate(K_TAB);
}
iban << m.get(id[4]) << m.get(id[5]) << m.get(id[6]) << m.get(id[7]);
}
else
iban << m.get(id[3]);