agregando descuentos por clasificaciones en bdh

Ventas/PV.aspx.vb

@@ -2882,6 +2882,15 @@ Partial Class PV
                     End If
 
                 End If
+                'Descuento por clasificación
+                If drPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then
+                    Dim clasificacionesDescuentos As New Dictionary(Of Integer, Double) From {
+                        {20516, 0.23}, 'Descuento para lubricantes LTH
+                        {20515, 0.24}  'Descuento para filtros LTH
+                    }
+                    TxtDescuento.Text = (PrecioSugerido * clasificacionesDescuentos(drPS("CveClasificacion").ToString.ToEntero)).ToString("F2")
+                End If
+
                 If ChkAjuste.Checked Then
                     CalculaMesesUso()
                     UpAjuste.Update()