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