No calcular descuentos en productos con clasificacion "cambio de vigencia"

Ventas/Ventas.aspx.vb

@@ -17233,7 +17233,11 @@ Partial Class Ventas
             If CveClasifPS = 20636 Then
                 ValidaCondicionesComerciales = False
             End If
-
+            'CAMBIO DE VIGENCIA NO SE APLICAN DESCUENTOS
+            If CveClasifPS = 20637 Then
+                ObjDescuento.ImporteDescuento = 0
+                Return ObjDescuento
+            End If
         End If
 
         Dim dr As DataRow = Nothing