From 700748bbd21dc870e902318fe63f146f52df544d Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 3 Sep 2008 10:02:39 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@555
 0c75b7a4-871f-7646-8a2f-f78d34cc349f

---
 .../Views/uViewDetallesPresupuestoCliente.dfm              | 3 +--
 .../Views/uViewDetallesPresupuestoCliente.pas              | 7 -------
 2 files changed, 1 insertion(+), 9 deletions(-)

diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
index 0a9e0fb6..304e67b5 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm	
@@ -83,12 +83,11 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
         DataBinding.FieldName = ''
-        Visible = False
-        VisibleForCustomization = False
       end
     end
   end
   inherited TBXDock1: TTBXDock
     Top = 95
+    ExplicitTop = 68
   end
 end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
index 9e5c00d5..c8311ccd 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas	
@@ -25,7 +25,6 @@ type
   end;
 
   TfrViewDetallesPresupuestoCliente = class(TfrViewDetallesArticulosParaVenta, IViewDetallesPresupuestoCliente)
-    procedure BitBtn1Click(Sender: TObject);
   protected
     FPresupuesto: IBizPresupuestoCliente;
     function GetPresupuesto: IBizPresupuestoCliente;
@@ -56,12 +55,6 @@ begin
   (Controller as IDetallesPresupuestoClienteController).AnadirArticulos(Detalles, Presupuesto.Cliente);
 end;
 
-procedure TfrViewDetallesPresupuestoCliente.BitBtn1Click(Sender: TObject);
-begin
-  inherited;
-  FPresupuesto.Detalles.Insert;
-end;
-
 function TfrViewDetallesPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
 begin
   Result := FPresupuesto;