diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bd1247c18..468820bed 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1358,7 +1358,7 @@ Partial Class Compras_Compras
                     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
+                                'BtnGuardar.Enabled = False
                                 RegistraScript("$('#ImgBtnBuscarOC').click()")
                             End If
                         End If
@@ -4083,9 +4083,15 @@ Partial Class Compras_Compras
 
         'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
 
+        Dim EsViatico As Boolean = False
+
+        If RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 AndAlso DdlPersonalReembolso.SelectedValue.ToEntero > 0 Then
+            EsViatico = True
+        End If
+
         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 EstaAsociadoACajaChica And Not EstaAsociadoAPersonal And Not EsViatico Then
                     If Not CompraEstaVinculadaOC Then
                         Alert("Debe de vincular una orden de compra para registrar la factura")
                         Exit Sub