From 3991519ab3cb099fabb518bc8f9021606a243754 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 7 Jul 2023 09:50:06 -0700
Subject: [PATCH] -- limpiar el globaldtcuentas

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

diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb
index 04346da23..1f8142139 100644
--- a/Contabilidad/CatCuentas.aspx.vb
+++ b/Contabilidad/CatCuentas.aspx.vb
@@ -28,7 +28,7 @@ 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) Then
+            If Not UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso EsProduccion Then
                 Response.Redirect("/Contabilidad2/CatCuentas.aspx")
                 Exit Sub
             End If