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