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)