diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 9c1f50fe6..7d09c7cd3 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3839,6 +3839,11 @@ Partial Class OS_OrdenesServicios
 
         Dim LigaRedirigir As String = ""
 
+        If CveVenta = 0 Then
+            Alert("El Material no se puede cancelar, ya que la remisión ya no está vigente y/o asociada.", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
         Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
         Try
             Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing