diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 302d66ca7..fcff19b3c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8808,7 +8808,7 @@ Partial Class Ventas
 
 
                 'CONTABILIDAD AUTOMATICA Y AC 
-                If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                If UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjContPaq.IniciaTransacSQL()
                 End If