From 5521ec4bb97e14234fe7e9f8486a0b36abe829d4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 4 Mar 2025 13:19:17 -0700
Subject: [PATCH] =?UTF-8?q?--=20si=20la=20OS,=20est=C3=A1=20cancelada,=20n?=
 =?UTF-8?q?o=20se=20cambia=20al=20estatus?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntregaAlmacen.aspx.vb | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 2f2071652..b16f4f6d2 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -4672,8 +4672,21 @@ Partial Class Inventarios_EntregaAlmacen
         If CveOSEstatusFinalizada > 0 Then
 
             Dim ObjOS As New ClsOS(TransaccionSql)
+            'obtener estatus de la os, actual, si es cancelada, no se debe de cambiar el estatus. 
+            Dim CveEstatusActual As Integer = 1
+            Dim CveTipoOS As Integer = -1
+            If ObjOS.GetOrdenesServicios(CveOSCerrar, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                CveEstatusActual = ObjOS.CveEstatusOrdenServicio
+                CveTipoOS = ObjOS.DtResultados.FiltroPrimeroValor("TipoEstatus").ToEntero
+            End If
+
+            'si es cancelada. no se actualiza(5.Cancelada)
+            If CveTipoOS <> 5 Then
+                Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
+            Else
+                Respuesta = True
+            End If
 
-            Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
             Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
             If Respuesta Then
                 Dim ObjInventario As New ClsInventarios(TransaccionSql)