From 8d2dcc8ec9db8edd273a6125939f28438045ca0b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 27 May 2024 15:55:50 -0700
Subject: [PATCH] -- dato fijo de empresa

---
 Compras/PopUpVerFactura.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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