From 985588887594dd478a710ad03e2809929214c63a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 11 Jan 2023 18:46:15 -0700
Subject: [PATCH] Validar mensaje de cuentas de contpaqi

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

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index eadfd1fe5..f32d786ed 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3500,7 +3500,7 @@ Partial Class Compras_Compras
                 ViewState("IdCtaContRetIVA") = ObjProveedor.IdCtaContRetIVA
                 ViewState("IdCtaContRetISR") = ObjProveedor.IdCtaContRetISR
 
-                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso ObjProveedor.IdCtaContProveedores < 1 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso ObjProveedor.IdCtaContProveedores < 1 Then
                     Alert("El Proveedor seleccionado no tiene cuenta contable asignada.", TipoMensaje.MsgAdvertencia)
                 End If