From 9540b9e48b4d9762136ed50edb736751d9627582 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 27 Jan 2010 15:43:32 +0000
Subject: [PATCH] Repaso de clientes

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@71 f33bb606-9f5c-448d-9c99-757f00063c96
---
 Source/Modulos/Contactos/Views/uEditorClientes.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.pas b/Source/Modulos/Contactos/Views/uEditorClientes.pas
index 70e40a8..fa2fade 100644
--- a/Source/Modulos/Contactos/Views/uEditorClientes.pas
+++ b/Source/Modulos/Contactos/Views/uEditorClientes.pas
@@ -50,7 +50,7 @@ type
     procedure actDocumentosRecibosExecute(Sender: TObject);
   protected
     procedure ImprimirInterno; override;
-    procedure PrevisualizarInterno; override;    
+    procedure PrevisualizarInterno; override;
     procedure EliminarInterno; override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -178,6 +178,9 @@ var
   AClientes: IBizCliente;
   AllItems: Boolean;
 begin
+  inherited;
+  
+{
   AClientes := Nil;
   AllItems := False;
 
@@ -217,6 +220,7 @@ begin
       end;
     end;
   end;
+}
 end;
 
 procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
@@ -233,6 +237,10 @@ var
   AClientes: IBizCliente;
   AllItems: Boolean;
 begin
+  inherited;
+
+//Se desactiva las opciones de impresion
+{
   AClientes := Nil;
   AllItems := False;
 
@@ -272,6 +280,7 @@ begin
       end;
     end;
   end;
+}
 end;
 
 end.