From f7b9de40d211a10dd1512e7d23fcbabba2ee30f8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 10 Sep 2022 10:32:08 -0700
Subject: [PATCH] =?UTF-8?q?--=20comentar=20promoci=C3=B3n=20alcalinas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index b3b17aef3..cb3efda90 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4446,26 +4446,26 @@ Partial Class PV
             Descuento = 0
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            'LTH AA Paq. 2 baterias, LTH AAA Paq. 02 baterias, LTH AA  Paq. 4 baterias, LTH AAA Paq. 4 Baterias
-            If CvePS.Contiene(521445, 521448, 402917, 402918) Then
-                'SI TIENE BATERIAS AGREGADAS CON LA MARCA LTH, APLICAR PROMOCION, LA CLASIFICACION DEBE SER ACUMULADORES
-                If TmpDT.SUMD("Cantidad", "CveMarca IN (819,826,1085,1052) AND CveClasificacion IN (20520,20522,20513,20521,20512,20514,20229)") >= 1D Then
-                    Descuento = 0
-                    SeAjustoPU = True
-                    'Paq. 2 baterias
-                    If CvePS.Contiene(521445, 521448) Then
-                        PUPromocion = 25D
-                    End If
-                    'Paq. 4 baterias
-                    If CvePS.Contiene(402917, 402918) Then
-                        PUPromocion = 40D
-                    End If
-                    PUModificado = Math.Round(PUPromocion / (1 + PorcentajeIVA), 6)
-                End If
-            End If
+        'If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+        '    'LTH AA Paq. 2 baterias, LTH AAA Paq. 02 baterias, LTH AA  Paq. 4 baterias, LTH AAA Paq. 4 Baterias
+        '    If CvePS.Contiene(521445, 521448, 402917, 402918) Then
+        '        'SI TIENE BATERIAS AGREGADAS CON LA MARCA LTH, APLICAR PROMOCION, LA CLASIFICACION DEBE SER ACUMULADORES
+        '        If TmpDT.SUMD("Cantidad", "CveMarca IN (819,826,1085,1052) AND CveClasificacion IN (20520,20522,20513,20521,20512,20514,20229)") >= 1D Then
+        '            Descuento = 0
+        '            SeAjustoPU = True
+        '            'Paq. 2 baterias
+        '            If CvePS.Contiene(521445, 521448) Then
+        '                PUPromocion = 25D
+        '            End If
+        '            'Paq. 4 baterias
+        '            If CvePS.Contiene(402917, 402918) Then
+        '                PUPromocion = 40D
+        '            End If
+        '            PUModificado = Math.Round(PUPromocion / (1 + PorcentajeIVA), 6)
+        '        End If
+        '    End If
 
-        End If
+        'End If
 
         ObjDescuento.ImporteDescuento = Descuento
         ObjDescuento.CvePromocionDetalle = CvePromocionDetalle