diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 36cbced6f..da7e55f6f 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -697,8 +697,7 @@ Partial Class PV
         Get
             Return New Dictionary(Of Integer, Decimal) From {
                  {20516, 0.21D}, 'Descuento para lubricantes LTH
-                 {20515, 0.25D},  'Descuento para filtros LTH
-                 {20518, 0.183D}  'Descuento para pilas alcalinas -- segun 
+                 {20515, 0.25D}  'Descuento para filtros LTH                
             }
         End Get
     End Property
@@ -4393,10 +4392,10 @@ Partial Class PV
                 End If
             End If
         Else
-            If CveMarcaPS = 1092 Then ' E140 - alcalinas LTH
-                Descuento = ((Cantidad * PU) * 0.183D).RoundSQL(2)
-            End If
-            If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515, 20518) Then
+            'If CveMarcaPS = 1092 Then ' E140 - alcalinas LTH
+            '    Descuento = ((Cantidad * PU) * 0.183D).RoundSQL(2)
+            'End If
+            If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then
                 Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2)
             End If
         End If