diff --git a/Build/Build.fbp5 b/Build/Build.fbp5
index 7c7f5215..449cde4f 100644
--- a/Build/Build.fbp5
+++ b/Build/Build.fbp5
@@ -625,9 +625,9 @@ LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=
+ProductVersion=1.0.0.0
 Comments=
-CompileDate=
+CompileDate=domingo, 10 de febrero de 2008 12:11
 ]]>
                 </Property>
               <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 39883c75..46184b15 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -53,57 +53,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Familias\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Familias\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Familias\designide.dcp" />
+    <DCCReference Include="..\Modulos\Familias\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Familias\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Familias\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Familias\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Familias\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Familias\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Familias\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Familias\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Familias\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Familias\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Familias\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Familias\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Familias\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Familias\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Familias\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Familias\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Familias\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Familias\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Familias\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 1641339f..8b251f31 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk
index 79dd733e..f746dc74 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk
@@ -61,6 +61,8 @@ contains
   uFichasEmpleadoReportController in 'uFichasEmpleadoReportController.pas',
   uIEditorFichasEmpleadoPreview in 'View\uIEditorFichasEmpleadoPreview.pas',
   uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas',
-  uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas';
+  uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas',
+  uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas',
+  uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas';
 
 end.
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
index cbc1e9ef..0f3a6bfa 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
@@ -43,6 +43,33 @@
     <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="ImplicitBuild">True</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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@@ -53,15 +80,9 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Contactos_data.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
     <DCCReference Include="uClientesController.pas" />
     <DCCReference Include="uContactosController.pas" />
+    <DCCReference Include="uDatosBancariosContactoController.pas" />
     <DCCReference Include="uDireccionesContactoController.pas" />
     <DCCReference Include="uEmpleadosController.pas" />
     <DCCReference Include="uEtiquetasContactosReportController.pas" />
@@ -70,10 +91,17 @@
     <DCCReference Include="uGruposEmpleadoController.pas" />
     <DCCReference Include="uGruposProveedorController.pas" />
     <DCCReference Include="uProveedoresController.pas" />
+    <DCCReference Include="View\ApplicationBase.dcp" />
+    <DCCReference Include="View\Base.dcp" />
+    <DCCReference Include="View\Contactos_data.dcp" />
+    <DCCReference Include="View\Contactos_model.dcp" />
+    <DCCReference Include="View\GUIBase.dcp" />
+    <DCCReference Include="View\rtl.dcp" />
     <DCCReference Include="View\uIEditorCliente.pas" />
     <DCCReference Include="View\uIEditorClientes.pas" />
     <DCCReference Include="View\uIEditorContacto.pas" />
     <DCCReference Include="View\uIEditorContactos.pas" />
+    <DCCReference Include="View\uIEditorDatoBancarioContacto.pas" />
     <DCCReference Include="View\uIEditorDireccionContacto.pas" />
     <DCCReference Include="View\uIEditorElegirClientes.pas" />
     <DCCReference Include="View\uIEditorElegirContactos.pas" />
@@ -88,12 +116,13 @@
     <DCCReference Include="View\uIEditorGruposProveedor.pas" />
     <DCCReference Include="View\uIEditorProveedor.pas" />
     <DCCReference Include="View\uIEditorProveedores.pas" />
+    <DCCReference Include="View\vcl.dcp" />
     <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=0
 Activate Handle=1
 Save Log File=1
diff --git a/Source/Modulos/Contactos/Controller/View/uIEditorDatoBancarioContacto.pas b/Source/Modulos/Contactos/Controller/View/uIEditorDatoBancarioContacto.pas
new file mode 100644
index 00000000..55444e41
--- /dev/null
+++ b/Source/Modulos/Contactos/Controller/View/uIEditorDatoBancarioContacto.pas
@@ -0,0 +1,28 @@
+unit uIEditorDatoBancarioContacto;
+
+interface
+
+uses
+  uBizContactosDatosBancarios, uDatosBancariosContactoController;
+
+type
+  IEditorDatoBancarioContacto = interface
+    ['{BDFD97C4-7054-40E5-A7DA-1A3AD1E13673}']
+
+    function GetController : IDatosBancariosContactoController;
+    procedure SetController (const Value : IDatosBancariosContactoController);
+    property Controller : IDatosBancariosContactoController read GetController
+      write SetController;
+
+    function GetDatoBancario: IBizContactosDatosBancarios;
+    procedure SetDatoBancario(const Value: IBizContactosDatosBancarios);
+    property DatoBancario: IBizContactosDatosBancarios read GetDatoBancario write SetDatoBancario;
+
+    function ShowModal : Integer;
+    procedure Release;
+  end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index 46ca370d..bc5441b4 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -5,10 +5,11 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos;
+  uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
+  uControllerBase;
 
 type
-  IContactosController = interface
+  IContactosController = interface(IControllerBase)
     ['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
     function Buscar(const ID: Integer): IBizContacto;
     function BuscarTodos: IBizContacto;
@@ -29,7 +30,7 @@ type
     function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
   end;
 
-  TContactosController = class(TInterfacedObject, IContactosController)
+  TContactosController = class(TControllerBase, IContactosController)
   protected
     FDataModule : IDataModuleContactos;
     procedure FiltrarEmpresa(AContacto : IBizContacto); virtual;
diff --git a/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas b/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
new file mode 100644
index 00000000..eff259b7
--- /dev/null
+++ b/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
@@ -0,0 +1,90 @@
+unit uDatosBancariosContactoController;
+
+interface
+
+uses
+  Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
+  uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
+  uControllerBase;
+
+type
+  IDatosBancariosContactoController = interface(IControllerBase)
+  ['{2E1C410A-B11D-4E1C-A7DF-9321BAEA5952}']
+    procedure Ver(ADatoBancario : IBizContactosDatosBancarios);
+    function Localizar(ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
+  end;
+
+  TDatosBancariosContactoController = class(TControllerBase, IDatosBancariosContactoController)
+  private
+    FDataModule : IDataModuleContactos;
+  public
+    procedure Ver(ADatoBancario : IBizContactosDatosBancarios);
+    function Localizar(ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
+    constructor Create; virtual;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{ TDatosBancariosContactoController }
+
+uses
+  uDataModuleContactos, schContactosClient_Intf, 
+  uEditorRegistryUtils, cxControls, uIEditorDatoBancarioContacto;
+
+
+constructor TDatosBancariosContactoController.Create;
+begin
+  inherited;
+  FDataModule := TDataModuleContactos.Create(Nil);
+end;
+
+destructor TDatosBancariosContactoController.Destroy;
+begin
+  FDataModule := Nil;
+  inherited;
+end;
+
+function TDatosBancariosContactoController.Localizar(
+  ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
+begin
+  Result := True;
+  ShowHourglassCursor;
+  try
+    with ADatosBancarios.DataTable do
+    begin
+      DisableControls;
+      First;
+      if not Locate(fld_DatosBancariosID, ID, []) then
+         Result := False;
+      EnableControls;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TDatosBancariosContactoController.Ver(
+  ADatoBancario : IBizContactosDatosBancarios);
+var
+  AEditor : IEditorDatoBancarioContacto;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorDatoBancarioContacto', IEditorDatoBancarioContacto, AEditor);
+    if Assigned(AEditor) then
+      with AEditor do
+      begin
+        DatoBancario := ADatoBancario;
+        Controller := Self;
+        ShowModal;
+        Release;
+      end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+end.
diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
index 52093792..2a4544df 100644
--- a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
+++ b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
@@ -4,17 +4,18 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizContactos, uBizDireccionesContacto, uIDataModuleContactos;
+  uBizContactos, uBizDireccionesContacto, uIDataModuleContactos,
+  uControllerBase;
 
 type
-  IDireccionesContactoController = interface
+  IDireccionesContactoController = interface(IControllerBase)
   ['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
     procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True); 
     procedure Ver(ADireccion : IBizDireccionesContacto);
     function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;    
   end;
 
-  TDireccionesContactoController = class(TInterfacedObject, IDireccionesContactoController)
+  TDireccionesContactoController = class(TControllerBase, IDireccionesContactoController)
   private
     FDataModule : IDataModuleContactos;
   public
diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
index fe7e7aa9..b71ff2e5 100644
--- a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
@@ -7,13 +7,13 @@ uses
   uEmpleadosController;
 
 type
-  IEtiquetasContactosReportController = interface
+  IEtiquetasContactosReportController = interface(IControllerBase)
   ['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}']
     procedure Preview(const AContactosID : String);
     procedure Print(const AContactosID : String);
   end;
 
-  TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController)
+  TEtiquetasContactosReportController = class(TControllerBase, IEtiquetasContactosReportController)
   private
     FDataModule : IDataModuleEtiquetasContactosReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
diff --git a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
index e8ec757a..c3a68627 100644
--- a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
@@ -7,13 +7,13 @@ uses
   uEmpleadosController;
 
 type
-  IFichasEmpleadoReportController = interface
+  IFichasEmpleadoReportController = interface(IControllerBase)
   ['{8E43F55F-7D5A-4778-8523-7C105EAEB1AB}']
     procedure Preview(const AFichaID : String);
     procedure Print(const AFichaID : String);
   end;
 
-  TFichasEmpleadoReportController = class(TInterfacedObject, IFichasEmpleadoReportController)
+  TFichasEmpleadoReportController = class(TControllerBase, IFichasEmpleadoReportController)
   private
     FDataModule : IDataModuleFichasEmpleadoReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
diff --git a/Source/Modulos/Contactos/Controller/uGruposClienteController.pas b/Source/Modulos/Contactos/Controller/uGruposClienteController.pas
index e9ee7d15..ed58e977 100644
--- a/Source/Modulos/Contactos/Controller/uGruposClienteController.pas
+++ b/Source/Modulos/Contactos/Controller/uGruposClienteController.pas
@@ -8,7 +8,7 @@ uses
   uIDataModuleClientes, uBizGruposCliente;
 
 type
-  IGruposClienteController = interface(IObservador)
+  IGruposClienteController = interface(IControllerBase)
   ['{32D31B02-76A6-4C9B-85D4-3C632969AC79}']
     function BuscarTodos: IBizGrupoCliente;
     procedure VerTodos(AGruposCliente: IBizGrupoCliente);
@@ -20,7 +20,7 @@ type
     function DarListaGruposCliente: TStringList;
   end;
 
-  TGruposClienteController = class(TObservador, IGruposClienteController)
+  TGruposClienteController = class(TControllerBase, IGruposClienteController)
   protected
     FDataModule : IDataModuleClientes;
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
diff --git a/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas b/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas
index 8a98aba7..b1416d7c 100644
--- a/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas
+++ b/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas
@@ -8,7 +8,7 @@ uses
   uIDataModuleEmpleados, uBizGruposEmpleado;
 
 type
-  IGruposEmpleadoController = interface(IObservador)
+  IGruposEmpleadoController = interface(IControllerBase)
     ['{6820BA19-5E5E-459F-9001-FB4A712ACC4C}']
     function BuscarTodos: IBizGrupoEmpleado;
     procedure VerTodos(AGruposEmpleado: IBizGrupoEmpleado);
@@ -20,7 +20,7 @@ type
     function DarListaGruposEmpleado: TStringList;
   end;
 
-  TGruposEmpleadoController = class(TObservador, IGruposEmpleadoController)
+  TGruposEmpleadoController = class(TControllerBase, IGruposEmpleadoController)
   protected
     FDataModule : IDataModuleEmpleados;
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
diff --git a/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas b/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
index e201436a..52539597 100644
--- a/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
+++ b/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
@@ -8,7 +8,7 @@ uses
   uIDataModuleProveedores, uBizGruposProveedor;
 
 type
-  IGruposProveedorController = interface(IObservador)
+  IGruposProveedorController = interface(IControllerBase)
     ['{20B27FB1-ECEA-40B6-9869-5F5EC700EEDD}']
     function BuscarTodos: IBizGrupoProveedor;
     procedure VerTodos(AGruposProveedor: IBizGrupoProveedor);
@@ -20,7 +20,7 @@ type
     function DarListaGruposProveedor: TStringList;
   end;
 
-  TGruposProveedorController = class(TObservador, IGruposProveedorController)
+  TGruposProveedorController = class(TControllerBase, IGruposProveedorController)
   protected
     FDataModule : IDataModuleProveedores;
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
index 79769cac..bb045a0d 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
@@ -188,6 +188,7 @@ inherited DataModuleContactos: TDataModuleContactos
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Contactos'
+    IndexDefs = <>
     Left = 176
     Top = 16
   end
@@ -314,6 +315,7 @@ inherited DataModuleContactos: TDataModuleContactos
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'DireccionesContacto'
+    IndexDefs = <>
     Left = 448
     Top = 16
   end
@@ -330,6 +332,7 @@ inherited DataModuleContactos: TDataModuleContactos
         Name = 'ID'
         DataType = datAutoInc
         GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
+        ServerAutoRefresh = True
         DictionaryEntry = 'DatosBancarios_ID'
         InPrimaryKey = True
       end
@@ -349,28 +352,28 @@ inherited DataModuleContactos: TDataModuleContactos
         Name = 'ENTIDAD'
         DataType = datString
         Size = 15
-        DisplayLabel = 'C'#195#179'digo de entidad'
+        DisplayLabel = 'C'#243'digo de entidad'
         DictionaryEntry = 'DatosBancarios_ENTIDAD'
       end
       item
         Name = 'SUCURSAL'
         DataType = datString
         Size = 15
-        DisplayLabel = 'C'#195#179'digo de sucursal'
+        DisplayLabel = 'C'#243'digo de sucursal'
         DictionaryEntry = 'DatosBancarios_SUCURSAL'
       end
       item
         Name = 'DC'
         DataType = datString
         Size = 15
-        DisplayLabel = 'D'#195#173'gito de control'
+        DisplayLabel = 'D'#237'gito de control'
         DictionaryEntry = 'DatosBancarios_DC'
       end
       item
         Name = 'CUENTA'
         DataType = datString
         Size = 15
-        DisplayLabel = 'C'#195#179'digo de cuenta'
+        DisplayLabel = 'C'#243'digo de cuenta'
         DictionaryEntry = 'DatosBancarios_CUENTA'
       end
       item
@@ -392,6 +395,7 @@ inherited DataModuleContactos: TDataModuleContactos
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'DatosBancarios'
+    IndexDefs = <>
     Left = 176
     Top = 168
   end
diff --git a/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.pas b/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.pas
index e236311c..87cf3e2f 100644
--- a/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.pas
@@ -48,7 +48,7 @@ end;
 procedure TBizContactosDatosBancarios.OnNewRecord(Sender: TDADataTable);
 begin
   inherited;
-  ID := GetRecNo; // -1, -2, -3...
+  //
 end;
 
 initialization
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk
index ca77ad23..9485b4da 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dpk
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk
@@ -36,7 +36,27 @@ requires
   TiposIVA_controller,
   Contactos_model,
   Contactos_controller,
-  JvGlobusD11R;
+  JvGlobusD11R,
+  dbrtl,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11,
+  PngComponentsD10,
+  PNG_D10,
+  vclactnband,
+  vclx,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  cxEditorsD11,
+  cxDataD11,
+  vcljpg,
+  cxGridD11,
+  cxPageControlD11,
+  cxExtEditorsD11,
+  cxExportD11;
 
 contains
   uContactosViewRegister in 'uContactosViewRegister.pas',
@@ -53,6 +73,7 @@ contains
   uViewEmpleados in 'uViewEmpleados.pas' {frViewEmpleados: TCustomView},
   uEditorProveedores in 'uEditorProveedores.pas' {fEditorProveedores: TCustomEditor},
   uViewProveedor in 'uViewProveedor.pas' {frViewProveedor: TCustomView},
+  uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas' {frViewListaDatosBancarios: TFrame},
   uViewEmpleado in 'uViewEmpleado.pas' {frViewEmpleado: TCustomView},
   uEditorProveedor in 'uEditorProveedor.pas' {fEditorProveedor: TCustomEditor},
   uEditorElegirClientes in 'uEditorElegirClientes.pas' {fEditorElegirClientes: TCustomEditor},
@@ -60,7 +81,7 @@ contains
   uEditorElegirProveedores in 'uEditorElegirProveedores.pas' {fEditorElegirProveedores: TCustomEditor},
   uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
   uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
-  uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion},
+  uEditorDatoBancario in 'uEditorDatoBancario.pas' {fEditorDatoBancario},
   uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
   uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
   uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
@@ -71,6 +92,7 @@ contains
   uEditorGruposProveedor in 'uEditorGruposProveedor.pas' {fEditorGruposProveedor: TCustomEditor},
   uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor},
   uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: TCustomEditor},
-  uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor};
+  uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor},
+  uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion: TForm};
 
 end.
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index 2f9a853b..9e34685e 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -49,18 +49,33 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Model\ApplicationBase.dcp" />
-    <DCCReference Include="..\Model\Base.dcp" />
-    <DCCReference Include="..\Model\Contactos_controller.dcp" />
-    <DCCReference Include="..\Model\Contactos_model.dcp" />
-    <DCCReference Include="..\Model\FormasPago_controller.dcp" />
-    <DCCReference Include="..\Model\FormasPago_model.dcp" />
-    <DCCReference Include="..\Model\GUIBase.dcp" />
-    <DCCReference Include="..\Model\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Model\rtl.dcp" />
-    <DCCReference Include="..\Model\TiposIVA_controller.dcp" />
-    <DCCReference Include="..\Model\TiposIVA_model.dcp" />
-    <DCCReference Include="..\Model\vcl.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="FormasPago_controller.dcp" />
+    <DCCReference Include="FormasPago_model.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="JvGlobusD11R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="TiposIVA_controller.dcp" />
+    <DCCReference Include="TiposIVA_model.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>
@@ -78,8 +93,12 @@
       <Form>fEditorContactos</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorDatoBancario.pas">
+      <Form>fEditorDatoBancario</Form>
+    </DCCReference>
     <DCCReference Include="uEditorDireccion.pas">
-      <Form>fEditorDireccion</Form>
+      <Form>fEditorDireccio</Form>
+      <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirClientes.pas">
       <Form>fEditorElegirClientes</Form>
@@ -153,6 +172,10 @@
       <Form>frViewClienteDatosBancarios</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewContactoListaDatosBancarios.pas">
+      <Form>frViewListaDatosBancarios</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewContactos.pas">
       <Form>frViewContactos</Form>
       <DesignClass>TCustomView</DesignClass>
@@ -189,6 +212,11 @@
       <Form>frViewProveedores</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas
index 1e6e0b3e..4d7d94ca 100644
--- a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas
+++ b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas
@@ -14,7 +14,8 @@ uses
   uEditorCliente, uEditorProveedor,
   uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
   uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
-  uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
+  uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport,
+  uEditorDatoBancario;
 
 procedure RegisterViews;
 begin
@@ -36,6 +37,8 @@ begin
   EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
   EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado');
 
+  EditorRegistry.RegisterClass(TfEditorDatoBancario, 'EditorDatoBancarioContacto');
+
   EditorRegistry.RegisterClass(TfEditorFichasEmpleadoPreview, 'EditorFichasEmpleadoPreview');
   EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
 end;
@@ -60,6 +63,8 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
   EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado);
 
+  EditorRegistry.UnRegisterClass(TfEditorDatoBancario);
+
   EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
   EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);  
 end;
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index 64809f75..db384bb1 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -2,10 +2,10 @@ inherited fEditorCliente: TfEditorCliente
   Left = 387
   Top = 297
   Caption = 'Ficha de cliente'
-  ClientHeight = 585
+  ClientHeight = 484
   ClientWidth = 656
   ExplicitWidth = 664
-  ExplicitHeight = 612
+  ExplicitHeight = 511
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -64,8 +64,7 @@ inherited fEditorCliente: TfEditorCliente
   end
   inherited pgPaginas: TPageControl
     Width = 650
-    Height = 484
-    ActivePage = pagDescuentos
+    Height = 383
     ExplicitWidth = 650
     ExplicitHeight = 484
     inherited pagGeneral: TTabSheet
@@ -75,7 +74,7 @@ inherited fEditorCliente: TfEditorCliente
         Left = 0
         Top = 0
         Width = 642
-        Height = 456
+        Height = 355
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -89,33 +88,33 @@ inherited fEditorCliente: TfEditorCliente
         ExplicitHeight = 456
         inherited dxLayoutControlContacto: TdxLayoutControl
           Width = 642
-          Height = 456
+          Height = 355
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 642
           ExplicitHeight = 456
           inherited PngSpeedButton1: TPngSpeedButton
-            Left = 597
+            Left = 581
             Top = 218
-            ExplicitLeft = 597
+            ExplicitLeft = 581
             ExplicitTop = 218
           end
           inherited PngSpeedButton2: TPngSpeedButton
-            Left = 597
+            Left = 581
             Top = 190
-            ExplicitLeft = 597
+            ExplicitLeft = 581
             ExplicitTop = 190
           end
           inherited PngSpeedButton3: TPngSpeedButton
-            Left = 597
+            Left = 581
             Top = 162
-            ExplicitLeft = 597
+            ExplicitLeft = 581
             ExplicitTop = 162
           end
           inherited Label1: TLabel
-            Left = 431
+            Left = 420
             Top = 270
             Width = 269
-            ExplicitLeft = 431
+            ExplicitLeft = 420
             ExplicitTop = 270
             ExplicitWidth = 269
           end
@@ -138,9 +137,9 @@ inherited fEditorCliente: TfEditorCliente
             Width = 78
           end
           inherited eCodigoPostal: TcxDBTextEdit
-            Left = 338
+            Left = 327
             Top = 294
-            ExplicitLeft = 338
+            ExplicitLeft = 327
             ExplicitTop = 294
           end
           inherited eObservaciones: TcxDBMemo
@@ -176,42 +175,42 @@ inherited fEditorCliente: TfEditorCliente
             Width = 205
           end
           inherited cxDBCheckBox1: TcxDBCheckBox
-            Left = 431
+            Left = 420
             Top = 315
-            ExplicitLeft = 431
+            ExplicitLeft = 420
             ExplicitTop = 315
             ExplicitWidth = 189
             ExplicitHeight = 34
             Width = 189
           end
           inherited eTlfParticular: TcxDBTextEdit
-            Left = 526
+            Left = 515
             Top = 57
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 57
             ExplicitWidth = 91
             Width = 91
           end
           inherited eTlfTrabajo: TcxDBTextEdit
-            Left = 526
+            Left = 515
             Top = 30
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 30
             ExplicitWidth = 127
             Width = 127
           end
           inherited eTlfMovil: TcxDBTextEdit
-            Left = 526
+            Left = 515
             Top = 84
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 84
             ExplicitWidth = 140
             Width = 140
           end
           inherited eFax: TcxDBTextEdit
-            Left = 526
+            Left = 515
             Top = 111
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 111
             ExplicitWidth = 121
             Width = 121
@@ -229,35 +228,35 @@ inherited fEditorCliente: TfEditorCliente
             Width = 227
           end
           inherited eNIFCIF: TcxDBTextEdit
-            Left = 226
+            Left = 221
             Top = 30
-            ExplicitLeft = 226
+            ExplicitLeft = 221
             ExplicitTop = 30
             ExplicitWidth = 268
             Width = 268
           end
           inherited eMailTrabajo: TcxDBHyperLinkEdit
-            Left = 526
+            Left = 515
             Top = 162
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 162
             ExplicitWidth = 121
             Width = 121
           end
           inherited eMailParticular: TcxDBHyperLinkEdit
-            Left = 526
+            Left = 515
             Top = 190
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 190
             ExplicitWidth = 121
             Width = 121
           end
           inherited ePaginaWeb: TcxDBHyperLinkEdit
-            Left = 526
+            Left = 515
             Top = 217
-            ExplicitLeft = 526
+            ExplicitLeft = 515
             ExplicitTop = 217
             ExplicitWidth = 121
             Width = 121
@@ -284,39 +283,28 @@ inherited fEditorCliente: TfEditorCliente
     inherited pagDatosBancarios: TTabSheet
       ExplicitWidth = 642
       ExplicitHeight = 456
-      inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
+      inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
         Width = 642
-        Height = 456
+        Height = 355
+        ExplicitTop = 0
         ExplicitWidth = 642
         ExplicitHeight = 456
-        inherited dxLayoutControl1: TdxLayoutControl
+        inherited cxGrid: TcxGrid
+          Width = 642
+          Height = 330
+          ExplicitWidth = 642
+          ExplicitHeight = 431
+        end
+        inherited ToolBar1: TToolBar
           Width = 642
-          LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 642
-          inherited eEntidad: TcxDBTextEdit
-            ExplicitWidth = 114
-            Width = 114
-          end
-          inherited eSucursal: TcxDBTextEdit
-            Left = 415
-            ExplicitLeft = 415
-            ExplicitWidth = 112
-            Width = 112
-          end
-          inherited eCuenta: TcxDBTextEdit
-            ExplicitWidth = 194
-            Width = 194
-          end
-          inherited eTitular: TcxDBTextEdit
-            ExplicitWidth = 194
-            Width = 194
-          end
         end
       end
     end
     object pagDatosComerciales: TTabSheet
       Caption = 'Datos comerciales'
       ImageIndex = 4
+      ExplicitHeight = 456
       inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
         Left = 0
         Top = 0
@@ -405,11 +393,12 @@ inherited fEditorCliente: TfEditorCliente
     object pagDirecciones: TTabSheet
       Caption = 'Direcciones'
       ImageIndex = 1
+      ExplicitHeight = 456
       inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
         Left = 0
         Top = 0
         Width = 642
-        Height = 456
+        Height = 355
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -423,7 +412,7 @@ inherited fEditorCliente: TfEditorCliente
         ExplicitHeight = 456
         inherited cxGrid: TcxGrid
           Width = 642
-          Height = 431
+          Height = 330
           ExplicitWidth = 642
           ExplicitHeight = 431
           inherited cxGridView: TcxGridDBTableView
@@ -436,17 +425,30 @@ inherited fEditorCliente: TfEditorCliente
         inherited ToolBar1: TToolBar
           Width = 642
           ExplicitWidth = 642
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
     object pagDescuentos: TTabSheet
       Caption = 'Descuentos'
       ImageIndex = 2
+      ExplicitHeight = 456
       inline frViewClienteDescuentos1: TfrViewClienteDescuentos
         Left = 0
         Top = 0
         Width = 642
-        Height = 456
+        Height = 355
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -460,7 +462,7 @@ inherited fEditorCliente: TfEditorCliente
         ExplicitHeight = 456
         inherited cxGrid: TcxGrid
           Width = 642
-          Height = 431
+          Height = 330
           ExplicitWidth = 642
           ExplicitHeight = 431
         end
@@ -500,7 +502,7 @@ inherited fEditorCliente: TfEditorCliente
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 566
+    Top = 465
     Width = 656
     ExplicitTop = 566
     ExplicitWidth = 656
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas
index e5e9eba5..13b79332 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.pas
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas
@@ -14,7 +14,7 @@ uses
   uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
   uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
   uViewContactoDatosBancarios, dxLayoutLookAndFeels,
-  uViewClienteDatosComerciales, uDAInterfaces;
+  uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios;
 
 type
   TfEditorCliente = class(TfEditorContacto, IEditorCliente)
diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
index 8796038b..e281f392 100644
--- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
@@ -69,6 +69,7 @@ inherited fEditorContacto: TfEditorContacto
   end
   inherited pgPaginas: TPageControl
     Width = 626
+    ActivePage = pagDatosBancarios
     ExplicitWidth = 626
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
@@ -79,7 +80,7 @@ inherited fEditorContacto: TfEditorContacto
     object pagDatosBancarios: TTabSheet
       Caption = 'Datos bancarios'
       ImageIndex = 1
-      inline frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
+      inline frViewListaDatosBancarios: TfrViewListaDatosBancarios
         Left = 0
         Top = 0
         Width = 618
@@ -93,41 +94,29 @@ inherited fEditorContacto: TfEditorContacto
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
+        ExplicitTop = 113
         ExplicitWidth = 618
-        ExplicitHeight = 332
-        inherited dxLayoutControl1: TdxLayoutControl
+        ExplicitHeight = 219
+        inherited cxGrid: TcxGrid
           Width = 618
-          LookAndFeel = dxLayoutOfficeLookAndFeel
+          Height = 307
           ExplicitWidth = 618
-          inherited eEntidad: TcxDBTextEdit
-            Top = 57
-            ExplicitTop = 57
-            ExplicitWidth = 114
-            Width = 114
+          ExplicitHeight = 194
+        end
+        inherited ToolBar1: TToolBar
+          Width = 618
+          ExplicitWidth = 618
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 62
           end
-          inherited eSucursal: TcxDBTextEdit
-            Left = 403
-            Top = 57
-            ExplicitLeft = 403
-            ExplicitTop = 57
-            ExplicitWidth = 112
-            Width = 112
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 74
           end
-          inherited eCuenta: TcxDBTextEdit
-            Top = 84
-            ExplicitTop = 84
-            ExplicitWidth = 194
-            Width = 194
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 67
           end
-          inherited eDC: TcxDBTextEdit
-            Top = 84
-            ExplicitTop = 84
-          end
-          inherited eTitular: TcxDBTextEdit
-            Top = 30
-            ExplicitTop = 30
-            ExplicitWidth = 194
-            Width = 194
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 117
           end
         end
       end
diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.pas b/Source/Modulos/Contactos/Views/uEditorContacto.pas
index 90caad60..2a8e1899 100644
--- a/Source/Modulos/Contactos/Views/uEditorContacto.pas
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.pas
@@ -14,14 +14,14 @@ uses
 
   uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
   JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
-  uDAInterfaces;
+  uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios;
 
 type
   TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
     pagDatosBancarios: TTabSheet;
-    frViewClienteDatosBancarios: TfrViewClienteDatosBancarios;
     dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
     dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
+    frViewListaDatosBancarios: TfrViewListaDatosBancarios;
     procedure FormShow(Sender: TObject);
     procedure dsDataTableDataChange(Sender: TObject; Field: TField);
   protected
@@ -114,10 +114,11 @@ begin
   if Assigned(FViewContacto) and Assigned(Contacto) then
   begin
     FViewContacto.Contacto := Contacto;
-    frViewClienteDatosBancarios.dsDatosBancarios.DataTable := FContacto.DatosBancarios.DataTable;
+    frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
   end
-  else
-    frViewClienteDatosBancarios.dsDatosBancarios.DataTable := NIL;  
+  else begin
+    frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
+  end;
 end;
 
 procedure TfEditorContacto.SetController(const Value: IContactosController);
diff --git a/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm b/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm
new file mode 100644
index 00000000..c1eacd43
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm
@@ -0,0 +1,136 @@
+object fEditorDatoBancario: TfEditorDatoBancario
+  Left = 227
+  Top = 108
+  ActiveControl = eTitular
+  BorderStyle = bsDialog
+  Caption = 'Cambiar datos bancarios'
+  ClientHeight = 193
+  ClientWidth = 426
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = True
+  Position = poOwnerFormCenter
+  DesignSize = (
+    426
+    193)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Bevel1: TBevel
+    Left = 8
+    Top = 8
+    Width = 329
+    Height = 177
+    Anchors = [akLeft, akTop, akRight]
+    Shape = bsFrame
+  end
+  object Label2: TLabel
+    Left = 20
+    Top = 71
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'C'#243'digo de entidad:'
+  end
+  object Label3: TLabel
+    Left = 20
+    Top = 98
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'C'#243'digo de sucursal:'
+  end
+  object Label4: TLabel
+    Left = 20
+    Top = 125
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'D'#237'gito de control:'
+  end
+  object Label5: TLabel
+    Left = 20
+    Top = 27
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'Nombre descriptivo:'
+  end
+  object Label6: TLabel
+    Left = 20
+    Top = 152
+    Width = 109
+    Height = 13
+    AutoSize = False
+    Caption = 'C'#243'digo de cuenta:'
+  end
+  object OKBtn: TButton
+    Left = 343
+    Top = 7
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = '&Aceptar'
+    ModalResult = 1
+    TabOrder = 0
+  end
+  object CancelBtn: TButton
+    Left = 343
+    Top = 38
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Cancel = True
+    Caption = '&Cancelar'
+    ModalResult = 2
+    TabOrder = 1
+  end
+  object eEntidad: TDBEdit
+    Left = 136
+    Top = 67
+    Width = 94
+    Height = 21
+    DataField = 'ENTIDAD'
+    DataSource = dsDatosBancarios
+    TabOrder = 3
+  end
+  object eSucursal: TDBEdit
+    Left = 136
+    Top = 94
+    Width = 95
+    Height = 21
+    DataField = 'SUCURSAL'
+    DataSource = dsDatosBancarios
+    TabOrder = 4
+  end
+  object eDC: TDBEdit
+    Left = 136
+    Top = 121
+    Width = 41
+    Height = 21
+    DataField = 'DC'
+    DataSource = dsDatosBancarios
+    TabOrder = 5
+  end
+  object eTitular: TDBEdit
+    Left = 135
+    Top = 24
+    Width = 191
+    Height = 21
+    DataField = 'TITULAR'
+    DataSource = dsDatosBancarios
+    TabOrder = 2
+  end
+  object eCuenta: TDBEdit
+    Left = 136
+    Top = 148
+    Width = 191
+    Height = 21
+    DataField = 'CUENTA'
+    DataSource = dsDatosBancarios
+    TabOrder = 6
+  end
+  object dsDatosBancarios: TDADataSource
+    Left = 352
+    Top = 72
+  end
+end
diff --git a/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas b/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas
new file mode 100644
index 00000000..a41df392
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas
@@ -0,0 +1,89 @@
+unit uEditorDatoBancario;
+
+interface
+
+uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
+  Buttons, ExtCtrls, Mask, DBCtrls, DB, uDAInterfaces, uDADataTable,
+  uBizContactosDatosBancarios, uIEditorDatoBancarioContacto,
+  uDatosBancariosContactoController;
+
+type
+  TfEditorDatoBancario = class(TForm, IEditorDatoBancarioContacto)
+    OKBtn: TButton;
+    CancelBtn: TButton;
+    Bevel1: TBevel;
+    eEntidad: TDBEdit;
+    eSucursal: TDBEdit;
+    eDC: TDBEdit;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    dsDatosBancarios: TDADataSource;
+    Label5: TLabel;
+    eTitular: TDBEdit;
+    Label6: TLabel;
+    eCuenta: TDBEdit;
+  protected
+    FController : IDatosBancariosContactoController;
+    FDatosBanco : IBizContactosDatosBancarios;
+  
+    function GetController : IDatosBancariosContactoController;
+    procedure SetController (const Value : IDatosBancariosContactoController);
+    function GetDatoBancario: IBizContactosDatosBancarios;
+    procedure SetDatoBancario(const Value: IBizContactosDatosBancarios);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property Controller : IDatosBancariosContactoController read GetController
+      write SetController;
+    property DatoBancario: IBizContactosDatosBancarios read GetDatoBancario write SetDatoBancario;
+  end;
+
+implementation
+
+uses
+  Variants;
+
+{$R *.dfm}
+
+{ TfEditorDireccion }
+
+constructor TfEditorDatoBancario.Create(AOwner: TComponent);
+begin
+  inherited;
+  FController := NIL;
+end;
+
+destructor TfEditorDatoBancario.Destroy;
+begin
+  FController := NIL;
+  inherited;
+end;
+
+function TfEditorDatoBancario.GetController: IDatosBancariosContactoController;
+begin
+  Result := FController;
+end;
+
+function TfEditorDatoBancario.GetDatoBancario: IBizContactosDatosBancarios;
+begin
+  Result := FDatosBanco;
+end;
+
+procedure TfEditorDatoBancario.SetController(
+  const Value: IDatosBancariosContactoController);
+begin
+  FController := Value;
+end;
+
+procedure TfEditorDatoBancario.SetDatoBancario(
+  const Value: IBizContactosDatosBancarios);
+begin
+  FDatosBanco := Value;
+  if Assigned(FDatosBanco) then
+    dsDatosBancarios.DataTable := FDatosBanco.DataTable
+  else
+    dsDatosBancarios.DataTable := NIL;
+end;
+
+end.
diff --git a/Source/Modulos/Contactos/Views/uEditorEmpleado.dfm b/Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
index 57365040..0f700300 100644
--- a/Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
@@ -1,16 +1,17 @@
 inherited fEditorEmpleado: TfEditorEmpleado
   Caption = 'fEditorEmpleado'
-  ClientHeight = 576
-  ClientWidth = 676
-  ExplicitWidth = 684
-  ExplicitHeight = 603
+  ClientHeight = 583
+  ClientWidth = 929
+  ExplicitTop = -46
+  ExplicitWidth = 937
+  ExplicitHeight = 610
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 676
-    ExplicitWidth = 676
+    Width = 929
+    ExplicitWidth = 929
     inherited Image1: TImage
-      Left = 649
+      Left = 902
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -51,28 +52,28 @@ inherited fEditorEmpleado: TfEditorEmpleado
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 676
-    ExplicitWidth = 676
+    Width = 929
+    ExplicitWidth = 929
     inherited tbxMain: TTBXToolbar
       DockPos = 0
     end
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 676
+      ExplicitWidth = 929
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 670
-    Height = 475
-    ExplicitWidth = 670
-    ExplicitHeight = 475
+    Width = 923
+    Height = 482
+    ExplicitWidth = 923
+    ExplicitHeight = 601
     inherited pagGeneral: TTabSheet
-      ExplicitWidth = 662
-      ExplicitHeight = 447
+      ExplicitWidth = 915
+      ExplicitHeight = 573
       inline frViewEmpleado1: TfrViewEmpleado
         Left = 0
         Top = 0
-        Width = 662
-        Height = 447
+        Width = 915
+        Height = 454
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -82,30 +83,30 @@ inherited fEditorEmpleado: TfEditorEmpleado
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 662
-        ExplicitHeight = 447
+        ExplicitWidth = 915
+        ExplicitHeight = 573
         inherited dxLayoutControlContacto: TdxLayoutControl
-          Width = 662
-          Height = 447
+          Width = 915
+          Height = 454
           LookAndFeel = dxLayoutOfficeLookAndFeel
-          ExplicitWidth = 662
-          ExplicitHeight = 447
+          ExplicitWidth = 915
+          ExplicitHeight = 573
           inherited PngSpeedButton1: TPngSpeedButton
-            Left = 617
+            Left = 870
             Top = 218
-            ExplicitLeft = 617
+            ExplicitLeft = 870
             ExplicitTop = 218
           end
           inherited PngSpeedButton2: TPngSpeedButton
-            Left = 617
+            Left = 870
             Top = 190
-            ExplicitLeft = 617
+            ExplicitLeft = 870
             ExplicitTop = 190
           end
           inherited PngSpeedButton3: TPngSpeedButton
-            Left = 617
+            Left = 870
             Top = 162
-            ExplicitLeft = 617
+            ExplicitLeft = 870
             ExplicitTop = 162
           end
           inherited eCalle: TcxDBTextEdit
@@ -127,9 +128,9 @@ inherited fEditorEmpleado: TfEditorEmpleado
             Width = 108
           end
           inherited eCodigoPostal: TcxDBTextEdit
-            Left = 265
+            Left = 397
             Top = 243
-            ExplicitLeft = 265
+            ExplicitLeft = 397
             ExplicitTop = 243
           end
           inherited eObservaciones: TcxDBMemo
@@ -159,33 +160,41 @@ inherited fEditorEmpleado: TfEditorEmpleado
             Width = 225
           end
           inherited eTlfParticular: TcxDBTextEdit
-            Left = 453
+            Left = 585
             Top = 57
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 57
             ExplicitWidth = 172
             Width = 172
           end
           inherited eTlfTrabajo: TcxDBTextEdit
-            Left = 453
+            Left = 585
             Top = 30
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 30
             ExplicitWidth = 172
             Width = 172
           end
+          inherited cbContrato: TcxDBComboBox
+            Left = 585
+            Top = 270
+            ExplicitLeft = 585
+            ExplicitTop = 270
+            ExplicitWidth = 292
+            Width = 292
+          end
           inherited eTlfMovil: TcxDBTextEdit
-            Left = 453
+            Left = 585
             Top = 84
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 84
             ExplicitWidth = 172
             Width = 172
           end
           inherited eFax: TcxDBTextEdit
-            Left = 453
+            Left = 585
             Top = 111
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 111
             ExplicitWidth = 172
             Width = 172
@@ -196,44 +205,44 @@ inherited fEditorEmpleado: TfEditorEmpleado
             ExplicitWidth = 263
             Width = 263
           end
-          inherited cbContrato: TcxDBComboBox
-            Left = 453
-            Top = 270
-            ExplicitLeft = 453
-            ExplicitTop = 270
-            ExplicitWidth = 292
-            Width = 292
-          end
           inherited eNIFCIF: TcxDBTextEdit
-            Left = 197
+            Left = 259
             Top = 30
-            ExplicitLeft = 197
+            ExplicitLeft = 259
             ExplicitTop = 30
             ExplicitWidth = 194
             Width = 194
           end
           inherited eMailTrabajo: TcxDBHyperLinkEdit
-            Left = 453
+            Left = 585
             Top = 162
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 162
             ExplicitWidth = 129
             Width = 129
           end
           inherited eMailParticular: TcxDBHyperLinkEdit
-            Left = 453
+            Left = 585
             Top = 190
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 190
             ExplicitWidth = 165
             Width = 165
           end
+          inherited eDuracionContrato: TcxDBTextEdit
+            Left = 585
+            Top = 297
+            ExplicitLeft = 585
+            ExplicitTop = 297
+            ExplicitWidth = 114
+            Width = 114
+          end
           inherited ePaginaWeb: TcxDBHyperLinkEdit
-            Left = 453
+            Left = 585
             Top = 217
-            ExplicitLeft = 453
+            ExplicitLeft = 585
             ExplicitTop = 217
             ExplicitWidth = 165
             Width = 165
@@ -250,14 +259,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
             ExplicitWidth = 256
             Width = 256
           end
-          inherited eDuracionContrato: TcxDBTextEdit
-            Left = 453
-            Top = 297
-            ExplicitLeft = 453
-            ExplicitTop = 297
-            ExplicitWidth = 114
-            Width = 114
-          end
         end
         inherited dsContacto: TDADataSource
           Left = 8
@@ -266,51 +267,41 @@ inherited fEditorEmpleado: TfEditorEmpleado
       end
     end
     inherited pagDatosBancarios: TTabSheet
-      ExplicitWidth = 662
-      ExplicitHeight = 447
-      inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
-        Width = 662
-        Height = 447
-        ExplicitWidth = 662
-        ExplicitHeight = 447
-        inherited dxLayoutControl1: TdxLayoutControl
-          Width = 662
-          LookAndFeel = dxLayoutOfficeLookAndFeel
-          ExplicitWidth = 662
-          inherited eEntidad: TcxDBTextEdit
-            ExplicitWidth = 114
-            Width = 114
-          end
-          inherited eSucursal: TcxDBTextEdit
-            Left = 426
-            ExplicitLeft = 426
-            ExplicitWidth = 112
-            Width = 112
-          end
-          inherited eCuenta: TcxDBTextEdit
-            ExplicitWidth = 194
-            Width = 194
-          end
-          inherited eTitular: TcxDBTextEdit
-            ExplicitWidth = 194
-            Width = 194
-          end
+      ExplicitWidth = 915
+      ExplicitHeight = 573
+      inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
+        Width = 915
+        Height = 454
+        ExplicitTop = 0
+        ExplicitWidth = 915
+        ExplicitHeight = 573
+        inherited cxGrid: TcxGrid
+          Width = 915
+          Height = 429
+          ExplicitWidth = 915
+          ExplicitHeight = 548
+        end
+        inherited ToolBar1: TToolBar
+          Width = 915
+          ExplicitWidth = 915
         end
       end
     end
     object pagFormacion: TTabSheet
       Caption = 'Formaci'#243'n'
       ImageIndex = 2
+      ExplicitHeight = 573
       object dxLayoutControl1: TdxLayoutControl
         Left = 0
         Top = 0
-        Width = 662
-        Height = 447
+        Width = 915
+        Height = 454
         Align = alClient
         ParentBackground = True
         TabOrder = 0
         AutoContentSizes = [acsWidth, acsHeight]
         LookAndFeel = dxLayoutOfficeLookAndFeel
+        ExplicitHeight = 573
         object eFormacionBasica: TcxDBMemo
           Left = 22
           Top = 30
@@ -334,7 +325,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
         end
         object eFormacionComplementaria: TcxDBMemo
           Left = 22
-          Top = 174
+          Top = 176
           DataBinding.DataField = 'FORMACION_COMPLE'
           DataBinding.DataSource = frViewEmpleado1.dsContacto
           Properties.ScrollBars = ssVertical
@@ -355,7 +346,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
         end
         object eFormacionRecibida: TcxDBMemo
           Left = 22
-          Top = 318
+          Top = 322
           DataBinding.DataField = 'FORMACION_RECIBIDA'
           DataBinding.DataSource = frViewEmpleado1.dsContacto
           Properties.ScrollBars = ssVertical
@@ -418,16 +409,18 @@ inherited fEditorEmpleado: TfEditorEmpleado
     object pagExperiencia: TTabSheet
       Caption = 'Experiencia'
       ImageIndex = 3
+      ExplicitHeight = 573
       object dxLayoutControl2: TdxLayoutControl
         Left = 0
         Top = 0
-        Width = 662
-        Height = 447
+        Width = 915
+        Height = 454
         Align = alClient
         ParentBackground = True
         TabOrder = 0
         AutoContentSizes = [acsWidth, acsHeight]
         LookAndFeel = dxLayoutOfficeLookAndFeel
+        ExplicitHeight = 573
         object eExperiencia: TcxDBMemo
           Left = 22
           Top = 30
@@ -471,10 +464,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 557
-    Width = 676
-    ExplicitTop = 557
-    ExplicitWidth = 676
+    Top = 564
+    Width = 929
+    ExplicitTop = 683
+    ExplicitWidth = 929
   end
   inherited EditorActionList: TActionList
     object actGruposEmpleado: TAction
diff --git a/Source/Modulos/Contactos/Views/uEditorEmpleado.pas b/Source/Modulos/Contactos/Views/uEditorEmpleado.pas
index cc8b75e9..9957f89f 100644
--- a/Source/Modulos/Contactos/Views/uEditorEmpleado.pas
+++ b/Source/Modulos/Contactos/Views/uEditorEmpleado.pas
@@ -12,7 +12,7 @@ uses
   uIEditorEmpleado, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
   uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
   dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
-  uDAInterfaces;
+  uDAInterfaces, uViewContactoListaDatosBancarios;
 
 type
   TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado)
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
index 2965a16d..7897bc04 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
@@ -1,16 +1,17 @@
 inherited fEditorProveedor: TfEditorProveedor
   Caption = 'fEditorProveedor'
-  ClientHeight = 590
-  ClientWidth = 648
-  ExplicitWidth = 656
-  ExplicitHeight = 617
+  ClientHeight = 552
+  ClientWidth = 839
+  ExplicitTop = -15
+  ExplicitWidth = 847
+  ExplicitHeight = 579
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 648
-    ExplicitWidth = 648
+    Width = 839
+    ExplicitWidth = 839
     inherited Image1: TImage
-      Left = 621
+      Left = 812
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -46,28 +47,28 @@ inherited fEditorProveedor: TfEditorProveedor
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 648
-    ExplicitWidth = 648
+    Width = 839
+    ExplicitWidth = 839
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 330
     end
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 648
+      ExplicitWidth = 839
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 642
-    Height = 489
-    ExplicitWidth = 642
-    ExplicitHeight = 489
+    Width = 833
+    Height = 451
+    ExplicitWidth = 833
+    ExplicitHeight = 564
     inherited pagGeneral: TTabSheet
-      ExplicitWidth = 634
-      ExplicitHeight = 461
+      ExplicitWidth = 825
+      ExplicitHeight = 536
       inline frViewProveedor1: TfrViewProveedor
         Left = 0
         Top = 0
-        Width = 634
-        Height = 461
+        Width = 825
+        Height = 423
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -77,37 +78,37 @@ inherited fEditorProveedor: TfEditorProveedor
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 634
-        ExplicitHeight = 461
+        ExplicitWidth = 825
+        ExplicitHeight = 536
         inherited dxLayoutControlContacto: TdxLayoutControl
-          Width = 634
-          Height = 461
+          Width = 825
+          Height = 423
           LookAndFeel = dxLayoutOfficeLookAndFeel
-          ExplicitWidth = 634
-          ExplicitHeight = 461
+          ExplicitWidth = 825
+          ExplicitHeight = 536
           inherited PngSpeedButton1: TPngSpeedButton
-            Left = 589
+            Left = 764
             Top = 218
-            ExplicitLeft = 589
+            ExplicitLeft = 764
             ExplicitTop = 218
           end
           inherited PngSpeedButton2: TPngSpeedButton
-            Left = 589
+            Left = 764
             Top = 190
-            ExplicitLeft = 589
+            ExplicitLeft = 764
             ExplicitTop = 190
           end
           inherited PngSpeedButton3: TPngSpeedButton
-            Left = 589
+            Left = 764
             Top = 162
-            ExplicitLeft = 589
+            ExplicitLeft = 764
             ExplicitTop = 162
           end
           inherited Label1: TLabel
-            Left = 390
+            Left = 495
             Top = 297
             Width = 342
-            ExplicitLeft = 390
+            ExplicitLeft = 495
             ExplicitTop = 297
             ExplicitWidth = 342
           end
@@ -130,9 +131,9 @@ inherited fEditorProveedor: TfEditorProveedor
             Width = 108
           end
           inherited eCodigoPostal: TcxDBTextEdit
-            Left = 297
+            Left = 402
             Top = 294
-            ExplicitLeft = 297
+            ExplicitLeft = 402
             ExplicitTop = 294
           end
           inherited eObservaciones: TcxDBMemo
@@ -144,9 +145,9 @@ inherited fEditorProveedor: TfEditorProveedor
             Width = 580
           end
           inherited cxDBCheckBox1: TcxDBCheckBox
-            Left = 390
+            Left = 495
             Top = 270
-            ExplicitLeft = 390
+            ExplicitLeft = 495
             ExplicitTop = 270
             ExplicitWidth = 310
             Width = 310
@@ -182,33 +183,33 @@ inherited fEditorProveedor: TfEditorProveedor
             Width = 221
           end
           inherited eTlfParticular: TcxDBTextEdit
-            Left = 485
+            Left = 590
             Top = 57
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 57
             ExplicitWidth = 172
             Width = 172
           end
           inherited eTlfTrabajo: TcxDBTextEdit
-            Left = 485
+            Left = 590
             Top = 30
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 30
             ExplicitWidth = 172
             Width = 172
           end
           inherited eTlfMovil: TcxDBTextEdit
-            Left = 485
+            Left = 590
             Top = 84
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 84
             ExplicitWidth = 172
             Width = 172
           end
           inherited eFax: TcxDBTextEdit
-            Left = 485
+            Left = 590
             Top = 111
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 111
             ExplicitWidth = 172
             Width = 172
@@ -220,35 +221,35 @@ inherited fEditorProveedor: TfEditorProveedor
             Width = 263
           end
           inherited eNIFCIF: TcxDBTextEdit
-            Left = 213
+            Left = 256
             Top = 30
-            ExplicitLeft = 213
+            ExplicitLeft = 256
             ExplicitTop = 30
             ExplicitWidth = 254
             Width = 254
           end
           inherited eMailTrabajo: TcxDBHyperLinkEdit
-            Left = 485
+            Left = 590
             Top = 162
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 162
             ExplicitWidth = 129
             Width = 129
           end
           inherited eMailParticular: TcxDBHyperLinkEdit
-            Left = 485
+            Left = 590
             Top = 190
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 190
             ExplicitWidth = 165
             Width = 165
           end
           inherited ePaginaWeb: TcxDBHyperLinkEdit
-            Left = 485
+            Left = 590
             Top = 217
-            ExplicitLeft = 485
+            ExplicitLeft = 590
             ExplicitTop = 217
             ExplicitWidth = 165
             Width = 165
@@ -269,45 +270,34 @@ inherited fEditorProveedor: TfEditorProveedor
       end
     end
     inherited pagDatosBancarios: TTabSheet
-      ExplicitWidth = 634
-      ExplicitHeight = 461
-      inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
-        Width = 634
-        Height = 461
-        ExplicitWidth = 634
-        ExplicitHeight = 461
-        inherited dxLayoutControl1: TdxLayoutControl
-          Width = 634
-          LookAndFeel = dxLayoutOfficeLookAndFeel
-          ExplicitWidth = 634
-          inherited eEntidad: TcxDBTextEdit
-            ExplicitWidth = 114
-            Width = 114
-          end
-          inherited eSucursal: TcxDBTextEdit
-            Left = 323
-            ExplicitLeft = 323
-            ExplicitWidth = 270
-            Width = 270
-          end
-          inherited eCuenta: TcxDBTextEdit
-            ExplicitWidth = 242
-            Width = 242
-          end
-          inherited eTitular: TcxDBTextEdit
-            ExplicitWidth = 363
-            Width = 363
-          end
+      ExplicitWidth = 825
+      ExplicitHeight = 536
+      inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
+        Width = 825
+        Height = 423
+        ExplicitTop = 0
+        ExplicitWidth = 825
+        ExplicitHeight = 536
+        inherited cxGrid: TcxGrid
+          Width = 825
+          Height = 398
+          ExplicitWidth = 825
+          ExplicitHeight = 511
+        end
+        inherited ToolBar1: TToolBar
+          Width = 825
+          ExplicitWidth = 825
         end
       end
     end
     object pagDatosComerciales: TTabSheet
       Caption = 'Datos comerciales'
       ImageIndex = 2
+      ExplicitHeight = 536
       inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
         Left = 0
         Top = 0
-        Width = 634
+        Width = 825
         Height = 121
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
@@ -318,17 +308,17 @@ inherited fEditorProveedor: TfEditorProveedor
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 634
+        ExplicitWidth = 825
         ExplicitHeight = 121
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 634
+          Width = 825
           LookAndFeel = dxLayoutOfficeLookAndFeel
-          ExplicitWidth = 634
+          ExplicitWidth = 825
           inherited Label1: TLabel
-            Left = 412
+            Left = 533
             Top = 30
             Width = 190
-            ExplicitLeft = 412
+            ExplicitLeft = 533
             ExplicitTop = 30
             ExplicitWidth = 190
           end
@@ -345,9 +335,9 @@ inherited fEditorProveedor: TfEditorProveedor
             Width = 121
           end
           inherited bFormasPago: TButton
-            Left = 252
+            Left = 373
             Top = 57
-            ExplicitLeft = 252
+            ExplicitLeft = 373
             ExplicitTop = 57
           end
           inherited eIVA: TcxDBLookupComboBox
@@ -357,15 +347,15 @@ inherited fEditorProveedor: TfEditorProveedor
             Width = 121
           end
           inherited bTiposIVA: TButton
-            Left = 252
+            Left = 373
             Top = 84
-            ExplicitLeft = 252
+            ExplicitLeft = 373
             ExplicitTop = 84
           end
           inherited eDescuento: TcxDBSpinEdit
-            Left = 456
+            Left = 577
             Top = 62
-            ExplicitLeft = 456
+            ExplicitLeft = 577
             ExplicitTop = 62
             ExplicitWidth = 73
             Width = 73
@@ -376,11 +366,12 @@ inherited fEditorProveedor: TfEditorProveedor
     object pagDirecciones: TTabSheet
       Caption = 'Direcciones'
       ImageIndex = 3
+      ExplicitHeight = 536
       inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
         Left = 0
         Top = 0
-        Width = 634
-        Height = 461
+        Width = 825
+        Height = 423
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -390,26 +381,38 @@ inherited fEditorProveedor: TfEditorProveedor
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 634
-        ExplicitHeight = 461
+        ExplicitWidth = 825
+        ExplicitHeight = 536
         inherited cxGrid: TcxGrid
-          Width = 634
-          Height = 436
-          ExplicitWidth = 634
-          ExplicitHeight = 436
+          Width = 825
+          Height = 398
+          ExplicitWidth = 825
+          ExplicitHeight = 511
         end
         inherited ToolBar1: TToolBar
-          Width = 634
-          ExplicitWidth = 634
+          Width = 825
+          ExplicitWidth = 825
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 571
-    Width = 648
-    ExplicitTop = 571
-    ExplicitWidth = 648
+    Top = 533
+    Width = 839
+    ExplicitTop = 646
+    ExplicitWidth = 839
   end
   inherited EditorActionList: TActionList
     Left = 32
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
index 98f7f0f0..1b42aafd 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
@@ -14,7 +14,7 @@ uses
   cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
   dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
   uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
-  uDAInterfaces;
+  uDAInterfaces, uViewContactoListaDatosBancarios;
 
 type
   TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
diff --git a/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm b/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm
new file mode 100644
index 00000000..93c30bdb
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm
@@ -0,0 +1,76 @@
+inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
+  inherited cxGrid: TcxGrid
+    inherited cxGridView: TcxGridDBTableView
+      OnCellDblClick = cxGridViewCellDblClick
+      OptionsData.Appending = False
+      OptionsData.Deleting = False
+      OptionsData.Editing = False
+      OptionsData.Inserting = False
+      inherited cxGridViewID: TcxGridDBColumn
+        VisibleForCustomization = False
+      end
+      object cxGridViewTITULAR: TcxGridDBColumn
+        DataBinding.FieldName = 'TITULAR'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 80
+      end
+      object cxGridViewENTIDAD: TcxGridDBColumn
+        DataBinding.FieldName = 'ENTIDAD'
+        PropertiesClassName = 'TcxTextEditProperties'
+        BestFitMaxWidth = 45
+        Width = 45
+      end
+      object cxGridViewSUCURSAL: TcxGridDBColumn
+        DataBinding.FieldName = 'SUCURSAL'
+        PropertiesClassName = 'TcxTextEditProperties'
+        BestFitMaxWidth = 45
+        Width = 45
+      end
+      object cxGridViewDC: TcxGridDBColumn
+        DataBinding.FieldName = 'DC'
+        PropertiesClassName = 'TcxTextEditProperties'
+        BestFitMaxWidth = 30
+        Width = 30
+      end
+      object cxGridViewCUENTA: TcxGridDBColumn
+        DataBinding.FieldName = 'CUENTA'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 80
+      end
+    end
+  end
+  inherited ToolBar1: TToolBar
+    inherited ToolButton1: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 62
+    end
+    inherited ToolButton4: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 74
+    end
+    inherited ToolButton5: TToolButton
+      Top = 0
+      ExplicitTop = 0
+    end
+    inherited ToolButton2: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 67
+    end
+    inherited ToolButton6: TToolButton
+      Top = 0
+      ExplicitTop = 0
+    end
+    inherited ToolButton7: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 117
+    end
+  end
+  inherited dsDetalles: TDADataSource
+    DataSet = tbl_Contactos.Dataset
+    DataTable = DataModuleContactos.tbl_Contactos
+  end
+end
diff --git a/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.pas b/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.pas
new file mode 100644
index 00000000..07076e95
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.pas
@@ -0,0 +1,76 @@
+unit uViewContactoListaDatosBancarios;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
+  cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
+  uDAInterfaces, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid, cxTextEdit;
+
+type
+  IViewListaDatosBancarios = interface(IViewDetallesGenerico)
+    ['{E6489FBE-C472-494A-AA04-7B63B3262521}']
+  end;
+
+  TfrViewListaDatosBancarios = class(TfrViewDetallesGenerico, IViewListaDatosBancarios)
+    cxGridViewTITULAR: TcxGridDBColumn;
+    cxGridViewENTIDAD: TcxGridDBColumn;
+    cxGridViewSUCURSAL: TcxGridDBColumn;
+    cxGridViewDC: TcxGridDBColumn;
+    cxGridViewCUENTA: TcxGridDBColumn;
+    procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure actEliminarExecute(Sender: TObject);
+  protected
+    procedure AnadirInterno; override;
+    procedure ModificarInterno; override;
+  end;
+
+implementation
+
+uses
+  uDataModuleContactos, uBizContactosDatosBancarios,
+  uDatosBancariosContactoController, uDialogUtils;
+
+{$R *.dfm}
+
+{ TfrViewListaDatosBancarios }
+
+procedure TfrViewListaDatosBancarios.actEliminarExecute(Sender: TObject);
+begin
+  if (ShowConfirmMessage('Eliminar una cuenta bancaria', '¿Desea eliminar esta cuenta bancaria?') = IDYES) then
+    inherited;
+end;
+
+procedure TfrViewListaDatosBancarios.AnadirInterno;
+begin
+  inherited;
+  try
+    with TDatosBancariosContactoController.Create do
+      Ver((dsDetalles.DataTable) as IBizContactosDatosBancarios);
+  finally
+    if (dsDetalles.DataTable.State in dsEditModes) then
+      dsDetalles.DataTable.Post;
+  end;
+end;
+
+procedure TfrViewListaDatosBancarios.cxGridViewCellDblClick(
+  Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
+  AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+  inherited;
+  actModificar.Execute;
+end;
+
+procedure TfrViewListaDatosBancarios.ModificarInterno;
+begin
+  inherited;
+  with TDatosBancariosContactoController.Create do
+    Ver((dsDetalles.DataTable) as IBizContactosDatosBancarios);
+end;
+
+end.