-- si la OS, está cancelada, no se cambia al estatus

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)