From ac97fc45183ef30fed7af62126f2aea90cf4a95f Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 6 Oct 2009 14:03:13 +0000
Subject: [PATCH] - Limpieza de warnings

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@444 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Views/uEditorAsignarDescuento.pas          |  2 +-
 .../Views/uViewDetallesPresupuestoCliente.pas  |  4 ++--
 .../Views/uViewPresupuestosCliente.dfm         | 18 +++++++++---------
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorAsignarDescuento.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorAsignarDescuento.pas
index b6eba24c..49970e7e 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorAsignarDescuento.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorAsignarDescuento.pas	
@@ -20,7 +20,7 @@ type
     Label3: TLabel;
 
   private
-    FDescuento: Variant;
+    //FDescuento: Variant;
     function GetDescuento: Variant;
     procedure SetDescuento(const Value: Variant);
 
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
index 930b6f48..fa380c45 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas	
@@ -108,10 +108,10 @@ begin
 end;
 
 procedure TfrViewDetallesPresupuestoCliente.actAsignarDescuentoExecute(Sender: TObject);
-var
+{var
   AuxTop, AuxRow:Integer;
   ADescuento: Variant;
-
+}
 begin
 {
   ADescuento := (Controller as IDetallesPresupuestoClienteController).PedirDescuento;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
index 8186948b..06c45019 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm	
@@ -68,52 +68,52 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
         BestFitMaxWidth = 25
-        Width = 58
+        Width = 65
       end
       object cxGridViewSITUACION: TcxGridDBColumn
         Caption = 'Situaci'#243'n'
         DataBinding.FieldName = 'SITUACION'
         BestFitMaxWidth = 25
-        Width = 80
+        Width = 77
       end
       object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn
         Caption = 'Fecha presupuesto'
         DataBinding.FieldName = 'FECHA_PRESUPUESTO'
         BestFitMaxWidth = 25
-        Width = 105
+        Width = 100
       end
       object cxGridViewFECHA_DECISION: TcxGridDBColumn
         Caption = 'Fecha decisi'#243'n'
         DataBinding.FieldName = 'FECHA_DECISION'
         BestFitMaxWidth = 25
-        Width = 185
+        Width = 77
       end
       object cxGridViewNIF_CIF: TcxGridDBColumn
         Caption = 'NIF/CIF'
         DataBinding.FieldName = 'NIF_CIF'
         BestFitMaxWidth = 25
-        Width = 75
+        Width = 88
       end
       object cxGridViewNOMBRE: TcxGridDBColumn
         Caption = 'Nombre'
         DataBinding.FieldName = 'NOMBRE'
-        Width = 161
+        Width = 271
       end
       object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
         Caption = 'Importe total'
         DataBinding.FieldName = 'IMPORTE_TOTAL'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
-        BestFitMaxWidth = 60
+        BestFitMaxWidth = 25
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
-        Width = 63
+        Width = 104
       end
       object cxGridViewCONTRATO: TcxGridDBColumn
         Caption = 'Contrato asociado'
         DataBinding.FieldName = 'REF_CONTRATO'
         BestFitMaxWidth = 25
-        Width = 25
+        Width = 63
       end
     end
     inherited cxGridLevel: TcxGridLevel