From 8df181eae774603534957bd42b5034cb0c932300 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Apr 2024 13:13:45 -0700
Subject: [PATCH] - redirect

---
 Contabilidad/CatCuentas.aspx.vb | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb
index 36f391f24..2fe4e638d 100644
--- a/Contabilidad/CatCuentas.aspx.vb
+++ b/Contabilidad/CatCuentas.aspx.vb
@@ -28,22 +28,22 @@ Partial Class Contabilidad_CatCuentas
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            'If Not UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso EsProduccion Then
-            '    Response.Redirect("/Contabilidad2/CatCuentas.aspx")
-            '    Exit Sub
-            'End If
-
-            If UsuarioActual.Empresa.UsaContabilidad Then
-                CargaMonedas()
-                CargaAgrupadorSAT()
-                CargaDatos()
-            Else
-                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
-                MEECuenta.Enabled = False
-                LnkPdf.Visible = False
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                Response.Redirect("/Contabilidad2/CatCuentas.aspx")
+                Exit Sub
             End If
 
-        End If
+            If UsuarioActual.Empresa.UsaContabilidad Then
+                    CargaMonedas()
+                    CargaAgrupadorSAT()
+                    CargaDatos()
+                Else
+                    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
+                    MEECuenta.Enabled = False
+                    LnkPdf.Visible = False
+                End If
+
+            End If
     End Sub
 
     Private Sub CargaMonedas()