diff --git a/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm b/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
index 1a1ab489..bb5a3244 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
@@ -19,6 +19,14 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
         DataBinding.FieldName = 'NOMBRE'
         Width = 191
       end
+      object cxGridViewIBAN: TcxGridDBColumn
+        DataBinding.FieldName = 'IBAN'
+        Width = 90
+      end
+      object cxGridViewSWIFT: TcxGridDBColumn
+        DataBinding.FieldName = 'SWIFT'
+        Width = 65
+      end
       object cxGridViewENTIDAD: TcxGridDBColumn
         DataBinding.FieldName = 'ENTIDAD'
         Width = 48
@@ -47,16 +55,6 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
         VisibleForCustomization = False
         Width = 57
       end
-      object cxGridViewIBAN: TcxGridDBColumn
-        DataBinding.FieldName = 'IBAN'
-        Visible = False
-        VisibleForCustomization = False
-      end
-      object cxGridViewSWIFT: TcxGridDBColumn
-        DataBinding.FieldName = 'SWIFT'
-        Visible = False
-        VisibleForCustomization = False
-      end
     end
   end
   inherited ToolBar1: TToolBar
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas
index b645d4d0..0c975d9e 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas	
@@ -35,14 +35,12 @@ uses uFactuGES_App;
 procedure TfEditorElegirDomiciliacion.FormShow(Sender: TObject);
 var
   AController: IEmpresasController;
-  ALista : TStringList;
   AListaIBAN : TStringList;
   i : integer;
 
 begin
   AController := TEmpresasController.Create;
   try
-    ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
     AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
 
     try
@@ -52,12 +50,8 @@ begin
         try
           Clear;
           Add('');
-          for i := 0 to ALista.Count - 1 do
-              Add(ALista.Names[i]);
-
           if AListaIBAN.Count > 0 then
           begin
-            Add('--------------');
             for i := 0 to AListaIBAN.Count - 1 do
                 Add(AListaIBAN.Names[i]);
           end;
@@ -66,7 +60,6 @@ begin
         end;
       end;
     finally
-      FreeANDNIL(ALista);
       FreeANDNIL(AListaIBAN);
     end;
   finally
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
index 9b308c9f..9cebee5d 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas	
@@ -160,14 +160,12 @@ end;
 procedure TfrViewFacturaProveedor.RellenarCuentasBancarias;
 var
   AController : IEmpresasController;
-  ALista : TStringList;
   AListaIBAN : TStringList;
   AListaProveedor : TStringList;
   i : integer;
 begin
   AController := TEmpresasController.Create;
   try
-    ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
     AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
     AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR);
 
@@ -178,12 +176,8 @@ begin
         try
           Clear;
           Add('');
-          for i := 0 to ALista.Count - 1 do
-            Add(ALista.Names[i]);
-
           if AListaIBAN.Count > 0 then
           begin
-            Add('--------------');
             for i := 0 to AListaIBAN.Count - 1 do
               Add(AListaIBAN.Names[i]);
           end;
@@ -200,7 +194,6 @@ begin
         end;
       end;
     finally
-      FreeANDNIL(ALista);
       FreeANDNIL(AListaIBAN);      
     end;
   finally