-- validación de os vigente

2025-03-05 17:23:37 -07:00
parent 8c55abc237
commit 1b316c8d73
1 changed files with 5 additions and 0 deletions
--- 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