merge -- Ventas

Ventas/PV.aspx.vb

@@ -4359,6 +4359,11 @@ Partial Class PV
             End If
         End If
 
+        ''condicion final, si es cambio de Vigencia, no aplica descuento
+        If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20637) Then
+            Descuento = 0
+        End If
+
         ObjDescuento.ImporteDescuento = Descuento
         ObjDescuento.CvePromocionDetalle = CvePromocionDetalle
         If SeAjustoPU Then