From 437423b7628a0b8aacc82454ae91804b6ec4bc72 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 17 Feb 2020 12:04:57 -0700
Subject: [PATCH] agregando descuentos por clasificaciones en bdh

---
 Ventas/PV.aspx.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index cd6baf4c1..2f8e25299 100644
--- a/Ventas/PV.aspx.vb
+++ b/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()