From 6bcd703116693397426a3d082b9cb31346705918 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 6 Jun 2022 18:28:51 -0700 Subject: [PATCH] =?UTF-8?q?--=20se=20quit=C3=B3=20bdh-alcalinas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PV.aspx.vb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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