From b1427efcf29be93792f7220519ef35e71a2d20b8 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 28 Jan 2014 17:14:23 +0000
Subject: [PATCH] =?UTF-8?q?Tarea=20#1310=20->=20En=20la=20ficha=20de=20una?=
 =?UTF-8?q?=20factura=20de=20proveedor,=20s=C3=B3lo=20listas=20las=20cuent?=
 =?UTF-8?q?as=20bancarias=20en=20formato=20IBAN?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1092 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Empresas/Views/uViewDatosBancarios.dfm     | 18 ++++++++----------
 .../Views/uEditorElegirDomiciliacion.pas       |  7 -------
 .../Views/uViewFacturaProveedor.pas            |  7 -------
 3 files changed, 8 insertions(+), 24 deletions(-)

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