diff --git a/Source/ApplicationBase/ApplicationBase.dpk b/Source/ApplicationBase/ApplicationBase.dpk
index c17b8d7..cdcb891 100644
--- a/Source/ApplicationBase/ApplicationBase.dpk
+++ b/Source/ApplicationBase/ApplicationBase.dpk
@@ -68,7 +68,7 @@ contains
   uViewPerfilUsuario in 'Usuarios\Views\uViewPerfilUsuario.pas' {frViewPerfilUsuario: TFrame},
   uIEditorPerfilesUsuario in 'Usuarios\Controller\View\uIEditorPerfilesUsuario.pas',
   uIEditorPerfilUsuario in 'Usuarios\Controller\View\uIEditorPerfilUsuario.pas',
-  uEditorUsuarios in 'Usuarios\Views\uEditorUsuarios.pas' {fEditorUsuarios: TForm},
+  uEditorUsuarios in 'Usuarios\Views\uEditorUsuarios.pas' {fEditorUsuarios: T},
   uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame},
   uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame},
   uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame},
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 12af8e7..5ab31c7 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -55,11 +55,10 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Base.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\PluginSDK_D110R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
     <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
     <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
     <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res
index 8b251f3..1641339 100644
Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ
diff --git a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
index 411aba1..ebdfe04 100644
--- a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
@@ -30,7 +30,7 @@ implementation
 
 uses
   uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
-  uEditorRegistryUtils, cxControls;
+  uEditorRegistryUtils, cxControls, uIBANUtils;
 
 constructor TDatosBancariosEmpresaController.Create;
 begin
@@ -51,7 +51,11 @@ begin
 
   try
     if not ADatosBancarios.IBANIsNull then
+    begin
       ADatosBancarios.IBAN := StringReplace(ADatosBancarios.IBAN, ' ', '', [rfReplaceAll]); // Quitar espacios
+      if EsCodigoIBANValido(ADatosBancarios.IBAN) then
+        raise Exception.Create('Comprueba que el código IBAN indicado es correcto.');
+    end;
 
     if ADatosBancarios.SUFIJO_PRESENTADORIsNull then
       ADatosBancarios.SUFIJO_PRESENTADOR := ADatosBancarios.SUFIJO_ACREEDOR;
diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk
index 0b06d54..68859af 100644
--- a/Source/Base/Base.dpk
+++ b/Source/Base/Base.dpk
@@ -119,6 +119,9 @@ contains
   uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {DataModuleImpresiones: TDataModule},
   uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {DataModuleRegistroCorreos: TDataModule},
   uValidacionUtils in 'Utiles\uValidacionUtils.pas',
-  RegExpr in 'Utiles\RegExpr.pas';
+  RegExpr in 'Utiles\RegExpr.pas',
+  IBANMetrics in 'Utiles\TIBAN\IBANMetrics.pas',
+  IBAN in 'Utiles\TIBAN\IBAN.pas',
+  uIBANUtils in 'Utiles\uIBANUtils.pas';
 
 end.
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 545b3a9..5157b67 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -45,6 +45,38 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -62,58 +94,6 @@
       <Form>DataModuleRegistroCorreos</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\designide.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
@@ -138,14 +118,61 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClipboardUtils.pas" />
     <DCCReference Include="Utiles\Ctltortf.pas" />
+    <DCCReference Include="Utiles\cxDataD11.dcp" />
+    <DCCReference Include="Utiles\cxEditorsD11.dcp" />
+    <DCCReference Include="Utiles\cxExportD11.dcp" />
+    <DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
+    <DCCReference Include="Utiles\cxGridD11.dcp" />
+    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
+    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="Utiles\cxLibraryD11.dcp" />
+    <DCCReference Include="Utiles\cxPageControlD11.dcp" />
+    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Utiles\dbrtl.dcp" />
+    <DCCReference Include="Utiles\dclIndyCore.dcp" />
+    <DCCReference Include="Utiles\designide.dcp" />
+    <DCCReference Include="Utiles\dsnap.dcp" />
+    <DCCReference Include="Utiles\dxCoreD11.dcp" />
+    <DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
+    <DCCReference Include="Utiles\dxPSCoreD11.dcp" />
+    <DCCReference Include="Utiles\dxThemeD11.dcp" />
+    <DCCReference Include="Utiles\GUISDK_D11R.dcp" />
+    <DCCReference Include="Utiles\IndyCore.dcp" />
+    <DCCReference Include="Utiles\IndyProtocols.dcp" />
+    <DCCReference Include="Utiles\IndySystem.dcp" />
+    <DCCReference Include="Utiles\Jcl.dcp" />
+    <DCCReference Include="Utiles\JclVcl.dcp" />
+    <DCCReference Include="Utiles\JSDialog100.dcp" />
+    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
+    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
+    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
+    <DCCReference Include="Utiles\JvMMD11R.dcp" />
+    <DCCReference Include="Utiles\JvNetD11R.dcp" />
+    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
+    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
     <DCCReference Include="Utiles\MidasSpeedFix.pas" />
+    <DCCReference Include="Utiles\pckMD5.dcp" />
+    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
+    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
+    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
+    <DCCReference Include="Utiles\PNG_D10.dcp" />
     <DCCReference Include="Utiles\RegExpr.pas" />
+    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="Utiles\rtl.dcp" />
+    <DCCReference Include="Utiles\TB2k_D10.dcp" />
+    <DCCReference Include="Utiles\tbx_d10.dcp" />
+    <DCCReference Include="Utiles\TIBAN\IBAN.pas" />
+    <DCCReference Include="Utiles\TIBAN\IBANMetrics.pas" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
@@ -155,6 +182,7 @@
     <DCCReference Include="Utiles\uEMailUtils.pas" />
     <DCCReference Include="Utiles\uGridClipboardUtils.pas" />
     <DCCReference Include="Utiles\uGridStatusUtils.pas" />
+    <DCCReference Include="Utiles\uIBANUtils.pas" />
     <DCCReference Include="Utiles\uInfoProjectUtils.pas" />
     <DCCReference Include="Utiles\uIntegerListUtils.pas" />
     <DCCReference Include="Utiles\uMD5.pas" />
@@ -166,6 +194,13 @@
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
     <DCCReference Include="Utiles\uValidacionUtils.pas" />
+    <DCCReference Include="Utiles\vcl.dcp" />
+    <DCCReference Include="Utiles\vclactnband.dcp" />
+    <DCCReference Include="Utiles\vcldb.dcp" />
+    <DCCReference Include="Utiles\vcljpg.dcp" />
+    <DCCReference Include="Utiles\VclSmp.dcp" />
+    <DCCReference Include="Utiles\vclx.dcp" />
+    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Base/Utiles/TIBAN/.gitignore b/Source/Base/Utiles/TIBAN/.gitignore
new file mode 100644
index 0000000..07aaca3
--- /dev/null
+++ b/Source/Base/Utiles/TIBAN/.gitignore
@@ -0,0 +1,3 @@
+syntax: glob
+__history/*
+backup/*
diff --git a/Source/Base/Utiles/TIBAN/IBAN.pas b/Source/Base/Utiles/TIBAN/IBAN.pas
new file mode 100644
index 0000000..b5d065d
--- /dev/null
+++ b/Source/Base/Utiles/TIBAN/IBAN.pas
@@ -0,0 +1,453 @@
+{*******************************************************}
+{                                                       }
+{       IBAN                                            }
+{                                                       }
+{       Copyright (C) 2011 Heiko Adams                  }
+{                                                       }
+{*******************************************************}
+
+{
+     The contents of this file are subject to the Mozilla Public License
+     Version 1.1 (the "License"); you may not use this file except in
+     compliance with the License. You may obtain a copy of the License at
+     http://www.mozilla.org/MPL/
+
+     Software distributed under the License is distributed on an "AS IS"
+     basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+     License for the specific language governing rights and limitations
+     under the License.
+
+     The Original Code is IBAN.pas.
+
+     The Initial Developer of the Original Code is Heiko Adams <heiko.adams@gmail.com>.
+
+     Contributor(s): ______________________________________.
+}
+
+unit IBAN;
+
+interface
+
+uses IBANMetrics;
+
+type
+  TIBAN = class
+  private
+    FAccountID: string;
+    FBankCode: string;
+    FCountry: string;
+    FIBAN: string;
+    // 20130830 Heiko Adams
+    FLastError: Integer;
+
+    FMetrics: TIBANMetrics;
+
+    function EncodeCountry(const aLand: string): string;
+    function Modulo97(const aIBAN:string):Integer;
+    function CheckIBAN: Boolean;
+    function CalcIBAN: string;
+    function GetLand: string;
+    function GetCountryFromIBAN: string;
+    procedure SetCountry(const aValue: string);
+    procedure SetIBAN(const aValue: string);
+    procedure FillM97Tab;
+    // 20130830 Heiko Adams
+    procedure SetErrorCode(nError: Integer);
+  public
+    // 20130830 Heiko Adams ...
+    // Don't use these properties because they are deprecated and will be
+    // removed in future versions of this class!
+    property Konto: string read FAccountID write FAccountID;
+    property BLZ: string read FBankCode write FBankCode;
+    property Land: string read GetLand write SetCountry;
+    // ... 20130830 Heiko Adams
+    
+    // 20130830 Heiko Adams i18n version of german named public properties ...
+    property BankAccount: string read FAccountID write FAccountID;
+    property BankCode: string read FBankCode write FBankCode;
+    property Country: string read GetLand write SetCountry;
+    // ... 20130830 Heiko Adams
+    
+    property IBAN: string read CalcIBAN write SetIBAN;
+    property Valid: Boolean read CheckIBAN;
+    // 20130830 Heiko Adams
+    property ErrorCode: Integer read FLastError;
+    
+    function checkIBANCode(const sIban: String): boolean; deprecated;
+    function IsIBAN(const s:string):boolean;
+    
+    // 20130830 Heiko Adams ...
+    function GetAccountNumberFromIBAN: string;
+    function GetBankCodeFromIBAN: string;
+    // ... 20130830 Heiko Adams
+
+    constructor Create;
+    destructor Destroy; override;
+	end;
+
+var
+   m97tab:array[0..96,0..9] of byte;
+
+implementation
+
+uses SysUtils, Windows;
+
+destructor TIBAN.Destroy;
+begin
+  ZeroMemory(@FMetrics, SizeOf(FMetrics));
+  inherited;
+end;
+
+constructor TIBAN.Create;
+begin
+  inherited;
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  FillM97Tab;
+end;
+
+procedure TIBAN.SetErrorCode(nError: Integer);
+begin
+  FLastError := nError;
+end;
+
+function TIBAN.GetAccountNumberFromIBAN: string;
+begin
+  Result := EmptyStr;
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+
+  if {(Assigned(FMetrics)) and} (trim(FIBAN) <> EmptyStr) then
+    Result := Copy(FIBAN, FMetrics.nStartKTO, FMetrics.nLenKTO)
+  // 20130830 Heiko Adams ...
+  else
+    SetErrorCode(-180);
+  // ... 20130830 Heiko Adams
+end;
+
+function TIBAN.GetBankCodeFromIBAN: string;
+begin
+  Result := EmptyStr;
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+
+  if {Assigned(FMetrics) and} (trim(FIBAN) <> EmptyStr) then
+    Result := Copy(FIBAN, FMetrics.nStartBLZ, FMetrics.nLenBLZ)
+  // 20130830 Heiko Adams ...
+  else
+    SetErrorCode(-190);
+  // ... 20130830 Heiko Adams
+end;
+
+procedure TIBAN.SetCountry(const aValue: string);
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  FCountry := Trim(UpperCase(Copy(aValue, 1, 2)));
+
+  if (Length(FCountry) < 2) then
+    // 20130830 Heiko Adams
+    //raise Exception.CreateFmt('Invalid country code: %s', [aValue]);
+    SetErrorCode(-100);
+
+  ZeroMemory(@FMetrics, SizeOf(FMetrics));
+  FMetrics := GetIBANMetrics(FCountry);
+  
+  //20130901 Heiko Adams
+  SetErrorCode(FMetrics.nErrorCode);
+end;
+
+function TIBAN.GetCountryFromIBAN: string;
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  
+  if (Trim(FIBAN) = EmptyStr) then
+    // 20130830 Heiko Adams
+    //raise Exception.Create('IBAN not set');
+    SetErrorCode(-110);
+
+  Result := Copy(FIBAN, 1, 2);
+end;
+
+procedure TIBAN.SetIBAN(const aValue: string);
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  
+  if (Trim(aValue) = EmptyStr) then
+    // 20130830 Heiko Adams
+    //raise Exception.Create('No IBAN submitted');
+    SetErrorCode(-120);
+
+  FIBAN := aValue;
+  SetCountry(GetCountryFromIBAN);
+end;
+
+function TIBAN.GetLand: string;
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  Result := EmptyStr;
+
+  if not (FCountry = EmptyStr) then
+    Result := FCountry
+  else if not (FIBAN = EmptyStr) then
+    Result := GetCountryFromIBAN
+  else
+    // 20130830 Heiko Adams
+    //raise Exception.Create('No country or IBAN set');
+    SetErrorCode(-130);
+end;
+
+// Original code by shima (http://www.delphipraxis.net/1061658-post6.html)
+function TIBAN.Modulo97(const aIBAN:string):Integer;
+const
+   m36:string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
+var
+   nCounter, nPruef : Integer;
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  Result := 0;
+
+  for nCounter := 1 to Length(aIBAN) do
+  begin
+    nPruef := Pos(aIBAN[nCounter], m36) ;
+
+    if (nPruef = 0) then
+      // 20130830 Heiko Adams
+      //raise Exception.CreateFmt('Modulo97PruefZiffer(%s): invalid data', [aIBAN]);
+      SetErrorCode(-140);
+
+    Dec(nPruef);
+
+    if (nPruef > 9) then
+    begin
+       Result := Result * 10 + (nPruef div 10);
+       nPruef := nPruef mod 10;
+    end;
+
+    Result := Result * 10 + nPruef;
+    Result := Result mod 97;
+  end;
+end;
+
+// Code beigesteuert von Amateurprofi (http://www.delphipraxis.net/159320-iban-ueberpruefen.html#post1154665)
+procedure TIBAN.FillM97Tab;
+var 
+  i,j:Integer;
+begin
+  for i:=0 to 96 do
+    for j:=0 to 9 do
+      m97tab[i,j]:=(i*10+j) Mod 97;
+end;
+
+function TIBAN.EncodeCountry(const aLand: string): string;
+var
+  sLetter: Char;
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  
+  if (Length(Trim(aLand)) <> 2) then
+    SetErrorCode(-100);
+    // 20130830 Heiko Adams
+    //raise Exception.CreateFmt('Invalid country code: %s', [aLand]);
+
+  for sLetter in aLand do
+    case sLetter of
+      'A': Result := Result + '10';
+      'B': Result := Result + '11';
+      'C': Result := Result + '12';
+      'D': Result := Result + '13';
+      'E': Result := Result + '14';
+      'F': Result := Result + '15';
+      'G': Result := Result + '16';
+      'H': Result := Result + '17';
+      'I': Result := Result + '18';
+      'J': Result := Result + '19';
+      'K': Result := Result + '20';
+      'L': Result := Result + '21';
+      'M': Result := Result + '22';
+      'N': Result := Result + '23';
+      'O': Result := Result + '24';
+      'P': Result := Result + '25';
+      'Q': Result := Result + '26';
+      'R': Result := Result + '27';
+      'S': Result := Result + '28';
+      'T': Result := Result + '29';
+      'U': Result := Result + '30';
+      'V': Result := Result + '31';
+      'W': Result := Result + '32';
+      'X': Result := Result + '33';
+      'Y': Result := Result + '34';
+      'Z': Result := Result + '35';
+    else
+      // 20130830 Heiko Adams
+      //raise Exception.CreateFmt('Invalid country code: %s', [aLand]);
+      SetErrorCode(-100);
+    end;
+end;
+
+function TIBAN.CheckIBAN(): Boolean;
+var
+  sBLZ: string;
+  sKTO: string;
+  sIBAN: string;
+  sLand: string;
+  sControl: string;
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  Result := (Length(FIBAN) = FMetrics.nLenIBAN);
+
+  if Result then
+  begin
+    sControl := Copy(FIBAN, 3, 2);
+    sBLZ := Copy(FIBAN, FMetrics.nStartBLZ, FMetrics.nLenBLZ);
+    sKTO := Copy(FIBAN, FMetrics.nStartKTO, FMetrics.nLenKTO);
+    sLand := EncodeCountry(GetCountryFromIBAN);
+    sIBAN := sBLZ + sKTO + sLand + sControl;
+    Result := (Modulo97(sIBAN) = 1);
+  end
+  // 20130830 Heiko Adams ...
+  else
+    SetErrorCode(-150);
+  // ... 20130830 Heiko Adams
+end;
+
+function TIBAN.CalcIBAN(): string;
+var
+  sKTO: string;
+  sIBAN: string;
+  nControl: Integer;
+  sControl: string;
+const
+  sSuffix = '00';
+  nControlBase = 98;
+begin
+  sKTO := StringOfChar('0', FMetrics.nLenKTO - Length(FAccountID)) + FAccountID;
+  sIBAN := FBankCode + sKTO + EncodeCountry(FCountry)+  sSuffix;
+  nControl := Modulo97(sIBAN);
+  nControl := nControlBase - nControl;
+  
+  // 20120224 Heiko Adams
+  // make shure controlnumber has allways two characters
+  // thanks to Henry van der Mark for this hint
+  //FIBAN := FLand + IntToStr(nControl) + FBLZ + sKTO;
+  sControl := IntToStr(nControl);
+  
+  if (nControl < 10) then
+    sControl := '0' + sControl;
+
+  FIBAN := FCountry + sControl + FBankCode + sKTO;
+
+  Result := FIBAN;
+end;
+
+// Prüfung einer IBAN auf formale Korrektheit (ohne Prüfung der Gültigkeit des Länderkürzels)
+// Autor: Dr. Michael Schramm, Bordesholm
+function TIBAN.checkIBANCode(const sIban: String): boolean;
+var k,i,n,len: integer; c: char;
+    buff: array[0..67] of char;
+begin
+  result:= false;
+  n:= length(sIban);
+  
+  if (n < 5) or (n > 34) then 
+    exit;
+  
+  len:= 0; 
+  k:= 5;
+  
+  repeat // IBAN als Ziffernfolge in geänderter Reihenfolge in buff schreiben
+    c:= sIban[k];
+    
+    if (c >= '0') and (c <= '9') then 
+    begin
+      buff[len]:= c; 
+      inc(len)
+    end
+    else if (c >= 'A') and (c <= 'Z') then 
+    begin
+      i:= ord(c)-55;
+      buff[len]:= char(i div 10 + 48); 
+      inc(len);
+      buff[len]:= char(i mod 10 + 48); 
+      inc(len);
+    end
+    else 
+      exit;
+
+    inc(k);
+    
+    if (k > n) then 
+      k:= 1
+  until k = 5;
+  
+  i:= 0; // aktueller Rest für Modulo-Berechnung
+  
+  for k:= 0 to len-1 do 
+  begin // modulo 97 berechnen
+    i:= (i * 10 + ord(buff[k]) - 48) mod 97;
+  end;
+  
+  result:= (i = 1)
+end;
+
+// Code beigesteuert von Amateurprofi (http://www.delphipraxis.net/159320-iban-ueberpruefen.html#post1154665)
+function TIBAN.IsIBAN(const s:string):boolean;
+var 
+  len: integer;
+  cs: byte;
+  function GetCheckSum(first,last:integer):boolean;
+  var 
+    i: integer; 
+    c: integer;
+  begin
+    for i:=first to last do 
+    begin
+    c:=Ord(s[i])-48;
+  
+    case c of
+      0..9     :  cs:=m97tab[cs,c];
+      17..42   :  cs:=m97tab[m97tab[cs,(c-7) Div 10],(c-7) Mod 10];
+      else
+        Exit;
+    end;
+  end;
+  result:=true;
+end;
+begin
+  // 20130830 Heiko Adams
+  SetErrorCode(0);
+  len:=Length(s);
+  
+  if (len<5) or (len>34) then
+  begin
+    // 20130830 Heiko Adams
+    SetErrorCode(-160);
+    Exit;
+  end;
+  
+  cs:=0;
+  
+  if not GetCheckSum(5,len) then 
+  begin
+    // 20130830 Heiko Adams
+    SetErrorCode(-170);
+    Exit;
+  end;
+  
+  if not GetCheckSum(1,4) then 
+  begin
+    // 20130830 Heiko Adams
+    SetErrorCode(-170);
+    Exit;
+  end;
+  
+  Result := (cs=1);
+end;
+
+end.
\ No newline at end of file
diff --git a/Source/Base/Utiles/TIBAN/IBANMetrics.pas b/Source/Base/Utiles/TIBAN/IBANMetrics.pas
new file mode 100644
index 0000000..fadb42e
--- /dev/null
+++ b/Source/Base/Utiles/TIBAN/IBANMetrics.pas
@@ -0,0 +1,266 @@
+{*******************************************************}
+{                                                       }
+{       IBANMetrics                                     }
+{                                                       }
+{       Copyright (C) 2011 Heiko Adams                  }
+{                                                       }
+{*******************************************************}
+
+
+{
+     The contents of this file are subject to the Mozilla Public License
+     Version 1.1 (the "License"); you may not use this file except in
+     compliance with the License. You may obtain a copy of the License at
+     http://www.mozilla.org/MPL/
+
+     Software distributed under the License is distributed on an "AS IS"
+     basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+     License for the specific language governing rights and limitations
+     under the License.
+
+     The Original Code is IBANMetrics.pas.
+
+     The Initial Developer of the Original Code is Heiko Adams <heiko.adams@gmail.com>.
+
+     Contributor(s): Peter Mauss (Peter.Mauss@Advertum.de).
+}
+
+unit IBANMetrics;
+
+interface
+
+type
+  TIBANMetrics = packed record
+    nLenIBAN: Word;
+    nStartBLZ: Word;
+    nLenBLZ: Word;
+    nStartKTO: Word;
+    nLenKTO: Word;
+    //20130830 Heiko Adams ..
+    nStartChk: Word;
+    nLenChk: Word;
+    // .. 20130830 Heiko Adams
+    
+    //20130830 Peter Mauss
+    nMask:String;
+    
+    //20130901 Heiko Adams
+    nErrorCode: Integer;
+  end;
+
+function GetIBANMetrics(const aLand: string): TIBANMetrics;
+
+implementation
+
+uses SysUtils;
+
+function GetIBANMetrics(const aLand: string): TIBANMetrics;
+begin
+  {
+    Übersicht über die Struktur der IBAN in verschiedenen Ländern:
+    https://de.wikipedia.org/wiki/International_Bank_Account_Number#IBAN-Struktur_in_verschiedenen_L.C3.A4ndern
+  }
+  
+  //20130901 Heiko Adams
+  Result.nErrorCode := 0;
+
+  if (aLand = 'AT') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 20;
+      nLenBLZ := 5;
+      nLenKTO := 11;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa;0;_';
+    end;
+  end
+  else 	if (aLand = 'BE') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 16;
+      nLenBLZ := 3;
+      // 20130830 Heiko Adams
+      //nLenKTO := 5;
+      nLenKTO := 7;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 15;
+      nLenChk := 2;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa;0;_';
+    end;
+  end
+  else if (aLand = 'CH') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 21;
+      nLenBLZ := 5;
+      nLenKTO := 12;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa a;0;_';
+    end;
+  end
+  else if (aLand = 'DE') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 22;
+      nLenBLZ := 8;
+      nLenKTO := 10;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 9999 9999 9999 9999 99;0;_';
+    end;
+  end
+  else 	if (aLand = 'DK') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 18;
+      nLenBLZ := 4;
+      nLenKTO := 10;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 18;
+      nLenChk := 1;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aa;0;_';
+    end;
+  end
+  else 	if (aLand = 'FR') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 27;
+      nLenBLZ := 5;
+      nLenKTO := 11;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 26;
+      nLenChk := 2;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa aaaa aaa;0;_';
+    end;
+  end
+  else if (aLand = 'LI') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 21;
+      nLenBLZ := 5;
+      nLenKTO := 12;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa a;0;_';
+    end;
+  end
+  else if (aLand = 'LU') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 20;
+      nLenBLZ := 3;
+      //20130830 Heiko Adams
+      //nLenKTO := 17;
+      nLenKTO := 13;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa;0;_';
+    end;
+  end
+  else if (aLand = 'NL') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 18;
+      nLenBLZ := 4;
+      nLenKTO := 10;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aa;0;_';
+    end;
+  end
+  else if (aLand = 'CZ') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 24;
+      nLenBLZ := 4;
+      nLenKTO := 16;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 0;
+      nLenChk := 0;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa aaaa;0;_';
+    end;
+  end
+  else if (aLand = 'PL') then
+  begin
+    with Result do
+    begin
+      nLenIBAN := 28;
+      //20130830 Heiko Adams
+      //nLenBLZ := 7;
+      nLenBLZ := 3;
+      nLenKTO := 16;
+      nStartBLZ := 5;
+      nStartKTO := nStartBLZ + nLenBLZ;
+      //20130830 Heiko Adams ..
+      nStartChk := 11;
+      nLenChk := 1;
+      // .. 20130830 Heiko Adams
+      //20130830 Peter Mauss
+      nMask:='>ll99 aaaa aaaa aaaa aaaa aaaa aa;0;_';
+    end;
+  end
+  else
+    //20130901 Heiko Adams
+    //raise Exception.CreateFmt('Country (%s) not supported yet', [aLand]);
+    Result.nErrorCode := -190;
+end;
+
+end.
diff --git a/Source/Base/Utiles/TIBAN/LICENSE.txt b/Source/Base/Utiles/TIBAN/LICENSE.txt
new file mode 100644
index 0000000..7a45bfe
--- /dev/null
+++ b/Source/Base/Utiles/TIBAN/LICENSE.txt
@@ -0,0 +1,470 @@
+                          MOZILLA PUBLIC LICENSE
+                                Version 1.1
+
+                              ---------------
+
+1. Definitions.
+
+     1.0.1. "Commercial Use" means distribution or otherwise making the
+     Covered Code available to a third party.
+
+     1.1. "Contributor" means each entity that creates or contributes to
+     the creation of Modifications.
+
+     1.2. "Contributor Version" means the combination of the Original
+     Code, prior Modifications used by a Contributor, and the Modifications
+     made by that particular Contributor.
+
+     1.3. "Covered Code" means the Original Code or Modifications or the
+     combination of the Original Code and Modifications, in each case
+     including portions thereof.
+
+     1.4. "Electronic Distribution Mechanism" means a mechanism generally
+     accepted in the software development community for the electronic
+     transfer of data.
+
+     1.5. "Executable" means Covered Code in any form other than Source
+     Code.
+
+     1.6. "Initial Developer" means the individual or entity identified
+     as the Initial Developer in the Source Code notice required by Exhibit
+     A.
+
+     1.7. "Larger Work" means a work which combines Covered Code or
+     portions thereof with code not governed by the terms of this License.
+
+     1.8. "License" means this document.
+
+     1.8.1. "Licensable" means having the right to grant, to the maximum
+     extent possible, whether at the time of the initial grant or
+     subsequently acquired, any and all of the rights conveyed herein.
+
+     1.9. "Modifications" means any addition to or deletion from the
+     substance or structure of either the Original Code or any previous
+     Modifications. When Covered Code is released as a series of files, a
+     Modification is:
+          A. Any addition to or deletion from the contents of a file
+          containing Original Code or previous Modifications.
+
+          B. Any new file that contains any part of the Original Code or
+          previous Modifications.
+
+     1.10. "Original Code" means Source Code of computer software code
+     which is described in the Source Code notice required by Exhibit A as
+     Original Code, and which, at the time of its release under this
+     License is not already Covered Code governed by this License.
+
+     1.10.1. "Patent Claims" means any patent claim(s), now owned or
+     hereafter acquired, including without limitation,  method, process,
+     and apparatus claims, in any patent Licensable by grantor.
+
+     1.11. "Source Code" means the preferred form of the Covered Code for
+     making modifications to it, including all modules it contains, plus
+     any associated interface definition files, scripts used to control
+     compilation and installation of an Executable, or source code
+     differential comparisons against either the Original Code or another
+     well known, available Covered Code of the Contributor's choice. The
+     Source Code can be in a compressed or archival form, provided the
+     appropriate decompression or de-archiving software is widely available
+     for no charge.
+
+     1.12. "You" (or "Your")  means an individual or a legal entity
+     exercising rights under, and complying with all of the terms of, this
+     License or a future version of this License issued under Section 6.1.
+     For legal entities, "You" includes any entity which controls, is
+     controlled by, or is under common control with You. For purposes of
+     this definition, "control" means (a) the power, direct or indirect,
+     to cause the direction or management of such entity, whether by
+     contract or otherwise, or (b) ownership of more than fifty percent
+     (50%) of the outstanding shares or beneficial ownership of such
+     entity.
+
+2. Source Code License.
+
+     2.1. The Initial Developer Grant.
+     The Initial Developer hereby grants You a world-wide, royalty-free,
+     non-exclusive license, subject to third party intellectual property
+     claims:
+          (a)  under intellectual property rights (other than patent or
+          trademark) Licensable by Initial Developer to use, reproduce,
+          modify, display, perform, sublicense and distribute the Original
+          Code (or portions thereof) with or without Modifications, and/or
+          as part of a Larger Work; and
+
+          (b) under Patents Claims infringed by the making, using or
+          selling of Original Code, to make, have made, use, practice,
+          sell, and offer for sale, and/or otherwise dispose of the
+          Original Code (or portions thereof).
+
+          (c) the licenses granted in this Section 2.1(a) and (b) are
+          effective on the date Initial Developer first distributes
+          Original Code under the terms of this License.
+
+          (d) Notwithstanding Section 2.1(b) above, no patent license is
+          granted: 1) for code that You delete from the Original Code; 2)
+          separate from the Original Code;  or 3) for infringements caused
+          by: i) the modification of the Original Code or ii) the
+          combination of the Original Code with other software or devices.
+
+     2.2. Contributor Grant.
+     Subject to third party intellectual property claims, each Contributor
+     hereby grants You a world-wide, royalty-free, non-exclusive license
+
+          (a)  under intellectual property rights (other than patent or
+          trademark) Licensable by Contributor, to use, reproduce, modify,
+          display, perform, sublicense and distribute the Modifications
+          created by such Contributor (or portions thereof) either on an
+          unmodified basis, with other Modifications, as Covered Code
+          and/or as part of a Larger Work; and
+
+          (b) under Patent Claims infringed by the making, using, or
+          selling of  Modifications made by that Contributor either alone
+          and/or in combination with its Contributor Version (or portions
+          of such combination), to make, use, sell, offer for sale, have
+          made, and/or otherwise dispose of: 1) Modifications made by that
+          Contributor (or portions thereof); and 2) the combination of
+          Modifications made by that Contributor with its Contributor
+          Version (or portions of such combination).
+
+          (c) the licenses granted in Sections 2.2(a) and 2.2(b) are
+          effective on the date Contributor first makes Commercial Use of
+          the Covered Code.
+
+          (d)    Notwithstanding Section 2.2(b) above, no patent license is
+          granted: 1) for any code that Contributor has deleted from the
+          Contributor Version; 2)  separate from the Contributor Version;
+          3)  for infringements caused by: i) third party modifications of
+          Contributor Version or ii)  the combination of Modifications made
+          by that Contributor with other software  (except as part of the
+          Contributor Version) or other devices; or 4) under Patent Claims
+          infringed by Covered Code in the absence of Modifications made by
+          that Contributor.
+
+3. Distribution Obligations.
+
+     3.1. Application of License.
+     The Modifications which You create or to which You contribute are
+     governed by the terms of this License, including without limitation
+     Section 2.2. The Source Code version of Covered Code may be
+     distributed only under the terms of this License or a future version
+     of this License released under Section 6.1, and You must include a
+     copy of this License with every copy of the Source Code You
+     distribute. You may not offer or impose any terms on any Source Code
+     version that alters or restricts the applicable version of this
+     License or the recipients' rights hereunder. However, You may include
+     an additional document offering the additional rights described in
+     Section 3.5.
+
+     3.2. Availability of Source Code.
+     Any Modification which You create or to which You contribute must be
+     made available in Source Code form under the terms of this License
+     either on the same media as an Executable version or via an accepted
+     Electronic Distribution Mechanism to anyone to whom you made an
+     Executable version available; and if made available via Electronic
+     Distribution Mechanism, must remain available for at least twelve (12)
+     months after the date it initially became available, or at least six
+     (6) months after a subsequent version of that particular Modification
+     has been made available to such recipients. You are responsible for
+     ensuring that the Source Code version remains available even if the
+     Electronic Distribution Mechanism is maintained by a third party.
+
+     3.3. Description of Modifications.
+     You must cause all Covered Code to which You contribute to contain a
+     file documenting the changes You made to create that Covered Code and
+     the date of any change. You must include a prominent statement that
+     the Modification is derived, directly or indirectly, from Original
+     Code provided by the Initial Developer and including the name of the
+     Initial Developer in (a) the Source Code, and (b) in any notice in an
+     Executable version or related documentation in which You describe the
+     origin or ownership of the Covered Code.
+
+     3.4. Intellectual Property Matters
+          (a) Third Party Claims.
+          If Contributor has knowledge that a license under a third party's
+          intellectual property rights is required to exercise the rights
+          granted by such Contributor under Sections 2.1 or 2.2,
+          Contributor must include a text file with the Source Code
+          distribution titled "LEGAL" which describes the claim and the
+          party making the claim in sufficient detail that a recipient will
+          know whom to contact. If Contributor obtains such knowledge after
+          the Modification is made available as described in Section 3.2,
+          Contributor shall promptly modify the LEGAL file in all copies
+          Contributor makes available thereafter and shall take other steps
+          (such as notifying appropriate mailing lists or newsgroups)
+          reasonably calculated to inform those who received the Covered
+          Code that new knowledge has been obtained.
+
+          (b) Contributor APIs.
+          If Contributor's Modifications include an application programming
+          interface and Contributor has knowledge of patent licenses which
+          are reasonably necessary to implement that API, Contributor must
+          also include this information in the LEGAL file.
+
+               (c)    Representations.
+          Contributor represents that, except as disclosed pursuant to
+          Section 3.4(a) above, Contributor believes that Contributor's
+          Modifications are Contributor's original creation(s) and/or
+          Contributor has sufficient rights to grant the rights conveyed by
+          this License.
+
+     3.5. Required Notices.
+     You must duplicate the notice in Exhibit A in each file of the Source
+     Code.  If it is not possible to put such notice in a particular Source
+     Code file due to its structure, then You must include such notice in a
+     location (such as a relevant directory) where a user would be likely
+     to look for such a notice.  If You created one or more Modification(s)
+     You may add your name as a Contributor to the notice described in
+     Exhibit A.  You must also duplicate this License in any documentation
+     for the Source Code where You describe recipients' rights or ownership
+     rights relating to Covered Code.  You may choose to offer, and to
+     charge a fee for, warranty, support, indemnity or liability
+     obligations to one or more recipients of Covered Code. However, You
+     may do so only on Your own behalf, and not on behalf of the Initial
+     Developer or any Contributor. You must make it absolutely clear than
+     any such warranty, support, indemnity or liability obligation is
+     offered by You alone, and You hereby agree to indemnify the Initial
+     Developer and every Contributor for any liability incurred by the
+     Initial Developer or such Contributor as a result of warranty,
+     support, indemnity or liability terms You offer.
+
+     3.6. Distribution of Executable Versions.
+     You may distribute Covered Code in Executable form only if the
+     requirements of Section 3.1-3.5 have been met for that Covered Code,
+     and if You include a notice stating that the Source Code version of
+     the Covered Code is available under the terms of this License,
+     including a description of how and where You have fulfilled the
+     obligations of Section 3.2. The notice must be conspicuously included
+     in any notice in an Executable version, related documentation or
+     collateral in which You describe recipients' rights relating to the
+     Covered Code. You may distribute the Executable version of Covered
+     Code or ownership rights under a license of Your choice, which may
+     contain terms different from this License, provided that You are in
+     compliance with the terms of this License and that the license for the
+     Executable version does not attempt to limit or alter the recipient's
+     rights in the Source Code version from the rights set forth in this
+     License. If You distribute the Executable version under a different
+     license You must make it absolutely clear that any terms which differ
+     from this License are offered by You alone, not by the Initial
+     Developer or any Contributor. You hereby agree to indemnify the
+     Initial Developer and every Contributor for any liability incurred by
+     the Initial Developer or such Contributor as a result of any such
+     terms You offer.
+
+     3.7. Larger Works.
+     You may create a Larger Work by combining Covered Code with other code
+     not governed by the terms of this License and distribute the Larger
+     Work as a single product. In such a case, You must make sure the
+     requirements of this License are fulfilled for the Covered Code.
+
+4. Inability to Comply Due to Statute or Regulation.
+
+     If it is impossible for You to comply with any of the terms of this
+     License with respect to some or all of the Covered Code due to
+     statute, judicial order, or regulation then You must: (a) comply with
+     the terms of this License to the maximum extent possible; and (b)
+     describe the limitations and the code they affect. Such description
+     must be included in the LEGAL file described in Section 3.4 and must
+     be included with all distributions of the Source Code. Except to the
+     extent prohibited by statute or regulation, such description must be
+     sufficiently detailed for a recipient of ordinary skill to be able to
+     understand it.
+
+5. Application of this License.
+
+     This License applies to code to which the Initial Developer has
+     attached the notice in Exhibit A and to related Covered Code.
+
+6. Versions of the License.
+
+     6.1. New Versions.
+     Netscape Communications Corporation ("Netscape") may publish revised
+     and/or new versions of the License from time to time. Each version
+     will be given a distinguishing version number.
+
+     6.2. Effect of New Versions.
+     Once Covered Code has been published under a particular version of the
+     License, You may always continue to use it under the terms of that
+     version. You may also choose to use such Covered Code under the terms
+     of any subsequent version of the License published by Netscape. No one
+     other than Netscape has the right to modify the terms applicable to
+     Covered Code created under this License.
+
+     6.3. Derivative Works.
+     If You create or use a modified version of this License (which you may
+     only do in order to apply it to code which is not already Covered Code
+     governed by this License), You must (a) rename Your license so that
+     the phrases "Mozilla", "MOZILLAPL", "MOZPL", "Netscape",
+     "MPL", "NPL" or any confusingly similar phrase do not appear in your
+     license (except to note that your license differs from this License)
+     and (b) otherwise make it clear that Your version of the license
+     contains terms which differ from the Mozilla Public License and
+     Netscape Public License. (Filling in the name of the Initial
+     Developer, Original Code or Contributor in the notice described in
+     Exhibit A shall not of themselves be deemed to be modifications of
+     this License.)
+
+7. DISCLAIMER OF WARRANTY.
+
+     COVERED CODE IS PROVIDED UNDER THIS LICENSE ON AN "AS IS" BASIS,
+     WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+     WITHOUT LIMITATION, WARRANTIES THAT THE COVERED CODE IS FREE OF
+     DEFECTS, MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE OR NON-INFRINGING.
+     THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE COVERED CODE
+     IS WITH YOU. SHOULD ANY COVERED CODE PROVE DEFECTIVE IN ANY RESPECT,
+     YOU (NOT THE INITIAL DEVELOPER OR ANY OTHER CONTRIBUTOR) ASSUME THE
+     COST OF ANY NECESSARY SERVICING, REPAIR OR CORRECTION. THIS DISCLAIMER
+     OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS LICENSE. NO USE OF
+     ANY COVERED CODE IS AUTHORIZED HEREUNDER EXCEPT UNDER THIS DISCLAIMER.
+
+8. TERMINATION.
+
+     8.1.  This License and the rights granted hereunder will terminate
+     automatically if You fail to comply with terms herein and fail to cure
+     such breach within 30 days of becoming aware of the breach. All
+     sublicenses to the Covered Code which are properly granted shall
+     survive any termination of this License. Provisions which, by their
+     nature, must remain in effect beyond the termination of this License
+     shall survive.
+
+     8.2.  If You initiate litigation by asserting a patent infringement
+     claim (excluding declatory judgment actions) against Initial Developer
+     or a Contributor (the Initial Developer or Contributor against whom
+     You file such action is referred to as "Participant")  alleging that:
+
+     (a)  such Participant's Contributor Version directly or indirectly
+     infringes any patent, then any and all rights granted by such
+     Participant to You under Sections 2.1 and/or 2.2 of this License
+     shall, upon 60 days notice from Participant terminate prospectively,
+     unless if within 60 days after receipt of notice You either: (i)
+     agree in writing to pay Participant a mutually agreeable reasonable
+     royalty for Your past and future use of Modifications made by such
+     Participant, or (ii) withdraw Your litigation claim with respect to
+     the Contributor Version against such Participant.  If within 60 days
+     of notice, a reasonable royalty and payment arrangement are not
+     mutually agreed upon in writing by the parties or the litigation claim
+     is not withdrawn, the rights granted by Participant to You under
+     Sections 2.1 and/or 2.2 automatically terminate at the expiration of
+     the 60 day notice period specified above.
+
+     (b)  any software, hardware, or device, other than such Participant's
+     Contributor Version, directly or indirectly infringes any patent, then
+     any rights granted to You by such Participant under Sections 2.1(b)
+     and 2.2(b) are revoked effective as of the date You first made, used,
+     sold, distributed, or had made, Modifications made by that
+     Participant.
+
+     8.3.  If You assert a patent infringement claim against Participant
+     alleging that such Participant's Contributor Version directly or
+     indirectly infringes any patent where such claim is resolved (such as
+     by license or settlement) prior to the initiation of patent
+     infringement litigation, then the reasonable value of the licenses
+     granted by such Participant under Sections 2.1 or 2.2 shall be taken
+     into account in determining the amount or value of any payment or
+     license.
+
+     8.4.  In the event of termination under Sections 8.1 or 8.2 above,
+     all end user license agreements (excluding distributors and resellers)
+     which have been validly granted by You or any distributor hereunder
+     prior to termination shall survive termination.
+
+9. LIMITATION OF LIABILITY.
+
+     UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, WHETHER TORT
+     (INCLUDING NEGLIGENCE), CONTRACT, OR OTHERWISE, SHALL YOU, THE INITIAL
+     DEVELOPER, ANY OTHER CONTRIBUTOR, OR ANY DISTRIBUTOR OF COVERED CODE,
+     OR ANY SUPPLIER OF ANY OF SUCH PARTIES, BE LIABLE TO ANY PERSON FOR
+     ANY INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES OF ANY
+     CHARACTER INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF GOODWILL,
+     WORK STOPPAGE, COMPUTER FAILURE OR MALFUNCTION, OR ANY AND ALL OTHER
+     COMMERCIAL DAMAGES OR LOSSES, EVEN IF SUCH PARTY SHALL HAVE BEEN
+     INFORMED OF THE POSSIBILITY OF SUCH DAMAGES. THIS LIMITATION OF
+     LIABILITY SHALL NOT APPLY TO LIABILITY FOR DEATH OR PERSONAL INJURY
+     RESULTING FROM SUCH PARTY'S NEGLIGENCE TO THE EXTENT APPLICABLE LAW
+     PROHIBITS SUCH LIMITATION. SOME JURISDICTIONS DO NOT ALLOW THE
+     EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO
+     THIS EXCLUSION AND LIMITATION MAY NOT APPLY TO YOU.
+
+10. U.S. GOVERNMENT END USERS.
+
+     The Covered Code is a "commercial item," as that term is defined in
+     48 C.F.R. 2.101 (Oct. 1995), consisting of "commercial computer
+     software" and "commercial computer software documentation," as such
+     terms are used in 48 C.F.R. 12.212 (Sept. 1995). Consistent with 48
+     C.F.R. 12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (June 1995),
+     all U.S. Government End Users acquire Covered Code with only those
+     rights set forth herein.
+
+11. MISCELLANEOUS.
+
+     This License represents the complete agreement concerning subject
+     matter hereof. If any provision of this License is held to be
+     unenforceable, such provision shall be reformed only to the extent
+     necessary to make it enforceable. This License shall be governed by
+     California law provisions (except to the extent applicable law, if
+     any, provides otherwise), excluding its conflict-of-law provisions.
+     With respect to disputes in which at least one party is a citizen of,
+     or an entity chartered or registered to do business in the United
+     States of America, any litigation relating to this License shall be
+     subject to the jurisdiction of the Federal Courts of the Northern
+     District of California, with venue lying in Santa Clara County,
+     California, with the losing party responsible for costs, including
+     without limitation, court costs and reasonable attorneys' fees and
+     expenses. The application of the United Nations Convention on
+     Contracts for the International Sale of Goods is expressly excluded.
+     Any law or regulation which provides that the language of a contract
+     shall be construed against the drafter shall not apply to this
+     License.
+
+12. RESPONSIBILITY FOR CLAIMS.
+
+     As between Initial Developer and the Contributors, each party is
+     responsible for claims and damages arising, directly or indirectly,
+     out of its utilization of rights under this License and You agree to
+     work with Initial Developer and Contributors to distribute such
+     responsibility on an equitable basis. Nothing herein is intended or
+     shall be deemed to constitute any admission of liability.
+
+13. MULTIPLE-LICENSED CODE.
+
+     Initial Developer may designate portions of the Covered Code as
+     "Multiple-Licensed".  "Multiple-Licensed" means that the Initial
+     Developer permits you to utilize portions of the Covered Code under
+     Your choice of the NPL or the alternative licenses, if any, specified
+     by the Initial Developer in the file described in Exhibit A.
+
+EXHIBIT A -Mozilla Public License.
+
+     ``The contents of this file are subject to the Mozilla Public License
+     Version 1.1 (the "License"); you may not use this file except in
+     compliance with the License. You may obtain a copy of the License at
+     http://www.mozilla.org/MPL/
+
+     Software distributed under the License is distributed on an "AS IS"
+     basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+     License for the specific language governing rights and limitations
+     under the License.
+
+     The Original Code is ______________________________________.
+
+     The Initial Developer of the Original Code is ________________________.
+     Portions created by ______________________ are Copyright (C) ______
+     _______________________. All Rights Reserved.
+
+     Contributor(s): ______________________________________.
+
+     Alternatively, the contents of this file may be used under the terms
+     of the _____ license (the  "[___] License"), in which case the
+     provisions of [______] License are applicable instead of those
+     above.  If you wish to allow use of your version of this file only
+     under the terms of the [____] License and not to allow others to use
+     your version of this file under the MPL, indicate your decision by
+     deleting  the provisions above and replace  them with the notice and
+     other provisions required by the [___] License.  If you do not delete
+     the provisions above, a recipient may use your version of this file
+     under either the MPL or the [___] License."
+
+     [NOTE: The text of this Exhibit A may differ slightly from the text of
+     the notices in the Source Code files of the Original Code. You should
+     use the text of this Exhibit A rather than the text found in the
+     Original Code Source Code for Your Modifications.]
+
diff --git a/Source/Base/Utiles/TIBAN/README.md b/Source/Base/Utiles/TIBAN/README.md
new file mode 100644
index 0000000..cc5a603
--- /dev/null
+++ b/Source/Base/Utiles/TIBAN/README.md
@@ -0,0 +1,6 @@
+TIBAN
+=====
+
+TIBan is an easy to use delphi class to create and check international bank account numbers (IBAN). Extracting the bank account number and the bank code from an existing IBAN is also possible.
+
+The class does not return any errormessages in case of errors, so check the value of the ErrorCode property for being 0 after using class functions. The errorcodes.txt file contains an explanation of the used errorcodes.
diff --git a/Source/Base/Utiles/TIBAN/errorcodes.txt b/Source/Base/Utiles/TIBAN/errorcodes.txt
new file mode 100644
index 0000000..967d95a
--- /dev/null
+++ b/Source/Base/Utiles/TIBAN/errorcodes.txt
@@ -0,0 +1,11 @@
+Error-Code          Error
+-100                The country code is invalid
+-110                The IBAN has not been set
+-120                No IBAN has been submitted
+-130                Country or IBAN haven't been set
+-140                Invalid data
+-150                IBAN is invalid
+-160                Length of the submitted IBAN doesn't match
+-170                Checksum doesn't match
+-180                Unable to extract account number from IBAN
+-190                The country is currently unsupported
diff --git a/Source/Base/Utiles/uIBANUtils.pas b/Source/Base/Utiles/uIBANUtils.pas
new file mode 100644
index 0000000..4404f3b
--- /dev/null
+++ b/Source/Base/Utiles/uIBANUtils.pas
@@ -0,0 +1,26 @@
+unit uIBANUtils;
+
+interface
+
+uses
+  SysUtils, Classes, IBAN;
+
+function EsCodigoIBANValido(AIBAN : string): boolean;
+
+implementation
+
+function EsCodigoIBANValido(AIBAN : string): boolean;
+var
+  auxIBAN : TIBAN;
+begin
+  auxIBAN.Create;
+  try
+    auxIBAN.IBAN := AIBAN;
+    Result := auxIBAN.Valid;
+  finally
+    FreeAndNil(auxIBAN);
+  end;
+
+end;
+
+end.
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache
index ebe70e8..8ff2c49 100644
Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache and b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache differ
diff --git a/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas b/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
index b742005..c0d575d 100644
--- a/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
+++ b/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
@@ -31,7 +31,7 @@ implementation
 { TDatosBancariosContactoController }
 
 uses
-  uDataModuleContactos, schContactosClient_Intf, 
+  uDataModuleContactos, schContactosClient_Intf, uIBANUtils,
   uEditorRegistryUtils, cxControls, uIEditorDatoBancarioContacto;
 
 
@@ -74,6 +74,9 @@ begin
     ADatoBancario.DataTable.Edit;
     ADatoBancario.IBAN := StringReplace(ADatoBancario.IBAN, ' ', '', [rfReplaceAll]); // Quitar espacios
     ADatoBancario.DataTable.Post;
+
+    if not EsCodigoIBANValido(ADatoBancario.IBAN) then
+        raise Exception.Create('Comprueba que el código IBAN indicado es correcto.');
   end;
 end;
 
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 8386007..4592447 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 013e785..a8168d6 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.4.0\0"
               VALUE "ProductVersion", "4.3.4.0\0"
-              VALUE "CompileDate", "viernes, 13 de diciembre de 2013 10:15\0"
+              VALUE "CompileDate", "viernes, 13 de diciembre de 2013 12:30\0"
          END
     END
     BLOCK "VarFileInfo"