diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 4ba4d6a1c..40f373a8a 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5805,7 +5805,7 @@ Partial Class PopUpVerFactura
                     End With
                     dtMovs.Dispose()
 
-                    If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 And CvePrePoliza > 0 Then
+                    If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) And CvePrePoliza > 0 Then
 
                         Dim ObjContabilidad As New ClsContabilidad