From 1b316c8d733afa4e67d42010cb6ca6aa9131302a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 5 Mar 2025 17:23:37 -0700
Subject: [PATCH] =?UTF-8?q?--=20validaci=C3=B3n=20de=20os=20vigente?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OS/OrdenesServicios.aspx.vb | 5 +++++
 1 file changed, 5 insertions(+)

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