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;