- redirect

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()