diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ac7337fa9..d090cd757 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1355,7 +1355,7 @@ Partial Class Compras_Compras
                     GvInv.Visible = True
                     CargaProveedor(-1, RFC)
 
-                    If Not DdlTipoComprobante.SelectedValue = "NC" Then
+                    If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
                         If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
                             If TmpDT.MAX("CvePS").ToEntero > 0 Then
                                 BtnGuardar.Enabled = False
@@ -4060,13 +4060,15 @@ Partial Class Compras_Compras
         '    DtNoEncontrados.Dispose()
         'End If
 
-        'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
+        'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
 
-        If UsuarioActual.Empresa.Funcionalidad(128) <> "" Then
-            If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
-                If Not CompraEstaVinculadaOC Then
-                    Alert("Debe de vincular una orden de compra para registrar la factura")
-                    Exit Sub
+        If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+            If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
+                If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
+                    If Not CompraEstaVinculadaOC Then
+                        Alert("Debe de vincular una orden de compra para registrar la factura")
+                        Exit Sub
+                    End If
                 End If
             End If
         End If