From 86f045c09a3439a4d88fa05d2d7feb867b4499be Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 9 Jul 2009 08:26:17 +0000
Subject: [PATCH] Repaso a mensajes de warnings y hints

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@960 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/Controladores/uControllerDetallesBase.pas | 4 ++--
 Source/Base/Utiles/uSaveClipboard.pas                 | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas
index 4de0ee30..f1d62201 100644
--- a/Source/Base/Controladores/uControllerDetallesBase.pas
+++ b/Source/Base/Controladores/uControllerDetallesBase.pas
@@ -296,9 +296,9 @@ end;
 
 procedure TControllerDetallesBase.CalculoDetalleDescuento(
   DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double);
-var
+{var
   ImporteDto : Double;
-  Redondeado : Double;
+  Redondeado : Double;}
 begin
 //Este metodo calcula el descuento por capitulo que no se activa para tecsitel 
 {  with DataTable do
diff --git a/Source/Base/Utiles/uSaveClipboard.pas b/Source/Base/Utiles/uSaveClipboard.pas
index ab2859b8..5ab7d4ae 100644
--- a/Source/Base/Utiles/uSaveClipboard.pas
+++ b/Source/Base/Utiles/uSaveClipboard.pas
@@ -155,7 +155,7 @@ var Data:THandle;
     p : pointer;
     Count, i : integer;
     Buffer : array[0..MAX_PATH] of Char;
-    AList : TStringLIst;
+//    AList : TStringLIst;
 begin
 
 {  AList := TStringList.Create;