diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 250d21fe0..ead541bd9 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -4639,7 +4639,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         Dim Respuesta As Boolean = True
 
-        Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 4").ToEntero
+        Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5").ToEntero ' estatus cancelado
 
         If CveOSEstatusFinalizada > 0 Then
 
@@ -4766,10 +4766,8 @@ Partial Class Inventarios_EntregaAlmacen
 
         Return Respuesta
 
-
     End Function
 
-
     Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click
         Dim ruta As String = HttpContext.Current.Request.ApplicationPath
         ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)