-- candado, para no descuento, cambios de vigencia

Ventas/PV.aspx.vb

@@ -4327,6 +4327,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