diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 62feae247..36cbced6f 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -697,7 +697,8 @@ 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
+                 {20515, 0.25D},  'Descuento para filtros LTH
+                 {20518, 0.183D}  'Descuento para pilas alcalinas -- segun 
             }
         End Get
     End Property
@@ -4392,7 +4393,10 @@ Partial Class PV
                 End If
             End If
         Else
-            If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) 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, 20518) Then
                 Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2)
             End If
         End If