From b06f2aa25a88cb79dcc77b9d103b34ba1e5989b2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 17 Mar 2023 14:16:30 -0700
Subject: [PATCH] =?UTF-8?q?--=20Correcci=C3=B3n=20regeneracion=20globaldte?=
 =?UTF-8?q?mpresas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Sistemas/Empresa.aspx.vb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb
index 3b0e210b9..4fc40d192 100644
--- a/Sistemas/Empresa.aspx.vb
+++ b/Sistemas/Empresa.aspx.vb
@@ -655,7 +655,7 @@ Partial Class Sistemas_Empresa
         'RECARGA EMPRESA
         If TextoError = "" Then
             If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
-                GlobalDTEmpresas(CveEmpresa) = ObjEmpresas.DtResultados
+                GlobalDTEmpresas(CveEmpresa) = Nothing
 
                 'verifico si existe la carpeta de la empresa, sino la crea
                 For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
@@ -665,9 +665,8 @@ Partial Class Sistemas_Empresa
                 Next
             End If
 
-            If ObjGral.GetClasificacionPorcentaje(CveEmpresa) Then
-                GlobalDTClasificacionPorcentaje(CveEmpresa) = ObjGral.DtResultados
-            End If
+            GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
+
         End If
 
         'AGREGAR FUNCIONALIDADES